hg/stx-libtool: AbstractSettingsApplication.st@3df132763949 (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
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	4	instanceVariableNames:'settingsString currentUserPrefs modifiedChannel settingsDialog
c605d7909165 * empty log message * penk parents: 5035 diff changeset	5	requestor'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	6	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	7	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	8	category:'Interface-Smalltalk'
4226 44e2f83cc526 initial checkin penk parents: diff changeset	9	!
44e2f83cc526 initial checkin penk parents: diff changeset	10
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	11	AbstractSettingsApplication subclass:#ByteCodeCompilerSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	12	instanceVariableNames:'allowQualifiedNames warnDollar warnOldStyle fullDebugSupport
c605d7909165 * empty log message * penk parents: 5035 diff changeset	13	warnCommonMistakes warnUnderscore keepSource constantFolding
c605d7909165 * empty log message * penk parents: 5035 diff changeset	14	warnCompatibility constantFoldingOptions warnings warnSTX
c605d7909165 * empty log message * penk parents: 5035 diff changeset	15	allowDollar allowReservedWordsAsSelectors immutableArrays
c605d7909165 * empty log message * penk parents: 5035 diff changeset	16	allowOldStyleAssignment allowUnderscore allowDolphinExtensions
c605d7909165 * empty log message * penk parents: 5035 diff changeset	17	warnUnusedVars allowSqueakExtensions justInTimeCompilation
c605d7909165 * empty log message * penk parents: 5035 diff changeset	18	canLoadBinaries constantFoldingSelection enableUnderscore
c605d7909165 * empty log message * penk parents: 5035 diff changeset	19	enableDollar'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	20	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	21	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	22	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	23	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	24
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	25	AbstractSettingsApplication subclass:#DebuggerSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	26	instanceVariableNames:'showErrorNotifier showVerboseStack allowSendMailFromDebugger'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	27	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	28	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	29	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	30	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	31
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	32	AbstractSettingsApplication subclass:#DisplaySettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	33	instanceVariableNames:'isColorMonitor useFixGrayPaletteLabel useFixPalette sizeY
c605d7909165 * empty log message * penk parents: 5035 diff changeset	34	clipEncodingListSelection sizeX monitorList ditherList
c605d7909165 * empty log message * penk parents: 5035 diff changeset	35	clipEncodingList ditherListSelection deepIcons monitorSelection
c605d7909165 * empty log message * penk parents: 5035 diff changeset	36	useFixPaletteLabel visualIsPseudoColor ditherSymsNotNil
c605d7909165 * empty log message * penk parents: 5035 diff changeset	37	useFixGrayPalette sizeInfos screen ditherStyles ditherSyms
c605d7909165 * empty log message * penk parents: 5035 diff changeset	38	screenDepthVisualLabelHolder'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	39	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	40	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	41	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	42	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	43
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	44	AbstractSettingsApplication subclass:#EditSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	45	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
c605d7909165 * empty log message * penk parents: 5035 diff changeset	46	searchDialogIsModal startTextDragWithControl'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	47	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	48	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	49	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	50	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	51
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	52	AbstractSettingsApplication subclass:#FontSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	53	instanceVariableNames:'filter allOfThem labelDef buttonDef listDef menuDef textDef
c605d7909165 * empty log message * penk parents: 5035 diff changeset	54	allFontLabelHolder buttonsFontLabelHolder textFontLabelHolder
c605d7909165 * empty log message * penk parents: 5035 diff changeset	55	labelsFontLabelHolder listsFontLabelHolder menusFontLabelHolder
c605d7909165 * empty log message * penk parents: 5035 diff changeset	56	allLabel buttonsLabel textLabel labelLabel listsLabel menuLabel'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	57	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	58	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	59	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	60	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	61
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	62	AbstractSettingsApplication subclass:#GeneralCompilerSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	63	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
c605d7909165 * empty log message * penk parents: 5035 diff changeset	64	searchDialogIsModal startTextDragWithControl catchClassRedefs
c605d7909165 * empty log message * penk parents: 5035 diff changeset	65	fullHistoryUpdate historyLines keepSourceSelection keepSource
c605d7909165 * empty log message * penk parents: 5035 diff changeset	66	hasHistoryManager canLoadBinaries loadBinaries catchMethodRedefs'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	67	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	68	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	69	privateIn:AbstractSettingsApplication
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	70	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	71
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	72	AbstractSettingsApplication subclass:#HTTPStartServerSettingsApplication
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	73	instanceVariableNames:'portNumberChannel informationLabel hasNoCreatedServerChannel
c605d7909165 * empty log message * penk parents: 5035 diff changeset	74	hasCreatedServerChannel'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	75	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	76	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	77	privateIn:AbstractSettingsApplication
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	78	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	79
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	80	AbstractSettingsApplication subclass:#KbdMappingSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	81	instanceVariableNames:'selectedRawKey macroTextHolder selectedFunctionKey
c605d7909165 * empty log message * penk parents: 5035 diff changeset	82	labelTextHolder functionKeyList rawKeyList mappings'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	83	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	84	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	85	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	86	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	87
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	88	AbstractSettingsApplication subclass:#LanguageSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	89	instanceVariableNames:'languageHolder languageList listOfLanguages translatedLanguages
c605d7909165 * empty log message * penk parents: 5035 diff changeset	90	noticeLabelHolder currentLanguageChannel currentLanguageLabel'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	91	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	92	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	93	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	94	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	95
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	96	AbstractSettingsApplication subclass:#MemorySettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	97	instanceVariableNames:'newSpaceSize maxOldSpace fastMoreLimit warningLabelHolder
c605d7909165 * empty log message * penk parents: 5035 diff changeset	98	codeTrigger codeLimit oldIncr compressLimit igcFreeLimit igcLimit
c605d7909165 * empty log message * penk parents: 5035 diff changeset	99	igcFreeAmount stackLimit supportsJustInTimeCompilation'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	100	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	101	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	102	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	103	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	104
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	105	AbstractSettingsApplication subclass:#MiscCommunicationSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	106	instanceVariableNames:'remoteBrowsingEnabled windowMigrationEnabled
c605d7909165 * empty log message * penk parents: 5035 diff changeset	107	windowMigrationPassword windowMigrationAuthenticate
c605d7909165 * empty log message * penk parents: 5035 diff changeset	108	enablePasswordCheck'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	109	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	110	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	111	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	112	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	113
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	114	AbstractSettingsApplication subclass:#MiscDisplaySettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	115	instanceVariableNames:'returnFocus focusFollowsMouse beepEnabled takeFocus
c605d7909165 * empty log message * penk parents: 5035 diff changeset	116	activateOnClick shadows opaqueVariablePanelResize
c605d7909165 * empty log message * penk parents: 5035 diff changeset	117	formatHostNameinWindowLabels opaqueTableColumnResize
c605d7909165 * empty log message * penk parents: 5035 diff changeset	118	hostNameInLabelHolder showAccelerators newWindowLabelFormat
c605d7909165 * empty log message * penk parents: 5035 diff changeset	119	formatHostNameWindowLabel'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	120	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	121	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	122	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	123	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	124
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	125	AbstractSettingsApplication subclass:#OsiSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	126	instanceVariableNames:'osiACSEConnectionLogging osiROSEErrorLogging osiCMISEErrorLogging
c605d7909165 * empty log message * penk parents: 5035 diff changeset	127	osiACSEErrorLogging osiROSEPresent osiCMISEPresent
c605d7909165 * empty log message * penk parents: 5035 diff changeset	128	osiCMISEMessageLogging osiACSEDataLogging
c605d7909165 * empty log message * penk parents: 5035 diff changeset	129	osiROSEInvokationLogging osiACSEPresent osiROSEResponseLogging'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	130	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	131	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	132	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	133	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	134
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	135	AbstractSettingsApplication subclass:#PrinterSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	136	instanceVariableNames:'selectedUnit supportsColor topMargin rightMargin bottomMargin
c605d7909165 * empty log message * penk parents: 5035 diff changeset	137	landscape pageFormatList pageFormat unitList leftMargin
c605d7909165 * empty log message * penk parents: 5035 diff changeset	138	possiblePrinters printerType printerTypeSelection
c605d7909165 * empty log message * penk parents: 5035 diff changeset	139	printCommandList commandList printCommand enableFormat
c605d7909165 * empty log message * penk parents: 5035 diff changeset	140	enablelandscape enableMargins enableColorBox'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	141	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	142	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	143	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	144	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	145
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	146	AbstractSettingsApplication subclass:#ProcessorSchedulerSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	147	instanceVariableNames:'dynamicPrios preemptive'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	148	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	149	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	150	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	151	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	152
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	153	AbstractSettingsApplication subclass:#RDoItServerSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	154	instanceVariableNames:'rDoitLogging rDoitsEnabled rDoitErrorLogging hasRDoitServer
c605d7909165 * empty log message * penk parents: 5035 diff changeset	155	rDoitErrorDebugging rDoitServerPortOrPath'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	156	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	157	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	158	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	159	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	160
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	161	AbstractSettingsApplication subclass:#STCCompilerSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	162	instanceVariableNames:'cc ccOptions stcIncludes linkCommand stc linkArgs canLoadBinaries
c605d7909165 * empty log message * penk parents: 5035 diff changeset	163	stcDefines stcLibraries stcOptions stcLibraryPath
c605d7909165 * empty log message * penk parents: 5035 diff changeset	164	stcCompilationSelection stcCompilationList'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	165	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	166	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	167	privateIn:AbstractSettingsApplication
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	168	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	169
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	170	AbstractSettingsApplication subclass:#SourceCodeFormatSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	171	instanceVariableNames:'spaceAfterKeywordSelector emptyLineAfterTemporaries tabIndent
c605d7909165 * empty log message * penk parents: 5035 diff changeset	172	autoFormat cStyleBlocks editorText maxLengthForSingleLineBlocks
c605d7909165 * empty log message * penk parents: 5035 diff changeset	173	blockArgumentsOnNewLine spaceAfterReturnToken
c605d7909165 * empty log message * penk parents: 5035 diff changeset	174	spaceAroundTemporaries oldUserPreferences reformatLocked'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	175	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	176	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	177	privateIn:AbstractSettingsApplication
4398 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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	180	AbstractSettingsApplication subclass:#SourceCodeManagementSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	181	instanceVariableNames:'sourceCacheDir useManager condenseSourceCache
c605d7909165 * empty log message * penk parents: 5035 diff changeset	182	syntaxColorConfiguration setupSourceCodeManager
c605d7909165 * empty log message * penk parents: 5035 diff changeset	183	checkClassesWhenCheckingIn formattingConfiguration
c605d7909165 * empty log message * penk parents: 5035 diff changeset	184	flushSourceCache localSourceFirst cvsIsSetup repositoryHolder
c605d7909165 * empty log message * penk parents: 5035 diff changeset	185	manager repository listOfModules cvsRootPrototypeList
c605d7909165 * empty log message * penk parents: 5035 diff changeset	186	addPerModuleRoot removeEnabled perModuleRootModule acceptChannel
c605d7909165 * empty log message * penk parents: 5035 diff changeset	187	removePerModuleRoot perModuleRoot cvsRootHolder
c605d7909165 * empty log message * penk parents: 5035 diff changeset	188	selectedPerModuleRoot cvsBinDirectoryHolder rootsPerModule'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	189	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	190	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	191	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	192	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	193
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	194	AbstractSettingsApplication subclass:#StyleSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	195	instanceVariableNames:'showStandardStylesOnly styleList selectedStyle
c605d7909165 * empty log message * penk parents: 5035 diff changeset	196	styleDirectoryContents infoLabelHolder noticeLabelHolder'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	197	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	198	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	199	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	200	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	201
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	202	AbstractSettingsApplication subclass:#SyntaxColorSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	203	instanceVariableNames:'coloredText syntaxColor syntaxColors resetList resetListSelection
c605d7909165 * empty log message * penk parents: 5035 diff changeset	204	fullSelectorCheck syntaxColoring oldUserPreferences
c605d7909165 * empty log message * penk parents: 5035 diff changeset	205	syntaxFontSelector syntaxFonts syntaxElementList
c605d7909165 * empty log message * penk parents: 5035 diff changeset	206	syntaxElementSelection syntaxEmphasisList syntaxEmphasisSelection
c605d7909165 * empty log message * penk parents: 5035 diff changeset	207	emphasisDictionary resetListDictionary'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	208	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	209	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	210	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	211	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	212
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	213	AbstractSettingsApplication subclass:#SystemMessageSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	214	instanceVariableNames:'classInfos vmInfo vmErrors displayErrors logDoits updChanges
c605d7909165 * empty log message * penk parents: 5035 diff changeset	215	changeFileName'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	216	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	217	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	218	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	219	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	220
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	221	AbstractSettingsApplication subclass:#ToolsSettingsAppl
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	222	instanceVariableNames:'useNewVersionDiffBrowser transcriptBufferSize useNewInspector
c605d7909165 * empty log message * penk parents: 5035 diff changeset	223	showClockInLauncher useNewChangesBrowser useNewFileBrowser
c605d7909165 * empty log message * penk parents: 5035 diff changeset	224	useNewSystemBrowser useNewFileDialog useNewSettingsApplication
c605d7909165 * empty log message * penk parents: 5035 diff changeset	225	useProcessMonitorV2'
c605d7909165 * empty log message * penk parents: 5035 diff changeset	226	classVariableNames:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	227	poolDictionaries:''
c605d7909165 * empty log message * penk parents: 5035 diff changeset	228	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	229	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	230
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	231	!AbstractSettingsApplication class methodsFor:'documentation'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	232
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	233	windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	234
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	235	self subclassResponsibility
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	236	! !
4226 44e2f83cc526 initial checkin penk parents: diff changeset	237
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	238	!AbstractSettingsApplication class methodsFor:'defaults'!
68504047f229 * empty log message * penk parents: 4286 diff changeset	239
68504047f229 * empty log message * penk parents: 4286 diff changeset	240	classResources
68504047f229 * empty log message * penk parents: 4286 diff changeset	241
68504047f229 * empty log message * penk parents: 4286 diff changeset	242	^ AbstractLauncherApplication classResources
68504047f229 * empty log message * penk parents: 4286 diff changeset	243	! !
68504047f229 * empty log message * penk parents: 4286 diff changeset	244
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	245	!AbstractSettingsApplication methodsFor:'accessing'!
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	246
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	247	requestor:something
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	248	"set the value of the instance variable 'requestor' (automatically generated)"
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	249
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	250	requestor := something.
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	251	!
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	252
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	253	settingsDialog
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	254	^ settingsDialog
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	255	!
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	256
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	257	settingsDialog:something
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	258	settingsDialog := something.
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	259	! !
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	260
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	261	!AbstractSettingsApplication methodsFor:'actions'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	262
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	263	evaluateModified
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	264
c72e35116b13 instable state penk parents: 5040 diff changeset	265	self obsoleteMethodWarning.
c72e35116b13 instable state penk parents: 5040 diff changeset	266	^ self updateModifiedChannel.
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	267	!
330907eab7e0 * empty log message * penk parents: 4581 diff changeset	268
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	269	saveRequest
4944 fce7d52d36da * empty log message * Claus Gittinger <cg@exept.de> parents: 4941 diff changeset	270	^ self saveRequestAsking:self askForChangeOnRelease
4941 42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	271	!
42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	272
42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	273	saveRequestAsking:askForChangeOnRelease
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	274	\|result\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	275
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	276	(self hasUnsavedChanges) ifTrue:[
4941 42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	277	askForChangeOnRelease ifTrue:[
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	278	result := self confirmWithCancel:(resources
97ccd5a946f4 next step penk parents: 4813 diff changeset	279	string:'Save changed ' , settingsString , ' ?').
97ccd5a946f4 next step penk parents: 4813 diff changeset	280	] ifFalse:[
97ccd5a946f4 next step penk parents: 4813 diff changeset	281	result := true.
97ccd5a946f4 next step penk parents: 4813 diff changeset	282	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	283	result isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	284	^ false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	285	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	286	result ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	287	self saveSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	288	] ifFalse:[
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	289	self readSettings
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	290	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	291	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	292	^ true
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	293	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	294
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	295	saveSettingsIfUnsavedChangesArePresent
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	296	self hasUnsavedChanges ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	297	self saveSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	298	self modifiedChannel value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	299	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	300	!
c72e35116b13 instable state penk parents: 5040 diff changeset	301
c72e35116b13 instable state penk parents: 5040 diff changeset	302	updateModifiedChannel
c72e35116b13 instable state penk parents: 5040 diff changeset	303	self modifiedChannel value:self hasUnsavedChanges
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	304	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	305
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	306	!AbstractSettingsApplication methodsFor:'aspects'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	307
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	308	modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	309
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	310	modifiedChannel isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	311	modifiedChannel := false asValue.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	312	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	313	^ modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	314	! !
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	!AbstractSettingsApplication methodsFor:'initialization'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	317
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	318	initialize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	319	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	320	resources := self class classResources.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	321	currentUserPrefs := UserPreferences current.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	322	settingsString := (UISpecification from:(self class windowSpec)) window label.
4886 4fcb51786045 readSettings is no longer done in Claus Gittinger <cg@exept.de> parents: 4883 diff changeset	323	"/ self readSettings.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	324	! !
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	325
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	326	!AbstractSettingsApplication methodsFor:'protocol'!
289972d3e455 * empty log message * penk parents: 4319 diff changeset	327
4873 3ffb8a8812ec * empty log message * penk parents: 4851 diff changeset	328	askForChangeOnRelease
5011 42d7fed9da6a ask for changes Claus Gittinger <cg@exept.de> parents: 4986 diff changeset	329	^ true "/ false
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	330	!
97ccd5a946f4 next step penk parents: 4813 diff changeset	331
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	332	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	333
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	334	self subclassResponsibility.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	335	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	336
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	337	hasUnsavedChanges
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	338
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	339	^ self subclassResponsibility
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	340	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	341
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	342	help
289972d3e455 * empty log message * penk parents: 4319 diff changeset	343
289972d3e455 * empty log message * penk parents: 4319 diff changeset	344	self subclassResponsibility.
289972d3e455 * empty log message * penk parents: 4319 diff changeset	345	"/ self warn:'no help available here'.
289972d3e455 * empty log message * penk parents: 4319 diff changeset	346	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
289972d3e455 * empty log message * penk parents: 4319 diff changeset	347	!
4226 44e2f83cc526 initial checkin penk parents: diff changeset	348
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	349	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	350	self subclassResponsibility
4240 f196089fe934 next stage for settings penk parents: 4228 diff changeset	351	!
f196089fe934 next stage for settings penk parents: 4228 diff changeset	352
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	353	saveSettings
4226 44e2f83cc526 initial checkin penk parents: diff changeset	354
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	355	self basicSaveSettings.
4657 a59ba78d52d2 reset UserPrefernces instance on saveSettings because Userpreferences current may change penk parents: 4656 diff changeset	356	currentUserPrefs := UserPreferences current.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	357	self modifiedChannel value:false.
4226 44e2f83cc526 initial checkin penk parents: diff changeset	358	! !
44e2f83cc526 initial checkin penk parents: diff changeset	359
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	360	!AbstractSettingsApplication methodsFor:'queries'!
1bde09704293 * empty log message * penk parents: 4893 diff changeset	361
1bde09704293 * empty log message * penk parents: 4893 diff changeset	362	itemPathName
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	363	^ self settingsDialog getNameOfApplication:self.
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	364	! !
1bde09704293 * empty log message * penk parents: 4893 diff changeset	365
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	366	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'defaults'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	367
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	368	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	369
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	370	^ #( nil #level1 #level2 #full )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	371	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	372
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	373	constantFoldingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	374
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	375	^ #('disabled' 'level1 (always safe)' 'level2 (usually safe)' 'full')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	376	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	377
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	378	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	379
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	380	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	381	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	382	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	383
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	384	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	385	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	386
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	387	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	388	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	389	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	390	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	391	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	392
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	393	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	394
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	395	^Icon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	396	constantNamed:#'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class defaultIcon'
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	397	ifAbsentPut:[(Depth1Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@C@@@@@@@@G.=0G.=3D*%QG.=0@@@@G?>3DNN1G=60DM>0G=>0DM>0G=60DNN0G?>0@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255]; 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]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	398	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	399
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	400	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	401
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	402	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	403	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	404	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	405
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	406	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	407	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	408
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	409	"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	410	UIPainter new openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	411	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	412	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	413	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	414
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	415	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	416
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	417	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	418	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	419	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	420	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	421	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	422	#label: 'Byte Code Compiler Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	423	#name: 'Byte Code Compiler Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	424	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	425	#max: #(#Point 1024 768)
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	426	#bounds: #(#Rectangle 16 46 616 560)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	427	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	428	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	429	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	430	#collection: #(
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	431	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	432	#name: 'VerticalPanel1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	433	#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	434	#horizontalLayout: #fit
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	435	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	436	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	437	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	438	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	439	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	440	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	441	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	442	#label: 'Just in Time Compilation to Machine Code'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	443	#name: 'JustInTimeCompilation'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	444	#model: #justInTimeCompilation
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	445	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	446	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	447	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	448	#(#DividerSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	449	#name: 'Separator3'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	450	#extent: #(#Point 600 3)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	451	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	452	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	453	#label: 'Allow Underscore in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	454	#name: 'AllowUnderscoreInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	455	#model: #allowUnderscore
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	456	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	457	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	458	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	459	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	460	#label: 'Allow Dollar in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	461	#name: 'AllowDollarInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	462	#model: #allowDollar
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	463	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	464	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	465	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	466	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	467	#label: 'Allow VW3 QualifiedNames'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	468	#name: 'AllowVW3QualifiedNames'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	469	#model: #allowQualifiedNames
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	470	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	471	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	472	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	473	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	474	#label: 'Allow Squeak Extensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	475	#name: 'AllowSqueakExtensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	476	#model: #allowSqueakExtensions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	477	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	478	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	479	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	480	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	481	#label: 'Allow Dolphin Extensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	482	#name: 'AllowDolphinExtensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	483	#model: #allowDolphinExtensions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	484	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	485	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	486	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	487	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	488	#label: 'Allow OldStyle Assignment (_)'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	489	#name: 'AllowOldStyleAssignment'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	490	#model: #allowOldStyleAssignment
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	491	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	492	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	493	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	494	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	495	#label: 'Allow Reserved Words as Selector (self)'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	496	#name: 'AllowReservedWordsAsSelector'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	497	#model: #allowReservedWordsAsSelectors
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	498	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	499	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	500	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	501	#(#DividerSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	502	#name: 'Separator4'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	503	#extent: #(#Point 600 3)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	504	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	505	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	506	#label: 'Warnings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	507	#name: 'Warnings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	508	#model: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	509	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	510	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	511	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	512	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	513	#name: 'Box2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	514	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	515	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	516	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	517	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	518	#name: 'VerticalPanel2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	519	#layout: #(#LayoutFrame 20 0 0 0 600 0 150 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	520	#horizontalLayout: #left
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	521	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	522	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	523	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	524	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	525	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	526	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	527	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	528	#label: 'ST/X Extensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	529	#name: 'STXExtensions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	530	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	531	#model: #warnSTX
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	532	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	533	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	534	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	535	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	536	#label: 'Underscores in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	537	#name: 'UnderscoresInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	538	#enableChannel: #enableUnderscore
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	539	#model: #warnUnderscore
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	540	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	541	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	542	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	543	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	544	#label: 'Dollars in Identifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	545	#name: 'DollarsInIdentifiers'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	546	#enableChannel: #enableDollar
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	547	#model: #warnDollar
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	548	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	549	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	550	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	551	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	552	#label: 'Unused Method Variables'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	553	#name: 'UnusedMethodVariables'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	554	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	555	#model: #warnUnusedVars
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	556	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	557	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	558	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	559	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	560	#label: 'OldStyle Assignment'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	561	#name: 'OldStyleAssignment'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	562	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	563	#model: #warnOldStyle
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	564	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	565	#extent: #(#Point 600 22)
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	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	568	#label: 'Common Mistakes'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	569	#name: 'CommonMistakes'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	570	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	571	#model: #warnCommonMistakes
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	572	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	573	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	574	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	575	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	576	#label: 'Possible Incompatibilities'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	577	#name: 'PossibleIncompatibilities'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	578	#enableChannel: #warnings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	579	#model: #warnCompatibility
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	580	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	581	#extent: #(#Point 600 22)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	582	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	583	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	584
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	585	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	586	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	587	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	588
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	589	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	590	#extent: #(#Point 600 160)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	591	)
4428 00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	592	#(#DividerSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	593	#name: 'Separator5'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	594	#extent: #(#Point 600 2)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	595	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	596	#(#CheckBoxSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	597	#label: 'Literal Arrays are Immutable'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	598	#name: 'LiteralArraysAreImmutable'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	599	#model: #immutableArrays
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	600	#translateLabel: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	601	#extent: #(#Point 600 22)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	602	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	603	#(#CheckBoxSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	604	#label: 'Full Debug Info'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	605	#name: 'FullDebugInfo'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	606	#model: #fullDebugSupport
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	607	#translateLabel: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	608	#extent: #(#Point 600 22)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	609	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	610	#(#DividerSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	611	#name: 'Separator6'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	612	#extent: #(#Point 600 2)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	613	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	614	#(#ViewSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	615	#name: 'Box1'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	616	#component:
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	617	#(#SpecCollection
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	618	#collection: #(
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	619	#(#LabelSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	620	#label: 'Constant Folding:'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	621	#name: 'ConstantFoldingLabel'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	622	#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	623	#translateLabel: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	624	#adjust: #right
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	625	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	626	#(#PopUpListSpec
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	627	#label: 'PopUp List'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	628	#name: 'ConstantFolding'
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	629	#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	630	#tabable: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	631	#model: #constantFoldingSelection
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	632	#menu: #constantFolding
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	633	#useIndex: true
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	634	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	635	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	636
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	637	)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	638	#extent: #(#Point 600 22)
00e398e9c9e5 ByteCode compiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4427 diff changeset	639	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	640	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	641
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	642	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	643	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	644	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	645
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	646	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	647	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	648	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	649
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	650	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	651
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	652	basicSaveSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	653
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	654	Compiler warnings:self warnings value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	655	Compiler warnSTXSpecials:self warnSTX value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	656	Compiler warnOldStyleAssignment:self warnOldStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	657	Compiler warnUnderscoreInIdentifier:self warnUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	658	Compiler warnDollarInIdentifier:self warnDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	659	Compiler warnCommonMistakes:self warnCommonMistakes value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	660	Compiler warnPossibleIncompatibilities:self warnCompatibility value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	661	Compiler warnUnusedVars:self warnUnusedVars value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	662	Compiler allowUnderscoreInIdentifier:self allowUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	663	Compiler allowDollarInIdentifier:self allowDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	664	Compiler allowSqueakExtensions:self allowSqueakExtensions value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	665	Compiler allowDolphinExtensions:self allowDolphinExtensions value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	666	Compiler allowQualifiedNames:self allowQualifiedNames value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	667	Compiler allowOldStyleAssignment:self allowOldStyleAssignment value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	668	Compiler allowReservedWordsAsSelectors:self allowReservedWordsAsSelectors value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	669
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	670	Compiler arraysAreImmutable:self immutableArrays value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	671	self fullDebugSupport value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	672	Compiler lineNumberInfo:#full.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	673	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	674	Compiler lineNumberInfo:true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	675	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	676
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	677	Compiler foldConstants:(self class constantFoldingOptions at:self constantFoldingSelection value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	678
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	679	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	680	\| justInTime \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	681	justInTime := self justInTimeCompilation value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	682	justInTime ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	683	Method allInstancesDo:[:m \| m checked:false].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	684	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	685	ObjectMemory justInTimeCompilation:justInTime.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	686	ObjectMemory fullSingleStepSupport:self fullDebugSupport value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	687	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	688	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	689
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	690	help
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	691
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	692	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
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
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	695	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	696	self allowDollar value:(Compiler allowDollarInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	697	self allowDolphinExtensions
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	698	value:(Compiler allowDolphinExtensions ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	699	self allowOldStyleAssignment
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	700	value:(Compiler allowOldStyleAssignment ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	701	self allowQualifiedNames value:(Compiler allowQualifiedNames ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	702	self allowReservedWordsAsSelectors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	703	value:(Compiler allowReservedWordsAsSelectors ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	704	self allowSqueakExtensions value:(Compiler allowSqueakExtensions ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	705	self allowUnderscore value:(Compiler allowUnderscoreInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	706	self constantFoldingSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	707	value:(self class constantFoldingOptions indexOf:Compiler foldConstants
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	708	ifAbsent:3).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	709	self supportsJustInTimeCompilation ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	710	self fullDebugSupport value:(ObjectMemory fullSingleStepSupport ? false)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	711	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	712	self fullDebugSupport value:(Compiler lineNumberInfo == #full)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	713	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	714	self immutableArrays value:(Compiler arraysAreImmutable ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	715	self supportsJustInTimeCompilation ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	716	self justInTimeCompilation
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	717	value:(ObjectMemory justInTimeCompilation ? false)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	718	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	719	self justInTimeCompilation value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	720	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	721	self warnCommonMistakes value:(Compiler warnCommonMistakes ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	722	self warnCompatibility
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	723	value:(Compiler warnPossibleIncompatibilities ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	724	self warnDollar value:(Compiler warnDollarInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	725	self warnOldStyle value:(Compiler warnOldStyleAssignment ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	726	self warnSTX value:(Compiler warnSTXSpecials ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	727	self warnUnderscore value:(Compiler warnUnderscoreInIdentifier ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	728	self warnUnusedVars value:(Compiler warnUnusedVars ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	729	self warnings value:(Compiler warnings ? false).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	730	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	731	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	732
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	733	stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	734
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	735	AbstractLauncherApplication::LauncherDialogs stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	736	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	737
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	738	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	739
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	740	allowDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	741
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	742	allowDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	743	allowDollar := (Compiler allowDollarInIdentifier ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	744	allowDollar onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	745	allowDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	746	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	747	^ allowDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	748	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	749
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	750	allowDolphinExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	751
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	752	allowDolphinExtensions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	753	allowDolphinExtensions := (Compiler allowDolphinExtensions ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	754	allowDolphinExtensions onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	755	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	756	^ allowDolphinExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	757	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	758
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	759	allowOldStyleAssignment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	760
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	761	allowOldStyleAssignment isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	762	allowOldStyleAssignment := (Compiler allowOldStyleAssignment ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	763	allowOldStyleAssignment onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	764	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	765	^ allowOldStyleAssignment.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	766	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	767
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	768	allowQualifiedNames
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	769
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	770	allowQualifiedNames isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	771	allowQualifiedNames := (Compiler allowQualifiedNames ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	772	allowQualifiedNames onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	773	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	774	^ allowQualifiedNames.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	775	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	776
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	777	allowReservedWordsAsSelectors
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	778
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	779	allowReservedWordsAsSelectors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	780	allowReservedWordsAsSelectors := (Compiler allowReservedWordsAsSelectors ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	781	allowReservedWordsAsSelectors onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	782	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	783	^ allowReservedWordsAsSelectors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	784	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	785
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	786	allowSqueakExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	787
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	788	allowSqueakExtensions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	789	allowSqueakExtensions := (Compiler allowSqueakExtensions ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	790	allowSqueakExtensions onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	791	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	792	^ allowSqueakExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	793	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	794
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	795	allowUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	796
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	797	allowUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	798	allowUnderscore := (Compiler allowUnderscoreInIdentifier ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	799	allowUnderscore onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	800	allowUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	801	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	802	^ allowUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	803	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	804
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	805	constantFolding
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	806
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	807	constantFolding isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	808	constantFolding := (resources array:(self class constantFoldingStrings)) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	809	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	810	^ constantFolding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	811	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	812
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	813	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	814
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	815	constantFoldingOptions isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	816	constantFoldingOptions := self class constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	817	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	818	^ constantFoldingOptions.
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	constantFoldingSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	822
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	823	constantFoldingSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	824	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	825	index := self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	826	constantFoldingSelection := index asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	827	constantFoldingSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	828	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	829	^ constantFoldingSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	830	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	831
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	832	enableDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	833
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	834	enableDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	835	enableDollar := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	836	enableDollar addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	837	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	838	^ enableDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	839	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	840
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	841	enableUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	842	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	843
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	844	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	845	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	846	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	847	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	848
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	849	enableUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	850	enableUnderscore := true asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	851	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	852	"/ enableUnderscore addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	853	"/ enableUnderscore onChangeSend:#enableUnderscoreChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	854	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	855	^ enableUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	856	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	857
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	858	fullDebugSupport
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	859
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	860	fullDebugSupport isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	861	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	862	fullDebugSupport := (ObjectMemory fullSingleStepSupport ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	863	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	864	fullDebugSupport := (Compiler lineNumberInfo == #full) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	865	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	866	fullDebugSupport onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	867	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	868	^ fullDebugSupport.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	869	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	870
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	871	immutableArrays
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	872
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	873	immutableArrays isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	874	immutableArrays := (Compiler arraysAreImmutable ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	875	immutableArrays onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	876	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	877	^ immutableArrays.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	878	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	879
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	880	justInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	881
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	882	justInTimeCompilation isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	883	self supportsJustInTimeCompilation ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	884	justInTimeCompilation := (ObjectMemory justInTimeCompilation ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	885	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	886	justInTimeCompilation := false asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	887	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	888	justInTimeCompilation onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	889	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	890	^ justInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	891	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	892
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	893	warnCommonMistakes
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	894
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	895	warnCommonMistakes isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	896	warnCommonMistakes := (Compiler warnCommonMistakes ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	897	warnCommonMistakes onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	898	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	899	^ warnCommonMistakes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	900	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	901
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	902	warnCompatibility
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	903
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	904	warnCompatibility isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	905	warnCompatibility := (Compiler warnPossibleIncompatibilities ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	906	warnCompatibility onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	907	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	908	^ warnCompatibility.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	909	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	910
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	911	warnDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	912
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	913	warnDollar isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	914	warnDollar := (Compiler warnDollarInIdentifier ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	915	warnDollar onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	916	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	917	^ warnDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	918	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	919
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	920	warnOldStyle
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	921
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	922	warnOldStyle isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	923	warnOldStyle := (Compiler warnOldStyleAssignment ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	924	warnOldStyle onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	925	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	926	^ warnOldStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	927	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	928
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	929	warnSTX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	930
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	931	warnSTX isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	932	warnSTX := (Compiler warnSTXSpecials ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	933	warnSTX onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	934	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	935	^ warnSTX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	936	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	937
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	938	warnUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	939
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	940	warnUnderscore isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	941	warnUnderscore := (Compiler warnUnderscoreInIdentifier ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	942	warnUnderscore onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	943	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	944	^ warnUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	945	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	946
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	947	warnUnusedVars
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	948
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	949	warnUnusedVars isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	950	warnUnusedVars := (Compiler warnUnusedVars ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	951	warnUnusedVars onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	952	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	953	^ warnUnusedVars.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	954	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	955
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	956	warnings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	957
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	958	warnings isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	959	warnings := (Compiler warnings ? false) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	960	warnings addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	961	warnings changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	962	warnings onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	963	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	964	^ warnings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	965	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	966
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	967	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	968
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	969	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	970	changedObject == self warnings ifTrue:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	971	changedObject value ifTrue:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	972	self enableUnderscore value:self allowUnderscore value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	973	self enableDollar value:self allowDollar value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	974	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	975	self enableUnderscore value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	976	self enableDollar value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	977	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	978	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	979	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	980	(changedObject == self allowDollar or:[changedObject == self allowUnderscore]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	981	self warnings changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	982	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	983	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	984
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	985	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	986	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	987
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	988	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	989
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	990	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	991
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	992	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	993	(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	994	((Compiler warnings ? false) ~= self warnings value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	995	((Compiler warnSTXSpecials ? false) ~= self warnSTX value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	996	((Compiler warnOldStyleAssignment ? false) ~= self warnOldStyle value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	997	((Compiler warnUnderscoreInIdentifier ? false) ~= self warnUnderscore value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	998	((Compiler warnDollarInIdentifier ? false) ~= self warnDollar value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	999	((Compiler warnCommonMistakes ? false) ~= self warnCommonMistakes value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1000	((Compiler warnPossibleIncompatibilities ? false) ~= self warnCompatibility value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1001	((Compiler warnUnusedVars ? false) ~= self warnUnusedVars value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1002	((Compiler allowUnderscoreInIdentifier ? false) ~= self allowUnderscore value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1003	((Compiler allowDollarInIdentifier ? false) ~= self allowDollar value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1004	((Compiler allowSqueakExtensions ? false) ~= self allowSqueakExtensions value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1005	((Compiler allowDolphinExtensions ? false) ~= self allowDolphinExtensions value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1006	((Compiler allowQualifiedNames ? false) ~= self allowQualifiedNames value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1007	((Compiler allowOldStyleAssignment ? false) ~= self allowOldStyleAssignment value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1008	((Compiler allowReservedWordsAsSelectors ? false) ~= self allowReservedWordsAsSelectors value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1009	((Compiler arraysAreImmutable ? false) ~= self immutableArrays value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1010	((self supportsJustInTimeCompilation value ifTrue:[ObjectMemory fullSingleStepSupport ? false] ifFalse:[Compiler lineNumberInfo == #full]) ~= self fullDebugSupport value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1011	((Compiler foldConstants) ~= (self class constantFoldingOptions at:self constantFoldingSelection value)) or:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	1012	((ObjectMemory justInTimeCompilation ? false) ~= self justInTimeCompilation value)]]]]]]]]]]]]]]]]]])
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1013	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1014
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1015	supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1016
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1017	^ ObjectMemory supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1018	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1019
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1020	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'image specs'!
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	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1023	<resource: #programImage>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1024
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1025	^ ToolbarIconLibrary bugReporter24x24Icon
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1028	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'interface specs'!
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	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1031	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1032	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1033
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1034	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1035	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1036
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1037	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1038	UIPainter new openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1039	AbstractSettingsApplication::DebuggerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1040	AbstractSettingsApplication::DebuggerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1041	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1042
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1043	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1044
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1045	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1046	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1047	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1048	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1049	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1050	#label: 'Debugger Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1051	#name: 'Debugger Settings'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1052	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1053	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1054	#bounds: #(#Rectangle 16 42 616 362)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1055	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1056	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1057	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1058	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1059	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1060	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1061	#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	1062	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1063	#verticalLayout: #top
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1064	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1065	#verticalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1066	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1067	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1068	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1069	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1070	#name: 'VerticalPanel5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1071	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1072	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1073	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1074	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1075	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1076	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1077	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1078	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1079	#name: 'Box10'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1080	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1081	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1082	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1083	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1084	#label: 'Show Error Notifier before Opening Debugger'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1085	#name: 'ShowErrorNotifierCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1086	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1087	#model: #showErrorNotifier
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1088	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1089	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1090	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1091
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1092	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1093	#extent: #(#Point 600 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1094	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1095	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1096	#name: 'Box11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1097	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1098	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1099	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1100	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1101	#label: 'Verbose Backtrace by Default in Debugger'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1102	#name: 'ShowVerboseStackCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1103	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1104	#model: #showVerboseStack
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1105	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1106	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1107	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1108
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1109	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1110	#extent: #(#Point 600 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1111	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1112	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1113	#name: 'Box12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1114	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1115	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1116	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1117	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1118	#label: 'Allow send Error Report from Debugger'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1119	#name: 'CheckBox6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1120	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1121	#model: #allowSendMailFromDebugger
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1122	#translateLabel: true
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	#extent: #(#Point 600 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1128	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1129	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1130
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1131	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1132	#extent: #(#Point 600 320)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1133	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1134	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1135
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1136	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1137	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1138	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1139
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1140	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1141	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1142	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1143
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1144	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1145
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1146	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1147
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1148	currentUserPrefs allowSendMailFromDebugger:self allowSendMailFromDebugger value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1149	self showErrorNotifier value ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1150	Exception emergencyHandler:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1151	] ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1152	Exception emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1153	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1154	DebugView defaultVerboseBacktrace:self showVerboseStack value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1155	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1156
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1157	help
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1158
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1159	self warn:'no help available here'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1160	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1161	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1162
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1163	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1164	self allowSendMailFromDebugger
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1165	value:currentUserPrefs allowSendMailFromDebugger.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1166	self showErrorNotifier value:(NoHandlerError emergencyHandler
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1167	== AbstractLauncherApplication notifyingEmergencyHandler).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1168	self showVerboseStack value:(DebugView defaultVerboseBacktrace ? false).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1169	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1170	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1171
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1172	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1173
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1174	allowSendMailFromDebugger
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	allowSendMailFromDebugger isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1177	allowSendMailFromDebugger := currentUserPrefs allowSendMailFromDebugger asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1178	allowSendMailFromDebugger onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1179	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1180	^ allowSendMailFromDebugger.
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1183	showErrorNotifier
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	showErrorNotifier isNil ifTrue:[
4566 af369740e2bc Replace referneces to Exception. Stefan Vogel <sv@exept.de> parents: 4563 diff changeset	1186	showErrorNotifier := (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1187	showErrorNotifier onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1188	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1189	^ showErrorNotifier.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1190	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1191
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1192	showVerboseStack
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1193
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1194	showVerboseStack isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1195	showVerboseStack := (DebugView defaultVerboseBacktrace ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1196	showVerboseStack onChangeSend:#updateModifiedChannel to:self
4398 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	^ showVerboseStack.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1199	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1200
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1201	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'queries'!
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	hasUnsavedChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1204
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1205	^ (
4566 af369740e2bc Replace referneces to Exception. Stefan Vogel <sv@exept.de> parents: 4563 diff changeset	1206	self showErrorNotifier value ~= (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1207	DebugView defaultVerboseBacktrace ? false ~= self showVerboseStack value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1208	(UserPreferences current at:#allowSendMailFromDebugger ifAbsent:true) ~= self allowSendMailFromDebugger value
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1209	]]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1210	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1211	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	1212
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1213	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1214
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1215	clipEncodingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1216
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1217	^ #('untranslated' 'iso8859' 'jis' 'jis7' 'shift-JIS' 'EUC' 'big5')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1218	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1219
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1220	clipEncodingSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1221
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1222	^ #(nil #iso8859 #jis #jis7 #sjis #euc #big5)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1223	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1224
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1225	staticGrayOrGrayScaleDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1226
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1227	^ #('threshold' 'ordered dither' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1228	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1229
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1230	staticGrayOrGrayScaleDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1231
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1232	^ #(threshold ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1233	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1234
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1235	trueColorDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1236
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1237	^ #('nearest color' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1238	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1239
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1240	trueColorDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1241
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1242	^ #(ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1243	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1244
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1245	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1246
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1247	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1248	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1249	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1250
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1251	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1252	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1253
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1254	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1255	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1256	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1257	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1258	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1259
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1260	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1261
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1262	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1263	constantNamed:#'AbstractSettingsApplication::DisplaySettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	1264	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	1265	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Y&Y&Y&Y&Y&&P@@A&Y&Y&Y&Y&ZY@@@FXXUUV***)9$0@@Y!!H"H+.AF''&S@@A&,"H"H+DZ^YL@@F
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	1266	Z2H"H",Q)9$0@@Y(H"J;-QF''&S@@A&E[.HUQDZ^YL@@FXUUUUUDQ)$0@@Y!!UUUUTQF&S@@A&(QF$*$QD^YL@@I&Y&Y&Y&Y&Y$0@@&Y&Y&Y&Y&Y&S@@@@L3
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	1267	M)&YL3L3L@@@@@@F&Y$3@@@@@@@@ZY&Y&Y&S@@@@@@A)&Y&Y&YL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 64 80 96 80 112 112 64 64 64 48 64 80 64 96 96 128 128 128 48 80 80 80 96 96 112 112 112 64 80 80 80 96 112]; 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]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1268	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1269
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1270	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1271
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1272	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1273	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1274	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1275
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1276	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1277	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1278
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1279	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1280	UIPainter new openOnClass:AbstractSettingsApplication::DisplaySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1281	AbstractSettingsApplication::DisplaySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1282	AbstractSettingsApplication::DisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1283	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1284
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1285	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1286
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1287	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1288	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1289	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1290	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1291	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1292	#label: 'Display Screen Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1293	#name: 'Display Screen Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1294	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1295	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1296	#bounds: #(#Rectangle 16 42 616 390)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1297	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1298	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1299	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1300	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1301	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1302	#label: 'Actual Visible Screen Area:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1303	#name: 'ActualVisibleScreenAreaLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1304	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 22 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1305	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1306	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1307	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1308	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1309	#label: 'Common Sizes:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1310	#name: 'CommonSizesLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1311	#layout: #(#LayoutFrame 0 0 39 0 205 0 61 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1312	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1313	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1314	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1315	#(#PopUpListSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1316	#label: 'monitor size'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1317	#name: 'MonitorSelectionPopUpList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1318	#layout: #(#LayoutFrame 205 0 39 0 -5 1 61 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1319	#tabable: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1320	#model: #monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1321	#menu: #monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1322	#useIndex: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1323	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1324	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1325	#label: 'Screen Size:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1326	#name: 'ScreenSizeLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1327	#layout: #(#LayoutFrame 0 0 72 0 205 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1328	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1329	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1330	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1331	#(#InputFieldSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1332	#name: 'SizeXEntryField'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1333	#layout: #(#LayoutFrame 205 0 72 0 300 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1334	#model: #sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1335	#type: #number
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1336	#immediateAccept: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1337	#acceptOnReturn: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1338	#acceptOnTab: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1339	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	1340	#acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1341	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1342	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1343	#label: ' x '
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1344	#name: 'xLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1345	#layout: #(#LayoutFrame 314 0 72 0 360 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1346	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1347	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1348	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1349	#(#InputFieldSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1350	#name: 'SizeYEntryField'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1351	#layout: #(#LayoutFrame 379 0 72 0 474 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1352	#model: #sizeY
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1353	#type: #number
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1354	#immediateAccept: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1355	#acceptOnReturn: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1356	#acceptOnTab: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1357	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	1358	#acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1359	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1360	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1361	#label: '(mm)'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1362	#name: 'mmLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1363	#layout: #(#LayoutFrame 491 0 72 0 537 0 94 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1364	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1365	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1366	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1367	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1368	#name: 'Separator1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1369	#layout: #(#LayoutFrame 0 0.0 105 0 0 1.0 109 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1370	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1371	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1372	#name: 'ScreenDepthVisualLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1373	#layout: #(#LayoutFrame 0 0.0 113 0.0 0 1.0 135 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1374	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1375	#labelChannel: #screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1376	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1377	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1378	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1379	#name: 'Separator2'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1380	#layout: #(#LayoutFrame 0 0.0 139 0 0 1.0 143 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1381	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1382	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1383	#label: 'Color Monitor'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1384	#name: 'ColorMonitorCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1385	#layout: #(#LayoutFrame 5 0 150 0 250 0 172 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1386	#model: #isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1387	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1388	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1389	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1390	#label: 'Use Fix Color Palette'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1391	#name: 'FixColorPaletteCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1392	#layout: #(#LayoutFrame 5 0 175 0 301 0 197 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1393	#enableChannel: #visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1394	#model: #useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1395	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1396	#labelChannel: #useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1397	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1398	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1399	#label: 'Use Fix Gray Color Palette'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1400	#name: 'UseFixGrayPaletteCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1401	#layout: #(#LayoutFrame 5 0 201 0 301 0 223 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1402	#enableChannel: #visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1403	#model: #useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1404	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1405	#labelChannel: #useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1406	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1407	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1408	#label: 'Image Display:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1409	#name: 'ImageDisplayLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1410	#layout: #(#LayoutFrame 0 0 230 0 205 0 252 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1411	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1412	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1413	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1414	#(#PopUpListSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1415	#label: 'image display'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1416	#name: 'DitherListPopUpList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1417	#layout: #(#LayoutFrame 205 0 230 0 -5 1 252 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1418	#tabable: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1419	#model: #ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1420	#enableChannel: #ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1421	#menu: #ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1422	#useIndex: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1423	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1424	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1425	#label: 'Allow Colored/Grayscale Icons'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1426	#name: 'AllowColoredGrayscaleIconsCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1427	#layout: #(#LayoutFrame 5 0 262 0 301 0 284 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1428	#model: #deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1429	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1430	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1431	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1432	#name: 'Separator3'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1433	#layout: #(#LayoutFrame 0 0.0 288 0 0 1.0 292 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1434	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1435	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1436	#label: 'ClipBoard Encoding:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1437	#name: 'ClipBoardEncodingLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1438	#layout: #(#LayoutFrame 0 0 303 0 205 0 325 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1439	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1440	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1441	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1442	#(#PopUpListSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1443	#label: 'image display'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1444	#name: 'ClipEncodingListPopUpList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1445	#layout: #(#LayoutFrame 205 0 303 0 -5 1 325 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1446	#tabable: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1447	#model: #clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1448	#menu: #clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1449	#useIndex: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1450	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1451	#(#DividerSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1452	#name: 'Separator4'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1453	#layout: #(#LayoutFrame 0 0.0 333 0 0 1.0 337 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1454	)
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	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1462
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1463	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1464
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1465	Image flushDeviceImages.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1466
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1467	screen visualType == #PseudoColor ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1468	self useFixPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1469	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1470	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1471	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1472	Color getColorsRed:4 green:8 blue:4 on:screen
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1473	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1474	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1475	screen releaseFixColors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1476	].
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	self useFixGrayPalette value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1479	Color colorAllocationFailSignal handle:[:ex \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1480	self warn:'Could not allocate colors.'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1481	] do:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1482	Color getGrayColors:32 on:screen
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1483	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1484	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1485	screen releaseFixGrayColors
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1486	]
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	screen hasColors:self isColorMonitor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1489	screen widthInMillimeter:self sizeX value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1490	screen heightInMillimeter:self sizeY value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1491
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1492	screen supportsDeepIcons:self deepIcons value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1493	ditherSyms notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1494	Image ditherAlgorithm:(ditherSyms at:self ditherListSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1495	].
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	WindowGroup activeGroup withWaitCursorDo:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1498	View defaultStyle:(View defaultStyle).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1499	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1500
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1501	screen clipBoardEncoding:(self class clipEncodingSyms at:self clipEncodingListSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1502	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1503
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1504	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1505
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1506	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1507	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/screenSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1508	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1509
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1510	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1511	self useFixPalette value:screen fixColors notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1512	self useFixGrayPalette value:screen fixGrayColors notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1513	self isColorMonitor value:screen hasColors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1514	self sizeX value:screen widthInMillimeter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1515	self sizeY value:screen heightInMillimeter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1516	self deepIcons value:screen supportsDeepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1517	ditherSyms notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1518	self ditherListSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1519	value:(ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1520	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1521	self clipEncodingListSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1522	value:(self class clipEncodingSyms indexOf:screen clipBoardEncoding
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1523	ifAbsent:1).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1524	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1525	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1526
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1527	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1528
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1529	clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1530
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1531	clipEncodingList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1532	clipEncodingList := (resources array:self class clipEncodingStrings) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1533	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1534	"/ clipEncodingList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1535	"/ clipEncodingList onChangeSend:#clipEncodingListChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1536	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1537	^ clipEncodingList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1538	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1539
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1540	clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1541
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1542	clipEncodingListSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1543	clipEncodingListSelection := (self class clipEncodingSyms indexOf:screen clipBoardEncoding ifAbsent:1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1544	clipEncodingListSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1545	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1546	^ clipEncodingListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1547	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1548
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1549	deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1550
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1551	deepIcons isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1552	deepIcons := screen supportsDeepIcons asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1553	deepIcons onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1554	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1555	^ deepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1556	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1557
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1558	ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1559
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1560	ditherList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1561	ditherList := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1562	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1563	^ ditherList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1564	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1565
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1566	ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1567
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1568	ditherListSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1569	ditherSyms notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1570	ditherListSelection := (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1571	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1572	ditherListSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1573	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1574	ditherListSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1575	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1576	^ ditherListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1577	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1578
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1579	ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1580
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1581	ditherSymsNotNil isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1582	ditherSymsNotNil := ditherSyms notNil asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1583	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1584	^ ditherSymsNotNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1585	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1586
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1587	isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1588
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1589	isColorMonitor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1590	isColorMonitor := screen hasColors asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1591	isColorMonitor onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1592	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1593	^ isColorMonitor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1594	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1595
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1596	monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1597
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1598	monitorList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1599	monitorList := (resources array:(sizeInfos collect:[:entry \| entry at:1])) asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1600	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1601	^ monitorList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1602	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1603
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1604	monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1605
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1606	monitorSelection isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1607	monitorSelection := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1608	monitorSelection addDependent:self.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1609	monitorSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1610	monitorSelection changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1611	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1612	^ monitorSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1613	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1614
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1615	screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1616
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1617	screenDepthVisualLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1618	screenDepthVisualLabelHolder := (resources string:'Screen: Depth: %1 Visual: %2 (%3)'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1619	with:screen depth printString
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1620	with:screen visualType
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1621	with:screen serverVendor) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1622	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1623	^ screenDepthVisualLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1624	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1625
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1626	sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1627
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1628	sizeX isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1629	sizeX := screen widthInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1630	sizeX addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1631	sizeX changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1632	sizeX onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1633	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1634	^ sizeX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1635	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1636
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1637	sizeY
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1638
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1639	sizeY isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1640	sizeY := screen heightInMillimeter asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1641	sizeY addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1642	sizeY changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1643	sizeY onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1644	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1645	^ sizeY.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1646	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1647
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1648	useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1649
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1650	useFixGrayPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1651	useFixGrayPalette := screen fixGrayColors notNil asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1652	useFixGrayPalette onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1653	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1654	^ useFixGrayPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1655	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1656
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1657	useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1658
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1659	useFixGrayPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1660	useFixGrayPaletteLabel := (resources string:'Use Fix Gray Color Palette %1' with:'(32)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1661	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1662	^ useFixGrayPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1663	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1664
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1665	useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1666
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1667	useFixPalette isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1668	useFixPalette := screen fixColors notNil asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1669	useFixPalette onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1670	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1671	^ useFixPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1672	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1673
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1674	useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1675
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1676	useFixPaletteLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1677	useFixPaletteLabel := (resources string:'Use Fix Color Palette %1' with:'(4x8x4)') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1678	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1679	^ useFixPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1680	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1681
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1682	visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1683
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1684	visualIsPseudoColor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1685	visualIsPseudoColor := (screen visualType == #PseudoColor) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1686	visualIsPseudoColor onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1687	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1688	^ visualIsPseudoColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1689	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1690
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1691	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1692
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1693	monitorSelectionChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1694
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1695	\| sel sizeInfoEntry sizes\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1696
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1697	sel := self monitorSelection value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1698	(sel notNil and:[sel ~~ 0]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1699	sizeInfoEntry := sizeInfos at:sel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1700	sizes := sizeInfoEntry at:2.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1701	self sizeX value:(sizes at:1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1702	self sizeY value:(sizes at:2).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1703	].
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	sizeXorYChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1707	\| sizes idx\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1708
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1709	sizes := sizeInfos collect:[:entry \| entry at:2].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1710	idx := sizes findFirst:[:entry \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1711	((entry at:1) = sizeX value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1712	and:[((entry at:2) = sizeY value)]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1713	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1714	idx ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1715	self monitorSelection value:idx
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1716	].
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	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1720	changedObject == self monitorSelection ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1721	self monitorSelectionChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1722	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1723	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1724	(changedObject == self sizeX or:[self sizeY]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1725	self sizeXorYChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1726	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1727	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1728
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1729	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1730	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1731
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1732	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1733
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1734	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1735
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1736	\| listOfSizes visual\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1737
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1738	screen := Screen current.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1739
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1740	listOfSizes := self class classResources at:'LIST_OF_OFFERED_SCREEN_SIZES' default:#default.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1741	listOfSizes == #default ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1742	"/ nothing in resource file; offer at least some.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1743	sizeInfos := #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1744	( '11.3'' (235mm x 175mm) LCD' (235 175) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1745	( '17'' (325mm x 245mm)' (325 245) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1746	( '19'' (340mm x 270mm)' (340 270) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1747	( '20'' (350mm x 280mm)' (350 280) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1748	( '21'' (365mm x 285mm)' (365 285) )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1749	).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1750	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1751	sizeInfos := resources array:listOfSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1752	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1753	visual := screen visualType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1754	(visual == #StaticGray or:[visual == #GrayScale]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1755	ditherStyles := self class staticGrayOrGrayScaleDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1756	ditherSyms := self class staticGrayOrGrayScaleDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1757	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1758	visual ~~ #TrueColor ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1759	ditherStyles := self class trueColorDitherStrings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1760	ditherSyms := self class trueColorDitherSyms.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1761	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1762	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1763	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1764
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1765	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1766
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1767	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1768	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1769
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1770	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1771
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1772	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1773	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1774	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1775
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1776	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1777
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1778	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1779	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1780	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1781
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1782	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1783
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1784	hasUnsavedChanges
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	self useFixPalette value ~= screen fixColors notNil or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1788	self useFixGrayPalette value ~= screen fixGrayColors notNil or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1789	self isColorMonitor value ~= screen hasColors or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1790	self sizeX value ~= screen widthInMillimeter or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1791	self sizeY value ~= screen heightInMillimeter or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1792
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1793	self deepIcons value ~= screen supportsDeepIcons or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1794	(ditherSyms notNil and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1795	self ditherListSelection value ~= (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1796	]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1797	self clipEncodingListSelection value ~= (self class clipEncodingSyms indexOf:screen clipBoardEncoding ifAbsent:1)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1798	]]]]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1799	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1800	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1801
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1802	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1803
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1804	defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1805	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1806	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1807
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1808	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1809	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1810
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1811	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1812	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1813	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1814	Icon flushCachedIcons
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	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1818
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1819	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1820	constantNamed:#'AbstractSettingsApplication::EditSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	1821	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	1822	*****************************("H"H"H"H"J(@"EUUU%UUUU@@^*HUUUVUUUU@@]:(!!UUUYUUUT@A7"FY&Y&Y&X@]7^HUUUVUU@@]7\Z*(
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	1823	!!UUUYU@@]7\R"EUUU%T@A7]1JHY&Y&XC]7\Q&(!!UUU(3M7\Y&"EUUU#L3L2QJHY&Z#L3L6)D(!!&YL3L6Z$R*"EUUP3M&ZEQJ*HUU
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	1824	RRY(UUUD**(")J***$R"J)J***QJHUUUZUUUUUDTQDQDQDQDQDR*************(b') ; colorMapFromArray:#[240 160 80 192 80 0 64 0 0 240 208 160 0 0 0 240 240 240 192 192 192 240 128 0 208 208 208 48 48 48 160 160 160]; 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]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1825	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	1826
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1827	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1828
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1829	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1830	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1831	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1832
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1833	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1834	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1835
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1836	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1837	UIPainter new openOnClass:AbstractSettingsApplication::EditSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1838	AbstractSettingsApplication::EditSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	1839	AbstractSettingsApplication::EditSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1840	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1841
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1842	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1843
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1844	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1845	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1846	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1847	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1848	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1849	#label: 'Editor Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1850	#name: 'Editor Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1851	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1852	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1853	#bounds: #(#Rectangle 16 42 616 362)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1854	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1855	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1856	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1857	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1858	#(#VerticalPanelViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1859	#name: 'VerticalPanel2'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1860	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1861	#horizontalLayout: #fit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1862	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1863	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1864	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1865	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1866	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1867	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1868	#(#VerticalPanelViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1869	#name: 'VerticalPanel1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1870	#horizontalLayout: #fit
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1871	#verticalLayout: #top
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1872	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1873	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1874	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1875	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1876	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1877	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1878	#label: 'CTRL-Key to Start TextDrag'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1879	#name: 'CTRLKeyStTextDragCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1880	#model: #startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1881	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1882	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1883	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1884	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1885	#label: 'SearchBox is Modal'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1886	#name: 'SearchBoxModalCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1887	#model: #searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1888	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1889	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1890	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1891	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1892	#label: 'Tab Stops in Multiples of 4'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1893	#name: 'TabStopsMultiples4CheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1894	#model: #tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1895	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1896	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1897	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1898	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1899	#label: 'Double Click Select Behavior as in ST80'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1900	#name: 'DoubleClickSelectBehaviorST80CheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1901	#model: #st80DoubleClickSelectMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1902	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1903	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1904	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1905	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1906	#label: 'Cursor has ST80 Line-end Behavior'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1907	#name: 'CursorST80LineEndBehaviorCheckBox'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1908	#model: #st80EditingMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1909	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1910	#extent: #(#Point 600 23)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1911	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1912	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1913
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1914	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	1915	#extent: #(#Point 600 127)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1916	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1917	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1918
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1919	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1920	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1921	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1922
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1923	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1924	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1925	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1926
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1927	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1928
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1929	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1930
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1931	UserPreferences current st80EditMode:(self st80EditingMode value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1932	TextView st80SelectMode:(self st80DoubleClickSelectMode value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1933	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1934	ListView userDefaultTabPositions:(self tabsIs4 value ifTrue:[ListView tab4Positions] ifFalse:[ListView tab8Positions]).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1935	ListView allSubInstancesDo:[:eachKindOfListView \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1936	self tabsIs4 value ifTrue:[eachKindOfListView setTab4] ifFalse:[eachKindOfListView setTab8]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1937	].
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 searchDialogIsModal:self searchDialogIsModal value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1940	UserPreferences current startTextDragWithControl:self startTextDragWithControl value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1941	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1942
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1943	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1944
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1945	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1946	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1947	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1948
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1949	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1950	self st80EditingMode value:UserPreferences current st80EditMode.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1951	self st80DoubleClickSelectMode value:TextView st80SelectMode.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1952	self tabsIs4
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1953	value:(ListView userDefaultTabPositions = ListView tab4Positions).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1954	self searchDialogIsModal
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1955	value:UserPreferences current searchDialogIsModal.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1956	self startTextDragWithControl
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1957	value:UserPreferences current startTextDragWithControl.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1958	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1959	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1960
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1961	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1962
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1963	searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1964
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1965	searchDialogIsModal isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1966	searchDialogIsModal := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1967	searchDialogIsModal onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1968	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1969	^ searchDialogIsModal.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1970	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1971
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1972	st80DoubleClickSelectMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1973
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1974	st80DoubleClickSelectMode isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1975	st80DoubleClickSelectMode := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1976	st80DoubleClickSelectMode onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1977	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1978	^ st80DoubleClickSelectMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1979	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1980
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1981	st80EditingMode
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1982
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1983	st80EditingMode isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1984	st80EditingMode := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1985	st80EditingMode onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1986	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1987	^ st80EditingMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1988	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1989
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1990	startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1991
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1992	startTextDragWithControl isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1993	startTextDragWithControl := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	1994	startTextDragWithControl onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1995	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1996	^ startTextDragWithControl.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1997	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1998
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	1999	tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2000
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2001	tabsIs4 isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2002	tabsIs4 := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2003	tabsIs4 onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2004	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2005	^ tabsIs4.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2006	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2007
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2008	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2009
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2010	postOpen
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2011	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2012
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2013	postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2014
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2015	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2016	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2017	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2018
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2019	postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2020
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2021	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2022	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2023	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2024
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2025	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2026
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2027	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2028
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2029	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2030	UserPreferences current st80EditMode ~= (self st80EditingMode value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2031	TextView st80SelectMode ~= (self st80DoubleClickSelectMode value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2032	(tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2033	ListView userDefaultTabPositions ~= (self tabsIs4 value ifTrue:[ListView tab4Positions] ifFalse:[ListView tab8Positions]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2034	]]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2035	UserPreferences current searchDialogIsModal ~= self searchDialogIsModal value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2036	UserPreferences current startTextDragWithControl ~= self startTextDragWithControl value ]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2037	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2038	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2039
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2040	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2041
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2042	widgetList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2043
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2044	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2045	'All'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2046	'Labels'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2047	'Buttons'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2048	'Lists'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2049	'Menus'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2050	'Edited Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2051	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2052	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2053
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2054	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2055
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2056	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2057	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2058	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2059
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2060	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2061	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2062
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2063	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2064	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2065	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2066	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2067	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2068
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2069	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2070
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2071	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2072	constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2073	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2074	@@@@@@@@@@@@@@@@@@@@@!!X @@@@@@@!!X @@@6H@@@@@@DP6H@@@Y!!H@@@@@QDY"@@@BY"@@@@ADQBY"@@@FX @@@@@DQCX @@@6H@@@@@QEP6H@@@@ @@@@
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2075	ADUDP @C@@@@@@@DQSH@@@L @@@@@@QEL @@@2@@@@@@ADT2@@@CH@@@@@@DQSH@@@L @@@@@@QEL @@@2@@@@@@QDT2@@@CH@@@@@QDQSH@@@@ @@@@@DQE
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2076	P @@@@@@@@@@@DQ@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 150 150 150 213 213 213 215 48 48 134 54 54 240 240 240]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@G @OG0@O''<@O7>@O<?@A>? A?? A??@A<?@A<>@A<>@A<>@A=>@C?>@G<>@C<\@@8D@@H@@@@@@@@@@@@@@') ; yourself); yourself]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2077	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2078
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2079	defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2080	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2081	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2082
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2083	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2084	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2085
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2086	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2087	self defaultIcon2 inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2088	ImageEditor openOnClass:self andSelector:#defaultIcon2
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2089	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2090	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2091
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2092	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2093
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2094	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2095	constantNamed:#'AbstractSettingsApplication::FontSettingsAppl class defaultIcon2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2096	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2097	@@@@@@@@@@@@@@@@@@@@@!!X @@@@@@@!!X @@@6H@@@@@@DP6H@@@Y!!H@@@@@QDY"@@@BY"@@@@ADQBY"@@@FX @@@@@DQCX @@@6H@@@@@QEP6H@@@@ @@@@
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2098	ADUDP @C@@@@@@@DQSH@@@L @@@@@@QEL @@@2@@@@@@ADT2@@@CH@@@@@@DQSH@@@L @@@@@@QEL @@@2@@@@@@QDT2@@@CH@@@@@QDQSH@@@@ @@@@@DQE
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2099	P @@@@@@@@@@@DQ@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 150 150 150 213 213 213 215 48 48 134 54 54 240 240 240]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@G @OG0@O''<@O7>@O<?@A>? A?? A??@A<?@A<>@A<>@A<>@A=>@C?>@G<>@C<\@@8D@@H@@@@@@@@@@@@@@') ; yourself); yourself]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2100	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2101
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2102	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'instance creation'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2103
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2104	fontForEncoding:encodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2105
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2106	\| inst \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2107
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2108	inst := self new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2109	inst encodingMatch:encodingMatch.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2110	self initialize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2111	self open.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2112	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2113
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2114	!AbstractSettingsApplication::FontSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2115
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2116	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2117	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2118	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2119
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2120	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2121	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2122
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2123	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2124	UIPainter new openOnClass:AbstractSettingsApplication::FontSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2125	AbstractSettingsApplication::FontSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2126	AbstractSettingsApplication::FontSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2127	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2128
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2129	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2130
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2131	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2132	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2133	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2134	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2135	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2136	#label: 'Font Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2137	#name: 'Font Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2138	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2139	#max: #(#Point 1024 768)
4727 3e5f6ddd50d8 no bold labels Claus Gittinger <cg@exept.de> parents: 4726 diff changeset	2140	#bounds: #(#Rectangle 16 46 512 658)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2141	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2142	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2143	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2144	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2145	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2146	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2147	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2148	#horizontalLayout: #fitSpace
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2149	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2150	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2151	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2152	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2153	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2154	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2155	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2156	#name: 'AllBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2157	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2158	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2159	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2160	#(#LabelSpec
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2161	#label: 'All (Others)'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2162	#name: 'All'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2163	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2164	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2165	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2166	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2167	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2168	#label: 'Label'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2169	#name: 'AllFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2170	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2171	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2172	#labelChannel: #allFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2173	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2174	#postBuildCallback: #postBuildAllFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2175	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2176	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2177	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2178	#name: 'ChangeAll'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2179	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2180	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2181	#model: #changeAllFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2182	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2183	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2184	#name: 'Separator1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2185	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2186	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2187	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2188
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2189	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2190	#extent: #(#Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2191	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2192	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2193	#name: 'LabelsBox'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2194	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2195	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2196	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2197	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2198	#label: 'Labels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2199	#name: 'Labels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2200	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2201	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2202	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2203	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2204	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2205	#label: 'Labels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2206	#name: 'LabelsFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2207	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2208	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2209	#labelChannel: #labelsFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2210	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2211	#postBuildCallback: #postBuildLabelsFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2212	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2213	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2214	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2215	#name: 'ChangeLabels'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2216	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2217	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2218	#model: #changeLabelsFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2219	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2220	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2221	#name: 'Separator6'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2222	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2223	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2224	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2225
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2226	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2227	#extent: #(#Point 490 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2228	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2229	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2230	#name: 'ButtonsBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2231	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2232	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2233	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2234	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2235	#label: 'Buttons'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2236	#name: 'Buttons'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2237	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2238	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2239	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2240	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2241	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2242	#label: 'Buttons Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2243	#name: 'ButtonsFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2244	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2245	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2246	#labelChannel: #buttonsFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2247	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2248	#postBuildCallback: #postBuildButtonsFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2249	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2250	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2251	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2252	#name: 'Change Buttons'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2253	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2254	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2255	#model: #changeButtonsFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2256	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2257	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2258	#name: 'Separator7'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2259	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2260	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2261	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2262
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2263	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2264	#extent: #(#Point 490 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2265	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2266	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2267	#name: 'ListsBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2268	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2269	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2270	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2271	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2272	#label: 'Lists'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2273	#name: 'Lists'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2274	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2275	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2276	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2277	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2278	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2279	#label: 'Lists Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2280	#name: 'ListsFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2281	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2282	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2283	#labelChannel: #listsFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2284	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2285	#postBuildCallback: #postBuildListsFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2286	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2287	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2288	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2289	#name: 'ChangeLists'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2290	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2291	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2292	#model: #changeListsFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2293	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2294	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2295	#name: 'Separator8'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2296	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2297	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2298	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2299
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2300	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2301	#extent: #(#Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2302	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	2303	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2304	#name: 'MenusBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2305	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2306	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2307	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2308	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2309	#label: 'Menus'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2310	#name: 'Menus'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2311	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2312	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2313	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2314	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2315	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2316	#label: 'Menus Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2317	#name: 'MenusFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2318	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2319	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2320	#labelChannel: #menusFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2321	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2322	#postBuildCallback: #postBuildMenuesFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2323	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2324	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2325	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2326	#name: 'ChangeMenus'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2327	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2328	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2329	#model: #changeMenusFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2330	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2331	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2332	#name: 'Separator9'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2333	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2334	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2335	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2336
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2337	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2338	#extent: #(#Point 490 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2339	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2340	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2341	#name: 'TextBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2342	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2343	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2344	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2345	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2346	#label: 'Text'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2347	#name: 'Text'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2348	#layout: #(#LayoutFrame 0 0.0 0 0 100 0 20 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2349	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2350	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2351	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2352	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2353	#label: 'Text Font'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2354	#name: 'TextFont'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2355	#layout: #(#LayoutFrame 105 0 22 0 -5 1 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2356	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2357	#labelChannel: #textFontLabelHolder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2358	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2359	#postBuildCallback: #postBuildTextFontLabel:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2360	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2361	#(#ActionButtonSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2362	#label: 'Change ...'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2363	#name: 'ChangeText'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2364	#layout: #(#LayoutFrame 0 0.0 22 0 105 0 44 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2365	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2366	#model: #changeTextFont
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2367	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2368	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2369	#name: 'Separator10'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2370	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2371	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2372	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2373
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2374	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	2375	#extent: #(#Point 490 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2376	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2377	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2378
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2379	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2380	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2381	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2382
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2383	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2384	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2385	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2386
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2387	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2388
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2389	encodingMatch:aEncodingMatch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2390
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2391	aEncodingMatch notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2392	filter := [:f \| f encoding notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2393	and:[aEncodingMatch match:f encoding]].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2394	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2395	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2396
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2397	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2398
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2399	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2400
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2401	Label defaultFont:self labelDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2402	Button defaultFont:self buttonDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2403	Toggle defaultFont:self buttonDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2404	TextView withAllSubclasses do:[:cls \| cls defaultFont:self textDef value].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2405	SelectionInListView withAllSubclasses do:[:cls \| cls defaultFont:self listDef value].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2406	MenuView defaultFont:self menuDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2407	PullDownMenu defaultFont:self menuDef value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2408	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2409
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2410	changeAllFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2411	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2412
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2413	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2414	fontFromUserInitial:(self allOfThem value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2415	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2416	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2417	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2418	self allOfThem value:(f onDevice:allLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2419	self labelDef value:(f onDevice:labelLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2420	self buttonDef value:(f onDevice:buttonsLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2421	self listDef value:(f onDevice:listsLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2422	self menuDef value:(f onDevice:menuLabel device).
6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2423	self textDef value:(f onDevice:textLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2424	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2425	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2426
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2427	changeButtonsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2428
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2429	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2430
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2431	f := FontPanel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2432	fontFromUserInitial:(self buttonDef value)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2433	title:(resources string:'Font for %1' with:'All')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2434	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2435	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2436	self buttonDef value:(f onDevice:buttonsLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2437	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2438	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2439
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2440	changeLabelsFont
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2441	\|f \|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2442
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2443	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2444	fontFromUserInitial:(self labelDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2445	title:(resources string:'Font for %1' with:'Labels')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2446	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2447	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2448	self labelDef value:(f onDevice:labelLabel device).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	2449	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2450	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2451
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2452	changeListsFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2453	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2454
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2455	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2456	fontFromUserInitial:(self listDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2457	title:(resources string:'Font for %1' with:'Lists')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2458	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2459	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2460	self listDef value:(f onDevice:listsLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2461	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2462	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2463
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2464	changeMenusFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2465	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2466
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2467	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2468	fontFromUserInitial:(self menuDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2469	title:(resources string:'Font for %1' with:'Menus')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2470	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2471	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2472	self menuDef value:(f onDevice:menuLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2473	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2474	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2475
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2476	changeTextFont
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2477	\|f\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2478
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2479	f := FontPanel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2480	fontFromUserInitial:(self textDef value)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2481	title:(resources string:'Font for %1' with:'Edited Text')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2482	filter:filter.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2483	f notNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2484	self textDef value:(f onDevice:textLabel device).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2485	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2486	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2487
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2488	help
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2489
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2490	self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2491	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2492	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2493
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2494	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2495	View readStyleSheetAndUpdateAllStyleCaches.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2496	self labelDef value:Label defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2497	self buttonDef value:Button defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2498	self listDef value:SelectionInListView defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2499	self menuDef value:MenuView defaultFont.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2500	self textDef value:TextView defaultFont.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2501	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2502	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2503
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2504	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2505
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2506	allFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2507
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2508	allFontLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2509	allFontLabelHolder := '' asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2510	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2511	^ allFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2512	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2513
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2514	allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2515	"return/create the 'allOfThem' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2516
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2517	allOfThem isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2518	allOfThem := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2519	allOfThem addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2520	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2521	^ allOfThem
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2522	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2523
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2524	buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2525	"return/create the 'buttonDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2526
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2527	buttonDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2528	buttonDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2529	buttonDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2530	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2531	^ buttonDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2532	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2533
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2534	buttonsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2535
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2536	buttonsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2537	buttonsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2538	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2539	^ buttonsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2540	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2541
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2542	labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2543	"return/create the 'labelDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2544
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2545	labelDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2546	labelDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2547	labelDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2548	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2549	^ labelDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2550	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2551
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2552	labelsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2553
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2554	labelsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2555	labelsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2556	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2557	^ labelsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2558	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2559
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2560	listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2561	"return/create the 'listDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2562
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2563	listDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2564	listDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2565	listDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2566	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2567	^ listDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2568	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2569
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2570	listsFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2571
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2572	listsFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2573	listsFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2574	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2575	^ listsFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2576	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2577
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2578	menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2579	"return/create the 'menuDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2580
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2581	menuDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2582	menuDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2583	menuDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2584	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2585	^ menuDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2586	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2587
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2588	menusFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2589
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2590	menusFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2591	menusFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2592	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2593	^ menusFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2594	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2595
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2596	textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2597	"return/create the 'textDef' value holder (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2598
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2599	textDef isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2600	textDef := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2601	textDef addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2602	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2603	^ textDef
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2604	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2605
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2606	textFontLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2607
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2608	textFontLabelHolder isNil ifTrue:[
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	2609	textFontLabelHolder := '' asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2610	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2611	^ textFontLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2612	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2613
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2614	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2615
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2616	update:something with:aParameter from:changedObject
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2617	builder notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2618	changedObject == self allOfThem ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2619	self updateFontOfLabel:allLabel andFontNameHolder:(self allFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2620	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2621	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2622	changedObject == self labelDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2623	self updateFontOfLabel:labelLabel andFontNameHolder:(self labelsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2624	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2625	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2626	changedObject == self buttonDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2627	self updateFontOfLabel:buttonsLabel andFontNameHolder:(self buttonsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2628	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2629	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2630	changedObject == self listDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2631	self updateFontOfLabel:listsLabel andFontNameHolder:(self listsFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2632	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2633	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2634	changedObject == self menuDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2635	self updateFontOfLabel:menuLabel andFontNameHolder:(self menusFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2636	^ self.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2637	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2638	changedObject == self textDef ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2639	self updateFontOfLabel:textLabel andFontNameHolder:(self textFontLabelHolder) from:changedObject.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2640	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2641	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2642	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2643	super update:something with:aParameter from:changedObject
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2644	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2645
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2646	updateAllFontLabels
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2647	self update:#value with:nil from:self allOfThem.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2648	self update:#value with:nil from:self labelDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2649	self update:#value with:nil from:self buttonDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2650	self update:#value with:nil from:self listDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2651	self update:#value with:nil from:self menuDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2652	self update:#value with:nil from:self textDef.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2653	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2654
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2655	updateFontOfLabel:labelWidget andFontNameHolder:fontNameHolder from:changedObject
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2656	\|f label\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2657
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2658	f := changedObject value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2659	labelWidget font:f.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2660	label := f isNil ifTrue:[
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2661	''
c72e35116b13 instable state penk parents: 5040 diff changeset	2662	] ifFalse:[
c72e35116b13 instable state penk parents: 5040 diff changeset	2663	f userFriendlyName
c72e35116b13 instable state penk parents: 5040 diff changeset	2664	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2665	fontNameHolder value:label.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2666	self updateModifiedChannel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2667	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2668
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2669	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2670
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2671	postBuildAllFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2672
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2673	allLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2674	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2675
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2676	postBuildButtonsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2677
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2678	buttonsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2679	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2680
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2681	postBuildLabelsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2682
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2683	labelLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2684	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2685
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2686	postBuildListsFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2687
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2688	listsLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2689	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2690
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2691	postBuildMenuesFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2692
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2693	menuLabel := aWidget.
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	postBuildTextFontLabel:aWidget
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2697
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2698	textLabel := aWidget.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2699	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2700
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2701	postBuildWith:aBuilder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2702	"/ self readSettings.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2703	self updateAllFontLabels.
4438 74e64acf5dd0 font settings loadrequest on postBuild now penk parents: 4434 diff changeset	2704	super postBuildWith:aBuilder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2705	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2706
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2707	!AbstractSettingsApplication::FontSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2708
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2709	hasUnsavedChanges
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2710
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2711	^ (self labelDef value ~= Label defaultFont) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2712	self buttonDef value ~= Button defaultFont or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2713	self listDef value ~= SelectionInListView defaultFont or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2714	self menuDef value ~= MenuView defaultFont or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2715	self textDef value ~= TextView defaultFont ]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2716	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2717
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2718	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2719
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2720	keepSourceOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2721
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2722	^ #( keep reference absReference sourceReference discard )
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2723	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2724
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2725	keepSourceStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2726
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2727	^ #('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	2728	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2729
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2730	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2731
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2732	defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2733	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2734	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2735
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2736	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2737	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2738
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2739	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2740	self defaultIcon inspect
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2741	ImageEditor openOnClass:self andSelector:#defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2742	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2743	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2744
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2745	<resource: #image>
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	^Icon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2748	constantNamed:#'AbstractSettingsApplication::GeneralCompilerSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	2749	ifAbsentPut:[(Depth1Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@C@@@@G.=0G.=0D*%PG.=0@@@@G??0GC#0G]]0G]_0GC_0G]_3G]]0GC#0G??3@@@A@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255]; 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]
4387 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	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'interface specs'!
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	windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2755	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2756	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2757
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2758	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2759	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2760
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2761	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2762	UIPainter new openOnClass:AbstractSettingsApplication::GeneralCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2763	AbstractSettingsApplication::GeneralCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2764	AbstractSettingsApplication::GeneralCompilerSettingsAppl open
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	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2768
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2769	^
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2770	#(#FullSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2771	#name: #windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2772	#window:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2773	#(#WindowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2774	#label: 'General Compiler Settings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2775	#name: 'General Compiler Settings'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2776	#min: #(#Point 10 10)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2777	#max: #(#Point 1024 768)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2778	#bounds: #(#Rectangle 16 42 616 362)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2779	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2780	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2781	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2782	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2783	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2784	#name: 'VerticalPanel2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2785	#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	2786	#horizontalLayout: #fit
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2787	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2788	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2789	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2790	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2791	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2792	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2793	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2794	#label: 'Catch Method Redefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2795	#name: 'CatchMethodRedefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2796	#model: #catchMethodRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2797	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2798	#extent: #(#Point 600 25)
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	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2801	#label: 'Catch Class Redefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2802	#name: 'CatchClassRedefinitions'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2803	#model: #catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2804	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2805	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2806	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2807	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2808	#label: 'Keep History Line in Methods'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2809	#name: 'KeepHistoryLineinMethods'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2810	#model: #historyLines
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2811	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2812	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2813	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2814	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2815	#label: 'Keep Full Class History'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2816	#name: 'KeepFullClassHistory'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2817	#enableChannel: #hasHistoryManager
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2818	#model: #fullHistoryUpdate
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2819	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2820	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2821	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2822	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2823	#name: 'Box1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2824	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2825	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2826	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2827	#(#PopUpListSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2828	#label: 'PopUp List'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2829	#name: 'KeepSourceSelection'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2830	#layout: #(#LayoutFrame 200 0 0 0 -5 1 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2831	#tabable: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2832	#model: #keepSourceSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2833	#menu: #keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2834	#useIndex: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2835	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2836	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2837	#label: 'FileIn Source Mode:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2838	#name: 'FileInSourceModeLabel'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2839	#layout: #(#LayoutFrame 0 0 0 0 200 0 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2840	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2841	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2842	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2843	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2844
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2845	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2846	#extent: #(#Point 600 30)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2847	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2848	#(#DividerSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2849	#name: 'Separator1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2850	#extent: #(#Point 600 3)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2851	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2852	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2853	#label: 'If Present, Load Binary Objects when Autoloading'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2854	#name: 'LoadBinaryObjectsWhenAutoloading'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2855	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2856	#model: #loadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2857	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2858	#extent: #(#Point 600 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2859	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2860	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2861
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2862	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2863	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2864	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2865
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2866	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2867	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2868	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2869
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2870	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2871
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2872	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2873
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2874	ClassCategoryReader sourceMode:(self class keepSourceOptions at:self keepSourceSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2875	Class catchClassRedefinitions:self catchClassRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2876	Class catchMethodRedefinitions:self catchMethodRedefs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2877	HistoryManager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2878	HistoryManager fullHistoryUpdate:self fullHistoryUpdate value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2879	self historyLines value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2880	HistoryManager activate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2881	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2882	HistoryManager deactivate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2883	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2884	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2885	Smalltalk loadBinaries:self loadBinaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2886	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2887
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2888	help
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2889
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2890	"/ self warn:'no help available here'.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2891	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
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
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2894	readSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2895	self keepSourceSelection value:(self class keepSourceOptions
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2896	indexOf:ClassCategoryReader sourceMode
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2897	ifAbsent:1).
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2898	self catchClassRedefs value:(Class catchClassRedefinitions ? false).
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2899	self catchMethodRedefs value:(Class catchMethodRedefinitions ? false).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2900	self canLoadBinaries ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2901	self loadBinaries value:Smalltalk loadBinaries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2902	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2903	self loadBinaries value:false
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2904	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2905	self hasHistoryManager ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2906	self fullHistoryUpdate value:(HistoryManager fullHistoryUpdate ? false)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2907	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2908	self fullHistoryUpdate value:false
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2909	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2910	self historyLines value:self hasHistoryManager.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2911	self modifiedChannel value:false
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2912	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2913
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2914	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2915
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2916	canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2917
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2918	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2919	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2920	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2921	^ canLoadBinaries.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2924	catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2925
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2926	catchClassRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2927	catchClassRedefs := (Class catchClassRedefinitions ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2928	catchClassRedefs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2929	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2930	^ catchClassRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2931	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2932
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2933	catchMethodRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2934
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2935	catchMethodRedefs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2936	catchMethodRedefs := (Class catchMethodRedefinitions ? false) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2937	catchMethodRedefs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2938	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2939	^ catchMethodRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2940	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2941
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2942	fullHistoryUpdate
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2943
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2944	fullHistoryUpdate isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2945	self hasHistoryManager ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2946	fullHistoryUpdate := (HistoryManager fullHistoryUpdate ? false) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2947	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2948	fullHistoryUpdate := false asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2949	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2950	fullHistoryUpdate onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2951	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2952	^ fullHistoryUpdate.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2955	hasHistoryManager
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	^ HistoryManager notNil and:[HistoryManager isLoaded and:[HistoryManager isActive]]
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
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2960	historyLines
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2961
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2962	historyLines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2963	historyLines := self hasHistoryManager asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2964	historyLines onChangeSend:#updateModifiedChannel to:self.
4387 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	^ historyLines.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2969	keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2970
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2971	keepSource isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2972	keepSource := (resources array:(self class keepSourceStrings)) asList.
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	^ keepSource.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2975	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2976
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2977	keepSourceSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2978
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2979	keepSourceSelection isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2980	keepSourceSelection := (self class keepSourceOptions indexOf:ClassCategoryReader sourceMode ifAbsent:1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2981	keepSourceSelection onChangeSend:#updateModifiedChannel to:self.
4387 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	^ keepSourceSelection.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2986	loadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2987
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2988	loadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2989	self canLoadBinaries ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2990	loadBinaries:= Smalltalk loadBinaries asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2991	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2992	loadBinaries:= false asValue
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2993	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	2994	loadBinaries onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2995	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2996	^ loadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2997	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2998
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2999	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'queries'!
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	hasUnsavedChanges
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3002
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3003	^ (
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3004	((HistoryManager fullHistoryUpdate ? false) ~= self fullHistoryUpdate value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3005	((ClassCategoryReader sourceMode) ~= (self class keepSourceOptions at:self keepSourceSelection value)) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3006	((Class catchMethodRedefinitions ? false) ~= self catchMethodRedefs value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3007	((Class catchClassRedefinitions ? false) ~= self catchClassRedefs value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3008	((Smalltalk loadBinaries ? false) ~= self loadBinaries value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3009	((self hasHistoryManager) ~= self historyLines value)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3010	]]]]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3011	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3012	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3013
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3014	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'image specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3015
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3016	defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3017	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3018	by the ImageEditor of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3019
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3020	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3021	the ImageEditor may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3022
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3023	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3024	self defaultIcon inspect
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3025	ImageEditor openOnClass:self andSelector:#defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3026	Icon flushCachedIcons
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3027	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3028
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3029	<resource: #image>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3030
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3031	^Icon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3032	constantNamed:#'AbstractSettingsApplication::HTTPStartServerSettingsApplication class defaultIcon'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3033	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3034	@@@@@@DB@0PC@0HBAP@@@@@@@@@@@@@@@@TFA0 IB ,KB00E@@@@@@@@@@@@@@4NC1@QD!!LKB08KE@T@@@@@@@@@@@TUE!!\PDA@XFQ(NF10]AP@@@@@@@@DF
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3035	BQ8PDA@PDAH_E $HE"@@@@@@@@@BHP$VDA@PB00"H2P$IRX''J@@@@@@@JR(WG!!@PB2,+J2,+J2,+J2,+@@@@@@P,DA@PDB,-K"4-K2</K24(L@@@@@@1L#L3
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3036	DQ@+K"8.K"84MR86AS@@@@@@M3 IBP 9J28:N3,<OC4(O T0@@@@@C<*BP$IPB,6O#8>O#8>O#XEL@@@@@@APSHIBQ\+K"8.K"8.KR >AS@@@@@@K!!P2BQ8P
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3037	J28.K"8.K" (M T0@@@@@@@-EDHQDB-CP4MCP4MCP4PEL@@@@@@@@B9EQ!!@+KT\:N#(:N"4.AS@@@@@@@@@@K$!!IJ29JK2</K2<-M T0@@@@@@@@@@@@K",.
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3038	K2</K2</KSXEL@@@@@@@@@@@@@@+K"<AJB (JB46AS@@@@@@@@@@@@@@J28/@@@@@@@/M T0@@@@@@@@@@@@@B,.R41LSD1LSSXEL@@@@@@@@@@@@@@+K#8(
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3039	JB (JCX6AS@@@@@@@@@@@@@@J28AM#XAJCX(M T0@@@@@@@a') ; colorMapFromArray:#[0 0 0 144 144 144 112 144 112 16 96 16 0 80 0 128 128 128 0 144 0 0 112 64 0 224 16 0 240 0 0 64 160 16 16 224 64 64 192 128 144 128 0 160 0 0 208 32 0 0 240 0 32 208 0 112 128 0 0 224 48 48 96 0 128 32 0 96 128 0 80 160 0 16 224 0 208 0 64 112 64 32 128 32 0 96 112 48 48 112 0 96 144 0 192 32 48 48 64 0 192 0 64 112 144 64 96 144 64 192 64 64 160 96 64 128 112 80 96 80 160 160 160 16 32 64 0 48 192 96 96 96 0 160 80 208 208 208 192 192 192 224 224 224 48 48 48 0 16 48 0 64 176 0 176 64 192 176 192 176 192 176 176 176 176 0 0 80 0 144 80 0 32 192 16 16 16 208 192 208 208 144 144 96 192 96 176 160 176 48 48 128 0 112 112 0 0 144 0 144 64 160 160 64 144 144 80 48 112 48 0 0 208 208 208 224 48 48 80 32 32 144 224 208 224 176 176 224 176 176 240 192 176 208]; mask:((ImageMask new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'C? @G?0@O?8@_?<@??<@??>@???@???@???@???@???@???@???@_??@O??@G??@A??@@??@@??@@??@@??@@??@') ; yourself); yourself]
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3040	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3041
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3042	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'interface specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3043
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3044	windowSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3045	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3046	by the UIPainter of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3047
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3048	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3049	the UIPainter may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3050
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3051	"
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3052	UIPainter new openOnClass:AbstractSettingsApplication::HTTPStartServerSettingsApplication andSelector:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3053	AbstractSettingsApplication::HTTPStartServerSettingsApplication new openInterface:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3054	AbstractSettingsApplication::HTTPStartServerSettingsApplication open
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3055	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3056
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3057	<resource: #canvas>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3058
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3059	^
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3060	#(#FullSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3061	#name: #windowSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3062	#window:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3063	#(#WindowSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3064	#label: 'HTTP Server Settings'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3065	#name: 'HTTP Server Settings'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3066	#min: #(#Point 10 10)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3067	#max: #(#Point 2048 1024)
4812 f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	3068	#bounds: #(#Rectangle 16 42 555 672)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3069	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3070	#component:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3071	#(#SpecCollection
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3072	#collection: #(
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3073	#(#VerticalPanelViewSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3074	#name: 'VerticalPanel1'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3075	#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	3076	#horizontalLayout: #fit
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3077	#verticalLayout: #top
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3078	#horizontalSpace: 3
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3079	#verticalSpace: 3
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3080	#component:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3081	#(#SpecCollection
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3082	#collection: #(
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3083	#(#VerticalPanelViewSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3084	#name: 'VerticalPanel4'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3085	#horizontalLayout: #fit
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3086	#verticalLayout: #topSpace
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3087	#horizontalSpace: 3
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3088	#verticalSpace: 3
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3089	#component:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3090	#(#SpecCollection
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3091	#collection: #(
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3092	#(#ViewSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3093	#name: 'Box19'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3094	#component:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3095	#(#SpecCollection
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3096	#collection: #(
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3097	#(#LabelSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3098	#label: 'Label'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3099	#name: 'Label2'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3100	#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	3101	#translateLabel: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3102	#labelChannel: #informationLabel
4812 f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	3103	#resizeForLabel: false
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3104	#adjust: #left
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3105	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3106	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3107
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3108	)
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	3109	#extent: #(#Point 539 200)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3110	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3111	#(#ViewSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3112	#name: 'Box18'
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3113	#extent: #(#Point 539 20)
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3114	)
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3115	#(#ViewSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3116	#name: 'Box17'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3117	#component:
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3118	#(#SpecCollection
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3119	#collection: #(
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3120	#(#LabelSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3121	#label: 'Port:'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3122	#name: 'Label1'
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3123	#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	3124	#translateLabel: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3125	#adjust: #right
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3126	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3127	#(#InputFieldSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3128	#name: 'EntryField1'
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3129	#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	3130	#model: #portNumberChannel
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3131	#type: #number
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	3132	#immediateAccept: true
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3133	#acceptOnReturn: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3134	#acceptOnTab: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3135	#acceptOnLostFocus: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3136	#acceptOnPointerLeave: false
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3137	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3138	#(#ActionButtonSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3139	#label: 'Create new HTTP Server'
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3140	#name: 'Button4'
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3141	#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	3142	#translateLabel: true
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3143	#model: #createServer
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3144	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3145	#(#ActionButtonSpec
5049 3df132763949 instable state penk parents: 5044 diff changeset	3146	#label: 'Create Server from File...'
3df132763949 instable state penk parents: 5044 diff changeset	3147	#name: 'Button6'
3df132763949 instable state penk parents: 5044 diff changeset	3148	#layout: #(#LayoutFrame 125 0 51 0 -5 1 73 0)
3df132763949 instable state penk parents: 5044 diff changeset	3149	#translateLabel: true
3df132763949 instable state penk parents: 5044 diff changeset	3150	#model: #createServerFromFile
3df132763949 instable state penk parents: 5044 diff changeset	3151	)
3df132763949 instable state penk parents: 5044 diff changeset	3152	#(#ActionButtonSpec
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3153	#label: 'Remove all HTTP Servers'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3154	#name: 'Button5'
5049 3df132763949 instable state penk parents: 5044 diff changeset	3155	#layout: #(#LayoutFrame 125 0 82 0 -5 1 104 0)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3156	#translateLabel: true
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3157	#model: #removeAllServers
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3158	#enableChannel: #hasCreatedServerChannel
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
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3162	)
5049 3df132763949 instable state penk parents: 5044 diff changeset	3163	#extent: #(#Point 539 120)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3164	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3165	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3166
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3167	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3168	#extent: #(#Point 539 620)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3169	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3170	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3171
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3172	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3173	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3174	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3175
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3176	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3177	)
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3178	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3179
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3180	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'actions'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3181
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3182	basicSaveSettings
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3183
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3184	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3185	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3186
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3187	createServer
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	\| newServer port runningServers\|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3190
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3191	port := self portNumberChannel value.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3192	runningServers := HTTPServer runningServers.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3193	runningServers notEmpty ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3194	runningServers do:[:aServer \|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3195	aServer port = port asInteger ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3196	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	3197	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3198	]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3199	]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3200	].
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3201	runningServers addDependent:self.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3202
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3203	self withWaitCursorDo:[
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	3204	newServer := HTTPServer newDefaultServer.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3205	newServer port:port.
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3206	self createServerApplicationFor:newServer.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3207	]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3208	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3209
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3210	createServerApplicationFor:aServerInstance
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3211	\|settingsApp itemPathName newItem openApps\|
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3212
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	3213	openApps := self settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl.
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3214	(openApps contains:[:app \| app httpServerInstance == aServerInstance]) ifTrue:[
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3215	" already have an Item for this application "
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3216	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3217	].
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3218
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3219	settingsApp := HTTPServerSettingsAppl basicNew.
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	3220	settingsApp settingsDialog:self settingsDialog.
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3221	settingsApp httpServerInstance:aServerInstance.
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	3222	settingsApp defaultSettingsApplication:false.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3223	settingsApp basicInitialize.
5044 fea72184bd8e instable state penk parents: 5041 diff changeset	3224	itemPathName := self itemPathName , '/', settingsApp nameInSettingsDialog.
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	3225	newItem := self settingsDialog addApplClass:#'HTTPServerSettingsAppl' withName:itemPathName.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3226	newItem application:settingsApp.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3227	self createdServerChanged.
5038 c605d7909165 * empty log message * penk parents: 5035 diff changeset	3228	self settingsDialog expandItemForApplication:self.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3229	settingsApp initialize.
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
5049 3df132763949 instable state penk parents: 5044 diff changeset	3232	createServerFromFile
3df132763949 instable state penk parents: 5044 diff changeset	3233
3df132763949 instable state penk parents: 5044 diff changeset	3234	\| newServer fileName runningServers newServerPort\|
3df132763949 instable state penk parents: 5044 diff changeset	3235
3df132763949 instable state penk parents: 5044 diff changeset	3236	runningServers := HTTPServer runningServers.
3df132763949 instable state penk parents: 5044 diff changeset	3237	fileName := Dialog requestFileName:'Select a HTTPServer Settings File'
3df132763949 instable state penk parents: 5044 diff changeset	3238	default:(HTTPServer settingsFilename)
3df132763949 instable state penk parents: 5044 diff changeset	3239	pattern:'*xml'
3df132763949 instable state penk parents: 5044 diff changeset	3240	fromDirectory:(Filename currentDirectory).
3df132763949 instable state penk parents: 5044 diff changeset	3241	fileName isEmptyOrNil ifTrue:[ ^ self].
3df132763949 instable state penk parents: 5044 diff changeset	3242	newServer := HTTPServer serverFromSettingsFile:(fileName asFilename).
3df132763949 instable state penk parents: 5044 diff changeset	3243	newServer notNil ifTrue:[
3df132763949 instable state penk parents: 5044 diff changeset	3244	newServerPort := newServer port.
3df132763949 instable state penk parents: 5044 diff changeset	3245	runningServers notEmpty ifTrue:[
3df132763949 instable state penk parents: 5044 diff changeset	3246	runningServers do:[:aServer \|
3df132763949 instable state penk parents: 5044 diff changeset	3247	aServer port = newServerPort ifTrue:[
3df132763949 instable state penk parents: 5044 diff changeset	3248	Dialog warn:'There is already a Server for port ', newServerPort asString.
3df132763949 instable state penk parents: 5044 diff changeset	3249	^ self
3df132763949 instable state penk parents: 5044 diff changeset	3250	]
3df132763949 instable state penk parents: 5044 diff changeset	3251	]
3df132763949 instable state penk parents: 5044 diff changeset	3252	].
3df132763949 instable state penk parents: 5044 diff changeset	3253	runningServers addDependent:self.
3df132763949 instable state penk parents: 5044 diff changeset	3254
3df132763949 instable state penk parents: 5044 diff changeset	3255	self withWaitCursorDo:[
3df132763949 instable state penk parents: 5044 diff changeset	3256	self createServerApplicationFor:newServer.
3df132763949 instable state penk parents: 5044 diff changeset	3257	]
3df132763949 instable state penk parents: 5044 diff changeset	3258	].
3df132763949 instable state penk parents: 5044 diff changeset	3259	!
3df132763949 instable state penk parents: 5044 diff changeset	3260
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3261	createServerSubApplicationsForRunningServers
4724 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	\|runningServers\|
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3264
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3265	HTTPServer isLoaded ifFalse:[ ^ self].
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3266
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3267	runningServers := HTTPServer runningServers asOrderedCollection.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3268	runningServers isEmpty ifTrue:[ ^ self].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3269	runningServers sort:[:a :b \| a port < b port].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3270	runningServers do:[:aHttpServerInstance \|
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3271	self createServerApplicationFor:aHttpServerInstance.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3272	]
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3273	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3274
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3275	readSettings
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3276	HTTPServer isLoaded ifTrue:[
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3277	HTTPServer runningServers removeDependent:self.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3278	HTTPServer runningServers addDependent:self.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3279	].
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3280	self createServerSubApplicationsForRunningServers.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3281	self createdServerChanged.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3282	self modifiedChannel value:false.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3283	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3284
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3285	removeAllServerSubApplications
5049 3df132763949 instable state penk parents: 5044 diff changeset	3286	self settingsDialog removeAllSubApplicationsFor:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3287	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3288
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3289	removeAllServers
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3290	HTTPServer isLoaded ifTrue:[
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3291	HTTPServer terminateAllServers.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3292	].
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3293	self removeAllServerSubApplications.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3294	self createdServerChanged.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3295	!
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3296
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3297	setPortOnFreePort
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3298
5040 1500f0fdf4dd instable state penk parents: 5038 diff changeset	3299	\| highestUsedPortNr portToUse instances\|
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3300
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3301	HTTPServer isLoaded ifFalse:[
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3302	portToUse := 8080
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3303	] ifTrue:[
5040 1500f0fdf4dd instable state penk parents: 5038 diff changeset	3304	instances := HTTPServer runningServers asSet.
1500f0fdf4dd instable state penk parents: 5038 diff changeset	3305	instances addAll:((self settingsDialog getAllChildrenAppsForApplication:self) collect:[:aApp\| aApp httpServerInstance]).
1500f0fdf4dd instable state penk parents: 5038 diff changeset	3306	highestUsedPortNr := instances
5034 3a50f655ee4d fix errors happend on checkin/checkout penk parents: 5032 diff changeset	3307	inject:(HTTPServer port - 1)
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3308	into:[:maxSoFar :thisServer \| thisServer port max:maxSoFar].
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3309
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3310	portToUse := highestUsedPortNr + 1
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3311	].
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	3312	self portNumberChannel value:portToUse.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3313	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3314
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3315	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'aspects'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3316
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3317	hasCreatedServerChannel
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3318	"automatically generated by UIPainter ..."
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	"*** the code below creates a default model when invoked."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3321	"*** (which may not be the one you wanted)"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3322	"*** Please change as required and accept it in the browser."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3323	"*** (and replace this comment by something more useful ;-)"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3324
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3325	hasCreatedServerChannel isNil ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3326	hasCreatedServerChannel := true asValue.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3327	"/ 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	3328	"/ hasCreatedServerChannel addDependent:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3329	"/ hasCreatedServerChannel onChangeSend:#hasCreatedServerChannelChanged to:self.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3330	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3331	^ hasCreatedServerChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3332	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3333
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3334	informationLabel
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3335	^ resources
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3336	string:'HTTPSTARTINFO'
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	3337	default:
5040 1500f0fdf4dd instable state penk parents: 5038 diff changeset	3338	'This dialog allows to control individual running servers
1500f0fdf4dd instable state penk parents: 5038 diff changeset	3339	(if you want to handle multiple servers on multiple ports)
1500f0fdf4dd instable state penk parents: 5038 diff changeset	3340	Every new created server startup with the settings provided
1500f0fdf4dd instable state penk parents: 5038 diff changeset	3341	by the Default Item.'
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3342	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3343
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3344	portNumberChannel
4724 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	portNumberChannel isNil ifTrue:[
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3347	portNumberChannel := ValueHolder new.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3348	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3349	^ portNumberChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3350	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3351
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3352	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'change & update'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3353
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3354	createdServerChanged
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3355
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3356	self hasCreatedServerChannel value:self hasCreatedServer.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3357	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3358	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3359
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3360	runningServersChanged
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	3361	self createServerSubApplicationsForRunningServers.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3362	self setPortOnFreePort.
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3365	update:something with:aParameter from:changedObject
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3366	HTTPServer isLoaded ifTrue:[
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3367	changedObject == HTTPServer runningServers ifTrue:[
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3368	self runningServersChanged.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3369	^ self.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3370	]
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3371	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3372	super update:something with:aParameter from:changedObject
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3373	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3374
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3375	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'initialization & release'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3376
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3377	release
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3378	HTTPServer isLoaded ifTrue:[
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3379	HTTPServer runningServers removeDependent:self.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	3380	]
4724 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
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3383	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'queries'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3384
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3385	hasCreatedServer
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3386
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	3387	^ (self settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl) notEmpty
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3388	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3389
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3390	hasUnsavedChanges
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3391
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3392	^ false
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3393	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3394
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3395	help
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3396
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3397	self warn:'no help available here'.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	3398	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
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
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3401	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3402
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3403	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3404	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3405	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3406
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3407	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3408	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3409
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3410	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3411	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3412	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3413	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3414	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3415
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3416	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3417
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3418	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3419	constantNamed:#'AbstractSettingsApplication::KbdMappingSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3420	ifAbsentPut:[(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3421	@@@@@@@N@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B%P@@@@@JUT@@@@@)TE@@H@BUTQP@@@ETTQ\@@@JTTU?@@@J$@W<@@@B)U_0@@@@U?@@@@@J''<@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3422	@@B''0@@@@@@''@@@O@@@D@@@@@@@@@@@K@@@@@@@@@@@@@@@M@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255 128 128 128 192 192 192]; 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]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3423	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3424
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3425	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3426
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3427	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3428	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3429	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3430
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3431	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3432	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3433
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3434	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3435	UIPainter new openOnClass:AbstractSettingsApplication::KbdMappingSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3436	AbstractSettingsApplication::KbdMappingSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3437	AbstractSettingsApplication::KbdMappingSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3438	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3439
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3440	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3441
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3442	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3443	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3444	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3445	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3446	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	3447	#label: 'Keyboard Mapping Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	3448	#name: 'Keyboard Mapping Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3449	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3450	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3451	#bounds: #(#Rectangle 16 42 491 650)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3452	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3453	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3454	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3455	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3456	#(#VariableVerticalPanelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3457	#name: 'VariableVerticalPanel1'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3458	#layout: #(#LayoutFrame 0 0.0 60 0 0 1.0 0 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3459	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3460	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3461	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3462	#(#VariableHorizontalPanelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3463	#name: 'VariableHorizontalPanel1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3464	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3465	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3466	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3467	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3468	#name: 'RawKeyList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3469	#model: #selectedRawKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3470	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3471	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3472	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3473	#sequenceList: #rawKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3474	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3475	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3476	#name: 'FunctionKeyList'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3477	#model: #selectedFunctionKey
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3478	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3479	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3480	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3481	#sequenceList: #functionKeyList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3482	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3483	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3484
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3485	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3486	#handles: #(#Any 0.5 1.0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3487	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3488	#(#ViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3489	#name: 'Box1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3490	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3491	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3492	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3493	#(#TextEditorSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3494	#name: 'MacroText'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3495	#layout: #(#LayoutFrame 0 0.0 20 0 0 1.0 0 1.0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3496	#model: #macroTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3497	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3498	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3499	#isReadOnly: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3500	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3501	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3502	#label: 'Macro text (if any):'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3503	#name: 'MacroTextLabel'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3504	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 20 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3505	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3506	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3507	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3508	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3509
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3510	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3511	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3512	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3513
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3514	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3515	#handles: #(#Any 0.5 1.0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3516	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3517	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3518	#label: 'NoticeText'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3519	#name: 'Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3520	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 60 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3521	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3522	#labelChannel: #labelTextHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3523	#resizeForLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3524	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3525	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3526	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3527
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3528	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3529	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3530	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3531
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3532	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3533
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3534	basicSaveSettings
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3535	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3536
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3537	help
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3538
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3539	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3540	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3541
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3542	readSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3543	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3544	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3545
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3546	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3547
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3548	functionKeyList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3549	"automatically generated by UIPainter ..."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3550
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3551	"*** the code below creates a default model when invoked."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3552	"*** (which may not be the one you wanted)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3553	"*** Please change as required and accept it in the browser."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3554	"*** (and replace this comment by something more useful ;-)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3555
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3556	functionKeyList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3557	functionKeyList := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3558	"/ if your app needs to be notified of changes, uncomment one of the lines below:
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3559	"/ functionKeyList addDependent:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3560	"/ functionKeyList onChangeSend:#functionKeyListChanged to:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3561	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3562	^ functionKeyList.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3563	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3564
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3565	labelTextHolder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3566	"automatically generated by UIPainter ..."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3567
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3568	"*** the code below creates a default model when invoked."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3569	"*** (which may not be the one you wanted)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3570	"*** Please change as required and accept it in the browser."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3571	"*** (and replace this comment by something more useful ;-)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3572
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3573	labelTextHolder isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3574	labelTextHolder := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3575	"/ if your app needs to be notified of changes, uncomment one of the lines below:
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3576	"/ labelTextHolder addDependent:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3577	"/ labelTextHolder onChangeSend:#labelTextHolderChanged to:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3578	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3579	^ labelTextHolder.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3580	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	3581
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3582	macroTextHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3583	"automatically generated by UIPainter ..."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3584
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3585	"*** the code below creates a default model when invoked."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3586	"*** (which may not be the one you wanted)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3587	"*** Please change as required and accept it in the browser."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3588	"*** (and replace this comment by something more useful ;-)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3589
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3590	macroTextHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3591	macroTextHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3592	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3593	"/ macroTextHolder addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3594	"/ macroTextHolder onChangeSend:#macroTextHolderChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3595	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3596	^ macroTextHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3597	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3598
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3599	rawKeyList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3600
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3601	rawKeyList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3602	rawKeyList := List new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3603	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3604	^ rawKeyList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3605	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3606
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3607	selectedFunctionKey
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3608
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3609	selectedFunctionKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3610	selectedFunctionKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3611	selectedFunctionKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3612	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3613	^ selectedFunctionKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3614	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3615
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3616	selectedRawKey
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3617
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3618	selectedRawKey isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3619	selectedRawKey := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3620	selectedRawKey addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3621	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3622	^ selectedRawKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3623	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3624
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3625	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3626
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3627	changeFunctionKeySelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3628
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3629	\|raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3630	raw := self selectedRawKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3631	self selectedFunctionKey value:(mappings at:raw asSymbol) asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3632	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3633
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3634	changeMacroText
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3635
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3636	\|f macro indent\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3637
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3638	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3639	(f startsWith:'Cmd') ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3640	f := f copyFrom:4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3641	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3642	macro := UserPreferences current functionKeySequences
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3643	at:(f asSymbol) ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3644	macro notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3645	macro := macro asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3646	indent := macro
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3647	inject:99999 into:[:min :element \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3648	\|stripped\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3649
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3650	stripped := element withoutLeadingSeparators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3651	stripped size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3652	min
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3653	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3654	min min:(element size - stripped size)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3655	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3656	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3657	indent ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3658	macro := macro collect:[:line \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3659	line size > indent ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3660	line copyFrom:indent+1
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3661	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3662	line
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3663	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3664	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3665	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3666	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3667	macroTextHolder value:macro.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3668	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3669
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3670	changeRawKeySelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3671	\|f raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3672
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3673	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3674	raw := mappings keyAtValue:f asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3675	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3676	raw := mappings keyAtValue:f first.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3677	raw isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3678	raw := mappings keyAtValue:f asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3679	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3680	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3681	self selectedRawKey value:raw.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3682	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3683
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3684	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3685	changedObject == self selectedFunctionKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3686	self changeRawKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3687	self changeMacroText.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3688	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3689	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3690	changedObject == self selectedRawKey ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3691	self changeFunctionKeySelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3692	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3693	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3694	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3695	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3696
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3697	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3698
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3699	closeDownViews
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3700	"This is a hook method generated by the Browser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3701	It will be invoked when your app/dialog-window is really closed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3702	See also #closeDownViews, which is invoked before and may suppress the close
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3703	or ask the user for confirmation."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3704
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3705	"/ change the code below as required ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3706	"/ This should cleanup any leftover resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3707	"/ (for example, temporary files)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3708	"/ super closeRequest will initiate the closeDown
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3709
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3710	"/ add your code here
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3711
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3712	"/ do not remove the one below ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3713	^ super closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3714	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3715
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3716	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3717
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3718	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3719
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3720	mappings := Screen current keyboardMap.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3721
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3722	rawKeyList := (mappings keys asArray collect:[:key \| key asString]) sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3723	functionKeyList := (mappings values asSet asArray collect:[:key \| key asString]) sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3724
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3725	self labelTextHolder value:(resources at:'KEY_MSG2' default:'keyboard mapping:') withCRs.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3726	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3727
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3728	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3729
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3730	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3731
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3732	^ false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3733	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3734
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3735	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3736
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3737	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3738	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3739	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3740
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3741	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3742	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3743
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3744	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3745	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3746	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3747	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3748	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3749
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3750	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3751
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3752	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3753	constantNamed:#'AbstractSettingsApplication::LanguageSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3754	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3755	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@B (JB (@@@@@@@@F <O@@@@@@@@@@@ZJB (GA0\GA0(JB VE @@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3756	F" (JA0\GA0\GB (E!!X@@@@@@@@@@A((JA0\GA0\GA0\JA(Z@@@@@@@@@@@ZJB \GA0\GA0\GB (J@@@@@@@@@@@F" (@@X\G@X@GA0(JB B@@@@@@@@@A((
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3757	J@@FB0,F@@(J@@(J@ @@@@@@@@@ZJB @@@XFB0X@@@TEAPTE@@@@@@@@F" (@ALFA!!4S@0LBAPTEB@@@@@@@@AT@@@@]H2L#GP8NDQLSG2@WE0$@@@@U@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3758	GQ<_G1<NC!!DSD1<_E1\I@@@@A@@@@AL]GRLSD!!HMF1,_G1<_BP@@@@@@@@@SFQ$''I"T%EALSHRP^G $@@@@@@@@@D1$"H"H%IQPSD2D$G"HI@@@@@@@@@AP"
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3759	H"X"H"H"H"H"H"H"A0@@@@@@@@@PFA LA2H"CBH"I"\"H 0@@@@@@@@@C@0L@@@GA00GA00LA0\@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	3760	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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 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 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]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3761	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	3762
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3763	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3764
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3765	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3766	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3767	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3768
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3769	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3770	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3771
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3772	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	3773	UIPainter new openOnClass:AbstractSettingsApplication::LanguageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3774	AbstractSettingsApplication::LanguageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	3775	AbstractSettingsApplication::LanguageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3776	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3777
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3778	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3779
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3780	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3781	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3782	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3783	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3784	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3785	#label: 'Language Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3786	#name: 'Language Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3787	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3788	#max: #(#Point 1024 768)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3789	#bounds: #(#Rectangle 16 46 491 717)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3790	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3791	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3792	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3793	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3794	#(#InputFieldSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3795	#name: 'EntryField1'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3796	#layout: #(#LayoutFrame 2 0.0 105 0 -2 1.0 125 0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3797	#model: #languageHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3798	#acceptOnReturn: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3799	#acceptOnTab: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3800	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	3801	#acceptOnPointerLeave: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3802	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3803	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3804	#name: 'List1'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3805	#layout: #(#LayoutFrame 2 0.0 125 0 -2 1.0 -30 1.0)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3806	#model: #languageHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3807	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3808	#hasVerticalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3809	#doubleClickSelector: #doubleClick:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3810	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3811	#sequenceList: #languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3812	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3813	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3814	#label: 'Notice:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3815	#name: 'Notice'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3816	#layout: #(#LayoutFrame 0 0 0 0 0 1.0 105 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3817	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3818	#labelChannel: #noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3819	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3820	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3821	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3822	#label: 'Label'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3823	#name: 'CurrentLang'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3824	#layout: #(#LayoutFrame -150 1 0 0 0 1 20 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3825	#style: #(#FontDescription #helvetica #bold #roman 12)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3826	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3827	#labelChannel: #currentLanguageChannel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3828	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3829	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3830	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3831	#label: 'Current Language:'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3832	#name: 'Label1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3833	#layout: #(#LayoutFrame 190 0 0 0 -150 1 20 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3834	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3835	#labelChannel: #currentLanguageLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3836	#adjust: #right
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3837	)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3838	#(#HorizontalPanelViewSpec
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3839	#name: 'HorizontalPanel1'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3840	#layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3841	#horizontalLayout: #center
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3842	#verticalLayout: #center
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3843	#horizontalSpace: 3
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3844	#verticalSpace: 3
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3845	#component:
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3846	#(#SpecCollection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3847	#collection: #(
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3848	#(#ActionButtonSpec
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3849	#label: 'Reread Language Resources'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3850	#name: 'RereadResourcesButton'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3851	#translateLabel: true
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3852	#model: #rereadResourceFiles
4737 b513890618b2 checkin from browser Claus Gittinger <cg@exept.de> parents: 4727 diff changeset	3853	#extent: #(#Point 228 22)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3854	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3855	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3856
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3857	)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3858	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3859	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3860
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3861	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3862	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3863	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3864
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3865	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3866
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3867	languageList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3868	"return the value of the instance variable 'languageList' (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3869
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3870	^ languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3871	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3872
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3873	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3874
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3875	basicSaveSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3876
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3877	\|fontPref idx language oldLanguage territory enc
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3878	answer matchingFonts l screen newLanguage switch\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3879
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3880	newLanguage := self languageHolder value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3881	self withWaitCursorDo:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3882	idx := translatedLanguages indexOf:newLanguage.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3883	idx ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3884	language := listOfLanguages at:idx
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3885	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3886	language := newLanguage
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3887	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3888	(language includes:$-) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3889	l := language asCollectionOfSubstringsSeparatedBy:$-.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3890	language := l at:1.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3891	territory := l at:2.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3892	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3893	territory isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3894	territory := language copyTo:2
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3895	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3896
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3897	"/ check if the new language needs a differently encoded font;
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3898	"/ ask user to switch font and allow cancellation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3899	"/ Otherwise, you are left with unreadable menu & button items ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3900
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3901	oldLanguage := Smalltalk language.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3902	Smalltalk language:language asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3903	ResourcePack flushCachedResourcePacks.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3904	"/ refetch resources ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3905	resources := AbstractLauncherApplication classResources.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3906	fontPref := resources at:'PREFERRED_FONT_ENCODING' default:'iso8859*'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3907	fontPref := fontPref asLowercase.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3908	Smalltalk language:oldLanguage.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3909
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3910	switch := true.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3911	enc := MenuView defaultFont encoding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3912	(fontPref match:enc asLowercase) ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3913	"/ look if there is one at all.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3914	screen := Screen current.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3915	matchingFonts := screen listOfAvailableFonts select:[:f \| fontPref match:f encoding asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3916	matchingFonts size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3917	"/ flush and try again - just in case, the font path has changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3918	screen flushListOfAvailableFonts.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3919	matchingFonts := screen listOfAvailableFonts select:[:f \| fontPref match:f encoding asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3920	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3921	matchingFonts size == 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3922	(Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3923	confirm:(resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3924	string:'Your display does not offer any %1-encoded font.\\Change the language anyway ?\ (texts will probably be unreadable then)'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3925	with:fontPref) withCRs)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3926	ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3927	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3928	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3929	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3930	answer := Dialog
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3931	confirmWithCancel:(resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3932	string:'menu font is not %1-encoded.\\Change it ?'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3933	with:fontPref) withCRs
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3934	labels:(resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3935	array:#('cancel' 'no' 'yes'))
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3936	default:3.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3937	answer isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3938	switch := false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3939	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3940	answer ifTrue:[
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	3941	switch := ( self settingsDialog fontBoxForEncoding:fontPref)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3942	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3943	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3944	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3945	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3946
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3947	switch ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3948	Transcript showCR:'change language to ' , newLanguage , ' ...'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3949	Smalltalk language:language asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3950	Smalltalk languageTerritory:territory asSymbol.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3951	"/ ResourcePack flushCachedResourcePacks - already done by language-change
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3952	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3953	].
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	3954	switch ifTrue:[
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	3955	self settingsDialog notNil ifTrue:[
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	3956	self settingsDialog reopenLauncher.
4327 076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	3957	] ifFalse:[
076dfc82d0ed * empty log message * penk parents: 4324 diff changeset	3958	NewLauncher current reopenLauncher.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3959	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3960	DebugView newDebugger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3961	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3962	self currentLanguageChannel value:self currentLanguage.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3963	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3964
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3965	doubleClick:aEntry
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3966
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3967	self saveSettingsIfUnsavedChangesArePresent.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3968	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3969
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3970	help
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3971
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3972	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/languageSetting.html'].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3973	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3974
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3975	readSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3976	self languageHolder value:self currentLanguage.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3977	self currentLanguageChannel value:self currentLanguage.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3978	self modifiedChannel value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3979	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3980
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3981	rereadResourceFiles
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3982	ResourcePack flushCachedResourcePacks.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3983
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3984	"/ Smalltalk language:(Smalltalk language).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3985	"/ Smalltalk languageTerritory:(Smalltalk languageTerritory).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3986
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3987	Smalltalk changed:#Language.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	3988	Smalltalk changed:#LanguageTerritory.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3989	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3990
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3991	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3992
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	3993	currentLanguageChannel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3994
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3995	currentLanguageChannel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3996	currentLanguageChannel := self currentLanguage asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3997	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3998	^ currentLanguageChannel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3999	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4000
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4001	currentLanguageLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4002
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4003	currentLanguageLabel isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4004	currentLanguageLabel := (resources string:'Current Language:') asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4005	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4006	^ currentLanguageLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4007	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4008
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4009	languageHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4010
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4011	languageHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4012	languageHolder := self currentLanguage asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4013	languageHolder onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4014	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4015	^ languageHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4016	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4017
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4018	noticeLabelHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4019
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4020	noticeLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4021	noticeLabelHolder := ((resources at:'LANG_MSG' default:'Select a Language') withCRs) asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4022	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4023	^ noticeLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4024	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4025
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4026	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4027
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4028	closeDownViews
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4029	"This is a hook method generated by the Browser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4030	It will be invoked when your app/dialog-window is really closed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4031	See also #closeDownViews, which is invoked before and may suppress the close
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4032	or ask the user for confirmation."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4033
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4034	"/ change the code below as required ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4035	"/ This should cleanup any leftover resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4036	"/ (for example, temporary files)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4037	"/ super closeRequest will initiate the closeDown
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4038
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4039	"/ add your code here
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4040
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4041	"/ do not remove the one below ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4042	^ super closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4043	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4044
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4045	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4046
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4047	\|flags\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4048
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4049	listOfLanguages := self class classResources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default').
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4050	listOfLanguages := listOfLanguages asOrderedCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4051	translatedLanguages := listOfLanguages collect:[:lang \| \|item\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4052	item := resources at:lang.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4053	item isString ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4054	item
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4055	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4056	item at:1
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4057	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4058	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4059	flags := listOfLanguages collect:[:lang \| \|item\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4060	item := resources at:lang.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4061	item isArray ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4062	item at:2
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4063	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4064	nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4065	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4066	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4067	flags := flags collect:[:nm \| \|img d\| nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4068	img := Image fromFile:nm.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4069	img isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4070	d := Smalltalk getPackageDirectoryForPackage:'stx:goodies'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4071	img := Image fromFile:(d construct:nm).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4072	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4073	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4074	nil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4075	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4076	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4077	listOfLanguages := listOfLanguages collect:[:nm \| nm copyFrom:'LANG_' size + 1].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4078	languageList := translatedLanguages with:flags collect:[:lang :flag \| LabelAndIcon icon:flag string:lang.].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4079
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4080	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4081	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4082
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4083	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4084
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4085	currentLanguage
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4086
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4087	\| lang \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4088
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4089	lang := Language ~= LanguageTerritory ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4090	Language , '-' , LanguageTerritory
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4091	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4092	Language
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4093	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4094	^ languageList at:(listOfLanguages indexOf:lang)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4095	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4096
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4097	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4098
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4099	^ (self languageHolder value) ~= (self currentLanguage)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4100	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4101
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4102	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4103
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4104	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4105	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4106	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4107
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4108	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4109	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4110
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4111	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4112	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4113	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4114	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4115	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4116
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4117	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4118
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4119	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4120	constantNamed:#'AbstractSettingsApplication::MemorySettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	4121	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	4122	@@@@@@@@@@@@@@@@@@@@@@?0@@@@@@@@@@@L;8;!!0@@@@@@@@@VL0W\,@@@@@@@L<T,W]43@@@@@@I,"8Z(R-10@@@@I<,,ZQ78P@@@L24DZ**E0H@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	4123	<,EM7Z**E00P@LTR9M7]7ZE0H50@=RE0C]7]E0BF?0<,E0@@C]Q0HREPBK-0@@@@Q0T?H\@KTA4@@@^-4_=\@@H A@@@^ JOG<@@@ID@P@^ GE3O@@@@AP@D
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	4124	R EO:O0@@@@@T@4PT%3,@@@@@@@E4G_58%@@@@@@@@AZ\QGL0@@@@@@@@@@@1<@@@@@@@@@@@@@D@@@@@@@b') ; colorMapFromArray:#[0 0 0 80 80 80 160 160 160 240 240 240 64 64 64 144 144 144 224 224 224 48 48 48 128 128 128 208 208 208 32 32 32 112 112 112 192 192 192 16 16 16 96 96 96 176 176 176]; 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]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4125	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4126
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4127	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4128
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4129	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4130	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4131	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4132
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4133	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4134	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4135
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4136	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4137	UIPainter new openOnClass:AbstractSettingsApplication::MemorySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4138	AbstractSettingsApplication::MemorySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4139	AbstractSettingsApplication::MemorySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4140	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4141
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4142	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4143
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4144	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4145	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4146	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4147	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4148	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4149	#label: 'Memory Manager Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4150	#name: 'Memory Manager Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4151	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4152	#max: #(#Point 1024 768)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4153	#bounds: #(#Rectangle 16 42 616 592)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4154	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4155	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4156	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4157	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4158	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4159	#label: 'Label'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4160	#name: 'Label1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4161	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 50 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4162	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4163	#labelChannel: #warningLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4164	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4165	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4166	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4167	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4168	#layout: #(#LayoutFrame 0 0.0 50 0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4169	#horizontalLayout: #fit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4170	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4171	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4172	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4173	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4174	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4175	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4176	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4177	#name: 'NewSpaceSizeBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4178	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4179	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4180	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4181	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4182	#name: 'EntryField23'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4183	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4184	#model: #newSpaceSize
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4185	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4186	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4187	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4188	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4189	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4190	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4191	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4192	#label: 'Size of NewSpace:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4193	#name: 'Label44'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4194	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4195	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4196	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4197	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4198	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4199	#label: 'Size of newSpace where objects are created'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4200	#name: 'Label45'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4201	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4202	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4203	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4204	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4205	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4206	#name: 'Separator24'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4207	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4208	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4209	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4210
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4211	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4212	#extent: #(#Point 600 49)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4213	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4214	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4215	#name: 'MaximumMemoryLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4216	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4217	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4218	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4219	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4220	#name: 'EntryField24'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4221	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4222	#model: #maxOldSpace
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4223	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4224	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4225	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4226	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4227	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4228	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4229	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4230	#label: 'Maximum Memory Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4231	#name: 'Label46'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4232	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4233	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4234	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4235	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4236	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4237	#label: 'Never allocate more than this amount of memory'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4238	#name: 'Label47'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4239	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4240	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4241	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4242	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4243	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4244	#name: 'Separator25'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4245	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4246	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4247	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4248
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4249	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4250	#extent: #(#Point 600 49)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4251	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4252	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4253	#name: 'QuickAllocationLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4254	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4255	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4256	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4257	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4258	#name: 'EntryField14'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4259	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4260	#model: #fastMoreLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4261	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4262	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4263	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4264	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4265	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4266	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4267	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4268	#label: 'Quick Allocation Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4269	#name: 'Label26'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4270	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4271	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4272	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4273	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4274	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4275	#label: 'Quickly allocate more memory (suppress GC) up to this limit'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4276	#name: 'Label27'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4277	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4278	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4279	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4280	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4281	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4282	#name: 'Separator15'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4283	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4284	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4285	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4286
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4287	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4288	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4289	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4290	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4291	#name: 'IncrementalGCAllocationTriggerBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4292	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4293	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4294	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4295	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4296	#name: 'EntryField25'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4297	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4298	#model: #igcLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4299	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4300	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4301	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4302	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4303	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4304	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4305	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4306	#label: 'Incremental GC Allocation Trigger:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4307	#name: 'Label48'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4308	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4309	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4310	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4311	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4312	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4313	#label: 'Start IGC whenever this amount has been allocated'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4314	#name: 'Label49'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4315	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4316	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4317	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4318	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4319	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4320	#name: 'Separator26'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4321	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4322	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4323	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4324
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4325	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4326	#extent: #(#Point 600 49)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4327	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4328	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4329	#name: 'IncrementalGCFreespaceTriggerBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4330	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4331	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4332	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4333	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4334	#name: 'EntryField26'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4335	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4336	#model: #igcFreeLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4337	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4338	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4339	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4340	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4341	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4342	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4343	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4344	#label: 'Incremental GC Freespace Trigger:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4345	#name: 'Label50'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4346	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4347	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4348	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4349	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4350	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4351	#label: 'Start IGC whenever freespace drops below this'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4352	#name: 'Label51'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4353	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4354	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4355	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4356	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4357	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4358	#name: 'Separator27'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4359	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4360	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4361	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4362
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4363	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4364	#extent: #(#Point 600 48)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4365	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4366	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4367	#name: 'GCAmountBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4368	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4369	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4370	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4371	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4372	#name: 'EntryField17'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4373	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4374	#model: #igcFreeAmount
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4375	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4376	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4377	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4378	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4379	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4380	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4381	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4382	#label: 'Incremental GC Amount:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4383	#name: 'Label32'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4384	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4385	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4386	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4387	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4388	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4389	#label: 'Try to keep this amount for peak requests'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4390	#name: 'Label33'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4391	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4392	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4393	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4394	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4395	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4396	#name: 'Separator18'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4397	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4398	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4399	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4400
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4401	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4402	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4403	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4404	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4405	#name: 'OldspaceIncrementBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4406	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4407	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4408	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4409	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4410	#name: 'EntryField18'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4411	#layout: #(#LayoutFrame -95 1 3 0 -5 1.0 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4412	#model: #oldIncr
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4413	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4414	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4415	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4416	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4417	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4418	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4419	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4420	#label: 'Oldspace Increment:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4421	#name: 'Label34'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4422	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4423	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4424	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4425	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4426	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4427	#label: 'Increase oldSpace in chunks of this size'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4428	#name: 'Label35'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4429	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4430	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4431	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4432	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4433	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4434	#name: 'Separator19'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4435	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4436	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4437	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4438
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4439	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4440	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4441	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4442	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4443	#name: 'OldSpaceCompressLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4444	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4445	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4446	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4447	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4448	#name: 'EntryField19'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4449	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4450	#model: #compressLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4451	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4452	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4453	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4454	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4455	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4456	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4457	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4458	#label: 'Oldspace Compress Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4459	#name: 'Label36'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4460	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4461	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4462	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4463	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4464	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4465	#label: 'Use 2-pass compressing GC if > 0 and more memory is in use'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4466	#name: 'Label37'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4467	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4468	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4469	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4470	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4471	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4472	#name: 'Separator20'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4473	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4474	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4475	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4476
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4477	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4478	#extent: #(#Point 600 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4479	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4480	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4481	#name: 'StackLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4482	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4483	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4484	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4485	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4486	#name: 'EntryField20'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4487	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4488	#enableChannel: #supportsJustInTimeCompilation
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4489	#model: #stackLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4490	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4491	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4492	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4493	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4494	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4495	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4496	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4497	#label: 'Stack Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4498	#name: 'Label38'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4499	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4500	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4501	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4502	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4503	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4504	#label: 'Trigger recursionInterrupt if more stack is used by a process'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4505	#name: 'Label39'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4506	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4507	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4508	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4509	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4510	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4511	#name: 'Separator21'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4512	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4513	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4514	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4515
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4516	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4517	#extent: #(#Point 600 550)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4518	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4519	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4520	#name: 'CodeLimitBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4521	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4522	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4523	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4524	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4525	#name: 'EntryField21'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4526	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4527	#enableChannel: #supportsJustInTimeCompilation
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4528	#model: #codeLimit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4529	#type: #numberOrNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4530	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4531	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4532	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4533	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4534	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4535	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4536	#label: 'Dynamic code Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4537	#name: 'Label40'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4538	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4539	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4540	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4541	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4542	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4543	#label: 'Flush dynamic compiled code to stay within this limit'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4544	#name: 'Label41'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4545	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4546	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4547	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4548	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4549	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4550	#name: 'Separator22'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4551	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4552	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4553	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4554
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4555	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4556	#extent: #(#Point 600 50)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4557	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4558	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4559	#name: 'CodeTriggerBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4560	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4561	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4562	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4563	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4564	#name: 'EntryField22'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4565	#layout: #(#LayoutFrame -95 1 3 0 -5 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4566	#model: #codeTrigger
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4567	#type: #number
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4568	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4569	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4570	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4571	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4572	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4573	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4574	#label: 'Dynamic code Limit:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4575	#name: 'Label42'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4576	#layout: #(#LayoutFrame 0 0 3 0 -95 1 25 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4577	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4578	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4579	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4580	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4581	#label: 'Start incremental GC whenever this amount of code has been allocated'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4582	#name: 'Label43'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4583	#layout: #(#LayoutFrame 0 0.0 25 0 0 1.0 47 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4584	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4585	#adjust: #left
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4586	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4587	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4588	#name: 'Separator23'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4589	#layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 3 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4590	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4591	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4592
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4593	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4594	#extent: #(#Point 600 50)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4595	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4596	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4597
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4598	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4599	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4600	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4601
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4602	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4603	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4604	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4605
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4606	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4607
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4608	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4609
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4610	ObjectMemory freeSpaceGCAmount:self igcFreeAmount value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4611	ObjectMemory freeSpaceGCLimit:self igcFreeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4612	ObjectMemory incrementalGCLimit:self igcLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4613	ObjectMemory newSpaceSize:self newSpaceSize value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4614	ObjectMemory oldSpaceIncrement:self oldIncr value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4615	Process defaultMaximumStackSize:self stackLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4616	ObjectMemory fastMoreOldSpaceLimit:self fastMoreLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4617	ObjectMemory maxOldSpace:self maxOldSpace value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4618	ObjectMemory oldSpaceCompressLimit:self compressLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4619	ObjectMemory dynamicCodeLimit:self codeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4620	ObjectMemory dynamicCodeGCTrigger:self codeTrigger value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4621	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4622
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4623	help
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4624
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4625	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4626	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/memorySettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4627	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4628
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4629	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4630	self igcLimit value:ObjectMemory incrementalGCLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4631	self igcFreeLimit value:ObjectMemory freeSpaceGCLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4632	self igcFreeAmount value:ObjectMemory freeSpaceGCAmount.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4633	self newSpaceSize value:ObjectMemory newSpaceSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4634	self oldIncr value:ObjectMemory oldSpaceIncrement.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4635	self compressLimit value:ObjectMemory oldSpaceCompressLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4636	self codeLimit value:ObjectMemory dynamicCodeLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4637	self codeTrigger value:ObjectMemory dynamicCodeGCTrigger.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4638	self stackLimit value:Process defaultMaximumStackSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4639	self fastMoreLimit value:(ObjectMemory fastMoreOldSpaceLimit:-1).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4640	self maxOldSpace value:ObjectMemory maxOldSpace.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4641	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4642	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4643
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4644	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4645
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4646	codeLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4647
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4648	codeLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4649	codeLimit := ObjectMemory dynamicCodeLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4650	codeLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4651	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4652	^ codeLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4653	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4654
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4655	codeTrigger
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4656
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4657	codeTrigger isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4658	codeTrigger := ObjectMemory dynamicCodeGCTrigger asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4659	codeTrigger onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4660	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4661	^ codeTrigger.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4662	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4663
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4664	compressLimit
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4665
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4666	compressLimit isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4667	compressLimit := ObjectMemory oldSpaceCompressLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4668	compressLimit onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4669	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4670	^ compressLimit.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4671	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4672
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4673	fastMoreLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4674
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4675	fastMoreLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4676	fastMoreLimit := (ObjectMemory fastMoreOldSpaceLimit:-1) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4677	fastMoreLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4678	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4679	^ fastMoreLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4680	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4681
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4682	igcFreeAmount
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4683
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4684	igcFreeAmount isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4685	igcFreeAmount := ObjectMemory freeSpaceGCAmount asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4686	igcFreeAmount onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4687	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4688	^ igcFreeAmount.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4689	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4690
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4691	igcFreeLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4692
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4693	igcFreeLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4694	igcFreeLimit := ObjectMemory freeSpaceGCLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4695	igcFreeLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4696	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4697	^ igcFreeLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4698	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4699
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4700	igcLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4701
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4702	igcLimit isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4703	igcLimit := ObjectMemory incrementalGCLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4704	igcLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4705	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4706	^ igcLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4707	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4708
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4709	maxOldSpace
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4710
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4711	maxOldSpace isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4712	maxOldSpace := ObjectMemory maxOldSpace asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4713	maxOldSpace onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4714	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4715	^ maxOldSpace.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4716	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4717
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4718	newSpaceSize
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4719
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4720	newSpaceSize isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4721	newSpaceSize := ObjectMemory newSpaceSize asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4722	newSpaceSize onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4723	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4724	^ newSpaceSize.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4725	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	4726
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4727	oldIncr
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4728
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4729	oldIncr isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4730	oldIncr := ObjectMemory oldSpaceIncrement asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4731	oldIncr onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4732	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4733	^ oldIncr.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4734	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4735
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4736	stackLimit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4737
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4738	stackLimit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4739	stackLimit := Process defaultMaximumStackSize asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	4740	stackLimit onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4741	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4742	^ stackLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4743	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4744
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4745	supportsJustInTimeCompilation
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4746
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4747	^ ObjectMemory supportsJustInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4748	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4749
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4750	warningLabelHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4751
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4752	warningLabelHolder isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4753	warningLabelHolder := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4754	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4755	^ warningLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4756	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4757
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4758	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4759
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4760	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4761
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4762	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4763	self warningLabelHolder value:'Warning - invalid settings may result in failures or poor performance
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4764	' , 'You have been warned' allBold , '.'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4765	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4766
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4767	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4768
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4769	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4770
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4771	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4772	ObjectMemory freeSpaceGCAmount ~= self igcFreeAmount value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4773	ObjectMemory freeSpaceGCLimit ~= self igcFreeLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4774	ObjectMemory incrementalGCLimit ~= self igcLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4775	ObjectMemory newSpaceSize ~= self newSpaceSize value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4776	ObjectMemory oldSpaceIncrement ~= self oldIncr value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4777	Process defaultMaximumStackSize ~= self stackLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4778	(ObjectMemory fastMoreOldSpaceLimit:-1) ~= self fastMoreLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4779	ObjectMemory maxOldSpace ~= self maxOldSpace value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4780	ObjectMemory oldSpaceCompressLimit ~= self compressLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4781	ObjectMemory dynamicCodeLimit ~= self codeLimit value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4782	ObjectMemory dynamicCodeGCTrigger ~= self codeTrigger value ]]]]]]]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4783	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4784	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4785
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4786	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4787
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4788	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4789	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4790	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4791
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4792	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4793	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4794
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4795	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4796	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4797	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4798	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4799	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4800
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4801	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4802
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4803	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4804	constantNamed:#'AbstractSettingsApplication::MiscCommunicationSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	4805	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4949 a34c379465a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4948 diff changeset	4806	@@!!8@@@@@@BG @@@!!1]P@@@@AWE8@@!!1 '' @@@BGFB^@!!1 5Q8@@BGFBUG !!DWQPH@@B@Q]HD \QFA] @@A1DXE6X"DQ]VY&Y"HQE5I&@ ]QHD@FHBAED"TG
a34c379465a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4948 diff changeset	4807	]QD$Q5IVI5ERQ5 !!TVPW]BUBEQIF$REXPT^FY1HV!!@$''HXPXIWU"]!!!!%@GI(BAFGUV\&!!FT@UGQ"PQEW^D]EYP@@PFHHETU5A@U%@@@@I@BGTRT@U%@@@@AH
a34c379465a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4948 diff changeset	4808	P"DQ]PU%@@@@@EBUHQU5U%@@@@@@@B !!YHU%@@@@@@@E@ UFY%@@@@@@@@APIH@@@@@@@@@@@@T@@@@@@@@b') ; colorMapFromArray:#[0 0 0 224 224 224 64 64 64 96 96 96 128 128 128 192 192 192 32 32 32 96 96 96 160 160 160 96 96 96]; 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?@@W>@@K @@D@@') ; yourself); yourself]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4809	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4810
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4811	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4812
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4813	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4814	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4815	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4816
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4817	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4818	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4819
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4820	"
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4821	UIPainter new openOnClass:AbstractSettingsApplication::MiscCommunicationSettingsAppl andSelector:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4822	AbstractSettingsApplication::MiscCommunicationSettingsAppl new openInterface:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4823	AbstractSettingsApplication::MiscCommunicationSettingsAppl open
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4824	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4825
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4826	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4827
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4828	^
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4829	#(#FullSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4830	#name: #windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4831	#window:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4832	#(#WindowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4833	#label: 'Communication Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4834	#name: 'Communication Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4835	#min: #(#Point 10 10)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4836	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	4837	#bounds: #(#Rectangle 16 46 616 560)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4838	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4839	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4840	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4841	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4842	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4843	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4844	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4845	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4846	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4847	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4848	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4849	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4850	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4851	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4852	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4853	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4854	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4855	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4856	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4857	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4858	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4859	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4860	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4861	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4862	#label: 'Remote browsing'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4863	#name: 'Label1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4864	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4865	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4866	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4867	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4868	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4869	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4870	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4871	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4872	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4873	#label: 'Remote browsing enabled'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4874	#name: 'CheckBox1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4875	#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4876	#enableChannel: #hasRemoteBrowsingSupport
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4877	#model: #remoteBrowsingEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4878	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4879	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4880	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4881
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4882	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4883	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4884	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4885	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4886	#name: 'Separator1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4887	#extent: #(#Point 600 4)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4888	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4889	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4890	#label: 'Window migration'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4891	#name: 'Label2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4892	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4893	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4894	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4895	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4896	#name: 'Box2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4897	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4898	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4899	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4900	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4901	#label: 'Window migration enabled'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4902	#name: 'CheckBox2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4903	#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4904	#enableChannel: #hasWindowMigrationServer
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4905	#model: #windowMigrationEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4906	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4907	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4908	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4909
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4910	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4911	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4912	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4913	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4914	#name: 'Box3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4915	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4916	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4917	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4918	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4919	#label: 'Password check'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4920	#name: 'CheckBox3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4921	#layout: #(#LayoutFrame 5 0 0 0 600 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4922	#enableChannel: #enablePasswordCheck
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4923	#model: #windowMigrationAuthenticate
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4924	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4925	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4926	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4927
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4928	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4929	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4930	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4931	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4932	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4933	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4934	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4935	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4936	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4937	#label: 'Password:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4938	#name: 'Label3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4939	#layout: #(#LayoutFrame 0 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4940	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4941	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4942	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4943	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4944	#name: 'EntryField1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4945	#layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4946	#enableChannel: #windowMigrationAuthenticate
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4947	#model: #windowMigrationPassword
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4948	#type: #password
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4949	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4950	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4951	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	4952	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4953	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4954	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4955
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4956	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4957	#extent: #(#Point 600 22)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4958	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4959	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4960
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4961	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4962	#extent: #(#Point 600 250)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4963	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4964	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4965
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4966	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4967	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4968	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4969
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4970	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4971	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4972	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4973
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4974	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4975
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	4976	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4977
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4978	self hasRemoteBrowsingSupport ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4979	self remoteBrowsingEnabled value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4980	SmalltalkShareServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4981	SmalltalkShareServer killAll
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4982	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4983	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4984	SmalltalkShareServer serverRunning not ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4985	SmalltalkShareServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4986	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4987	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4988	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4989	SmalltalkShareServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4990	self warn:'SmalltalkShareServer startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4991	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4992	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4993	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4994	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4995	self hasWindowMigrationServer ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4996	self windowMigrationAuthenticate value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4997	WindowMigrationServer password:self windowMigrationPassword value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4998	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4999	WindowMigrationServer password:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5000	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5001	self windowMigrationEnabled value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5002	WindowMigrationServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5003	WindowMigrationServer stop
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5004	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5005	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5006	WindowMigrationServer serverRunning not ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5007	WindowMigrationServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5008	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5009	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5010	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5011	WindowMigrationServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5012	self warn:'WindowMigrationServer startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5013	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5014	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5015	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5016	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5017	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5018
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5019	help
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5020
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5021	"/ self warn:'no help available here'.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5022	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5023	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5024
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5025	readSettings
5020 85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5026	self remoteBrowsingEnabled
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5027	value:(self hasRemoteBrowsingSupport
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5028	and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]).
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5029	self windowMigrationEnabled
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5030	value:(self hasWindowMigrationServer
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5031	and:[ WindowMigrationServer isLoaded
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5032	and:[WindowMigrationServer serverRunning]
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5033	]).
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5034	(self hasWindowMigrationServer and:[WindowMigrationServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5035	self windowMigrationPassword value:WindowMigrationServer password.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5036	self windowMigrationAuthenticate
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5037	value:self windowMigrationPassword value notNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5038	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5039	self windowMigrationPassword value:nil.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5040	self windowMigrationAuthenticate value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5041	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5042	self modifiedChannel value:false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5043	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5044
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5045	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5046
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5047	enablePasswordCheck
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5048
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5049	enablePasswordCheck isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5050	self hasWindowMigrationServer not ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5051	enablePasswordCheck := false asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5052	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5053	enablePasswordCheck := self windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5054	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5055	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5056	^ enablePasswordCheck.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5057	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5058
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5059	remoteBrowsingEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5060
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5061	remoteBrowsingEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5062	remoteBrowsingEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5063	remoteBrowsingEnabled onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5064	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5065	^ remoteBrowsingEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5066	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5067
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5068	windowMigrationAuthenticate
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5069
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5070	windowMigrationAuthenticate isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5071	windowMigrationAuthenticate := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5072	windowMigrationAuthenticate onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5073	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5074	^ windowMigrationAuthenticate.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5075	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5076
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5077	windowMigrationEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5078
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5079	windowMigrationEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5080	windowMigrationEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5081	windowMigrationEnabled onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5082	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5083	^ windowMigrationEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5084	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5085
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5086	windowMigrationPassword
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5087
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5088	windowMigrationPassword isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5089	windowMigrationPassword := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5090	windowMigrationPassword onChangeSend:#updateModifiedChannel to:self.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5091	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5092	^ windowMigrationPassword.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5093	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5094
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5095	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5096
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5097	update:something with:aParameter from:changedObject
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5098	"Invoked when an object that I depend upon sends a change notification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5099
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5100	"stub code automatically generated - please change as required"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5101
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5102	"/ changedObject == self allOfThem ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5103	"/ ^ self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5104	"/ ].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5105
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5106	super update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5107	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5108
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5109	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5110
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5111	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5112	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5113	self readSettings.
4310 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	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5117
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5118	hasRemoteBrowsingSupport
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5119
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5120	^ SmalltalkShareServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5121	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5122
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5123	hasUnsavedChanges
5020 85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5124	(self hasRemoteBrowsingSupport and:[SmalltalkShareServer isLoaded]) ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5125	self remoteBrowsingEnabled value ~~ SmalltalkShareServer serverRunning ifTrue:[^ true].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5126	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5127	self hasWindowMigrationServer ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5128	WindowMigrationServer isLoaded ifFalse:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5129	self windowMigrationEnabled value ifTrue:[
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5130	WindowMigrationServer autoload.
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5131	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5132	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5133	(self windowMigrationEnabled value ~~ WindowMigrationServer serverRunning) ifTrue:[^ true].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5134	(self windowMigrationPassword value ~= WindowMigrationServer password) ifTrue:[^ true].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5135	(self windowMigrationAuthenticate value ~= self windowMigrationPassword value notNil) ifTrue:[^ true].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5136	].
85c86c53b688 dont crash if no WindowMigration class is loaded Claus Gittinger <cg@exept.de> parents: 5011 diff changeset	5137	^ false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5138	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5139
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5140	hasWindowMigrationServer
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5141
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5142	^ WindowMigrationServer notNil
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5143	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5144
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5145	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5146
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5147	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5148	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5149	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5150
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5151	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5152	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5153
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5154	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5155	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5156	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5157	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5158	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5159
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5160	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5161
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5162	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5163	constantNamed:#'AbstractSettingsApplication::MiscDisplaySettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5164	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	5165	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DB@0D@@@@@@@@@@@@@@@@@@@@@@@DB@0LD@P@@@@@@@@@@@@@@@@@@@@DB@0LDA@DA@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	5166	@@@@@@TB@ HDA@XF@PD@@@@@@@@@@@@@@@TB@ HB@ \FA H@P@@@@@@@@@@@@TB@ HB@ HBB@XIB@ A@@@@@@@@@@TB@ HB@ HB@ (KB@ KB0DC@@@@@@TB
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	5167	@ HB@ HB@ HB@ ,KB0LC@P@@@@@@APHB@ HB@ HBB (JB0LC@0HL@@4MCP4MCP4MCP4MCP4MCP4AC HE@@@MCPHCC0<PDQHRD1PB@0LM@ DE@@@@CP4B@0<O
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	5168	DADRD!!LT@ LCCPHE@@@@@@4M@08UEQTVE!!XWE0LNC 4E@@@@@@@EAPHB@ HB@ HB@ HJB (E@@@@@@@@APTB@ HB@ HB@ HBB (JAP@@@@@@@@TE@ HB@ HB
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	5169	@ HBB (JB T@@@@@@@@EAPHB@ HB@ HB@ (JB (E@@@@@@@@APTB@ HB@ HB@ HJB (JAP@@@@@@@@TE@ HB@ HB@ HBB (JB T@@@@@@@@EAPHB@ HB@ HB
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	5170	B (JB (E@@@@@@@@APTEAPTEAPTEAPTEAPTEAP@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 32 96 80 240 240 240 192 192 192 64 144 128 80 80 80 48 112 112 48 128 128 32 96 96 48 128 112 224 224 224 32 80 80 64 96 96 0 80 128 128 128 128 16 144 192 16 128 176 16 128 160 0 112 160 0 112 144 0 96 144 16 112 144 0 96 128 0 80 112]; 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]
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5171	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5172
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5173	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5174
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5175	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5176	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5177	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5178
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5179	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5180	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5181
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5182	"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5183	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5184	AbstractSettingsApplication::MiscDisplaySettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5185	AbstractSettingsApplication::MiscDisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5186	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5187
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5188	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5189
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5190	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5191	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5192	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5193	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5194	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	5195	#label: 'Display settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	5196	#name: 'Display settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5197	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5198	#max: #(#Point 1024 768)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5199	#bounds: #(#Rectangle 16 46 526 612)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5200	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5201	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5202	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5203	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5204	#(#VerticalPanelViewSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5205	#name: 'VerticalPanel2'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5206	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5207	#horizontalLayout: #fit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5208	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5209	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5210	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5211	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5212	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5213	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5214	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5215	#name: 'VerticalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5216	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5217	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5218	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5219	#verticalSpace: 3
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5220	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5221	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5222	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5223	#(#CheckBoxSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5224	#label: 'Shadows under PopUp Views'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5225	#name: 'CheckBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5226	#model: #shadows
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5227	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5228	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5229	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5230	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5231	#label: 'Beeper enabled'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5232	#name: 'CheckBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5233	#model: #beepEnabled
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5234	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5235	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5236	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5237	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5238	#label: 'Boxes Return Focus to Previously Active View'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5239	#name: 'CheckBox3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5240	#model: #returnFocus
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5241	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5242	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5243	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5244	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5245	#label: 'Views Catch Focus when Mapped'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5246	#name: 'CheckBox4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5247	#model: #takeFocus
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5248	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5249	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5250	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5251	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5252	#label: 'Show Accelerator Keys in Menus'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5253	#name: 'CheckBox6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5254	#model: #showAccelerators
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5255	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5256	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5257	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5258	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5259	#label: 'Raise & Activate Windows on Click'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5260	#name: 'CheckBox7'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5261	#model: #activateOnClick
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5262	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5263	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5264	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5265	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5266	#label: 'Focus Follows Mouse'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5267	#name: 'CheckBox8'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5268	#model: #focusFollowsMouse
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5269	#translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5270	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5271	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5272	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5273	#label: 'Opaque Variable Panel Resizing'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5274	#name: 'CheckBox9'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5275	#model: #opaqueVariablePanelResize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5276	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5277	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5278	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5279	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5280	#label: 'Opaque Table Column Resizing'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5281	#name: 'CheckBox10'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5282	#model: #opaqueTableColumnResize
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5283	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5284	#extent: #(#Point 500 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5285	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5286	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5287	#name: 'Box1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5288	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5289	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5290	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5291	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5292	#label: 'Label'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5293	#name: 'Label1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5294	#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	5295	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5296	#labelChannel: #formatHostNameWindowLabel
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5297	#adjust: #leftRight
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5298	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5299	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5300	#label: 'Hostname in Window Labels'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5301	#name: 'CheckBox5'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5302	#layout: #(#LayoutFrame 0 0 -22 1 216 0 0 1)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5303	#model: #hostNameInLabelHolder
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5304	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5305	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5306	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5307	#name: 'EntryField1'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5308	#layout: #(#LayoutFrame 218 0 -22 1 -5 1 0 1)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5309	#enableChannel: #hostNameInLabelHolder
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5310	#model: #newWindowLabelFormat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5311	#immediateAccept: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5312	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5313	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5314	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	5315	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5316	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5317	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5318
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5319	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5320	#extent: #(#Point 500 120)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5321	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5322	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5323
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5324	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5325	#extent: #(#Point 510 550)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5326	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5327	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5328
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5329	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5330	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5331	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5332
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5333	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5334	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5335	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5336
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5337	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5338
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5339	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5340
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5341	PopUpView shadows:self shadows value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5342	(self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5343	or:[self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5344	StandardSystemView includeHostNameInLabel:self hostNameInLabelHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5345	self newWindowLabelFormat value notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5346	StandardSystemView windowLabelFormat:self newWindowLabelFormat value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5347	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5348
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5349	Screen allScreens do:[:aDisplay \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5350	aDisplay allViewsDo:[:aView \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5351	\|l\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5352
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5353	aView isTopView ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5354	l := aView label.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5355	l notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5356	aView label:(l , ' '); label:l. "/ force a change
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5357	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5358	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5359	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5360	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5361	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5362
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5363	currentUserPrefs opaqueVariablePanelResizing:self opaqueVariablePanelResize value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5364	currentUserPrefs opaqueTableColumnResizing:self opaqueTableColumnResize value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5365
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5366	currentUserPrefs beepEnabled:self beepEnabled value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5367
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5368	StandardSystemView returnFocusWhenClosingModalBoxes:self returnFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5369	StandardSystemView takeFocusWhenMapped:self takeFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5370	currentUserPrefs focusFollowsMouse:self focusFollowsMouse value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5371	Screen current activateOnClick:self activateOnClick value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5372
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5373	MenuView showAcceleratorKeys:self showAccelerators value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5374
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5375	"Modified: / 16.12.2002 / 18:06:31 / penk"
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5376	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5377
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5378	formatHostNameinWindowLabels
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5379	\|newFormat\|
c72e35116b13 instable state penk parents: 5040 diff changeset	5380
c72e35116b13 instable state penk parents: 5040 diff changeset	5381	newFormat := Dialog
c72e35116b13 instable state penk parents: 5040 diff changeset	5382	request:'Define the Format of Window Labels:\\ %1 - Label\ %2 - Hostname\ %3 - Username\ %4 - ProcessId\'
c72e35116b13 instable state penk parents: 5040 diff changeset	5383	withCRs
c72e35116b13 instable state penk parents: 5040 diff changeset	5384	initialAnswer:newWindowLabelFormat.
c72e35116b13 instable state penk parents: 5040 diff changeset	5385	newFormat size > 0 ifTrue:[
c72e35116b13 instable state penk parents: 5040 diff changeset	5386	newWindowLabelFormat := newFormat.
c72e35116b13 instable state penk parents: 5040 diff changeset	5387	self updateModifiedChannel
c72e35116b13 instable state penk parents: 5040 diff changeset	5388	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5389	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5390
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5391	help
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5392
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5393	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5394	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/miscSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5395	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5396
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5397	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5398	self shadows value:PopUpView shadows.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5399	self beepEnabled value:currentUserPrefs beepEnabled.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5400	self newWindowLabelFormat value:StandardSystemView windowLabelFormat.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5401	self hostNameInLabelHolder
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5402	value:StandardSystemView includeHostNameInLabel.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5403	self returnFocus
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5404	value:StandardSystemView returnFocusWhenClosingModalBoxes.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5405	self takeFocus value:StandardSystemView takeFocusWhenMapped.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5406	self focusFollowsMouse value:(currentUserPrefs focusFollowsMouse ? true).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5407	self activateOnClick value:(Display activateOnClick:nil).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5408	self opaqueVariablePanelResize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5409	value:currentUserPrefs opaqueVariablePanelResizing.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5410	self opaqueTableColumnResize
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5411	value:currentUserPrefs opaqueTableColumnResizing.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5412	self showAccelerators value:MenuView showAcceleratorKeys.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5413	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5414	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5415
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5416	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5417
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5418	activateOnClick
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5419
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5420	activateOnClick isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5421	activateOnClick := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5422	activateOnClick onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5423	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5424	^ activateOnClick.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5425	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5426
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5427	beepEnabled
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5428
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5429	beepEnabled isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5430	beepEnabled := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5431	beepEnabled onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5432	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5433	^ beepEnabled.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5434	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5435
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5436	focusFollowsMouse
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5437
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5438	focusFollowsMouse isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5439	focusFollowsMouse := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5440	focusFollowsMouse onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5441	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5442	^ focusFollowsMouse.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5443	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5444
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5445	formatHostNameWindowLabel
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5446
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5447	formatHostNameWindowLabel isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5448	formatHostNameWindowLabel :=
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5449	('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	5450	asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5451	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5452	^ formatHostNameWindowLabel.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5453
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5454	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5455	"Modified: / 16.12.2002 / 17:55:18 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5456	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5457
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5458	hostNameInLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5459
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5460	hostNameInLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5461	hostNameInLabelHolder := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5462	hostNameInLabelHolder onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5463	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5464	^ hostNameInLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5465	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5466
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5467	newWindowLabelFormat
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5468
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5469	newWindowLabelFormat isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5470	newWindowLabelFormat := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5471	newWindowLabelFormat onChangeSend:#updateModifiedChannel to:self
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5472	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5473	^ newWindowLabelFormat.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5474
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5475	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5476	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5477
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5478	opaqueTableColumnResize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5479
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5480	opaqueTableColumnResize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5481	opaqueTableColumnResize := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5482	opaqueTableColumnResize onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5483	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5484	^ opaqueTableColumnResize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5485	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5486
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5487	opaqueVariablePanelResize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5488
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5489	opaqueVariablePanelResize isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5490	opaqueVariablePanelResize := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5491	opaqueVariablePanelResize onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5492	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5493	^ opaqueVariablePanelResize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5494	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5495
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5496	returnFocus
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5497
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5498	returnFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5499	returnFocus := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5500	returnFocus onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5501	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5502	^ returnFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5503	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5504
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5505	shadows
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5506
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5507	shadows isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5508	shadows := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5509	shadows onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5510	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5511	^ shadows.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5512	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5513
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5514	showAccelerators
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5515
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5516	showAccelerators isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5517	showAccelerators := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5518	showAccelerators onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5519	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5520	^ showAccelerators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5521	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5522
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5523	takeFocus
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5524
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5525	takeFocus isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5526	takeFocus := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	5527	takeFocus onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5528	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5529	^ takeFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5530	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5531
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5532	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5533
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5534	postOpen
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5535	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5536
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5537	postOpenAsSubcanvasWith:aBuilder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5538
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5539	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5540	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5541	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5542
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5543	postOpenWith:aBuilder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5544
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5545	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5546	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5547	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5548
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5549	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5550
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5551	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5552
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5553	^ (
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5554	self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5555	self shadows value ~= PopUpView shadows or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5556	self beepEnabled value ~= currentUserPrefs beepEnabled or:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5557	self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5558	self returnFocus value ~= StandardSystemView returnFocusWhenClosingModalBoxes or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5559	self takeFocus value ~= StandardSystemView takeFocusWhenMapped or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5560	self focusFollowsMouse value ~= (currentUserPrefs focusFollowsMouse ? true) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5561	self activateOnClick value ~= (Display activateOnClick:nil) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5562	self opaqueVariablePanelResize value ~= currentUserPrefs opaqueVariablePanelResizing or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5563	self opaqueTableColumnResize value ~= currentUserPrefs opaqueTableColumnResizing or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5564	self showAccelerators value ~= MenuView showAcceleratorKeys
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	5565	]]]]]]]]]]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5566	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5567
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5568	"Modified: / 16.12.2002 / 18:09:42 / penk"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5569	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5570
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5571	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5572
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5573	defaultIcon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	5574	<resource: #programImage>
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	5575	^ AbstractSettingsApplication::MiscCommunicationSettingsAppl defaultIcon.
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5576	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5577
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5578	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5579
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5580	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5581	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5582	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5583
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5584	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5585	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5586
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5587	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5588	UIPainter new openOnClass:AbstractSettingsApplication::OsiSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5589	AbstractSettingsApplication::OsiSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5590	AbstractSettingsApplication::OsiSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5591	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5592
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5593	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5594
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5595	^
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5596	#(#FullSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5597	#name: #windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5598	#window:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5599	#(#WindowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5600	#label: 'OSI Protocols Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5601	#name: 'OSI Protocols Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5602	#min: #(#Point 10 10)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5603	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5604	#bounds: #(#Rectangle 16 46 616 596)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5605	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5606	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5607	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5608	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5609	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5610	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5611	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5612	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5613	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5614	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5615	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5616	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5617	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5618	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5619	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5620	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5621	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5622	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5623	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5624	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5625	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5626	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5627	#collection: #(
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5628	#(#LabelSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5629	#label: 'ACSE'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5630	#name: 'Label1'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5631	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5632	#extent: #(#Point 600 22)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5633	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5634	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5635	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5636	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5637	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5638	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5639	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5640	#label: 'Log Errors'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5641	#name: 'CheckBox1'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5642	#layout: #(#LayoutFrame 5 0 0 0 -2 0.33 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5643	#enableChannel: #osiACSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5644	#model: #osiACSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5645	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5646	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5647	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5648	#label: 'Log Connections'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5649	#name: 'CheckBox2'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5650	#layout: #(#LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5651	#enableChannel: #osiACSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5652	#model: #osiACSEConnectionLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5653	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5654	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5655	#(#CheckBoxSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5656	#label: 'Log Data Xfer'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5657	#name: 'CheckBox3'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5658	#layout: #(#LayoutFrame 2 0.66 0 0 -2 1 22 0)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5659	#enableChannel: #osiACSEPresent
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5660	#model: #osiACSEDataLogging
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5661	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5662	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5663	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5664
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5665	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5666	#extent: #(#Point 600 27)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5667	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5668	#(#ViewSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5669	#name: 'Box9'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5670	#extent: #(#Point 600 22)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5671	)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5672	#(#LabelSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5673	#label: 'ROSE'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5674	#name: 'Label2'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5675	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5676	#extent: #(#Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5677	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5678	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5679	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5680	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5681	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5682	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5683	#(#CheckBoxSpec
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5684	#label: 'Log Errors'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5685	#name: 'CheckBox4'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5686	#layout: #(#LayoutFrame 5 0 0 0 -2 0.33 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5687	#enableChannel: #osiROSEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5688	#model: #osiROSEErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5689	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5690	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5691	#(#CheckBoxSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5692	#label: 'Log Invoactions'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5693	#name: 'CheckBox5'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5694	#layout: #(#LayoutFrame 2 0.33 0 0 -2 0.66 22 0)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5695	#enableChannel: #osiROSEPresent
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5696	#model: #osiROSEInvokationLogging
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5697	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5698	)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5699	#(#CheckBoxSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5700	#label: 'Log Responses'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5701	#name: 'CheckBox6'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5702	#layout: #(#LayoutFrame 0 0.66 0 0 -2 1 22 0)
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5703	#enableChannel: #osiROSEPresent
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5704	#model: #osiROSEResponseLogging
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5705	#translateLabel: true
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5706	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5707	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5708
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5709	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5710	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5711	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5712	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5713	#name: 'Box6'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5714	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5715	)
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: 'CMISE'
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5718	#name: 'Label3'
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: 'Box7'
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: 'CheckBox7'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5730	#layout: #(#LayoutFrame 2 0 0 0 -2 0.33 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5731	#enableChannel: #osiCMISEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5732	#model: #osiCMISEErrorLogging
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 Messages'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5737	#name: 'CheckBox8'
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: #osiCMISEPresent
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5740	#model: #osiCMISEMessageLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5741	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5742	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5743	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5744
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5745	)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	5746	#extent: #(#Point 600 22)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5747	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5748	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5749
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5750	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5751	#extent: #(#Point 600 250)
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
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5755	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5756	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5757	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5758
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5759	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5760	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5761	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5762
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5763	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5764
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5765	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5766
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5767	self osiACSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5768	OSI::ACSE errorLogging:self osiACSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5769	OSI::ACSE connectionLogging:self osiACSEConnectionLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5770	OSI::ACSE dataLogging:self osiACSEDataLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5771	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5772	self osiROSEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5773	OSI::ROSE errorLogging:self osiROSEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5774	OSI::ROSE invocationLogging:self osiROSEInvokationLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5775	OSI::ROSE responseLogging:self osiROSEResponseLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5776	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5777	self osiCMISEPresent value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5778	OSI::CMISE errorLogging:self osiCMISEErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5779	OSI::CMISE messageLogging:self osiCMISEMessageLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5780	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5781	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5782
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5783	help
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5784
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5785	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5786	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5787
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5788	readSettings
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5789	self osiACSEPresent value:(OSI::ACSE notNil and:[OSI::ACSE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5790	self osiROSEPresent value:(OSI::ROSE notNil and:[OSI::ROSE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5791	self osiCMISEPresent value:(OSI::CMISE notNil and:[OSI::CMISE isLoaded]).
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5792	self osiACSEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5793	self osiACSEErrorLogging value:OSI::ACSE errorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5794	self osiACSEConnectionLogging value:OSI::ACSE connectionLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5795	self osiACSEDataLogging value:OSI::ACSE dataLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5796	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5797	self osiROSEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5798	self osiROSEErrorLogging value:OSI::ROSE errorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5799	self osiROSEInvokationLogging value:OSI::ROSE invocationLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5800	self osiROSEResponseLogging value:OSI::ROSE responseLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5801	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5802	self osiCMISEPresent value ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5803	self osiCMISEErrorLogging value:OSI::CMISE errorLogging.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5804	self osiCMISEMessageLogging value:OSI::CMISE messageLogging
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5805	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5806	self modifiedChannel value:false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5807	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5808
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5809	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5810
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5811	osiACSEConnectionLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5812	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5813
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5814	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5815	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5816	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5817	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5818
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5819	osiACSEConnectionLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5820	osiACSEConnectionLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5821	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5822	"/ osiACSEConnectionLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5823	"/ osiACSEConnectionLogging onChangeSend:#osiACSEConnectionLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5824	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5825	^ osiACSEConnectionLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5826	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5827
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5828	osiACSEDataLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5829	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5830
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5831	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5832	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5833	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5834	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5835
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5836	osiACSEDataLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5837	osiACSEDataLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5838	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5839	"/ osiACSEDataLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5840	"/ osiACSEDataLogging onChangeSend:#osiACSEDataLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5841	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5842	^ osiACSEDataLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5843	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5844
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5845	osiACSEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5846	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5847
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5848	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5849	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5850	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5851	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5852
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5853	osiACSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5854	osiACSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5855	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5856	"/ osiACSEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5857	"/ osiACSEErrorLogging onChangeSend:#osiACSEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5858	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5859	^ osiACSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5860	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5861
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5862	osiACSEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5863	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5864
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5865	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5866	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5867	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5868	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5869
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5870	osiACSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5871	osiACSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5872	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5873	"/ osiACSEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5874	"/ osiACSEPresent onChangeSend:#osiACSEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5875	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5876	^ osiACSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5877	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5878
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5879	osiCMISEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5880	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5881
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5882	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5883	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5884	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5885	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5886
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5887	osiCMISEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5888	osiCMISEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5889	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5890	"/ osiCMISEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5891	"/ osiCMISEErrorLogging onChangeSend:#osiCMISEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5892	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5893	^ osiCMISEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5894	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5895
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5896	osiCMISEMessageLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5897	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5898
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5899	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5900	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5901	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5902	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5903
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5904	osiCMISEMessageLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5905	osiCMISEMessageLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5906	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5907	"/ osiCMISEMessageLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5908	"/ osiCMISEMessageLogging onChangeSend:#osiCMISEMessageLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5909	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5910	^ osiCMISEMessageLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5911	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5912
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5913	osiCMISEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5914	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5915
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5916	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5917	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5918	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5919	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5920
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5921	osiCMISEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5922	osiCMISEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5923	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5924	"/ osiCMISEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5925	"/ osiCMISEPresent onChangeSend:#osiCMISEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5926	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5927	^ osiCMISEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5928	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5929
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5930	osiROSEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5931	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5932
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5933	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5934	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5935	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5936	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5937
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5938	osiROSEErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5939	osiROSEErrorLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5940	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5941	"/ osiROSEErrorLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5942	"/ osiROSEErrorLogging onChangeSend:#osiROSEErrorLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5943	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5944	^ osiROSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5945	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5946
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5947	osiROSEInvokationLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5948	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5949
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5950	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5951	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5952	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5953	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5954
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5955	osiROSEInvokationLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5956	osiROSEInvokationLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5957	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5958	"/ osiROSEInvokationLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5959	"/ osiROSEInvokationLogging onChangeSend:#osiROSEInvokationLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5960	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5961	^ osiROSEInvokationLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5962	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5963
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5964	osiROSEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5965	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5966
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5967	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5968	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5969	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5970	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5971
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5972	osiROSEPresent isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5973	osiROSEPresent := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5974	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5975	"/ osiROSEPresent addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5976	"/ osiROSEPresent onChangeSend:#osiROSEPresentChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5977	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5978	^ osiROSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5979	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5980
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	5981	osiROSEResponseLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5982	"automatically generated by UIPainter ..."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5983
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5984	"*** the code below creates a default model when invoked."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5985	"*** (which may not be the one you wanted)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5986	"*** Please change as required and accept it in the browser."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5987	"*** (and replace this comment by something more useful ;-)"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5988
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5989	osiROSEResponseLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5990	osiROSEResponseLogging := true asValue.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5991	"/ if your app needs to be notified of changes, uncomment one of the lines below:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5992	"/ osiROSEResponseLogging addDependent:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5993	"/ osiROSEResponseLogging onChangeSend:#osiROSEResponseLoggingChanged to:self.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5994	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5995	^ osiROSEResponseLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5996	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5997
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5998	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5999
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6000	hasUnsavedChanges
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6001
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6002	^ ((
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6003	(self osiACSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6004	self osiACSEErrorLogging value ~= OSI::ACSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6005	self osiACSEConnectionLogging value ~= OSI::ACSE connectionLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6006	self osiACSEDataLogging value ~= OSI::ACSE dataLogging]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6007	self osiROSEPresent value and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6008	self osiROSEErrorLogging value ~= OSI::ROSE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6009	self osiROSEInvokationLogging value ~= OSI::ROSE invocationLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6010	self osiROSEResponseLogging value ~= OSI::ROSE responseLogging]]]]) or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6011	(self osiCMISEPresent value) and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6012	self osiCMISEErrorLogging value ~= OSI::CMISE errorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6013	self osiCMISEMessageLogging value ~= OSI::CMISE messageLogging]]])
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6014	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6015
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6016	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6017
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6018	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6019	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6020	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6021
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6022	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6023	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6024
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6025	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6026	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6027	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6028	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6029	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6030
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6031	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6032
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6033	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6034	constantNamed:#'AbstractSettingsApplication::PrinterSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6035	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6036	QDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQ@@@@@@@@@ADQDQ@QDQDQDQDADQDQDAD@@AD@@PDQDQD
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6037	ADQDQDQDPDQDQDPD@@P@P@P@@DQDPDQDQDQDQ@DAADP@@@@@@@@@DA@DPADQDQDQDQDA@0Q@@@@@@@@@@@@3AD@3L3L3L2H#LCADPCL3L3L3H"L0ADQ@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6038	@@@@@@ADQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDQDPb') ; colorMapFromArray:#[0 0 0 194 194 194 255 255 0 105 133 190 255 255 255]; 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]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6039	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6040
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6041	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6042
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6043	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6044	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6045	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6046
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6047	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6048	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6049
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6050	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6051	UIPainter new openOnClass:AbstractSettingsApplication::PrinterSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6052	AbstractSettingsApplication::PrinterSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6053	AbstractSettingsApplication::PrinterSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6054	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6055
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6056	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6057
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6058	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6059	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6060	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6061	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6062	#(#WindowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6063	#label: 'Printer Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6064	#name: 'Printer Settings'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6065	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6066	#max: #(#Point 1024 768)
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	6067	#bounds: #(#Rectangle 16 46 616 386)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6068	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6069	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6070	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6071	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6072	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6073	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6074	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6075	#horizontalLayout: #fit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6076	#verticalLayout: #center
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6077	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6078	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6079	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6080	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6081	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6082	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6083	#name: 'PrinterSelectBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6084	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6085	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6086	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6087	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6088	#label: 'Printer Type:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6089	#name: 'PrinterTypeLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6090	#layout: #(#LayoutFrame 0 0 5 0 150 0 27 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6091	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6092	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6093	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6094	#(#ComboListSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6095	#name: 'PrinterTypeComboList'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6096	#layout: #(#LayoutFrame 150 0 5 0 -5 1 27 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6097	#model: #printerTypeSelection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6098	#comboList: #printerType
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6099	#useIndex: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6100	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6101	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6102	#label: 'Printer Command:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6103	#name: 'PrinterCommandLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6104	#layout: #(#LayoutFrame 0 0 45 0 150 0 67 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6105	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6106	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6107	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6108	#(#ComboBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6109	#name: 'CommandComboBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6110	#layout: #(#LayoutFrame 150 0 45 0 -5 1 67 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6111	#model: #printCommand
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6112	#acceptOnLostFocus: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6113	#acceptOnPointerLeave: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6114	#comboList: #printCommandList
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6115	#useIndex: false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6116	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6117	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6118	#name: 'Separator1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6119	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6120	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6121	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6122
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6123	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6124	#extent: #(#Point 600 84)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6125	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6126	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6127	#name: 'FormatBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6128	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6129	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6130	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6131	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6132	#label: 'Page Format:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6133	#name: 'PageFormatLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6134	#layout: #(#LayoutFrame 0 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6135	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6136	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6137	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6138	#(#PopUpListSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6139	#label: 'PopUp List'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6140	#name: 'PageFormatPopUpList'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6141	#layout: #(#LayoutFrame 150 0 0 0 300 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6142	#tabable: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6143	#model: #pageFormat
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6144	#enableChannel: #enableFormat
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6145	#menu: #pageFormatList
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6146	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6147	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6148	#label: 'Landscape'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6149	#name: 'LandscapeCheckBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6150	#layout: #(#LayoutFrame 380 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6151	#enableChannel: #enablelandscape
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6152	#model: #landscape
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6153	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6154	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6155	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6156	#name: 'Separator5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6157	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6158	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6159	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6160
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6161	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6162	#extent: #(#Point 600 30)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6163	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6164	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6165	#name: 'MarginBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6166	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6167	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6168	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6169	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6170	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6171	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6172	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6173	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6174	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6175	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6176	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6177	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6178	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6179	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6180	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6181	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6182	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6183	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6184	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6185	#label: 'Top Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6186	#name: 'TopMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6187	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6188	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6189	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6190	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6191	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6192	#name: 'TopMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6193	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6194	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6195	#model: #topMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6196	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6197	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6198	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6199	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	6200	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6201	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6202	#(#PopUpListSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6203	#label: 'PopUp List'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6204	#name: 'PopUpList2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6205	#layout: #(#LayoutFrame -155 1 0 0 -5 1 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6206	#tabable: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6207	#model: #selectedUnit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6208	#menu: #unitList
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6209	#useIndex: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6210	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6211	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6212
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6213	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6214	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6215	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6216	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6217	#name: 'Box2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6218	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6219	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6220	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6221	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6222	#label: 'Left Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6223	#name: 'LeftMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6224	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6225	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6226	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6227	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6228	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6229	#name: 'LeftMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6230	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6231	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6232	#model: #leftMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6233	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6234	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6235	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6236	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	6237	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6238	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6239	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6240
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6241	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6242	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6243	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6244	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6245	#name: 'Box3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6246	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6247	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6248	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6249	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6250	#label: 'Right Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6251	#name: 'RightMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6252	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6253	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6254	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6255	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6256	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6257	#name: 'RightMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6258	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6259	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6260	#model: #rightMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6261	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6262	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6263	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6264	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	6265	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6266	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6267	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6268
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6269	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6270	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6271	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6272	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6273	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6274	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6275	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6276	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6277	#(#LabelSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6278	#label: 'Bottom Margin:'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6279	#name: 'BottomMarginLabel'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6280	#layout: #(#LayoutFrame 0 0 0 0 150 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6281	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6282	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6283	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6284	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6285	#name: 'BottomMarginEntryField'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6286	#layout: #(#LayoutFrame 150 0 0 0 250 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6287	#enableChannel: #enableMargins
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6288	#model: #bottomMargin
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6289	#type: #numberOrNil
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6290	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6291	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6292	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	6293	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6294	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6295	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6296
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6297	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6298	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6299	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6300	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6301
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6302	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6303	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6304	#(#DividerSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6305	#name: 'Separator6'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6306	#layout: #(#LayoutFrame 0 0.0 -3 1 0 1.0 0 1)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6307	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6308	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6309
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6310	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6311	#extent: #(#Point 600 100)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6312	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6313	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6314	#name: 'Box5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6315	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6316	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6317	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6318	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6319	#label: 'Color Printer'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6320	#name: 'ColorPrinterCheckBox'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6321	#layout: #(#LayoutFrame 0 0 0 0 599 0 21 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6322	#enableChannel: #enableColorBox
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6323	#model: #supportsColor
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6324	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6325	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6326	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6327
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6328	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6329	#extent: #(#Point 600 27)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6330	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6331	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6332
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6333	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6334	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6335	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6336
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6337	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6338	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6339	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6340
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6341	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6342
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6343	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6344
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6345	Printer := self possiblePrinters at:(self printerTypeSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6346	Printer printCommand:self printCommand value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6347
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6348	Printer supportsPageSizes ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6349	Printer pageFormat:(self pageFormat value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6350	Printer landscape:(self landscape value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6351	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6352	Printer supportsMargins ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6353	\| unit \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6354	self selectedUnit value == 2 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6355	unit := #mm
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6356	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6357	unit := #inch
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6358	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6359	Printer topMargin:(UnitConverter convert:(self topMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6360	Printer leftMargin:(UnitConverter convert:(self leftMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6361	Printer rightMargin:(UnitConverter convert:(self rightMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6362	Printer bottomMargin:(UnitConverter convert:(self bottomMargin value) from:unit to:#inch).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6363	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6364	Printer supportsPostscript ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6365	Printer supportsColor:self supportsColor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6366	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6367	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6368
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6369	help
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6370
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6371	"/ self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6372	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/printerSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6373	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6374
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6375	readSettings
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6376	self bottomMargin value:Printer bottomMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6377	self landscape value:Printer landscape.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6378	self leftMargin value:Printer leftMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6379	self rightMargin value:Printer rightMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6380	self topMargin value:Printer topMargin.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6381	self printCommand value:Printer printCommand.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6382	self printerTypeSelection
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6383	value:(self possiblePrinters identityIndexOf:Printer).
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6384	self supportsColor value:Printer supportsColor.
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6385	self pageFormatList notEmpty ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6386	self pageFormat value:Printer pageFormat
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6387	].
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6388	self printerTypeSelectionOrUnitListChanged.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6389	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6390	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6391
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6392	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6393
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6394	bottomMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6395
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6396	bottomMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6397	bottomMargin := Printer bottomMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6398	bottomMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6399	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6400	^ bottomMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6401	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6402
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6403	enableColorBox
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6404
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6405	enableColorBox isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6406	enableColorBox := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6407	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6408	^ enableColorBox.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6409	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6410
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6411	enableFormat
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6412
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6413	enableFormat isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6414	enableFormat := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6415	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6416	^ enableFormat.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6417	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6418
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6419	enableMargins
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6420
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6421	enableMargins isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6422	enableMargins := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6423	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6424	^ enableMargins.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6425	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6426
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6427	enablelandscape
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6428
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6429	enablelandscape isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6430	enablelandscape := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6431	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6432	^ enablelandscape.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6433	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6434
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6435	landscape
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6436
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6437	landscape isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6438	landscape := Printer landscape asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6439	landscape onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6440	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6441	^ landscape.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6442	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6443
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6444	leftMargin
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6445
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6446	leftMargin isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6447	leftMargin := Printer leftMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6448	leftMargin onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6449	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6450	^ leftMargin.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6451	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6452
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6453	pageFormat
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6454
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6455	pageFormat isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6456	self pageFormatList notEmpty ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6457	\| index \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6458	(index := self pageFormatList indexOf:#a4) ~~ 0 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6459	pageFormat := index asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6460	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6461	pageFormat := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6462	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6463	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6464	pageFormat onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6465	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6466	^ pageFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6467	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6468
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6469	pageFormatList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6470
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6471	pageFormatList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6472	pageFormatList := Printer defaultPageFormats asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6473	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6474	^ pageFormatList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6475	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6476
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6477	printCommand
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6478
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6479	printCommand isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6480	printCommand := Printer printCommand asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6481	printCommand onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6482	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6483	^ printCommand.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6484	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6485
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6486	printCommandList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6487
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6488	printCommandList isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6489	printCommandList := self commandList asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6490	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6491	^ printCommandList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6492	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6493
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6494	printerType
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6495
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6496	printerType isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6497	printerType := (self possiblePrinters collect:[:cls \| cls printerTypeName]) asList.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6498	printerType onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6499	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6500	^ printerType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6501	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6502
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6503	printerTypeSelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6504
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6505	printerTypeSelection isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6506	printerTypeSelection := (self possiblePrinters identityIndexOf:Printer) asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6507	"/ printerTypeSelection onChangeSend:#printerTypeSelectionChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6508	printerTypeSelection addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6509	printerTypeSelection changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6510	printerTypeSelection onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6511	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6512	^ printerTypeSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6513	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6514
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6515	rightMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6516
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6517	rightMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6518	rightMargin := Printer rightMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6519	rightMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6520	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6521	^ rightMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6522	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6523
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6524	selectedUnit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6525
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6526	selectedUnit isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6527	selectedUnit := 1 asValue.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6528	selectedUnit addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6529	selectedUnit changed.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6530	selectedUnit onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6531	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6532	^ selectedUnit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6533	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6534
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6535	supportsColor
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6536
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6537	supportsColor isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6538	supportsColor := Printer supportsColor asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6539	supportsColor onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6540	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6541	^ supportsColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6542	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6543
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6544	topMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6545
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6546	topMargin isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6547	topMargin := Printer topMargin asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	6548	topMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6549	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6550	^ topMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6551	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6552
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6553	unitList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6554
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6555	unitList isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6556	unitList := #('inch' 'mm') asList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6557	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6558	^ unitList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6559	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6560
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6561	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6562
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6563	printerTypeSelectionChanged
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6564
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6565	\| p hasPageSize hasMargins\|
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6566	self printerType selectionIndex ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6567	p := self possiblePrinters at:(self printerType selectionIndex).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6568	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6569	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6570	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6571	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6572	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6573	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6574	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6575
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6576	printerTypeSelectionOrUnitListChanged
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6577
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6578	\| p hasPageSize hasMargins unit\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6579
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6580	self printerTypeSelection value ~~ 0 ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6581	p := self possiblePrinters at:(self printerTypeSelection value).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6582	hasPageSize := p supportsPageSizes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6583	hasMargins := p supportsMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6584	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6585	hasPageSize := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6586	hasMargins := false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6587	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6588	self enablelandscape value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6589	self enableFormat value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6590	hasPageSize ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6591	self pageFormat value:(p pageFormat).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6592	self landscape value:(p landscape).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6593	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6594	self landscape value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6595	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6596	hasMargins ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6597	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6598	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6599	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6600	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6601	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6602
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6603	self topMargin value:(UnitConverter convert:p topMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6604	self leftMargin value:(UnitConverter convert:p leftMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6605	self rightMargin value:(UnitConverter convert:p rightMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6606	self bottomMargin value:(UnitConverter convert:p bottomMargin from:#inch to:unit).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6607
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6608	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6609	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6610	self enableMargins value:hasMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6611
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6612	p notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6613	\| newCommandList \|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6614	newCommandList := p defaultCommands.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6615	newCommandList notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6616	self printCommandList contents:(newCommandList asList).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6617	self printCommandList changed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6618	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6619	self printCommand value:(p printCommand).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6620	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6621	self enableColorBox value:p supportsPostscript.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6622	p supportsPostscript ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6623	self supportsColor value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6624	] ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6625	self supportsColor value:(Printer supportsColor).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6626	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6627	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6628
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6629	unitListChanged
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6630	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6631
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6632	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6633	(changedObject == self selectedUnit or:[changedObject == self printerTypeSelection]) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6634	self printerTypeSelectionOrUnitListChanged.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6635	^ self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6636	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6637
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6638	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6639	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6640
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6641	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6642
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6643	postOpen
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6644	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6645
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6646	postOpenAsSubcanvasWith:aBuilder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6647
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6648	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6649	^ super postOpenAsSubcanvasWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6650	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6651
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6652	postOpenWith:aBuilder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6653
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6654	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6655	^ super postOpenWith:aBuilder
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	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6659
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6660	commandList
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6661	commandList isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6662	commandList := resources at:'PRINT_COMMANDS' ifAbsent:nil.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6663	commandList isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6664	commandList := PrinterStream defaultCommands.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6665	commandList isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6666	commandList := #('lpr'
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6667	'lp'
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6668	) asOrderedCollection.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6669	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6670	(commandList includes:self printCommand value) not ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6671	commandList add:self printCommand value.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6672	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6673	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6674	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6675	^ commandList
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6676	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6677
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6678	hasUnsavedChanges
4286 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	\| printer unit\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6682	self selectedUnit value == 2 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6683	unit := #mm
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6684	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6685	unit := #inch
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6686	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6687	printer := self possiblePrinters at:(self printerTypeSelection value).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6688	^ (
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6689	printer ~= Printer or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6690	Printer printCommand ~= self printCommand value or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6691	(Printer supportsPageSizes and:[
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6692	Printer pageFormat ~= self pageFormat value or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6693	Printer landscape ~= (self landscape value) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6694	]]]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6695	(Printer supportsMargins and:[
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	6696	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	6697	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	6698	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	6699	Printer bottomMargin ~= ((UnitConverter convert:(self bottomMargin value asFloat) from:unit to:#inch) asFloat) or:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6700	]]]]]) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6701	Printer supportsPostscript and:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6702	Printer supportsColor ~= self supportsColor value
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6703	]]]]]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6704	)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6705	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6706
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6707	possiblePrinters
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6708	possiblePrinters isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6709	possiblePrinters := PrinterStream withAllSubclasses asArray.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6710	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6711	^ possiblePrinters
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6712	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6713
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6714	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6715
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6716	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6717	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6718	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6719
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6720	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6721	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6722
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6723	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6724	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6725	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6726	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6727	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6728
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6729	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6730
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6731	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6732	constantNamed:#'AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6733	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6734	@@@@@@@@@@@@@@@@@@@@ADQ@@@@@@@@@@DQBL2QD@@@@@@@DH"D3D"I@@@@@@DHQDSLQDRP@@@@DHQDQDQDQD$@@@DHQDQDQDQDQI@@@P!!DQDQDQDQD$@@AB
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6735	DQDQDQLQDRP@ABDQDQDQLQDQD$@DHQDQDSLQDQDRP@P!!DQDQL1DQDQI@ABDQDQDQLQDQD$@@P!!DQDQDSDQD$@@ABDQDQDQD1DRP@@DHQDQDQDQLQI@@@ABDQ
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6736	DQDQDQI@@@@@P!!DQDQDQI@@@@@@DH"DQD"I@@@@@@@ADP"H$Q@@@@@@@@@@DQD@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 128 128 128 0 128 128 192 192 192]; 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]
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6737	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6738
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6739	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6740
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6741	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6742	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6743	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6744
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6745	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6746	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6747
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6748	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6749	UIPainter new openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6750	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6751	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6752	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6753
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6754	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6755
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6756	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6757	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6758	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6759	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6760	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	6761	#label: 'Processor and Scheduler Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	6762	#name: 'Processor and Scheduler Settings'
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6763	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6764	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6765	#bounds: #(#Rectangle 16 42 616 362)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6766	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6767	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6768	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6769	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6770	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6771	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6772	#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	6773	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6774	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6775	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6776	#verticalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6777	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6778	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6779	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6780	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6781	#label: 'Preemptive Scheduling'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6782	#name: 'CheckBox11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6783	#model: #preemptive
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6784	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6785	#extent: #(#Point 600 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6786	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6787	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6788	#name: 'Box2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6789	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6790	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6791	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6792	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6793	#label: 'Dynamic Priorities'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6794	#name: 'CheckBox12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6795	#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	6796	#enableChannel: #preemptive
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6797	#model: #dynamicPrios
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6798	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6799	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6800	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6801
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6802	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6803	#extent: #(#Point 600 23)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6804	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6805	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6806
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6807	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6808	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6809	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6810
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6811	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6812	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6813	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6814
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6815	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6816
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6817	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6818
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6819	Processor isTimeSlicing ~~ self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6820	self preemptive value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6821	Processor startTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6822	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6823	Processor stopTimeSlicing
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6824	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6825	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6826	Processor supportDynamicPriorities ~~ self dynamicPrios value ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6827	Processor supportDynamicPriorities:self dynamicPrios value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6828	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6829	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6830
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6831	help
4398 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 warn:'no help available here'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6834	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/editSettings.html'].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6835	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6836
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6837	readSettings
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6838	self preemptive value:Processor isTimeSlicing.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6839	self dynamicPrios value:Processor supportDynamicPriorities.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	6840	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6841	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6842
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6843	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6844
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6845	dynamicPrios
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6846	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6847
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6848	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6849	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6850	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6851	"*** (and replace this comment by something more useful ;-)"
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	dynamicPrios isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6854	dynamicPrios := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6855	"/ 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	6856	"/ dynamicPrios addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6857	"/ dynamicPrios onChangeSend:#dynamicPriosChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6858	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6859	^ dynamicPrios.
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6862	preemptive
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6863	"automatically generated by UIPainter ..."
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	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6866	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6867	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6868	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6869
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6870	preemptive isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6871	preemptive := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6872	"/ 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	6873	"/ preemptive addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6874	"/ preemptive onChangeSend:#preemptiveChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6875	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6876	^ preemptive.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6877	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6878
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6879	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6880
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6881	hasUnsavedChanges
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6882
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6883	^ (
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6884	self preemptive value ~= Processor isTimeSlicing or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6885	self dynamicPrios value ~= Processor supportDynamicPriorities]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6886	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6887	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	6888
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6889	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6890
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6891	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6892	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6893	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6894
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6895	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6896	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6897
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6898	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6899	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6900	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6901	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6902	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6903
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6904	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6905
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6906	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6907	constantNamed:#'AbstractSettingsApplication::RDoItServerSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6908	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6909	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&Y&Y&Y&Y&Y3@@@BY&Y&Y&Y&Y''L@@@I$[]7_]7]6,1P@@&QL3L>:1GZ3E@@BY83L3L>D]+LT@@I
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6910	''#L3L38Q6,1P@@&[L3L8 @]7''E@@BYE3NH (@@_LT@@I$WNBBDAH L1P@@&Q]8P$IB"@3E@@BY4W $ B$@CLT@@L3L $!!H@$"@1P@@3L2DJB DJHCE@@@@UV
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6911	!!B D @A%T@@@@@BBP$IH @@@@@@@@HPHHB"@@@@@@@@@@@!!H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 64 80 96 240 240 0 80 112 112 240 240 240 64 64 64 48 64 80 64 96 96 128 128 0 128 128 128 48 80 80 80 96 96 112 112 112 64 80 80 80 96 112]; 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]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6912	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6913
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6914	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6915
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6916	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6917	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6918	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6919
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6920	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6921	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6922
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6923	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6924	UIPainter new openOnClass:AbstractSettingsApplication::RDoItServerSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6925	AbstractSettingsApplication::RDoItServerSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6926	AbstractSettingsApplication::RDoItServerSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6927	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6928
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6929	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6930
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6931	^
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6932	#(#FullSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6933	#name: #windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6934	#window:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6935	#(#WindowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6936	#label: 'RDoIt Server Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6937	#name: 'RDoIt Server Settings'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6938	#min: #(#Point 10 10)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6939	#max: #(#Point 1024 768)
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	6940	#bounds: #(#Rectangle 16 52 616 602)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6941	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6942	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6943	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6944	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6945	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6946	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6947	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6948	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6949	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6950	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6951	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6952	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6953	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6954	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6955	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6956	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6957	#horizontalLayout: #fit
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6958	#verticalLayout: #center
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6959	#horizontalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6960	#verticalSpace: 3
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6961	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6962	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6963	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6964	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6965	#name: 'Box1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6966	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6967	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6968	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6969	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6970	#label: 'Remote doits enabled'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6971	#name: 'CheckBox1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6972	#layout: #(#LayoutFrame 5 0 0 0 -5 1 22 0)
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	6973	#enableChannel: #hasRDoitServerClass
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6974	#model: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6975	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6976	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6977	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6978
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6979	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6980	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6981	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6982	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6983	#name: 'Box2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6984	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6985	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6986	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6987	#(#LabelSpec
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	6988	#label: 'Port/Path:'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6989	#name: 'Label2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6990	#layout: #(#LayoutFrame 5 0 0 0 150 0 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6991	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6992	#adjust: #right
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6993	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6994	#(#InputFieldSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6995	#name: 'EntryField1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6996	#layout: #(#LayoutFrame 150 0 0 0 -5 1 22 0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6997	#enableChannel: #rDoitsEnabled
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	6998	#model: #rDoitServerPortOrPath
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6999	#acceptOnReturn: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7000	#acceptOnTab: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7001	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	7002	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7003	)
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7004	#(#LabelSpec
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7005	#label: 'Port-number for tcp socket; path-string for unix domain socket.'
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7006	#name: 'Label3'
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7007	#layout: #(#LayoutFrame 150 0 28 0 596 0 50 0)
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7008	#translateLabel: true
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7009	#adjust: #left
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7010	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7011	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7012
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7013	)
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7014	#extent: #(#Point 600 72)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7015	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7016	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7017	#name: 'Box3'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7018	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7019	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7020	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7021	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7022	#label: 'Log errors'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7023	#name: 'CheckBox2'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	7024	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7025	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7026	#model: #rDoitErrorLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7027	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7028	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7029	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7030
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7031	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7032	#extent: #(#Point 600 25)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7033	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7034	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7035	#name: 'Box4'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7036	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7037	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7038	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7039	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7040	#label: 'Log requests'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7041	#name: 'CheckBox3'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	7042	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7043	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7044	#model: #rDoitLogging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7045	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7046	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7047	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7048
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7049	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7050	#extent: #(#Point 600 24)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7051	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7052	#(#ViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7053	#name: 'Box5'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7054	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7055	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7056	#collection: #(
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7057	#(#CheckBoxSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7058	#label: 'Debug errors'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7059	#name: 'CheckBox4'
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	7060	#layout: #(#LayoutFrame 25 0 0 0 -5 1 22 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7061	#enableChannel: #rDoitsEnabled
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7062	#model: #rDoitErrorDebugging
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7063	#translateLabel: true
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7064	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7065	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7066
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7067	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7068	#extent: #(#Point 600 23)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7069	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7070	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7071
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7072	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7073	#extent: #(#Point 600 300)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7074	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7075	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7076
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7077	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7078	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7079	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7080
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7081	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7082	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7083	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7084
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7085	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7086
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7087	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7088
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7089	\|rDoits\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7090
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7091	RDoItServer defaultPortNumberOrPath:self rDoitServerPortOrPath value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7092	RDoItServer logging:self rDoitLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7093	RDoItServer errorLogging:self rDoitErrorLogging value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7094	RDoItServer errorCatching:(self rDoitErrorDebugging value not).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7095	rDoits := self rDoitsEnabled value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7096	rDoits ~~ RDoItServer serverRunning ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7097	rDoits ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7098	RDoItServer stop
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7099	] ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7100	RDoItServer start.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7101	"/ must wait a bit; give it a chance to
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7102	"/ really start (before checking)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7103	Delay waitForSeconds:0.5.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7104	RDoItServer serverRunning ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7105	self warn:'RDoit startup failed (see stderr).'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7106	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7107	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7108	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7109	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7110
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7111	help
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7112
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7113	"/ self warn:'no help available here'.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7114	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/communicationsSettings.html'].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7115	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7116
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7117	readSettings
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7118	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7119	self rDoitsEnabled value:RDoItServer serverRunning.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7120	self rDoitLogging value:RDoItServer isLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7121	self rDoitErrorLogging value:RDoItServer isErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7122	self rDoitErrorDebugging value:RDoItServer isErrorCatching not.
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7123	self rDoitServerPortOrPath value:RDoItServer defaultPortNumberOrPath
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7124	] ifFalse:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7125	self rDoitsEnabled value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7126	self rDoitLogging value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7127	self rDoitErrorLogging value:false.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7128	self rDoitErrorDebugging value:false.
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7129	self rDoitServerPortOrPath value:nil
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7130	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7131	self modifiedChannel value:false
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7132	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7133
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7134	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7135
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7136	rDoitErrorDebugging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7137
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7138	rDoitErrorDebugging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7139	rDoitErrorDebugging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7140	rDoitErrorDebugging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7141	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7142	^ rDoitErrorDebugging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7143	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7144
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7145	rDoitErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7146
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7147	rDoitErrorLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7148	rDoitErrorLogging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7149	rDoitErrorLogging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7150	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7151	^ rDoitErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7152	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7153
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7154	rDoitLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7155
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7156	rDoitLogging isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7157	rDoitLogging := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7158	rDoitLogging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7159	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7160	^ rDoitLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7161	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7162
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7163	rDoitServerPortOrPath
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7164
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7165	rDoitServerPortOrPath isNil ifTrue:[
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7166	rDoitServerPortOrPath := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7167	rDoitServerPortOrPath onChangeSend:#updateModifiedChannel to:self
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7168	].
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7169	^ rDoitServerPortOrPath.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7170	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7171
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7172	rDoitsEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7173
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7174	rDoitsEnabled isNil ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7175	rDoitsEnabled := true asValue.
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7176	rDoitsEnabled onChangeSend:#rDoitsEnabledChanged to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7177	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7178	^ rDoitsEnabled.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7179	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7180
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7181	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7182
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7183	rDoitsEnabledChanged
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7184	self updateModifiedChannel.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7185	self rDoitsEnabled value ifTrue:[
4840 4f74aeb5e4d2 autoload is understood by all classes (dummy if already loaded) Claus Gittinger <cg@exept.de> parents: 4831 diff changeset	7186	RDoItServer autoload.
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7187	rDoitServerPortOrPath value isNil ifTrue:[
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7188	rDoitServerPortOrPath value:(RDoItServer defaultPortNumberOrPath)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7189	]
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7190	]
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7191	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7192
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7193	update:something with:aParameter from:changedObject
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7194	changedObject == self rDoitsEnabled ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7195	self rDoitsEnabledChanged.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7196	^ self.
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	super update:something with:aParameter from:changedObject
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7200	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7201
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7202	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7203
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7204	postOpen
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7205	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7206
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7207	postOpenAsSubcanvasWith:aBuilder
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7208
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7209	self postOpen.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7210	^ super postOpenAsSubcanvasWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7211	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7212
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7213	postOpenWith:aBuilder
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7214
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7215	self postOpen.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7216	^ super postOpenWith:aBuilder
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7217	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7218
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7219	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7220
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7221	hasRDoitServer
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7222
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7223	^ RDoItServer notNil and:[RDoItServer isLoaded]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7224	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7225
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7226	hasRDoitServerClass
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7227	^ RDoItServer notNil
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7228	!
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	7229
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7230	hasUnsavedChanges
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7231
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7232	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7233	^ (
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7234	self rDoitsEnabled value ~= RDoItServer serverRunning or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7235	RDoItServer serverRunning and:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7236	(self rDoitLogging value ~= RDoItServer isLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7237	self rDoitErrorLogging value ~= RDoItServer isErrorLogging or:[
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7238	self rDoitErrorDebugging value ~= RDoItServer isErrorCatching not or:[
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	7239	self rDoitServerPortOrPath value ~= RDoItServer defaultPortNumberOrPath]]])]]
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7240	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7241	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7242	^ false
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7243	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7244
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7245	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7246
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7247	stcCompilationDemoStrings
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7248
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7249	^ #('never')
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7250	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7251
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7252	stcCompilationFullVersionStrings
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7253
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7254	^ #('always' 'primitive code only' 'never')
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7255	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7256
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7257	stcCompilationOptions
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7258
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7259	^ #( always default never)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7260	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7261
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7262	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7263
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7264	defaultIcon
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7265	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7266	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7267
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7268	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7269	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7270
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7271	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7272	self defaultIcon inspect
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7273	ImageEditor openOnClass:self andSelector:#defaultIcon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7274	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7275	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7276
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7277	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7278
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7279	^Icon
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7280	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7281	ifAbsentPut:[(Depth1Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@B@@@B@@@@@@@AG.=1G.=0D*%PG.=0@@@@G??1FHH0E>7PE>70F^70G.71G.7PD^80G??0@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 255]; 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]
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7282	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7283
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7284	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7285
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7286	windowSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7287	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7288	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7289
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7290	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7291	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7292
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7293	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7294	UIPainter new openOnClass:AbstractSettingsApplication::STCCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7295	AbstractSettingsApplication::STCCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7296	AbstractSettingsApplication::STCCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7297	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7298
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7299	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7300
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7301	^
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7302	#(#FullSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7303	#name: #windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7304	#window:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7305	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	7306	#label: 'STC Compiler Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	7307	#name: 'STC Compiler Settings'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7308	#min: #(#Point 10 10)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7309	#max: #(#Point 1024 768)
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7310	#bounds: #(#Rectangle 14 46 614 660)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7311	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7312	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7313	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7314	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7315	#(#VerticalPanelViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7316	#name: 'VerticalPanel2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7317	#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	7318	#horizontalLayout: #fit
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7319	#verticalLayout: #center
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7320	#horizontalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7321	#verticalSpace: 3
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7322	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7323	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7324	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7325	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7326	#name: 'Box11'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7327	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7328	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7329	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7330	#(#LabelSpec
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7331	#label: 'STC Compilation to Machine Code'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7332	#name: 'Label11'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7333	#layout: #(#LayoutFrame 0 0 0 0 200 0 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7334	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7335	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7336	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7337	#(#PopUpListSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7338	#label: 'PopUp List'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7339	#name: 'StcCompilation'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7340	#layout: #(#LayoutFrame 201 0 0 0 -5 1 22 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7341	#tabable: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7342	#model: #stcCompilationSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7343	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7344	#menu: #stcCompilationList
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7345	#useIndex: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7346	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7347	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7348
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7349	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7350	#extent: #(#Point 600 29)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7351	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7352	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7353	#name: 'Box1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7354	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7355	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7356	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7357	#(#LabelSpec
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7358	#label: 'STC Command:'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7359	#name: 'Label1'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7360	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7361	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7362	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7363	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7364	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7365	#name: 'EntryField1'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7366	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7367	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7368	#model: #stc
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7369	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7370	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7371	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7372	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7373	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7374	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7375	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7376
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7377	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7378	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7379	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7380	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7381	#name: 'Box2'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7382	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7383	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7384	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7385	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7386	#label: 'STC Options:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7387	#name: 'Label2'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7388	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7389	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7390	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7391	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7392	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7393	#name: 'EntryField2'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7394	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7395	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7396	#model: #stcOptions
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7397	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7398	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7399	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7400	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7401	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7402	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7403	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7404
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7405	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7406	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7407	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7408	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7409	#name: 'Box3'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7410	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7411	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7412	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7413	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7414	#label: 'CC Command:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7415	#name: 'Label3'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7416	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7417	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7418	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7419	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7420	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7421	#name: 'EntryField3'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7422	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7423	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7424	#model: #cc
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7425	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7426	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7427	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7428	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7429	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7430	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7431	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7432
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7433	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7434	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7435	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7436	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7437	#name: 'Box4'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7438	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7439	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7440	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7441	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7442	#label: 'CC Options:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7443	#name: 'Label4'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7444	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7445	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7446	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7447	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7448	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7449	#name: 'EntryField4'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7450	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7451	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7452	#model: #ccOptions
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7453	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7454	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7455	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7456	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7457	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7458	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7459	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7460
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7461	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7462	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7463	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7464	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7465	#name: 'Box5'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7466	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7467	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7468	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7469	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7470	#label: 'Include Directories:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7471	#name: 'Label5'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7472	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7473	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7474	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7475	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7476	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7477	#name: 'EntryField5'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7478	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7479	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7480	#model: #stcIncludes
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7481	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7482	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7483	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7484	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7485	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7486	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7487	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7488
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7489	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7490	#extent: #(#Point 600 35)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7491	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7492	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7493	#name: 'Box6'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7494	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7495	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7496	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7497	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7498	#label: 'Defines:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7499	#name: 'Label6'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7500	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7501	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7502	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7503	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7504	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7505	#name: 'EntryField6'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7506	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7507	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7508	#model: #stcDefines
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7509	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7510	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7511	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7512	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7513	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7514	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7515	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7516
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7517	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7518	#extent: #(#Point 600 34)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7519	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7520	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7521	#name: 'Box7'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7522	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7523	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7524	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7525	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7526	#label: 'Link Command:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7527	#name: 'Label7'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7528	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7529	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7530	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7531	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7532	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7533	#name: 'EntryField7'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7534	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7535	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7536	#model: #linkCommand
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7537	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7538	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7539	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7540	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7541	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7542	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7543	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7544
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7545	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7546	#extent: #(#Point 600 33)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7547	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7548	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7549	#name: 'Box8'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7550	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7551	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7552	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7553	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7554	#label: 'Link Arguments:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7555	#name: 'Label8'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7556	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7557	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7558	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7559	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7560	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7561	#name: 'EntryField8'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7562	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7563	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7564	#model: #linkArgs
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7565	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7566	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7567	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7568	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7569	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7570	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7571	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7572
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7573	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7574	#extent: #(#Point 600 32)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7575	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7576	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7577	#name: 'Box9'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7578	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7579	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7580	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7581	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7582	#label: 'C-Libraries:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7583	#name: 'Label9'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7584	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7585	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7586	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7587	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7588	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7589	#name: 'EntryField9'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7590	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7591	#enableChannel: #canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7592	#model: #stcLibraries
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7593	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7594	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7595	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7596	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7597	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7598	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7599	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7600
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7601	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7602	#extent: #(#Point 600 31)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7603	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7604	#(#ViewSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7605	#name: 'Box10'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7606	#component:
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7607	#(#SpecCollection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7608	#collection: #(
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7609	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7610	#label: 'STC Library Path:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7611	#name: 'Label10'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7612	#layout: #(#LayoutFrame 5 0 0 0 132 0 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7613	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7614	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7615	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7616	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7617	#name: 'EntryField10'
4427 2daba9a5ad8a STC cmpiler settings: geometry changes Claus Gittinger <cg@exept.de> parents: 4419 diff changeset	7618	#layout: #(#LayoutFrame 139 0 0 0 -5 1 22 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7619	#enableChannel: #enableStcLibraryPath
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7620	#model: #stcLibraryPath
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7621	#acceptOnLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7622	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7623	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7624	#acceptOnLostFocus: true
4541 752196fe7652 InputFields accept on pointerLeave Stefan Vogel <sv@exept.de> parents: 4503 diff changeset	7625	#acceptOnPointerLeave: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7626	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7627	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7628
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7629	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7630	#extent: #(#Point 600 30)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7631	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7632	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7633
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7634	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7635	)
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7638	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7639	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7640	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7641
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7642	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7643
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7644	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7645
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7646	Compiler stcCompilation:(self class stcCompilationOptions at:self stcCompilationSelection value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7647	Compiler stcCompilationIncludes:self stcIncludes value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7648	Compiler stcCompilationDefines:self stcDefines value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7649	Compiler stcCompilationOptions:self stcOptions value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7650	Compiler ccCompilationOptions:self ccOptions value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7651	Compiler ccPath:self cc value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7652	self stc value ~= Compiler stcPath ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7653	Compiler stcPath:self stc value
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7654	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7655	ObjectFileLoader linkCommand:self linkCommand value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7656	ObjectFileLoader linkArgs:self linkArgs value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7657	ObjectFileLoader notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7658	self stcLibraries value notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7659	ObjectFileLoader searchedLibraries:(self stcLibraries value asCollectionOfWords).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7660	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7661	stcLibraryPath notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7662	ObjectFileLoader libPath:(self stcLibraryPath value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7663	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7664	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7665	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7666
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7667	help
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7668
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7669	"/ self warn:'no help available here'.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7670	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/compilerSettings.html'].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7671	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7672
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7673	readSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7674	self canLoadBinaries
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7675	value:(ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]).
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7676	self stcIncludes value:Compiler stcCompilationIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7677	self stcDefines value:Compiler stcCompilationDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7678	self stcOptions value:Compiler stcCompilationOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7679	self ccOptions value:Compiler ccCompilationOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7680	self cc value:Compiler ccPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7681	self stc value:Compiler stcPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7682	self linkCommand value:ObjectFileLoader linkCommand.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7683	self linkArgs value:ObjectFileLoader linkArgs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7684	ObjectFileLoader notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7685	\|t\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7686
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7687	(t := ObjectFileLoader searchedLibraries) notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7688	self stcLibraries value:(String fromStringCollection:t separatedBy:' ')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7689	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7690	(t := ObjectFileLoader libPath) notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7691	self stcLibraryPath value:t
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7692	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7693	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7694	self thisIsADemoVersion ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7695	self stcCompilationSelection value:(self class stcCompilationOptions
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7696	indexOf:(Compiler stcCompilation)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7697	ifAbsent:2)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7698	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7699	self stcCompilationSelection value:2
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7700	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7701	self modifiedChannel value:false
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7702	! !
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	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7705
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7706	canLoadBinaries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7707
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7708	canLoadBinaries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7709	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7710	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7711	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7712	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7713
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7714	cc
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7715
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7716	cc isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7717	cc := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7718	cc onChangeSend:#updateModifiedChannel to:self.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7719	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7720	^ cc.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7721	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7722
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7723	ccOptions
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7724
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7725	ccOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7726	ccOptions := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7727	ccOptions onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7728	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7729	^ ccOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7730	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7731
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7732	enableStcLibraryPath
4387 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	^ (ObjectFileLoader libPath notNil and:[self canLoadBinaries])
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7735	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7736
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7737	linkArgs
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7738
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7739	linkArgs isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7740	linkArgs := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7741	linkArgs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7742	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7743	^ linkArgs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7744	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7745
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7746	linkCommand
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7747
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7748	linkCommand isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7749	linkCommand := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7750	linkCommand onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7751	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7752	^ linkCommand.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7753	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7754
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7755	stc
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7756
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7757	stc isNil ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7758	stc := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7759	stc onChangeSend:#updateModifiedChannel to:self.
4387 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	^ stc.
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7764	stcCompilationList
4387 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	stcCompilationList isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7767	self thisIsADemoVersion ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7768	stcCompilationList := (resources array:(self class stcCompilationDemoStrings)) asList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7769	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7770	stcCompilationList := (resources array:(self class stcCompilationFullVersionStrings)) asList.
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	^ stcCompilationList.
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7776	stcCompilationSelection
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7777
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7778	stcCompilationSelection isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7779	self thisIsADemoVersion ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7780	stcCompilationSelection := (self class stcCompilationOptions indexOf:(Compiler stcCompilation) ifAbsent:2) asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7781	] ifFalse:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7782	stcCompilationSelection := 2 asValue.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7783	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7784	stcCompilationSelection onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7785	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7786	^ stcCompilationSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7787	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7788
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7789	stcDefines
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7790
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7791	stcDefines isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7792	stcDefines := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7793	stcDefines onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7794	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7795	^ stcDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7796	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7797
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7798	stcIncludes
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7799
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7800	stcIncludes isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7801	stcIncludes := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7802	stcIncludes onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7803	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7804	^ stcIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7805	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7806
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7807	stcLibraries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7808
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7809	stcLibraries isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7810	stcLibraries := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7811	stcLibraries onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7812	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7813	^ stcLibraries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7814	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7815
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7816	stcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7817
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7818	stcLibraryPath isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7819	stcLibraryPath := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7820	stcLibraryPath onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7821	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7822	^ stcLibraryPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7823	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7824
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7825	stcOptions
4387 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	stcOptions isNil ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7828	stcOptions := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	7829	stcOptions onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7830	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7831	^ stcOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7832	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7833
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7834	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7835
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7836	hasUnsavedChanges
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7837
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7838	\| searchedLibs \|
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7839	searchedLibs := ObjectFileLoader searchedLibraries.
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	((Compiler stcCompilation) ~= (self class stcCompilationOptions at:self stcCompilationSelection value)) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7842	((ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) ~= self canLoadBinaries value ) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7843	((Compiler stcCompilationIncludes) ~= self stcIncludes value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7844	((Compiler stcCompilationDefines) ~= self stcDefines value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7845	((Compiler stcCompilationOptions) ~= self stcOptions value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7846	((Compiler ccCompilationOptions) ~= self ccOptions value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7847	((Compiler ccPath) ~= self cc value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7848	((Compiler stcPath) ~= self stc value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7849	((ObjectFileLoader linkCommand) ~= self linkCommand value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7850	((ObjectFileLoader linkArgs) ~= self linkArgs value) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7851	ObjectFileLoader notNil and:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7852	((searchedLibs notNil and:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7853	(String fromStringCollection:searchedLibs separatedBy:' ') ~= self stcLibraries value
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7854	]) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7855	(ObjectFileLoader libPath notNil and:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7856	ObjectFileLoader libPath ~= self stcLibraryPath value
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	]]]]]]]]]]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7859	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7860	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7861
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7862	thisIsADemoVersion
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	^ Smalltalk releaseIdentification = 'ST/X_free_demo_vsn'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7865	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	7866
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7867	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7868
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7869	exampleText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7870
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7871	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7872	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7873	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7874
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7875	\|index\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7876
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7877	"/ another comment ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7878	self at:index. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7879	self at:index put:methodArg. "/ a two arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7880	self from:1 to:index put:methodArg. "/ a three arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7881	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7882	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7883	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7884	methodArg ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7885	Transcript showCR:''hello''. "/ condition
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7886	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7887	Transcript showCR:''world''.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7888	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7889	[methodArg] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7890	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7891	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7892	[self aVeryLongConditionBlock and:[self toMakeBlockLonger]] whileTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7893	Transcript showCR:''hello''. "/ long blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7894	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7895	methodArg do:[:element \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7896	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7897	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7898	1 to:methodArg size do:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7899	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7900	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7901	methodArg keysAndValuesDo:[:index \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7902	Transcript showCR:''hello''. "/ looping
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7903	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7904	Object errorSignal handle:[:ex \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7905	ex return
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7906	] do:[ "/ exception handling
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7907	self someAction "/ blocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7908	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7909	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7910	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7911	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7912
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7913	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7914
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7915	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7916	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7917	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7918
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7919	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7920	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7921
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7922	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7923	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7924	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7925	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7926	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7927
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7928	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7929
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7930	^Icon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7931	constantNamed:#'AbstractSettingsApplication::SourceCodeFormatSettingsAppl class defaultIcon'
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7932	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7933	*****************************("H"H"H"H"J(@"EUUU%UUUU@@^*HUUUVUUUU@@]:(!!UUUYUUUT@A7"FY&Y&Y&X@]7^HUUUVUU@@]7\Z*(
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7934	!!UUUYU@@]7\R"EUUU%T@A7]1JHY&Y&XC]7\Q&(!!UUU(3M7\Y&"EUUU#L3L2QJHY&Z#L3L6)D(!!&YL3L6Z$R*"EUUP3M&ZEQJ*HUU
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	7935	RRY(UUUD**(")J***$R"J)J***QJHUUUZUUUUUDTQDQDQDQDQDR*************(b') ; colorMapFromArray:#[240 160 80 192 80 0 64 0 0 240 208 160 0 0 0 240 240 240 192 192 192 240 128 0 208 208 208 48 48 48 160 160 160]; 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]
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7936	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7937
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7938	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7939
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7940	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7941	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7942	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7943
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7944	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7945	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7946
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7947	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7948	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeFormatSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7949	AbstractSettingsApplication::SourceCodeFormatSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7950	AbstractSettingsApplication::SourceCodeFormatSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7951	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7952
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7953	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7954
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7955	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7956	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7957	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7958	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7959	#(#WindowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7960	#label: 'Code Format Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7961	#name: 'Code Format Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7962	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7963	#max: #(#Point 1024 768)
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	7964	#bounds: #(#Rectangle 16 42 620 718)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7965	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7966	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7967	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7968	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7969	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7970	#name: 'VerticalPanel3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7971	#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	7972	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7973	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7974	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7975	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7976	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7977	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7978	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7979	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7980	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7981	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7982	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7983	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7984	#verticalSpace: 10
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7985	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7986	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7987	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7988	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7989	#label: 'Auto Format'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7990	#name: 'CheckBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7991	#model: #autoFormat
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7992	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7993	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7994	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7995	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7996	#name: 'Box14'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7997	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7998	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	7999	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8000	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8001	#label: 'Sample Output:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8002	#name: 'Label3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8003	#layout: #(#LayoutFrame 0 0 0 0 0 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8004	#style: #(#FontDescription #helvetica #medium #roman 12)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8005	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8006	#adjust: #left
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8007	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8008	#(#TextEditorSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8009	#name: 'TextEditor3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8010	#layout: #(#LayoutFrame 0 0 22 0 0 1 300 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8011	#model: #editorText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8012	#hasHorizontalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8013	#hasVerticalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8014	#isReadOnly: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8015	#postBuildCallback: #postBuildTextEditor:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8016	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8017	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8018
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8019	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8020	#extent: #(#Point 594 300)
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	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8023	#name: 'VerticalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8024	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8025	#verticalLayout: #bottom
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8026	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8027	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8028	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8029	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8030	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8031	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8032	#name: 'Box1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8033	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8034	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8035	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8036	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8037	#label: 'Space around Temporaries'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8038	#name: 'CheckBox3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8039	#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8040	#model: #spaceAroundTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8041	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8042	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8043	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8044	#label: 'Blank line after local Var Declaration'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8045	#name: 'CheckBox4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8046	#layout: #(#LayoutFrame 250 0 0 0 0 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8047	#model: #emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8048	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8049	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8050	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8051
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8052	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8053	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8054	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8055	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8056	#name: 'Box11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8057	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8058	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8059	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8060	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8061	#label: 'Space after ''^'''
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8062	#name: 'CheckBox5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8063	#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8064	#model: #spaceAfterReturnToken
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8065	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8066	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8067	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8068	#label: 'Space after '':'' in Keywords'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8069	#name: 'CheckBox6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8070	#layout: #(#LayoutFrame 250 0 0 0 -5 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8071	#model: #spaceAfterKeywordSelector
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8072	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8073	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8074	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8075
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8076	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8077	#extent: #(#Point 594 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8078	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8079	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8080	#name: 'Box12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8081	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8082	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8083	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8084	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8085	#label: 'Block Args on new Line'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8086	#name: 'CheckBox7'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8087	#layout: #(#LayoutFrame 250 0 0 0 -5 1 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8088	#model: #blockArgumentsOnNewLine
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8089	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8090	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8091	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8092	#label: 'C-Style Blocks'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8093	#name: 'CheckBox8'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8094	#layout: #(#LayoutFrame 0 0 0 0 250 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8095	#model: #cStyleBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8096	#translateLabel: true
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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8099
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8100	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8101	#extent: #(#Point 594 22)
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	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8104	#name: 'Box13'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8105	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8106	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8107	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8108	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8109	#label: 'Ident:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8110	#name: 'Label1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8111	#layout: #(#LayoutFrame 0 0 0 0 100 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8112	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8113	#adjust: #right
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8114	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8115	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8116	#name: 'EntryField1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8117	#layout: #(#LayoutFrame 100 0 0 0 200 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8118	#model: #tabIndent
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8119	#type: #number
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8120	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8121	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8122	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8123	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8124	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8125	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8126	#label: 'Max Length for single line Blocks:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8127	#name: 'Label2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8128	#layout: #(#LayoutFrame 200 0 0 0 400 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8129	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8130	#adjust: #right
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8131	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8132	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8133	#name: 'EntryField2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8134	#layout: #(#LayoutFrame 400 0 0 0 500 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8135	#model: #maxLengthForSingleLineBlocks
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8136	#type: #number
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8137	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8138	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8139	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8140	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8141	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8142	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8143
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8144	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8145	#extent: #(#Point 594 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8146	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8147	#(#HorizontalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8148	#name: 'HorizontalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8149	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8150	#verticalLayout: #bottom
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8151	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8152	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8153	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8154	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8155	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8156	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8157	#label: 'Reset to ST/X Default'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8158	#name: 'Button1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8159	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8160	#model: #resetToStxDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8161	#extent: #(#Point 292 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8162	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8163	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8164	#label: 'Reset to RB Default'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8165	#name: 'Button2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8166	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8167	#model: #resetToRBDefault
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8168	#extent: #(#Point 293 22)
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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8171
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8172	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8173	#extent: #(#Point 594 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8174	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8175	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8176
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8177	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8178	#extent: #(#Point 594 150)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8179	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8180	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8181
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8182	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8183	#extent: #(#Point 604 676)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8184	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8185	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8186
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8187	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8188	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8189	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8190
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8191	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8192	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8193	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8194
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8195	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8196
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8197	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8198
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8199	currentUserPrefs autoFormatting:self autoFormat value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8200	currentUserPrefs at:#'formatter.tabIndent' put:self tabIndent value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8201	currentUserPrefs at:#'formatter.spaceAroundTemporaries' put:self spaceAroundTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8202	currentUserPrefs at:#'formatter.emptyLineAfterTemporaries' put:self emptyLineAfterTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8203	currentUserPrefs at:#'formatter.spaceAfterReturnToken' put:self spaceAfterReturnToken value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8204	currentUserPrefs at:#'formatter.spaceAfterKeywordSelector' put:self spaceAfterKeywordSelector value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8205	currentUserPrefs at:#'formatter.cStyleBlocks' put:self cStyleBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8206	currentUserPrefs at:#'formatter.blockArgumentsOnNewLine' put:self blockArgumentsOnNewLine value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8207	currentUserPrefs at:#'formatter.maxLengthForSingleLineBlocks' put:self maxLengthForSingleLineBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8208	RBFormatter
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8209	tabIndent:self tabIndent value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8210	spaceAroundTemporaries:self spaceAroundTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8211	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8212	spaceAfterReturnToken:self spaceAfterReturnToken value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8213	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8214	cStyleBlocks:self cStyleBlocks value;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8215	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8216	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value asInteger.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8217	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8218
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8219	help
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8220
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8221	"/ self warn:'no help available here'.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8222	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/sourceFormatSettings.html'].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8223	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8224
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8225	readSettings
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8226	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8227	self autoFormat value:currentUserPrefs autoFormatting.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8228	self tabIndent value:RBFormatter tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8229	self spaceAroundTemporaries value:RBFormatter spaceAroundTemporaries.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8230	self emptyLineAfterTemporaries
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8231	value:RBFormatter emptyLineAfterTemporaries.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8232	self spaceAfterReturnToken value:RBFormatter spaceAfterReturnToken.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8233	self spaceAfterKeywordSelector
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8234	value:RBFormatter spaceAfterKeywordSelector.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8235	self cStyleBlocks value:RBFormatter cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8236	self blockArgumentsOnNewLine value:RBFormatter blockArgumentsOnNewLine.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8237	self maxLengthForSingleLineBlocks
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8238	value:RBFormatter maxLengthForSingleLineBlocks.
c72e35116b13 instable state penk parents: 5040 diff changeset	8239	self updateModifiedChannel.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8240	reformatLocked := false.
4581 d61fec7a9e4f * empty log message * penk parents: 4574 diff changeset	8241	self reformat.
d61fec7a9e4f * empty log message * penk parents: 4574 diff changeset	8242	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8243	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8244
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8245	reformat
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8246
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8247	\|tree s_tabIndent s_spaceAroundTemporaries s_emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8248	s_spaceAfterReturnToken s_spaceAfterKeywordSelector s_cStyleBlocks
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8249	s_maxLengthForSingleLineBlocks s_blockArgumentsOnNewLine\|
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	reformatLocked ifFalse:[
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	"/ temporary change the RBFormatters settings ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8254	"/
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8255	s_tabIndent := RBFormatter tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8256	s_spaceAroundTemporaries := RBFormatter spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8257	s_emptyLineAfterTemporaries := RBFormatter emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8258	s_spaceAfterReturnToken := RBFormatter spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8259	s_spaceAfterKeywordSelector := RBFormatter spaceAfterKeywordSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8260	s_cStyleBlocks := RBFormatter cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8261	s_blockArgumentsOnNewLine := RBFormatter blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8262	s_maxLengthForSingleLineBlocks := RBFormatter maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8263
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8264	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8265	tabIndent:self tabIndent value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8266	spaceAroundTemporaries:self spaceAroundTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8267	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8268	spaceAfterReturnToken:self spaceAfterReturnToken value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8269	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8270	cStyleBlocks:self cStyleBlocks value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8271	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8272	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8273
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8274	tree := RBParser
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8275	parseMethod:self class exampleText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8276	onError: [:aString :position \| nil].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8277	tree do:[:node \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8278	(node ~~ tree and:[node parent isNil]) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8279	self error:'No parent for node'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8280	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8281	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8282	self editorText value:tree printString.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8283
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8284	RBFormatter
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8285	tabIndent:s_tabIndent;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8286	spaceAroundTemporaries:s_spaceAroundTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8287	emptyLineAfterTemporaries:s_emptyLineAfterTemporaries;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8288	spaceAfterReturnToken:s_spaceAfterReturnToken;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8289	spaceAfterKeywordSelector:s_spaceAfterKeywordSelector;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8290	cStyleBlocks:s_cStyleBlocks;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8291	blockArgumentsOnNewLine:s_blockArgumentsOnNewLine;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8292	maxLengthForSingleLineBlocks:s_maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8293	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8294	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8295
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8296	resetToRBDefault
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8297
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8298	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8299	self tabIndent value: 8.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8300	self spaceAfterReturnToken value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8301	self spaceAfterKeywordSelector value:true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8302	self spaceAroundTemporaries value:true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8303	self emptyLineAfterTemporaries value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8304	self cStyleBlocks value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8305	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8306	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8307	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8308	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8309	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8310
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8311	resetToStxDefault
4398 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	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8314	self tabIndent value: 4.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8315	self spaceAfterReturnToken value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8316	self spaceAfterKeywordSelector value: false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8317	self spaceAroundTemporaries value: false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8318	self emptyLineAfterTemporaries value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8319	self cStyleBlocks value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8320	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8321	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8322	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8323	self reformat.
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	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8327
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8328	autoFormat
4398 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	autoFormat isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8331	autoFormat := currentUserPrefs autoFormatting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8332	autoFormat onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8333	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8334	^ autoFormat.
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8337	blockArgumentsOnNewLine
4398 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	blockArgumentsOnNewLine isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8340	blockArgumentsOnNewLine := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8341	blockArgumentsOnNewLine addDependent:self.
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	^ blockArgumentsOnNewLine.
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8346	cStyleBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8347
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8348	cStyleBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8349	cStyleBlocks := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8350	cStyleBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8351	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8352	^ cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8353	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8354
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8355	editorText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8356
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8357	editorText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8358	editorText := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8359	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8360	^ editorText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8361	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8362
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8363	emptyLineAfterTemporaries
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8364
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8365	emptyLineAfterTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8366	emptyLineAfterTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8367	emptyLineAfterTemporaries addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8368	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8369	^ emptyLineAfterTemporaries.
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8372	maxLengthForSingleLineBlocks
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	maxLengthForSingleLineBlocks isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8375	maxLengthForSingleLineBlocks := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8376	maxLengthForSingleLineBlocks addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8377	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8378	^ maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8379	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8380
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8381	spaceAfterKeywordSelector
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8382
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8383	spaceAfterKeywordSelector isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8384	spaceAfterKeywordSelector := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8385	spaceAfterKeywordSelector addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8386	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8387	^ spaceAfterKeywordSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8388	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8389
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8390	spaceAfterReturnToken
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8391
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8392	spaceAfterReturnToken isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8393	spaceAfterReturnToken := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8394	spaceAfterReturnToken addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8395	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8396	^ spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8397	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8398
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8399	spaceAroundTemporaries
4398 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	spaceAroundTemporaries isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8402	spaceAroundTemporaries := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8403	spaceAroundTemporaries addDependent:self.
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	^ spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8406	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8407
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8408	tabIndent
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8409
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8410	tabIndent isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8411	tabIndent := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8412	tabIndent addDependent:self.
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	^ tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8415	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8416
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8417	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8418
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8419	update:something with:aParameter from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8420	(changedObject == self blockArgumentsOnNewLine or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8421	changedObject == self cStyleBlocks or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8422	changedObject == self emptyLineAfterTemporaries or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8423	changedObject == self maxLengthForSingleLineBlocks or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8424	changedObject == self spaceAfterKeywordSelector or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8425	changedObject == self spaceAfterReturnToken or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8426	changedObject == self spaceAroundTemporaries or:[
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8427	changedObject == self tabIndent]]]]]]]) ifTrue:[
c72e35116b13 instable state penk parents: 5040 diff changeset	8428	self updateModifiedChannel.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8429	self reformat.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	8430	^ self
c72e35116b13 instable state penk parents: 5040 diff changeset	8431	].
c72e35116b13 instable state penk parents: 5040 diff changeset	8432	super
c72e35116b13 instable state penk parents: 5040 diff changeset	8433	update:something
c72e35116b13 instable state penk parents: 5040 diff changeset	8434	with:aParameter
c72e35116b13 instable state penk parents: 5040 diff changeset	8435	from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8436	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8437
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8438	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8439
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8440	initialize
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8441	super initialize.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8442	RBFormatter isNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8443	^ self warn:'Sorry, no RBFormatter class'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8444	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8445	RBFormatter isLoaded ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8446	WindowGroup activeGroup withWaitCursorDo:[RBFormatter autoload]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8447	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8448	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8449	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8450
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8451	postBuildTextEditor:aWidget
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8452
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8453	aWidget cursorMovementWhenUpdating:nil;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8454	scrollWhenUpdating:nil.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8455	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8456
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8457	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8458
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8459	hasUnsavedChanges
4398 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	^ (
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8462	self autoFormat value ~= currentUserPrefs autoFormatting ? false or:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8463	self tabIndent value ~= RBFormatter tabIndent or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8464	self spaceAroundTemporaries value ~= RBFormatter spaceAroundTemporaries or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8465	self emptyLineAfterTemporaries value ~= RBFormatter emptyLineAfterTemporaries or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8466	self spaceAfterReturnToken value ~= RBFormatter spaceAfterReturnToken or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8467	self spaceAfterKeywordSelector value ~= RBFormatter spaceAfterKeywordSelector or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8468	self cStyleBlocks value ~= RBFormatter cStyleBlocks or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8469	self blockArgumentsOnNewLine value ~= RBFormatter blockArgumentsOnNewLine or:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8470	self maxLengthForSingleLineBlocks value ~= RBFormatter maxLengthForSingleLineBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8471	]]]]]]]]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8472	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8473	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8474
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8475	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8476
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8477	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8478	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8479	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8480
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8481	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8482	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8483
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8484	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8485	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8486	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8487	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8488	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8489
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8490	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8491
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8492	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8493	constantNamed:#'AbstractSettingsApplication::SourceCodeManagementSettingsAppl class defaultIcon'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8494	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8495	@@@@@@@@@@@A@PHB@0P@@@@@@@@@@@@@@@@@@@HEA \HA $JB0HD@@@@@@@@@@@@@@HLA04NC0HD@@L@@ P@@@@@@@@@@@@ED@ NDP@@@@@@@@@D@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8496	@@@BA \FAPP@@@@@@@@@@@P@@@@@@@@@AQ@RC0@@@@@@@@@@@@@@@@@@@@@@@@TGA!!DD@@@@@@@@@@@@@@@@@@@D@PDIA08OA@@@@@@@@@@@@@@@@@@@AP S
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8497	A0XIBPXGC0P@@@@@@@@@@@@@@@@ECAPLBPXOAP@@@@@@EQX@@@@@@@@@@@TIE@XOAP@@@@@@EQ\XE @@@@@@@@@@AP$OAP@@@@@@FQ\ZE!! V@@@@@@@@@@@E
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8498	F0@@@@@@EQ\ZF!!(VFAX@@@@@@@@@@@@@@@@ZEQ\VE!!(ZF!!XWF @@@@@@@@@@@@@@@@@@@A\ZE!!(@@@@@@@@@@@@@@@@@@@@@@@@XE!!XZ@@@@@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8499	@@@@@@@@EQ(V@@@@@@@@@@@@@@@@@@@@@@@@EQ\VE @@@@@@@@@@@@@@@@@@@@@@EQ VE @@@@@@@@@@@@@@F @@@@@WEQ VE!!(@@@@@@@@@@@@@@@@@E!!\W
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	8500	EQXVE @@@@@@@@@@@@@@@@@@@@@@@A(Z@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 32 64 0 0 64 0 32 32 0 0 32 0 32 96 32 96 192 128 192 224 192 160 224 160 32 128 64 64 96 64 64 96 32 32 160 64 160 224 192 64 160 96 32 128 32 224 224 224 64 128 64 160 192 160 224 224 192 32 160 96 160 160 160 64 64 64 96 96 96 128 128 128 192 192 192 32 32 32 32 64 32]; 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]
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8501	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8502
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8503	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8504
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8505	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8506	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8507	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8508
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8509	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8510	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8511
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8512	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8513	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8514	AbstractSettingsApplication::SourceCodeManagementSettingsAppl new openInterface:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8515	AbstractSettingsApplication::SourceCodeManagementSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8516	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8517
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8518	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8519
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8520	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8521	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8522	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8523	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8524	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8525	#label: 'Source Code Manager Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8526	#name: 'Source Code Manager Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8527	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8528	#max: #(#Point 1024 768)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8529	#bounds: #(#Rectangle 16 42 677 810)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8530	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8531	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8532	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8533	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8534	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8535	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8536	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8537	#horizontalLayout: #fit
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8538	#verticalLayout: #topSpace
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8539	#horizontalSpace: 3
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8540	#verticalSpace: 20
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8541	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8542	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8543	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8544	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8545	#name: 'VerticalPanel3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8546	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8547	#verticalLayout: #top
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8548	#horizontalSpace: 3
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8549	#verticalSpace: 10
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8550	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8551	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8552	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8553	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8554	#name: 'Box3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8555	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8556	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8557	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8558	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8559	#label: 'Sourcecode Management'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8560	#name: 'SourcecodeManagementCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8561	#layout: #(#LayoutFrame 5 0 5 0.0 300 0 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8562	#enableChannel: #cvsIsSetup
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8563	#model: #useManager
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8564	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8565	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8566	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8567
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8568	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8569	#extent: #(#Point 661 30)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8570	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8571	#(#FramedBoxSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8572	#label: 'Source Code Manager Setup'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8573	#name: 'FramedBox1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8574	#labelPosition: #topLeft
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8575	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8576	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8577	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8578	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8579	#(#ViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8580	#name: 'Box1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8581	#layout: #(#LayoutFrame 0 0 0 0 0 1 32 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8582	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8583	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8584	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8585	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8586	#label: 'CVS BinDirectory:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8587	#name: 'Label1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8588	#layout: #(#LayoutFrame 0 0.0 0 0 40 0.25 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8589	#level: 0
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8590	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8591	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8592	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8593	#(#InputFieldSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8594	#name: 'BinDirectoryField'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8595	#layout: #(#LayoutFrame 44 0.25 0 0 -5 1 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8596	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8597	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8598	#model: #cvsBinDirectoryHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8599	#acceptChannel: #acceptChannel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8600	#acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8601	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8602	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8603
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8604	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8605	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8606	#(#ViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8607	#name: 'Box7'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8608	#layout: #(#LayoutFrame 0 0.0 27 0 0 1 52 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8609	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8610	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8611	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8612	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8613	#label: 'CVSRoot default:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8614	#name: 'defaultCvsRootLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8615	#layout: #(#LayoutFrame 0 0.0 0 0 40 0.25 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8616	#level: 0
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8617	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8618	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8619	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8620	#(#ComboBoxSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8621	#name: 'cvsRootComboBox'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8622	#layout: #(#LayoutFrame 44 0.25 0 0 -5 1 22 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8623	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8624	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8625	#model: #cvsRootHolder
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8626	#immediateAccept: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8627	#acceptOnLeave: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8628	#acceptOnReturn: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8629	#acceptOnTab: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8630	#acceptOnLostFocus: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8631	#acceptChannel: #acceptChannel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8632	#acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8633	#comboList: #cvsRootPrototypeList
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8634	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8635	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8636
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8637	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8638	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8639	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8640	#label: 'CVSRoot per Module:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8641	#name: 'knownModulesLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8642	#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	8643	#translateLabel: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8644	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8645	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8646	#(#SequenceViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8647	#name: 'List1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8648	#layout: #(#LayoutFrame 44 0.25 66 0 -5 1 191 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8649	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8650	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8651	#model: #selectedPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8652	#hasHorizontalScrollBar: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8653	#hasVerticalScrollBar: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8654	#miniScrollerHorizontal: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8655	#useIndex: false
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8656	#sequenceList: #listOfModules
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8657	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8658	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8659	#label: 'Module:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8660	#name: 'moduleLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8661	#layout: #(#LayoutFrame 0 0.0 209 0 40 0.25 226 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8662	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8663	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8664	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8665	#(#InputFieldSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8666	#name: 'perModuleRootModuleEntryField'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8667	#layout: #(#LayoutFrame 44 0.25 205 0 -1 1 227 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8668	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8669	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8670	#model: #perModuleRootModule
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8671	#acceptChannel: #acceptChannel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8672	#acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8673	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8674	#(#LabelSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8675	#label: 'CVSRoot:'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8676	#name: 'cvsRootLabel'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8677	#layout: #(#LayoutFrame 0 0.0 236 0 40 0.25 253 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8678	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8679	#adjust: #right
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8680	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8681	#(#ComboBoxSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8682	#name: 'perModuleRootComboBox'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8683	#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	8684	#enableChannel: #useManager
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8685	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8686	#model: #perModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8687	#immediateAccept: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8688	#acceptOnLeave: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8689	#acceptOnReturn: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8690	#acceptOnTab: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8691	#acceptOnLostFocus: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8692	#acceptChannel: #acceptChannel
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8693	#acceptOnPointerLeave: true
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8694	#comboList: #cvsRootPrototypeList
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8695	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8696	#(#HorizontalPanelViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8697	#name: 'HorizontalPanel2'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8698	#layout: #(#LayoutFrame 44 0.25 258 0 -1 1 289 0)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8699	#horizontalLayout: #fitSpace
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8700	#verticalLayout: #center
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8701	#horizontalSpace: 3
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8702	#verticalSpace: 3
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8703	#component:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8704	#(#SpecCollection
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8705	#collection: #(
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8706	#(#ActionButtonSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8707	#label: 'Add/Apply'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8708	#name: 'Button1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8709	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8710	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8711	#model: #addPerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8712	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8713	#extent: #(#Point 209 22)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8714	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8715	#(#ActionButtonSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8716	#label: 'Remove'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8717	#name: 'removeButton'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8718	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8719	#tabable: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8720	#model: #removePerModuleRoot
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8721	#enableChannel: #removeEnabled
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8722	#extent: #(#Point 209 22)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8723	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8724	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8725
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8726	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8727	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8728	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8729
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8730	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8731	#extent: #(#Point 661 321)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8732	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8733	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8734	#name: 'Box4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8735	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8736	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8737	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8738	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8739	#label: 'Source Cache Dir:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8740	#name: 'SourceCacheDirLabel'
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8741	#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	8742	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8743	#adjust: #right
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8744	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8745	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8746	#name: 'SourceCacheDirEntryField'
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8747	#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	8748	#enableChannel: #useManager
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8749	#model: #sourceCacheDir
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8750	#immediateAccept: false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8751	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8752	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8753	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	8754	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8755	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8756	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8757
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8758	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8759	#extent: #(#Point 661 30)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8760	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8761	#(#HorizontalPanelViewSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8762	#name: 'HorizontalPanel1'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8763	#horizontalLayout: #fitSpace
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8764	#verticalLayout: #center
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8765	#horizontalSpace: 30
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8766	#verticalSpace: 3
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8767	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8768	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8769	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8770	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8771	#label: 'Flush Cache now'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8772	#name: 'FlushCacheNowButton'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8773	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8774	#model: #flushSourceCache
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8775	#enableChannel: #useManager
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8776	#extent: #(#Point 285 22)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8777	)
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8778	#(#ActionButtonSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8779	#label: 'Condense Cache now'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8780	#name: 'CondenseCacheNowButton'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8781	#translateLabel: true
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8782	#model: #condenseSourceCache
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8783	#enableChannel: #useManager
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8784	#extent: #(#Point 286 22)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8785	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8786	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8787
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8788	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8789	#extent: #(#Point 661 40)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8790	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8791	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8792	#name: 'Box5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8793	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8794	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8795	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8796	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8797	#label: 'If Present, Use Local Source (Suppress Checkout)'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8798	#name: 'CheckBox4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8799	#layout: #(#LayoutFrame 30 0 5 0 -5 1 27 0)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8800	#enableChannel: #useManager
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8801	#model: #localSourceFirst
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8802	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8803	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8804	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8805
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8806	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8807	#extent: #(#Point 661 25)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8808	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8809	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8810	#name: 'Box6'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8811	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8812	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8813	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8814	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8815	#label: 'Check for halt/error-Sends when Checking in'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8816	#name: 'CheckBox5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8817	#layout: #(#LayoutFrame 30 0 5 0 -5 1 27 0)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8818	#enableChannel: #useManager
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8819	#model: #checkClassesWhenCheckingIn
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8820	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8821	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8822	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8823
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8824	)
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8825	#extent: #(#Point 661 25)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8826	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8827	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8828
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8829	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8830	#extent: #(#Point 661 768)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8831	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8832	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8833
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8834	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8835	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8836	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8837
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8838	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8839	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8840	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8841
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8842	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'accessing'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8843
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8844	manager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8845
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8846	^ Smalltalk at:#SourceCodeManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8847	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8848
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8849	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8850
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8851	addPerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8852
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8853	\|module cvsRoot\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8854
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8855	acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8856	module := self perModuleRootModule value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8857	cvsRoot := self perModuleRoot value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8858	(listOfModules includes:module) ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8859	listOfModules add:module.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8860	listOfModules sort.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8861	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8862	cvsRoot size > 0 ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8863	rootsPerModule at:module put:cvsRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8864	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8865	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8866
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8867	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8868
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8869	(self hasManager and:[self useManager value]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8870	manager isNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8871	Smalltalk at:#SourceCodeManager put:(AbstractSourceCodeManager defaultManager).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8872	manager := Smalltalk at:#SourceCodeManager.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8873	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8874	Class tryLocalSourceFirst:self localSourceFirst value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8875
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8876	manager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8877	\| nm fn\|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8878	nm := self sourceCacheDir value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8879	nm size > 0 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8880	(fn := nm asFilename) exists ifFalse:[
4874 688a33043459 Fix pidgin spelling: 'does not exists' and 'not exists' Stefan Vogel <sv@exept.de> parents: 4873 diff changeset	8881	(self confirm:('CVS cache directory ''' , nm , ''' does not exist\create ?' withCRs)) ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8882	fn makeDirectory;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8883	makeReadableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8884	makeWritableForAll;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8885	makeExecutableForAll.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8886	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8887	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8888	(fn exists
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8889	and:[fn isDirectory
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8890	and:[fn isReadable
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8891	and:[fn isWritable]]]) ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8892	AbstractSourceCodeManager cacheDirectoryName:(self sourceCacheDir value).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8893	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8894	self warn:'Invalid sourceCache directory.'
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8895	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8896	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8897	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8898
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8899	repositoryHolder notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8900	repositoryHolder value size > 0 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8901	manager notNil ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8902	manager initializeForRepository:repositoryHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8903	]
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8904	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8905	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8906	self cvsBinDirectoryHolder value size > 0 ifTrue:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8907	CVSSourceCodeManager cvsBinDirectory:self cvsBinDirectoryHolder value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8908	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8909	CVSSourceCodeManager initializeForRepository:self cvsRootHolder value.
4760 206a67dba8a8 repository changes after initialize will now reloaded penk parents: 4737 diff changeset	8910	self cvsBinDirectoryHolder value:CVSSourceCodeManager cvsBinDirectory.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8911	CVSSourceCodeManager repositoryNamesPerModule:rootsPerModule.
4650 c358bcfef403 source code management have no unsaved changes after enable anymore penk parents: 4635 diff changeset	8912	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8913	DebugView newDebugger.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8914	] ifFalse:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8915	Smalltalk at:#SourceCodeManager put:nil
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8916	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8917
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8918	UserPreferences current at:#checkClassesWhenCheckingIn put:self checkClassesWhenCheckingIn value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8919	self acceptChannel value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8920	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8921
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8922	condenseSourceCache
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8923
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8924	self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ]
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8925	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8926
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8927	flushSourceCache
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8928
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8929	self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ]
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8930	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8931
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8932	help
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8933
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8934	"/ self warn:'no help available here'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8935	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/cvsSetup.html'].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8936	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8937
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8938	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8939	self hasManager ifTrue:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	8940	self useManager value:(manager := Smalltalk at:#SourceCodeManager) notNil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8941	self localSourceFirst value:Class tryLocalSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8942	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8943	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8944	manager forgetDisabledModules.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8945	repository := manager repositoryName.
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	8946	repositoryHolder := (repository ? '') asValue
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8947	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8948	self cvsIsSetup value:true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8949	] ifFalse:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8950	self useManager value:false.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8951	self localSourceFirst value:false.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8952	self cvsIsSetup value:false
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8953	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8954	self checkClassesWhenCheckingIn
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8955	value:(currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8956	self cvsRootHolder
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	8957	value:CVSSourceCodeManager repositoryName ? '/cvs/stx'.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8958	self cvsBinDirectoryHolder value:CVSSourceCodeManager cvsBinDirectory.
4812 f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	8959	rootsPerModule notNil ifTrue:[
f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	8960	listOfModules := rootsPerModule keys asList.
f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	8961	].
4779 98f77618ef6f root per module reading fixed penk parents: 4767 diff changeset	8962	self selectedPerModuleRootChanged.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8963	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8964	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8965
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8966	removePerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8967
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8968	\|module\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8969
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8970	acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8971	module := self perModuleRootModule value.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8972	listOfModules remove:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8973	rootsPerModule removeKey:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8974	self perModuleRootModule value:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	8975	self perModuleRoot value:nil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8976	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8977
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8978	setupSourceCodeManager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8979
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8980	AbstractLauncherApplication::LauncherDialogs cvsConfigurationDialog.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8981	manager := (Smalltalk at:#SourceCodeManager).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8982	cvsIsSetup value:manager notNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8983	manager notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8984	repositoryHolder value: manager repositoryName.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8985	sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8986	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8987	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8988
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	8989	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8990
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8991	acceptChannel
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8992
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8993	acceptChannel isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8994	acceptChannel := TriggerValue new.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8995	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8996	^ acceptChannel.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8997	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8998
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8999	checkClassesWhenCheckingIn
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9000
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9001	checkClassesWhenCheckingIn isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9002	checkClassesWhenCheckingIn := (currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9003	checkClassesWhenCheckingIn onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9004	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9005	^ checkClassesWhenCheckingIn.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9006	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9007
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9008	cvsBinDirectoryHolder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9009	cvsBinDirectoryHolder isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9010	cvsBinDirectoryHolder := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9011	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9012	^ cvsBinDirectoryHolder.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9013	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9014
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9015	cvsIsSetup
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9016	cvsIsSetup isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9017	cvsIsSetup := true asValue.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9018	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9019	^ cvsIsSetup.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9020	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9021
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9022	cvsRootHolder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9023
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9024	cvsRootHolder isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9025	cvsRootHolder := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9026	cvsRootHolder onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9027	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9028	^ cvsRootHolder.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9029	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9030
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9031	cvsRootPrototypeList
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9032
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9033	cvsRootPrototypeList isNil ifTrue:[
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9034	OperatingSystem getDomainName = 'exept' ifFalse:[
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9035	cvsRootPrototypeList := #(
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9036	'host:/cvs/stx'
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9037	':pserver:user@host:/cvs/stx'
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9038	).
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9039	cvsRootPrototypeList := cvsRootPrototypeList copyWith:(':pserver:' , OperatingSystem getLoginName , '@host:/cvs/stx')
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9040	] ifTrue:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9041	cvsRootPrototypeList := #(
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9042	'/cvs/stx'
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9043	'exept:/cvs/stx'
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9044	).
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9045	cvsRootPrototypeList := cvsRootPrototypeList copyWith:(':pserver:' , OperatingSystem getLoginName , '@exept:/cvs/stx')
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9046	].
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9047
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9048	OperatingSystem isUNIXlike ifTrue:[
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9049	cvsRootPrototypeList := cvsRootPrototypeList , #(
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9050	'/cvs/stx'
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9051	).
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9052	] ifFalse:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9053	OperatingSystem isMSDOSlike ifTrue:[
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9054	cvsRootPrototypeList := cvsRootPrototypeList , #(
389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9055	':local:c:\cvs\stx'
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9056	).
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9057	] ifFalse:[
4767 389c0248d6bd new cvs defaults Claus Gittinger <cg@exept.de> parents: 4760 diff changeset	9058	"there might be more here in the future"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9059	]
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9060	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9061	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9062	^ cvsRootPrototypeList.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9063	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9064
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9065	listOfModules
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9066
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9067	listOfModules isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9068	listOfModules := rootsPerModule keys asList.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9069	listOfModules sort.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9070	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9071	^ listOfModules.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9072	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9073
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9074	localSourceFirst
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9075
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9076	localSourceFirst isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9077	localSourceFirst := ValueHolder new.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9078	localSourceFirst onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9079	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9080	^ localSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9081	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9082
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9083	perModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9084	"automatically generated by UIPainter ..."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9085
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9086	"*** the code below creates a default model when invoked."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9087	"*** (which may not be the one you wanted)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9088	"*** Please change as required and accept it in the browser."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9089	"*** (and replace this comment by something more useful ;-)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9090
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9091	perModuleRoot isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9092	perModuleRoot := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9093	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9094	"/ perModuleRoot addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9095	"/ perModuleRoot onChangeSend:#perModuleRootChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9096	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9097	^ perModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9098	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9099
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9100	perModuleRootModule
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9101	"automatically generated by UIPainter ..."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9102
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9103	"*** the code below creates a default model when invoked."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9104	"*** (which may not be the one you wanted)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9105	"*** Please change as required and accept it in the browser."
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9106	"*** (and replace this comment by something more useful ;-)"
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9107
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9108	perModuleRootModule isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9109	perModuleRootModule := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9110	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9111	"/ perModuleRootModule addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9112	"/ perModuleRootModule onChangeSend:#perModuleRootModuleChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9113	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9114	^ perModuleRootModule.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9115	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9116
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9117	removeEnabled
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9118
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9119	removeEnabled isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9120	removeEnabled := false asValue.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9121	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9122	^ removeEnabled.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9123	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9124
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9125	selectedPerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9126
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9127	selectedPerModuleRoot isNil ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9128	selectedPerModuleRoot := ValueHolder new.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9129	"/ if your app needs to be notified of changes, uncomment one of the lines below:
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9130	selectedPerModuleRoot addDependent:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9131	"/ selectedPerModuleRoot onChangeSend:#selectedPerModuleRootChanged to:self.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9132	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9133	^ selectedPerModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9134	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9135
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9136	sourceCacheDir
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9137	^ sourceCacheDir.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9138	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9139
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9140	useManager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9141	^ useManager.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9142	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9143
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9144	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9145
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9146	selectedPerModuleRootChanged
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9147
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9148	\|module cvsRoot\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9149
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9150	self acceptChannel value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9151	module := self selectedPerModuleRoot value.
4812 f4d7501fd235 checkin from browser penk parents: 4805 diff changeset	9152	module isNil ifTrue:[ ^ self].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9153	self removeEnabled value:true.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9154	cvsRoot := rootsPerModule at:module ifAbsent:''.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9155	self perModuleRootModule value:module.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9156	self perModuleRoot value:cvsRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9157	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9158
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9159	sourceDirChanged
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9160	\| nm fn\|
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9161
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9162	manager isNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9163
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9164	nm := self sourceCacheDir value.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9165	nm isEmptyOrNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9166
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9167	(fn := nm asFilename) exists ifFalse:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9168	(self confirm:('SourceCache directory ''' , nm , ''' does not exist.\Create ?' withCRs)) ifTrue:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9169	fn makeDirectory;
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9170	makeReadableForAll;
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9171	makeWritableForAll;
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9172	makeExecutableForAll.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9173	] ifFalse:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9174	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9175	^ self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9176	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9177	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9178	(fn exists
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9179	and:[fn isDirectory
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9180	and:[fn isReadable
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9181	and:[fn isWritable]]]) ifTrue:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9182	AbstractSourceCodeManager cacheDirectoryName:nm.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9183	] ifFalse:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9184	self warn:'Invalid sourceCache directory.'.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9185	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9186	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9187	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9188
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9189	update:something with:aParameter from:changedObject
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9190	changedObject == sourceCacheDir ifTrue:[
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9191	self sourceDirChanged.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9192	self updateModifiedChannel.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9193	^ self
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9194	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9195	changedObject == self selectedPerModuleRoot ifTrue:[
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9196	self selectedPerModuleRootChanged.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	9197	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9198	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9199	super
c72e35116b13 instable state penk parents: 5040 diff changeset	9200	update:something
c72e35116b13 instable state penk parents: 5040 diff changeset	9201	with:aParameter
c72e35116b13 instable state penk parents: 5040 diff changeset	9202	from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9203	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9204
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9205	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9206
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9207	initialize
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9208	(AbstractSourceCodeManager notNil) ifTrue:[AbstractSourceCodeManager autoload].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9209
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9210	useManager := false asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9211	useManager onChangeSend:#updateModifiedChannel to:self.
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9212
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9213	sourceCacheDir := nil asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9214	sourceCacheDir addDependent:self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9215
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9216	repositoryHolder := '' asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9217	rootsPerModule := Dictionary new.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9218
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9219	SourceCodeManager == CVSSourceCodeManager ifTrue:[
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9220	rootsPerModule declareAllFrom:(SourceCodeManager repositoryNamesPerModule).
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9221	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9222
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9223	super initialize.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9224	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9225
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9226	postOpen
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9227	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9228
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9229	postOpenAsSubcanvasWith:aBuilder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9230
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9231	self postOpen.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9232	^ super postOpenAsSubcanvasWith:aBuilder
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9233	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9234
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9235	postOpenWith:aBuilder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9236
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9237	self postOpen.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9238	^ super postOpenWith:aBuilder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9239	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9240
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9241	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9242
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9243	hasManager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9244	^ AbstractSourceCodeManager notNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9245	and:[AbstractSourceCodeManager isLoaded]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9246	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9247
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9248	hasUnsavedChanges
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9249	(self useManager value ~= ((Smalltalk at:#SourceCodeManager) notNil))
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9250	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9251
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9252	((self hasManager and:[self useManager value])
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9253	and:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9254	Class tryLocalSourceFirst ~= self localSourceFirst value or:[
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9255	AbstractSourceCodeManager cacheDirectoryName ~= self sourceCacheDir value]
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9256	])
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9257	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9258
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9259	((UserPreferences current at:#checkClassesWhenCheckingIn ifAbsent:true) ~= self checkClassesWhenCheckingIn value)
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9260	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9261
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9262	(CVSSourceCodeManager cvsBinDirectory ~= self cvsBinDirectoryHolder value)
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9263	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9264
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9265	(CVSSourceCodeManager repositoryName ? '/files/CVS' ~= self cvsRootHolder value)
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9266	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9267
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9268	((Dictionary new declareAllFrom:(CVSSourceCodeManager repositoryNamesPerModule)) ~= rootsPerModule)
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9269	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9270
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9271	(self sourceCacheDir value ~= AbstractSourceCodeManager cacheDirectoryName)
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9272	ifTrue:[^ true].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9273
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	9274	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9275	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9276
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9277	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9278
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9279	standardStyles
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9280
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9281	^ #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9282	'decWindows'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9283	'iris'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9284	'motif'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9285	'mswindows95'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9286	'next'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9287	'normal'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9288	'os2'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9289	'st80'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9290	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9291	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9292
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9293	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9294
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9295	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9296	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9297	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9298
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9299	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9300	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9301
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9302	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9303	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9304	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9305	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9306	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9307
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9308	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9309
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9310	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9311	constantNamed:#'AbstractSettingsApplication::StyleSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9312	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9313	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DB@0D@@@@@@@@@@@@@@@@@@@@@@@DB@0LD@P@@@@@@@@@@@@@@@@@@@@DB@0LDA@DA@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9314	@@@@@@TB@ HDA@XF@PD@@@@@@@@@@@@@@@TB@ HB@ \FA H@P@@@@@@@@@@@@TB@ HB@ HBB@XIB@ A@@@@@@@@@@TB@ HB@ HB@ (KB@ KB0DC@@@@@@TB
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9315	@ HB@ HB@ HB@ ,KB0LC@P@@@@@@APHB@ HB@ HBB (JB0LC@0HL@@4MCP4MCP4MCP4MCP4MCP4AC HE@@@MCPHCC0<PDQHRD1PB@0LM@ DE@@@@CP4B@0<O
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9316	DADRD!!LT@ LCCPHE@@@@@@4M@08UEQTVE!!XWE0LNC 4E@@@@@@@EAPHB@ HB@ HB@ HJB (E@@@@@@@@APTB@ HB@ HB@ HBB (JAP@@@@@@@@TE@ HB@ HB
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9317	@ HBB (JB T@@@@@@@@EAPHB@ HB@ HB@ (JB (E@@@@@@@@APTB@ HB@ HB@ HJB (JAP@@@@@@@@TE@ HB@ HB@ HBB (JB T@@@@@@@@EAPHB@ HB@ HB
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9318	B (JB (E@@@@@@@@APTEAPTEAPTEAPTEAPTEAP@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 32 96 80 240 240 240 192 192 192 64 144 128 80 80 80 48 112 112 48 128 128 32 96 96 48 128 112 224 224 224 32 80 80 64 96 96 0 80 128 128 128 128 16 144 192 16 128 176 16 128 160 0 112 160 0 112 144 0 96 144 16 112 144 0 96 128 0 80 112]; 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]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9319	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9320
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9321	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9322
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9323	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9324	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9325	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9326
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9327	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9328	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9329
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9330	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9331	UIPainter new openOnClass:AbstractSettingsApplication::StyleSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9332	AbstractSettingsApplication::StyleSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9333	AbstractSettingsApplication::StyleSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9334	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9335
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9336	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9337
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9338	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9339	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9340	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9341	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9342	#(#WindowSpec
4495 051b2b75fb78 * empty log message * Claus Gittinger <cg@exept.de> parents: 4464 diff changeset	9343	#label: 'ViewStyle Selection'
051b2b75fb78 * empty log message * Claus Gittinger <cg@exept.de> parents: 4464 diff changeset	9344	#name: 'ViewStyle Selection'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9345	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9346	#max: #(#Point 1024 768)
4656 7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9347	#bounds: #(#Rectangle 16 42 491 573)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9348	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9349	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9350	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9351	#collection: #(
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9352	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9353	#label: 'Label'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9354	#name: 'Label1'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9355	#layout: #(#LayoutFrame 0 0.0 -44 1 0 1.0 0 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9356	#style: #(#FontDescription #helvetica #bold #roman 12)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9357	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9358	#labelChannel: #infoLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9359	#resizeForLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9360	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9361	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9362	#(#LabelSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9363	#label: 'NoticeText'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9364	#name: 'Text'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9365	#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 160 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9366	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9367	#labelChannel: #noticeLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9368	#resizeForLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9369	#adjust: #left
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9370	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9371	#(#CheckBoxSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9372	#label: 'standard styles only'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9373	#name: 'CheckBox1'
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9374	#layout: #(#LayoutFrame 0 0.0 160 0 0 1.0 182 0)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9375	#model: #showStandardStylesOnly
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9376	#translateLabel: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9377	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9378	#(#SequenceViewSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9379	#name: 'StyleList'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9380	#layout: #(#LayoutFrame 0 0.0 182 0 0 1.0 -44 1)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9381	#model: #selectedStyle
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9382	#hasHorizontalScrollBar: true
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9383	#hasVerticalScrollBar: true
4656 7a5e584313df add double click action for selection of view style penk parents: 4650 diff changeset	9384	#doubleClickSelector: #doubleClickAt:
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9385	#useIndex: false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9386	#sequenceList: #styleList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9387	)
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	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9391	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9392	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9393
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9394	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9395
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9396	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9397
4718 05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9398	\| newStyle transcript\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9399
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9400	newStyle := self selectedStyle value.
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	9401
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9402	self withWaitCursorDo:[
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9403	Transcript showCR:'change style to ' , newStyle , ' ...'.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9404	View defaultStyle:newStyle asSymbol.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9405	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9406	DebugView newDebugger.
4718 05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9407	transcript := Transcript current.
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9408	transcript notNil ifTrue:[
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9409	\| app\|
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9410	app := transcript topView application.
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9411	(app respondsTo:#reopenLauncher) ifTrue:[
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9412	app reopenLauncher.
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9413	].
05f2668bebad requestor is the Launcher penk parents: 4705 diff changeset	9414	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9415	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9416
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9417	doubleClickAt:aLine
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9418
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9419	self saveSettings.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9420	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9421
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9422	help
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9423
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9424	self warn:'no help available here'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9425	"/ self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/keyboardSetting.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9426	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9427
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9428	readSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9429	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9430	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9431
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9432	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9433
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9434	infoLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9435
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9436	infoLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9437	infoLabelHolder := '' asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9438	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9439	^ infoLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9440	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9441
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9442	noticeLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9443
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9444	noticeLabelHolder isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9445	noticeLabelHolder := '' asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9446	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9447	^ noticeLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9448	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9449
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9450	selectedStyle
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9451
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9452	selectedStyle isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9453	selectedStyle := ValueHolder new.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9454	selectedStyle addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9455	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9456	^ selectedStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9457	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9458
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9459	showStandardStylesOnly
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9460
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9461	showStandardStylesOnly isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9462	showStandardStylesOnly := true asValue.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9463	showStandardStylesOnly addDependent:self.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9464	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9465	^ showStandardStylesOnly.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9466	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9467
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9468	styleList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9469
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9470	styleList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9471	styleList := List new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9472	styleList addDependent:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9473	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	9474	^ styleList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9475	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9476
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9477	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9478
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9479	changeInfoLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9480
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9481	\|nm sheet comment\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9482
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9483	comment := ''.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9484	nm := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9485	nm notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9486	sheet := ViewStyle fromFile:(nm , '.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9487	comment := (sheet at:#comment ifAbsent:'') withoutSeparators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9488	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9489	comment := comment withCRs asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9490	comment size == 1 ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9491	comment := comment first
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9492	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9493	self infoLabelHolder value:comment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9494	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9495
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9496	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9497	changedObject == self showStandardStylesOnly ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9498	self updateList.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9499	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9500	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9501	changedObject == self selectedStyle ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9502	self changeInfoLabel.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9503	self updateModifiedChannel.
c72e35116b13 instable state penk parents: 5040 diff changeset	9504	^ self
c72e35116b13 instable state penk parents: 5040 diff changeset	9505	].
c72e35116b13 instable state penk parents: 5040 diff changeset	9506	super
c72e35116b13 instable state penk parents: 5040 diff changeset	9507	update:something
c72e35116b13 instable state penk parents: 5040 diff changeset	9508	with:aParameter
c72e35116b13 instable state penk parents: 5040 diff changeset	9509	from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9510	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9511
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9512	updateList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9513
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9514	\|listOfStyles lastSelection\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9515
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9516	lastSelection := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9517	listOfStyles := styleDirectoryContents select:[:aFileName \| aFileName asFilename hasSuffix:'style'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9518	listOfStyles := listOfStyles collect:[:aFileName \| aFileName asFilename withoutSuffix name].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9519	Filename isCaseSensitive ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9520	listOfStyles := listOfStyles collect:[:aStyleName \| aStyleName asLowercase].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9521	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9522	listOfStyles remove:'generic' ifAbsent:nil; remove:'mswindows3' ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9523	self showStandardStylesOnly value ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9524	listOfStyles := listOfStyles select:[:aStyleName \| self class standardStyles includes:aStyleName].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9525	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9526
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9527	listOfStyles sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9528	self styleList contents:listOfStyles.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9529	self selectedStyle value:lastSelection.
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	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9533
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9534	closeDownViews
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9535	"This is a hook method generated by the Browser.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9536	It will be invoked when your app/dialog-window is really closed.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9537	See also #closeDownViews, which is invoked before and may suppress the close
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9538	or ask the user for confirmation."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9539
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9540	"/ change the code below as required ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9541	"/ This should cleanup any leftover resources
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9542	"/ (for example, temporary files)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9543	"/ super closeRequest will initiate the closeDown
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9544
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9545	"/ add your code here
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9546
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9547	"/ do not remove the one below ...
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9548	^ super closeDownViews
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9549	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9550
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9551	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9552
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9553	\|someRsrcFile resourceDir\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9554
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9555	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9556
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9557	someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9558	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9559	someRsrcFile := Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9560	someRsrcFile isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9561	someRsrcFile := Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9562	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9563	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9564	someRsrcFile notNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9565	resourceDir := someRsrcFile asFilename directoryName
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9566	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9567	resourceDir := Smalltalk getSystemFileName:'resources'.
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9568	resourceDir isNil ifTrue:[
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9569	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	9570	^ self
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9571	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9572	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9573
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9574	[
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9575	styleDirectoryContents := resourceDir asFilename directoryContents.
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9576	] on:FileStream openErrorSignal do:[:ex\|
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9577	self warn:'no styles found (unaccessable ''resources'' directory)'.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9578	^ self
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9579	].
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	9580
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9581	self updateList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9582	(self class standardStyles includes:View defaultStyle) ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9583	self showStandardStylesOnly value:false
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9584	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9585	self selectedStyle value:(View defaultStyle).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9586	self noticeLabelHolder value:(resources at:'STYLE_MSG' default:'Select a Style') withCRs.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9587	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9588
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9589	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9590
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9591	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9592
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9593	^ (self selectedStyle value ~= View defaultStyle)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9594	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9595
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9596	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9597
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9598	emphasisList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9599
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9600	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9601	#normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9602	#underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9603	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9604	#underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9605	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9606	#bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9607	#boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9608	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9609	#boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9610	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9611	#italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9612	#italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9613	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9614	#italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9615	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9616	#reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9617	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9618	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9619
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9620	exampleText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9621
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9622	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9623	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9624	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9625
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9626	\|methodVar\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9627
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9628	"/ another comment ...
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9629	self at:methodArg. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9630	self fooBarBaz:methodVar. "/ a bad message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9631	methodVar := Array new:1.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9632	unknonVar := 1. "/ a bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9633	UnknonVar := 1. "/ another bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9634	"self bar:methodVar. detect commented code easily"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9635	1 to:5 do:[:i \| self at:i + 1].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9636	Transcript showCR:''some string'' , #someSymbol.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9637	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9638	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9639	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9640
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9641	fontList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9642
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9643	^ #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9644	normal
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9645	underline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9646	#'red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9647	underwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9648	#'red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9649	bold
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9650	boldUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9651	#'bold+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9652	boldUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9653	#'bold+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9654	italic
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9655	italicUnderline
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9656	#'italic+red underline'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9657	italicUnderwave
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9658	#'italic+red underwave'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9659	reverse
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9660	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9661	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9662
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9663	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9664
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9665	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9666	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9667	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9668
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9669	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9670	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9671
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9672	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9673	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9674	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9675	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9676	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9677
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9678	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9679
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9680	^Icon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9681	constantNamed:#'AbstractSettingsApplication::SyntaxColorSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9682	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9683	DQDQDQDQDQDQDQDTQDQDQDQDQDQDPQQ@QDADQBP$QDP!!E@QDQ@QDIBQDP$DTADQDADQDQDQBPQPDQDPDQDQDQBQAE@QDQ@QDQDQDIDDTADQDADQDQDIDPQPD
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9684	QDPDQDQDP$QAEDADPDQDQDP$QDDTQDQDQDQDQDQDPQQDADQDQDQDQDQAEDADQDQDQDQDQDDTPDQ@QDADQDQDPQP@A@PDA@Q@QDQAEDADA@PDADQDQDDTPDPD
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	9685	A@PDQDQDPQQ@QDADPDQ@QDQAEDQDQDQDQDQDQDDTMCP4MCP4QDQDPQQCP4MCP4MDQDQADQDQDQDQDQDQDQDb') ; colorMapFromArray:#[0 0 0 88 88 88 0 0 255 255 0 0 255 255 255]; mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<') ; yourself); yourself]
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9686	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9687
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9688	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9689
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9690	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9691	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9692	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9693
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9694	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9695	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9696
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9697	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9698	UIPainter new openOnClass:AbstractSettingsApplication::SyntaxColorSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9699	AbstractSettingsApplication::SyntaxColorSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9700	AbstractSettingsApplication::SyntaxColorSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9701	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9702
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9703	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9704
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9705	^
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9706	#(#FullSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9707	#name: #windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9708	#window:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9709	#(#WindowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9710	#label: 'Syntax Color Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9711	#name: 'Syntax Color Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9712	#min: #(#Point 10 10)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9713	#max: #(#Point 1024 768)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9714	#bounds: #(#Rectangle 16 42 711 651)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9715	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9716	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9717	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9718	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9719	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9720	#name: 'VerticalPanel2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9721	#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	9722	#horizontalLayout: #fit
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9723	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9724	#horizontalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9725	#verticalSpace: 3
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9726	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9727	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9728	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9729	#(#VerticalPanelViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9730	#name: 'VerticalPanel1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9731	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9732	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9733	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9734	#verticalSpace: 8
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9735	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9736	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9737	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9738	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9739	#label: 'Syntax Coloring'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9740	#name: 'CheckBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9741	#model: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9742	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9743	#extent: #(#Point 685 22)
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	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9746	#label: 'Immediate Selector Check'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9747	#name: 'ImmediateSelectorCheckBox'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9748	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9749	#model: #fullSelectorCheck
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9750	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9751	#extent: #(#Point 685 22)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9752	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9753	#(#TextEditorSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9754	#name: 'TextEditor2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9755	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9756	#model: #coloredText
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9757	#hasHorizontalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9758	#hasVerticalScrollBar: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9759	#isReadOnly: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9760	#extent: #(#Point 685 280)
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	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9763	#name: 'Box11'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9764	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9765	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9766	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9767	#(#ComboListSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9768	#name: 'ComboList3'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9769	#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9770	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9771	#model: #syntaxElementSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9772	#comboList: #syntaxElementList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9773	#useIndex: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9774	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9775	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9776
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9777	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9778	#extent: #(#Point 685 35)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9779	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9780	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9781	#name: 'Box12'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9782	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9783	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9784	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9785	#(#ComboListSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9786	#name: 'ComboList5'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9787	#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9788	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9789	#model: #syntaxEmphasisSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9790	#comboList: #syntaxEmphasisList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9791	#useIndex: false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9792	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9793	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9794	#label: 'Emphasis:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9795	#name: 'Label1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9796	#layout: #(#LayoutFrame 0 0 0 0 205 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9797	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9798	#adjust: #left
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9799	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9800	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9801
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9802	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9803	#extent: #(#Point 685 44)
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	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9806	#name: 'Box1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9807	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9808	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9809	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9810	#(#ColorMenuSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9811	#name: 'ColorMenu2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9812	#layout: #(#LayoutFrame 0 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9813	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9814	#model: #syntaxColor
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9815	#labelsAreColored: true
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	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9818	#label: 'Text Color:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9819	#name: 'Label2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9820	#layout: #(#LayoutFrame 0 0 0 0 205 0 22 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9821	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9822	#adjust: #left
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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9825
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9826	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9827	#extent: #(#Point 685 44)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9828	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9829	#(#ViewSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9830	#name: 'Box10'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9831	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9832	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9833	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9834	#(#ActionButtonSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9835	#label: 'Reset To:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9836	#name: 'Button2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9837	#layout: #(#LayoutFrame 0 0 -22 1 150 0 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9838	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9839	#model: #resetToColorScheme
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9840	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9841	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9842	#(#ComboListSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9843	#name: 'ComboList4'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9844	#layout: #(#LayoutFrame 150 0 -22 1 0 1 0 1)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9845	#enableChannel: #syntaxColoring
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9846	#model: #resetListSelection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9847	#comboList: #resetList
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9848	#useIndex: false
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	)
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	#extent: #(#Point 685 35)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9854	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9855	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9856
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9857	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9858	#extent: #(#Point 695 609)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9859	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9860	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9861
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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9864	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9865
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9866	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9867	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9868	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9869
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9870	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9871
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9872	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9873
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9874	oldUserPreferences := currentUserPrefs copy.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9875	currentUserPrefs syntaxColoring:self syntaxColoring value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9876	currentUserPrefs at:#fullSelectorCheck put:self fullSelectorCheck value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9877	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9878
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9879	formattingConfiguration
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9880	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9881
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9882	"*** the code below performs no action"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9883	"*** (except for some feedback on the Transcript)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9884	"*** Please change as required and accept in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9885
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9886	"action to be added ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9887
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9888	Transcript showCR:self class name, ': action for formattingConfiguration ...'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9889	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9890
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9891	help
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9892
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9893	"/ self warn:'no help available here'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9894	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/sourceSettings.html'].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9895	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9896
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9897	readSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9898	\|colorList resetListLoc\|
4398 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	oldUserPreferences notNil ifTrue:[
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9901	(UserPreferences
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9902	reset;
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9903	current) declareAllFrom:oldUserPreferences
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9904	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9905	self syntaxColoring value:currentUserPrefs syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9906	self fullSelectorCheck value:currentUserPrefs fullSelectorCheck.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9907	oldUserPreferences := currentUserPrefs copy.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9908	colorList := UserPreferences syntaxColorNames.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9909	resetListLoc := currentUserPrefs listOfPredefinedSyntaxColoringSchemes
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9910	collect:[:entry \| entry second].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9911	self resetList value:resetListLoc.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9912	self resetListSelection value:resetListLoc first.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9913	self syntaxEmphasisList value:self class emphasisList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9914	self syntaxElementList value:colorList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9915	self syntaxElementSelection value:(colorList at:1).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9916	self modifiedChannel value:false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9917	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9918
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9919	recolor
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9920
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9921	\|text\|
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	self syntaxColoring value ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9924	text := SyntaxHighlighter formatMethod:self class exampleText in:nil.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9925	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9926	text := self class exampleText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9927	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9928	self coloredText value:text
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9929	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9930
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9931	resetToColorScheme
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9932	\|resetSelector\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9933
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9934	resetSelector := resetListDictionary
c72e35116b13 instable state penk parents: 5040 diff changeset	9935	keyAtValue:(self resetListSelection value).
c72e35116b13 instable state penk parents: 5040 diff changeset	9936	currentUserPrefs perform:resetSelector.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9937	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9938	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9939	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9940
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9941	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9942
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9943	coloredText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9944
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9945	coloredText isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9946	coloredText := ValueHolder new.
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	^ coloredText.
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9951	fullSelectorCheck
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9952
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9953	fullSelectorCheck isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9954	fullSelectorCheck := currentUserPrefs fullSelectorCheck asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9955	fullSelectorCheck onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9956	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9957	^ fullSelectorCheck.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9958	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9959
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9960	resetList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9961
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9962	resetList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9963	resetList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9964	"/ 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	9965	"/ resetList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9966	"/ resetList onChangeSend:#resetListChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9967	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9968	^ resetList.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9969	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9970
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9971	resetListSelection
4398 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	resetListSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9974	resetListSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9975	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9976	^ resetListSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9977	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9978
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9979	syntaxColor
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9980
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9981	syntaxColor isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9982	syntaxColor := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9983	syntaxColor addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9984	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9985	^ syntaxColor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9986	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9987
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9988	syntaxColoring
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9989
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9990	syntaxColoring isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9991	syntaxColoring := true asValue.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9992	syntaxColoring addDependent:self.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	9993	syntaxColoring onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9994	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9995	^ syntaxColoring.
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9998	syntaxElementList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9999	"automatically generated by UIPainter ..."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10000
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10001	"*** the code below creates a default model when invoked."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10002	"*** (which may not be the one you wanted)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10003	"*** Please change as required and accept it in the browser."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10004	"*** (and replace this comment by something more useful ;-)"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10005
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10006	syntaxElementList isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10007	syntaxElementList := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10008	"/ 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	10009	"/ syntaxElementList addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10010	"/ syntaxElementList onChangeSend:#syntaxElementListChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10011	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10012	^ syntaxElementList.
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10015	syntaxElementSelection
4398 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	syntaxElementSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10018	syntaxElementSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10019	syntaxElementSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10020	"/ syntaxElementSelection onChangeSend:#syntaxElementSelectionChanged to:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10021	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10022	^ syntaxElementSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10023	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10024
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10025	syntaxEmphasisList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10026	"automatically generated by UIPainter ..."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10027
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10028	"*** the code below creates a default model when invoked."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10029	"*** (which may not be the one you wanted)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10030	"*** Please change as required and accept it in the browser."
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10031	"*** (and replace this comment by something more useful ;-)"
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10032
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10033	syntaxEmphasisList isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10034	syntaxEmphasisList := ValueHolder new.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10035	"/ if your app needs to be notified of changes, uncomment one of the lines below:
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10036	"/ syntaxEmphasisList addDependent:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10037	"/ syntaxEmphasisList onChangeSend:#syntaxEmphasisListChanged to:self.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10038	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10039	^ syntaxEmphasisList.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10040	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10041
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10042	syntaxEmphasisSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10043
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10044	syntaxEmphasisSelection isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10045	syntaxEmphasisSelection := ValueHolder new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10046	syntaxEmphasisSelection addDependent:self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10047	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10048	^ syntaxEmphasisSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10049	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10050
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10051	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10052
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10053	getEmphasis:anEmphasisOrSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10054	" return emphasis Symbol for emphasis or emphasis for emphasis symbol "
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10055
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10056	^ emphasisDictionary at:anEmphasisOrSymbol ifAbsent:[nil]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10057	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10058
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10059	syntaxColorChanged
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10060	currentUserPrefs at:(self syntaxColorSelector value)
c72e35116b13 instable state penk parents: 5040 diff changeset	10061	put:(self syntaxColor value).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10062	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10063	self updateModifiedChannel
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10066	syntaxElementSelectionChanged
4398 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	\| syntaxEmphasisValue \|
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 syntaxColor value:(currentUserPrefs perform:(self syntaxColorSelector value)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10071	syntaxEmphasisValue := (currentUserPrefs perform:(self syntaxEmphasisSelector value)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10072	self syntaxEmphasisSelection value:(self getEmphasis:syntaxEmphasisValue).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10073	self recolor.
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10076	syntaxEmphasisSelectionChanged
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10077	\|em\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10078
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10079	em := self getEmphasis:self syntaxEmphasisSelection value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10080	currentUserPrefs at:(self syntaxEmphasisSelector value) value put:em.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10081	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10082	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10083	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10084
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10085	update:something with:aParameter from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10086	changedObject == self syntaxElementSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10087	self syntaxElementSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10088	^ self.
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	changedObject == self syntaxColor ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10091	self syntaxColorChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10092	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10093	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10094	changedObject == self syntaxEmphasisSelection ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10095	self syntaxEmphasisSelectionChanged.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10096	^ self.
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	changedObject == self syntaxColoring ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10099	self recolor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10100	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10101	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10102
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10103	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10104	! !
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	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10107
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10108	initialize
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10109	self initializeEmphasisDictionary.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10110	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10111
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10112	resetListDictionary := Dictionary new.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10113	currentUserPrefs listOfPredefinedSyntaxColoringSchemes do:[:entry \|
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10114	resetListDictionary at:(entry at:1) put:(entry at:2)
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10115	].
4398 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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10118	initializeEmphasisDictionary
4398 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	emphasisDictionary := Dictionary new.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10121	self class emphasisList do:[ : entry \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10122	entry == #'red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10123	emphasisDictionary at:entry put:(Array with:#underline with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10124	emphasisDictionary at:(Array with:#underline with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10125	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10126	entry == #'red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10127	emphasisDictionary at:entry put:(Array with:#underwave with:(#underlineColor->Color red)).
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10128	emphasisDictionary at:(Array with:#underwave with:(#underlineColor->Color red)) put:entry.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10129	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10130	entry == #'bold+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10131	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	10132	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	10133	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10134	entry == #'bold+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10135	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	10136	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	10137	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10138	entry == #'italic+red underline' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10139	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	10140	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	10141	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10142	entry == #'italic+red underwave' ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10143	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	10144	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	10145	] ifFalse:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10146	emphasisDictionary at:entry put:entry
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	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10149	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10150	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10151	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10152	]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10153	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10154	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10155
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10156	release
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10157
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10158	oldUserPreferences notNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10159	(UserPreferences reset; current) declareAllFrom:oldUserPreferences
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	super release
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10162	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10163
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10164	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10165
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10166	hasUnsavedChanges
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10167
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10168	\|colorList colorPerformer emphasisPerformer\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10169
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10170	colorList := UserPreferences syntaxColorNames.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10171	colorList do:[:syntaxElement \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10172	colorPerformer := (self syntaxColorSelectorForElement:syntaxElement) value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10173	emphasisPerformer := (self syntaxEmphasisSelectorForElement:syntaxElement) value.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10174	((oldUserPreferences perform:colorPerformer) ~= (currentUserPrefs perform:colorPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10175	^ true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10176	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10177	((oldUserPreferences perform:emphasisPerformer) ~= (currentUserPrefs perform:emphasisPerformer)) ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10178	^ true
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	syntaxElement
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10181	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10182	currentUserPrefs syntaxColoring ~= self syntaxColoring value ifTrue:[^ true].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10183	currentUserPrefs fullSelectorCheck ~= self fullSelectorCheck value ifTrue:[^ true].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10184	^ false
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10187	syntaxColorSelector
4398 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	^ self syntaxColorSelectorForElement:self syntaxElementSelection value
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10192	syntaxColorSelectorForElement:aSyntaxElement
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10193
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10194	^ [(aSyntaxElement replChar:$ withString: '') asLowercaseFirst asSymbol]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10195	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10196
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10197	syntaxEmphasisSelector
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10198
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10199	^ self syntaxEmphasisSelectorForElement:self syntaxElementSelection value
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10200	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10201
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10202	syntaxEmphasisSelectorForElement:anEmElement
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10203
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10204	^ [((((self syntaxColorSelectorForElement:anEmElement) value) readStream upToAll: 'Color'), 'Emphasis') asLowercaseFirst asSymbol]
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
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10207	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10208
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10209	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10210	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10211	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10212
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10213	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10214	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10215
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10216	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10217	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10218	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10219	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10220	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10221
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10222	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10223
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10224	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10225	constantNamed:#'AbstractSettingsApplication::SystemMessageSettingsAppl class defaultIcon'
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10226	ifAbsentPut:[(Depth8Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10227	@@@@@@@@@@@@@PDA@P@@@@@@@@@@@@@@@@@@@@@@@PHB@0D@@@@@@@@@@@@@@@@@@@@@@PHDAPLC@P@@@@@@@@@@@@@@@@@@@@DBA PGA0 @@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10228	@@@@@@@A@ XDA0\H@@@@@@@@@@@@@@@@@@@@@PHIA@(J@@@@@@@@@@@@@@@@@@@@@@DAB00MCP@@@@@@@@@@@@@@@@@@@@@@@@DN@@@@@@@@@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10229	@@@@@@@AC @@@@@@@@@@@@@@@@@@@@@@@@@@@P8@@@@@@@@@@@@@@@@@@@@@@@<OC0PNDA@@DQD@@@@@@@@@@@@@@@<RD1LTEQXVE1 XDP@@@@@@@@@@@@@O
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10230	D!!LSEATVE!!\XFAD@@@@@@@@@@@@@C1HSD1$UEAPZF1,\@@@@@@@@@@@@@@<RGQ4YF!!PTEAXVG@@@@@@@@@@@@@@OD!!4]FQ(TEAPVE!!0@@@@@@@@@@@@@C1H]
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10231	GQ$TEAPTE1\@@@@@@@@@@@@@@@<RGQ4YF!!(ZF!!TU@@@@@@@@@@@@C0<^D1LSG2@UER@ HBD"@@@@@@@@@@<OG!!LSD1< EQT HB@!!H @@@@@@@@@OC2DSD1L_
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10232	F!!(ZF!!(ZF@@@@@@@@@@@@@@ODQ0\H"H"H @@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 64 32 16 128 96 48 112 48 0 176 112 48 176 96 32 208 160 128 160 96 16 48 32 0 192 128 80 160 80 16 112 80 32 176 112 32 96 48 16 160 112 32 80 80 16 128 64 16 64 64 16 208 208 176 224 224 208 160 160 128 144 144 80 112 112 64 128 128 64 80 80 32 192 192 160 160 160 112 96 96 48 48 48 16 240 240 224 176 176 128 176 176 144 144 144 96 112 112 48 32 32 0]; 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]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10233	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10234
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10235	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10236
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10237	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10238	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10239	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10240
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10241	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10242	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10243
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10244	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10245	UIPainter new openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10246	AbstractSettingsApplication::SystemMessageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10247	AbstractSettingsApplication::SystemMessageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10248	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10249
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10250	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10251
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10252	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10253	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10254	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10255	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10256	#(#WindowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10257	#label: 'Messages Settings'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10258	#name: 'Messages Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10259	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10260	#max: #(#Point 1024 768)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10261	#bounds: #(#Rectangle 16 42 577 391)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10262	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10263	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10264	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10265	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10266	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10267	#name: 'VerticalPanel2'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10268	#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	10269	#horizontalLayout: #fitSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10270	#verticalLayout: #topSpace
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10271	#horizontalSpace: 5
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10272	#verticalSpace: 5
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10273	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10274	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10275	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10276	#(#VerticalPanelViewSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10277	#name: 'VerticalPanel1'
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10278	#horizontalLayout: #fit
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10279	#verticalLayout: #topSpace
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10280	#horizontalSpace: 3
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10281	#verticalSpace: 20
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10282	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10283	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10284	#collection: #(
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10285	#(#FramedBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10286	#label: 'Info & Error Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10287	#name: 'FramedBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10288	#labelPosition: #topLeft
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10289	#translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10290	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10291	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10292	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10293	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10294	#label: 'VM Info Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10295	#name: 'VMInfoMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10296	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10297	#model: #vmInfo
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10298	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10299	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10300	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10301	#label: 'VM Error Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10302	#name: 'VMErrorMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10303	#layout: #(#LayoutFrame 5 0 30 0 -5 1 52 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10304	#model: #vmErrors
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10305	#translateLabel: true
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	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10308	#label: 'Display Error Messages (Xlib, Xtlib, WinAPI ...)'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10309	#name: 'DisplayErrorMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10310	#layout: #(#LayoutFrame 5 0 55 0 -5 1 77 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10311	#model: #displayErrors
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10312	#translateLabel: true
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	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10315	#label: 'Other Info Messages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10316	#name: 'OtherInfoMessages'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10317	#layout: #(#LayoutFrame 5 0 80 0 -5 1 102 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10318	#model: #classInfos
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10319	#translateLabel: true
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	)
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	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10324	#extent: #(#Point 551 133)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10325	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10326	#(#FramedBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10327	#label: 'Change File'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10328	#name: 'FramedBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10329	#labelPosition: #topLeft
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10330	#translateLabel: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10331	#component:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10332	#(#SpecCollection
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10333	#collection: #(
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10334	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10335	#label: 'Log compiles in Changefile'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10336	#name: 'CheckBox1'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10337	#layout: #(#LayoutFrame 5 0 5 0 -5 1 27 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10338	#model: #updChanges
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10339	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10340	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10341	#(#CheckBoxSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10342	#label: 'Log doIts in Changefile'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10343	#name: 'CheckBox2'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10344	#layout: #(#LayoutFrame 5 0 30 0 -5 1 52 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10345	#model: #logDoits
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10346	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10347	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10348	#(#LabelSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10349	#label: 'Changefile Name:'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10350	#name: 'ChangefileNameLabel'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10351	#layout: #(#LayoutFrame 5 0 55 0 200 0 77 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10352	#translateLabel: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10353	#adjust: #right
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	#(#InputFieldSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10356	#name: 'ChangeFileNameEntryField'
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10357	#layout: #(#LayoutFrame 200 0 55 0 -5 1 77 0)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10358	#model: #changeFileName
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10359	#immediateAccept: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10360	#acceptOnReturn: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10361	#acceptOnTab: true
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10362	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	10363	#acceptOnPointerLeave: true
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10364	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10365	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10366
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10367	)
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10368	#extent: #(#Point 551 120)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10369	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10370	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10371
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10372	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10373	#extent: #(#Point 551 250)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10374	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10375	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10376
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10377	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10378	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10379	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10380
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10381	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10382	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10383	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10384
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10385	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10386
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10387	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10388
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10389	ObjectMemory infoPrinting:self vmInfo value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10390	ObjectMemory debugPrinting:self vmErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10391	Object infoPrinting:self classInfos value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10392	DeviceWorkstation errorPrinting:self displayErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10393	ObjectMemory nameForChanges:self changeFileName value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10394	Smalltalk logDoits:self logDoits value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10395	Class updateChanges:self updChanges value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10396	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10397
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10398	help
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10399
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10400	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/messageSettings.html'].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10401	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10402
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10403	readSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10404	self vmInfo value:ObjectMemory infoPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10405	self vmErrors value:ObjectMemory debugPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10406	self classInfos value:Object infoPrinting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10407	self displayErrors value:DeviceWorkstation errorPrinting.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10408	self changeFileName value:ObjectMemory nameForChanges.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10409	self logDoits value:Smalltalk logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10410	self updChanges value:Class updatingChanges.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10411	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10412	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10413
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10414	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10415
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10416	changeFileName
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10417
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10418	changeFileName isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10419	changeFileName := ObjectMemory nameForChanges asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10420	changeFileName onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10421	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10422	^ changeFileName.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10423	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10424
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10425	classInfos
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10426
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10427	classInfos isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10428	classInfos := Object infoPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10429	classInfos onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10430	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10431	^ classInfos.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10432	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10433
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10434	displayErrors
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10435
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10436	displayErrors isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10437	displayErrors := DeviceWorkstation errorPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10438	displayErrors onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10439	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10440	^ displayErrors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10441	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10442
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10443	logDoits
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10444
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10445	logDoits isNil ifTrue:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10446	logDoits := Smalltalk logDoits asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10447	logDoits onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10448	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10449	^ logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10450	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10451
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10452	updChanges
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10453
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10454	updChanges isNil ifTrue:[
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10455	updChanges := Class updatingChanges asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10456	updChanges onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10457	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10458	^ updChanges.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10459	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10460
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10461	vmErrors
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10462
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10463	vmErrors isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10464	vmErrors := ObjectMemory debugPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10465	vmErrors onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10466	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10467	^ vmErrors.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10468	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10469
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10470	vmInfo
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10471
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10472	vmInfo isNil ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10473	vmInfo := ObjectMemory infoPrinting asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10474	vmInfo onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10475	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10476	^ vmInfo.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10477	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10478
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10479	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10480
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10481	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10482
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10483	resources := self class classResources.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10484	super initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10485	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10486
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10487	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10488
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10489	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10490
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10491	^(self vmInfo value ~= ObjectMemory infoPrinting or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10492	self vmErrors value ~= ObjectMemory debugPrinting or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10493	self classInfos value ~= Object infoPrinting or:[
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10494	Smalltalk logDoits ~= self logDoits value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10495	Class updatingChanges ~= self updChanges value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10496	ObjectMemory nameForChanges ~= self changeFileName value or:[
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10497	self displayErrors value ~= DeviceWorkstation errorPrinting ]]]]]])
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10498	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10499
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10500	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10501
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10502	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10503	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10504	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10505
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10506	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10507	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10508
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10509	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10510	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10511	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10512	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10513	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10514
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10515	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10516
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10517	^Icon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10518	constantNamed:#'AbstractSettingsApplication::ToolsSettingsAppl class defaultIcon'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10519	ifAbsentPut:[(Depth4Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10520	*****************************@@@@@@@@@@@@@J(@@@@@@@@@@@@@ @@@F(QD@@@@@B@@@@B((QD@@@@J(@@@@@@JLQ@@@@ @B$@@@)CD@@@B*@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10521	IC$JSPP@@@J(@BH@4MCQADP@@ AR"HACQAFQD@B@@H""H"HEG$Q@J(@@@H"H("HP9$@ @@@@@"H""HI@B@@@@@@@@H""H@J(@@@@@@@@@H" @ @@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	10522	@@@@@@H0B@@@@@@@@@@@@@J(@@@@@@@@@@@@@ @@@@@@@@@@@@B*****************************(b') ; colorMapFromArray:#[0 0 0 160 160 160 240 240 240 224 224 224 48 48 48 128 128 128 208 208 208 112 112 112 192 192 192 96 96 96 176 176 176]; 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? @@_ @@G @@A @@@@@@@@@@@@@@@@') ; yourself); yourself]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10523	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	10524
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10525	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10526
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10527	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10528	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10529	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10530
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10531	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10532	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10533
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10534	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10535	UIPainter new openOnClass:AbstractSettingsApplication::ToolsSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10536	AbstractSettingsApplication::ToolsSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10537	AbstractSettingsApplication::ToolsSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10538	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10539
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10540	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10541
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10542	^
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10543	#(#FullSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10544	#name: #windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10545	#window:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10546	#(#WindowSpec
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10547	#label: 'Tool Settings'
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	10548	#name: 'Tool Settings'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10549	#min: #(#Point 10 10)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10550	#max: #(#Point 1024 768)
4986 8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10551	#bounds: #(#Rectangle 16 46 511 517)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10552	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10553	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10554	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10555	#collection: #(
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10556	#(#VerticalPanelViewSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10557	#name: 'VerticalPanel2'
4986 8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10558	#layout: #(#LayoutFrame 0 0 0 0 358 0 301 0)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10559	#horizontalLayout: #left
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10560	#verticalLayout: #top
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10561	#horizontalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10562	#verticalSpace: 3
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10563	#component:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10564	#(#SpecCollection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10565	#collection: #(
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10566	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10567	#label: 'Use the New System Browser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10568	#name: 'NewSystemBrowser'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10569	#model: #useNewSystemBrowser
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10570	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10571	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10572	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10573	#(#CheckBoxSpec
4986 8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10574	#label: 'Use the New File Browser'
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10575	#name: 'NewFileBrowser'
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10576	#model: #useNewFileBrowser
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10577	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10578	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10579	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10580	#(#CheckBoxSpec
4986 8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10581	#label: 'Use the New VersionDiff Browser'
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10582	#name: 'VersionDiffBrowser'
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10583	#model: #useNewVersionDiffBrowser
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10584	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10585	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10586	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10587	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10588	#label: 'Use the New FileTree File Dialog'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10589	#name: 'UseNewFileDialogCheckBox'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10590	#model: #useNewFileDialog
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10591	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10592	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10593	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10594	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10595	#label: 'Use the New Settings Dialog'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10596	#name: 'UseNewSettinsApplicationCheckBox'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10597	#model: #useNewSettingsApplication
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10598	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10599	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10600	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10601	#(#CheckBoxSpec
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10602	#label: 'Use the New Process Monitor'
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10603	#name: 'UseNewProcessMonitor'
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10604	#model: #useProcessMonitorV2
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10605	#translateLabel: true
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10606	#extent: #(#Point 489 25)
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10607	)
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10608	#(#CheckBoxSpec
4986 8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10609	#label: 'Use the New Changes Browser (not yet recommended)'
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10610	#name: 'ChangesBrowser'
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10611	#model: #useNewChangesBrowser
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10612	#translateLabel: true
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10613	#extent: #(#Point 489 25)
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10614	)
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10615	#(#CheckBoxSpec
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10616	#label: 'Use Hierarchical Inspector (not yet recommended)'
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10617	#name: 'HierarchicalInspector'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10618	#model: #useNewInspector
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10619	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10620	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10621	)
4986 8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10622	#(#ViewSpec
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10623	#name: 'Box2'
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10624	#extent: #(#Point 205 20)
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10625	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10626	#(#CheckBoxSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10627	#label: 'Show Clock in Launcher'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10628	#name: 'Clock'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10629	#model: #showClockInLauncher
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10630	#translateLabel: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10631	#extent: #(#Point 489 25)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10632	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10633	#(#ViewSpec
4986 8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10634	#name: 'Box3'
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10635	#extent: #(#Point 204 19)
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10636	)
8cb2b9eaf2b6 * empty log message * Claus Gittinger <cg@exept.de> parents: 4949 diff changeset	10637	#(#ViewSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10638	#name: 'Box1'
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10639	#component:
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10640	#(#SpecCollection
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10641	#collection: #(
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10642	#(#LabelSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10643	#label: 'Transcripts Buffer Size:'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10644	#name: 'Label1'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10645	#layout: #(#LayoutFrame 5 0 5 0 144 0 27 0)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10646	#translateLabel: true
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10647	#adjust: #right
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10648	)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10649	#(#InputFieldSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10650	#name: 'Transcripts Buffer Size'
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10651	#layout: #(#LayoutFrame 147 0 5 0 -5 1 27 0)
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10652	#model: #transcriptBufferSize
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10653	#type: #number
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10654	#immediateAccept: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10655	#acceptOnReturn: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10656	#acceptOnTab: true
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10657	#acceptOnLostFocus: true
4658 6d7e1c4d324f some errors fixed penk parents: 4657 diff changeset	10658	#acceptOnPointerLeave: true
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	10659	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10660	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10661
933cd54deefe checkin from browser penk parents: 4292 diff changeset	10662	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10663	#extent: #(#Point 489 27)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10664	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10665	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10666
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10667	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10668	#useDefaultExtent: true
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10669	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10670	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10671
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10672	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10673	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10674	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10675
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10676	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10677
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10678	basicSaveSettings
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10679
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10680	\| showClock launcher reopenLauncher\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10681
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10682	currentUserPrefs := UserPreferences current.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10683	currentUserPrefs useNewInspector:self useNewInspector value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10684	currentUserPrefs useNewChangesBrowser:self useNewChangesBrowser value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10685	currentUserPrefs useNewSystemBrowser:self useNewSystemBrowser value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10686	currentUserPrefs useNewVersionDiffBrowser:self useNewVersionDiffBrowser value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10687	currentUserPrefs useNewFileDialog:self useNewFileDialog value.
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10688	currentUserPrefs useProcessMonitorV2:self useProcessMonitorV2 value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10689	currentUserPrefs useNewSettingsApplication ~= self useNewSettingsApplication value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10690	currentUserPrefs useNewSettingsApplication:self useNewSettingsApplication value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10691	reopenLauncher := true.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10692	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10693	(Smalltalk at:#FileBrowserV2) isBehavior ifTrue:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10694	currentUserPrefs useNewFileBrowser ~= self useNewFileBrowser value ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10695	currentUserPrefs useNewFileBrowser:self useNewFileBrowser value.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10696	(self useNewFileBrowser value and:[FileBrowserV2 isLoaded]) ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10697	FileBrowserV2 installInLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10698	] ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10699	FileBrowserV2 removeFromLauncher.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10700	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10701	reopenLauncher := true.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10702	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10703	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10704	showClock := self showClockInLauncher value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10705	currentUserPrefs showClockInLauncher ~= showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10706	currentUserPrefs showClockInLauncher:showClock.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10707	launcher := Transcript application.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10708	(launcher isKindOf:ToolApplicationModel) ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10709	showClock ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10710	launcher startClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10711	] ifFalse:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10712	launcher stopClock
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10713	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10714	]
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10715	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10716	Inspector := currentUserPrefs inspectorClassSetting.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10717	Transcript current lineLimit:self transcriptBufferSize value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10718	reopenLauncher ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10719	launcher := Transcript application.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10720	(launcher isKindOf:ToolApplicationModel) ifTrue:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10721	launcher reopenLauncher.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10722	]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10723	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10724	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10725
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10726	help
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10727
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10728	self withWaitCursorDo:[HTMLDocumentView openFullOnHelpFile:'Launcher/toolSettings.html'].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10729	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10730
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10731	readSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10732	currentUserPrefs := UserPreferences current.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10733	self showClockInLauncher value:currentUserPrefs showClockInLauncher.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10734	self transcriptBufferSize value:Transcript current lineLimit.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10735	self useNewChangesBrowser value:currentUserPrefs useNewChangesBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10736	self useNewFileBrowser value:currentUserPrefs useNewFileBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10737	self useNewInspector value:currentUserPrefs useNewInspector.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10738	self useNewSystemBrowser value:currentUserPrefs useNewSystemBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10739	self useNewVersionDiffBrowser
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10740	value:currentUserPrefs useNewVersionDiffBrowser.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10741	self useProcessMonitorV2 value:currentUserPrefs useProcessMonitorV2.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10742	self useNewFileDialog value:currentUserPrefs useNewFileDialog.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10743	self useNewSettingsApplication
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10744	value:currentUserPrefs useNewSettingsApplication.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10745	self modifiedChannel value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10746	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10747
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10748	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10749
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10750	showClockInLauncher
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10751
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10752	showClockInLauncher isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10753	showClockInLauncher := currentUserPrefs showClockInLauncher asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10754	showClockInLauncher onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10755	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10756	^ showClockInLauncher.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10757	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10758
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10759	transcriptBufferSize
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10760
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10761	transcriptBufferSize isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10762	transcriptBufferSize := Transcript current lineLimit asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10763	transcriptBufferSize onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10764	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10765	^ transcriptBufferSize.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10766	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10767
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10768	useNewChangesBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10769
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10770	useNewChangesBrowser isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10771	useNewChangesBrowser := currentUserPrefs useNewChangesBrowser asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10772	useNewChangesBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10773	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10774	^ useNewChangesBrowser.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10775	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10776
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10777	useNewFileBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10778
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10779	useNewFileBrowser isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10780	useNewFileBrowser := currentUserPrefs useNewFileBrowser asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10781	useNewFileBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10782	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10783	^ useNewFileBrowser.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10784	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10785
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10786	useNewFileDialog
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10787
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10788	useNewFileDialog isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10789	useNewFileDialog := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10790	useNewFileDialog onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10791	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10792	^ useNewFileDialog.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10793	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10794
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10795	useNewInspector
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10796
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10797	useNewInspector isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10798	useNewInspector := currentUserPrefs useNewInspector asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10799	useNewInspector onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10800	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10801	^ useNewInspector.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10802	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10803
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10804	useNewSettingsApplication
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10805
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10806	useNewSettingsApplication isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10807	useNewSettingsApplication := true asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10808	useNewSettingsApplication onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10809	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10810	^ useNewSettingsApplication.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10811	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10812
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10813	useNewSystemBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10814
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10815	useNewSystemBrowser isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10816	useNewSystemBrowser := currentUserPrefs useNewSystemBrowser asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10817	useNewSystemBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10818	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10819	^ useNewSystemBrowser.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10820	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10821
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10822	useNewVersionDiffBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10823
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10824	useNewVersionDiffBrowser isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10825	useNewVersionDiffBrowser := currentUserPrefs useNewVersionDiffBrowser asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10826	useNewVersionDiffBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10827	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10828	^ useNewVersionDiffBrowser.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10829	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10830
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10831	useProcessMonitorV2
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10832
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10833	useProcessMonitorV2 isNil ifTrue:[
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10834	useProcessMonitorV2 := currentUserPrefs useProcessMonitorV2 asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10835	useProcessMonitorV2 onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10836	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	10837	^ useProcessMonitorV2.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10838	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10839
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10840	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10841
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10842	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10843
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10844	^ ((self useNewInspector value ~= currentUserPrefs useNewInspector) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10845	(self useNewChangesBrowser value ~= currentUserPrefs useNewChangesBrowser) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10846	(self useNewSystemBrowser value ~= currentUserPrefs useNewSystemBrowser) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10847	(self showClockInLauncher value ~= currentUserPrefs showClockInLauncher) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10848	(self useNewVersionDiffBrowser value ~= currentUserPrefs useNewVersionDiffBrowser) or:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10849	(self useNewFileBrowser value ~= currentUserPrefs useNewFileBrowser) or:[
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10850	(self useNewFileDialog value ~= currentUserPrefs useNewFileDialog) or:[
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10851	(self useNewSettingsApplication value ~= currentUserPrefs useNewSettingsApplication) or:[
4464 997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10852	(self useProcessMonitorV2 value ~= currentUserPrefs useProcessMonitorV2) or:[
997576abcb7f add ProcessMonitorV2 access from menu dependent on userPreferences penk parents: 4457 diff changeset	10853	(self transcriptBufferSize value ~= Transcript current lineLimit)]]]]]]]]])
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10854	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10855
4226 44e2f83cc526 initial checkin penk parents: diff changeset	10856	!AbstractSettingsApplication class methodsFor:'documentation'!
44e2f83cc526 initial checkin penk parents: diff changeset	10857
44e2f83cc526 initial checkin penk parents: diff changeset	10858	version
5049 3df132763949 instable state penk parents: 5044 diff changeset	10859	^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.86 2003-07-16 09:02:02 penk Exp $'
3df132763949 instable state penk parents: 5044 diff changeset	10860	! !

author	penk
	Wed, 16 Jul 2003 11:02:02 +0200
changeset 5049	3df132763949
parent 5044	fea72184bd8e
child 5055	b3cba6441579
permissions	-rw-r--r--