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

19365 f92a171d61d3 #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 19360 diff changeset	1	"{ Encoding: utf8 }"
f92a171d61d3 #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 19360 diff changeset	2
5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	3	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	4	COPYRIGHT (c) 2002 by eXept Software AG
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5	All Rights Reserved
5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	6
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	7	This software is furnished under a license and may be used
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	8	only in accordance with the terms of that license and with the
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	9	inclusion of the above copyright notice. This software may not
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	10	be provided or otherwise made available to, or used by, any
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	11	other person. No title to or ownership of the software is
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	12	hereby transferred.
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	13	"
4226 44e2f83cc526 initial checkin penk parents: diff changeset	14	"{ Package: 'stx:libtool' }"
44e2f83cc526 initial checkin penk parents: diff changeset	15
15083 f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	16	"{ NameSpace: Smalltalk }"
f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	17
4226 44e2f83cc526 initial checkin penk parents: diff changeset	18	ApplicationModel subclass:#AbstractSettingsApplication
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19	instanceVariableNames:'settingsString currentUserPrefs modifiedChannel settingsDialog
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	20	requestor didModifySettings acceptChannel'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	21	classVariableNames:'AutoSaveChangedSettingsOnClose'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	22	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	23	category:'Interface-Smalltalk'
4226 44e2f83cc526 initial checkin penk parents: diff changeset	24	!
44e2f83cc526 initial checkin penk parents: diff changeset	25
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	26	AbstractSettingsApplication subclass:#AllSettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	27	instanceVariableNames:'buildDirectory localBuild selectedCompiler usedCompilerForBuild
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	28	selectedSettingHolder settingsList'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	29	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	30	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	31	privateIn:AbstractSettingsApplication
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	32	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	33
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	34	AbstractSettingsApplication subclass:#AutoloadedPackagesSettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	35	instanceVariableNames:'possibleItemsLabelHolder listOfPossibleItems
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	36	selectedItemsLabelHolder packageChooser listOfSelectedItems'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	37	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	38	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	39	privateIn:AbstractSettingsApplication
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	40	!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	41
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	42	AbstractSettingsApplication subclass:#BuildSettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	43	instanceVariableNames:'buildDirectory localBuild selectedCompiler usedCompilerForBuild'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	44	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	45	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	46	privateIn:AbstractSettingsApplication
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	47	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	48
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	49	AbstractSettingsApplication subclass:#ByteCodeCompilerSettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	50	instanceVariableNames:'warnings warnSTX warnDollar warnOldStyle warnCommonMistakes
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	51	warnUnderscore warnCompatibility warnUnusedVars
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	52	warnAboutWrongVariableNames warnAboutBadComments
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	53	warnInconsistentReturnValues
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	54	warnAboutNonLowercaseLocalVariableNames allowQualifiedNames
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	55	allowDollar allowReservedWordsAsSelectors allowOldStyleAssignment
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	56	allowUnderscore allowDolphinExtensions allowSqueakExtensions
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	57	allowVisualAgeESSymbolLiterals allowVisualAgePrimitives
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	58	allowFixedPointLiterals justInTimeCompilation canLoadBinaries
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	59	constantFoldingSelection keepSource constantFolding
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	60	constantFoldingOptions fullDebugSupport immutableArrays
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	61	immutableStrings enableUnderscore enableDollar
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	62	allowEmptyStatements warnAboutPossibleSTCCompilationProblems
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	63	warnAboutReferenceToPrivateClass warnAboutShortLocalVariableNames
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	64	warnAboutPossiblyUnimplementedSelectors
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	65	allowExtendedBinarySelectors warnAboutMissingMethodComment
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	66	allowAssignmentToPoolVariable warnPlausibilityChecks
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	67	allowParagraph enableParagraph
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	68	warnAboutPossiblyUninitializedLocals'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	69	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	70	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	71	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	72	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	73
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	74	AbstractSettingsApplication subclass:#ChangeFileSettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	75	instanceVariableNames:'classInfos vmInfo vmErrors displayErrors logDoits updChanges
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	76	changeFileName beepForInfoDialog beepForWarningDialog
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	77	beepForErrorDialog flyByHelp beepEnabled beepInEditor'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	78	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	79	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	80	privateIn:AbstractSettingsApplication
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	81	!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	82
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	83	AbstractSettingsApplication subclass:#CodeGeneratorSettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	84	instanceVariableNames:'generateComments generateCommentsForGetters
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	85	generateCommentsForSetters'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	86	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	87	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	88	privateIn:AbstractSettingsApplication
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	89	!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	90
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	91	AbstractSettingsApplication subclass:#CommunicationLoggingSettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	92	instanceVariableNames:'logHTTPRequests logSOAPRequests logExecutedOSCommands
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	93	logNetCommunications logSSLCommunications'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	94	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	95	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	96	privateIn:AbstractSettingsApplication
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	97	!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	98
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	99	AbstractSettingsApplication subclass:#DebuggerSettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	100	instanceVariableNames:'showErrorNotifier verboseBacktraceInDebugger
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	101	allowSendMailFromDebugger useNewLayoutInDebugger
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	102	hideSupportCodeInDebugger'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	103	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	104	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	105	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	106	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	107
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	108	AbstractSettingsApplication subclass:#DisplaySettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	109	instanceVariableNames:'isColorMonitor useFixGrayPaletteLabel useFixPalette sizeY
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	110	clipEncodingListSelection sizeX monitorList ditherList
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	111	clipEncodingList ditherListSelection deepIcons monitorSelection
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	112	useFixPaletteLabel visualIsPseudoColor ditherSymsNotNil
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	113	useFixGrayPalette sizeInfos screen ditherStyles ditherSyms
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	114	screenDepthVisualLabelHolder maxCopyBufferSize usedWidth
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	115	usedHeight enableVMWareDrawingBugWorkaround'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	116	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	117	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	118	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	119	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	120
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	121	AbstractSettingsApplication subclass:#EditSettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	122	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	123	searchDialogIsModal startTextDragWithControl
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	124	extendedWordSelectMode whitespaceWordSelectMode
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	125	enforceContentsDropForFiles selectAllWhenClickingBeyondEnd
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	126	showAcceptCancelBarInBrowser useCodeView2InTools
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	127	autoIndentInCodeView immediateCodeCompletion
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	128	codeCompletionOnControlKey codeCompletionOnTabKey
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	129	selectionExtensionMode'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	130	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	131	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	132	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	133	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	134
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	135	AbstractSettingsApplication subclass:#GeneralCompilerSettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	136	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	137	searchDialogIsModal startTextDragWithControl catchClassRedefs
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	138	fullHistoryUpdate historyLines keepSourceSelection keepSource
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	139	hasHistoryManager canLoadBinaries loadBinaries catchMethodRedefs
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	140	userNameInHistoryHolder'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	141	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	142	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	143	privateIn:AbstractSettingsApplication
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	144	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	145
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	146	AbstractSettingsApplication subclass:#HTTPStartServerSettingsApplication
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	147	instanceVariableNames:'portNumberChannel informationLabel hasNoCreatedServerChannel
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	148	hasCreatedServerChannel useFcgiHolder
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	149	hasWebServerClassesNotLoadedHolder'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	150	classVariableNames:'CreatedServers'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	151	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	152	privateIn:AbstractSettingsApplication
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	153	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	154
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	155	AbstractSettingsApplication subclass:#KbdMappingSettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	156	instanceVariableNames:'selectedRawKey macroTextHolder selectedFunctionKey
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	157	labelTextHolder changeMapHolder currentKeyHolder functionKeyList
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	158	rawKeyList mappings'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	159	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	160	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	161	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	162	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	163
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	164	AbstractSettingsApplication subclass:#LanguageSettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	165	instanceVariableNames:'languageHolder languageIndexHolder languageList
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	166	languageListHolder listOfLanguages translatedLanguages
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	167	noticeLabelHolder currentFlagAndLanguageChannel
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	168	currentLanguageLabel perLanguageResources useSystemLanguageHolder'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	169	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	170	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	171	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	172	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	173
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	174	AbstractSettingsApplication subclass:#MemorySettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	175	instanceVariableNames:'newSpaceSize maxOldSpace fastMoreLimit warningLabelHolder
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	176	codeTrigger codeLimit oldIncr compressLimit igcFreeLimit igcLimit
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	177	igcFreeAmount stackLimit supportsJustInTimeCompilation
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	178	methodCodeSizeLimit'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	179	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	180	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	181	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	182	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	183
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	184	AbstractSettingsApplication subclass:#MiscBridgeCommunicationSettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	185	instanceVariableNames:'smallTeamServerEnabled selectedSmallTeamHost listOfSmallTeamHosts
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	186	smallTeamHostEntry dotNetBridgeVerbose dotNetBridgeRunsInIDE
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	187	smalltalkBridgeEnabled smalltalkBridgeVerbose'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	188	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	189	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	190	privateIn:AbstractSettingsApplication
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	191	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	192
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	193	AbstractSettingsApplication subclass:#MiscCommunicationSettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	194	instanceVariableNames:'smtpServerName'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	195	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	196	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	197	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	198	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	199
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	200	AbstractSettingsApplication subclass:#MiscDisplay2SettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	201	instanceVariableNames:'nativeWidgets nativeDialogs shadows opaqueVariablePanelResize
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	202	opaqueTableColumnResize lowerOnRightClickInTitle
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	203	lowerOnShiftClickInTitle displaySupportsNativeFileDialogs
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	204	nativeFileDialogs cartoonToolTipStyle
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	205	markThisApplicationAsHighDpiAwareHolder'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	206	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	207	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	208	privateIn:AbstractSettingsApplication
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	209	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	210
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	211	AbstractSettingsApplication subclass:#MiscDisplaySettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	212	instanceVariableNames:'returnFocus focusFollowsMouse mouseWheelFocusFollowsMouse
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	213	beepEnabled takeFocus activateOnClick
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	214	formatHostNameinWindowLabels hostNameInLabelHolder
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	215	showAccelerators newWindowLabelFormat formatHostNameWindowLabel
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	216	selectOnRightClick popUpMenuOnRelease
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	217	showRightButtonMenuOnRelease formatHostNameWindowLabel1
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	218	formatHostNameWindowLabel2 allowMouseWheelZoom
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	219	forceWindowsIntoMonitorBounds button2WithAltKey
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	220	autoRaiseOnFocusIn menuPanelTakesFocusOnClick
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	221	shouldRememberLastExtentHolder'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	222	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	223	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	224	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	225	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	226
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	227	AbstractSettingsApplication subclass:#MiscSmalltalkCommunicationSettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	228	instanceVariableNames:'remoteBrowsingEnabled windowMigrationEnabled
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	229	windowMigrationPassword windowMigrationAuthenticate
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	230	enablePasswordCheck smallTeamServerEnabled selectedSmallTeamHost
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	231	listOfSmallTeamHosts smallTeamHostEntry addHostEnabled
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	232	removeHostEnabled smalltalkBridgeEnabled smalltalkBridgeVerbose
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	233	smallTeamViaXMPPEnabled selectedXMPPSmallTeamUser
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	234	xmppSmallTeamUserEntry listOfXMPPSmallTeamUsers
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	235	smallteamXMPPServer smallteamXMPPUser smallteamXMPPPassword'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	236	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	237	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	238	privateIn:AbstractSettingsApplication
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	239	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	240
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	241	AbstractSettingsApplication subclass:#OsiSettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	242	instanceVariableNames:'osiACSEConnectionLogging osiROSEErrorLogging osiCMISEErrorLogging
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	243	osiACSEErrorLogging osiROSEPresent osiCMISEPresent
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	244	osiCMISEMessageLogging osiACSEDataLogging
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	245	osiROSEInvokationLogging osiACSEPresent osiROSEResponseLogging'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	246	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	247	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	248	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	249	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	250
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	251	AbstractSettingsApplication subclass:#PackagePathSettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	252	instanceVariableNames:'listOfFoldersInPath selectedFolder'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	253	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	254	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	255	privateIn:AbstractSettingsApplication
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	256	!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	257
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	258	AbstractSettingsApplication subclass:#PrinterSettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	259	instanceVariableNames:'selectedUnit supportsColor topMargin rightMargin bottomMargin
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	260	landscape pageFormatList pageFormat unitList leftMargin
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	261	possiblePrinters printerType printerTypeSelection
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	262	printCommandList commandList printCommand printFilename
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	263	enableFormat enablelandscape enableMargins enableColorBox
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	264	printerIsDrivenByCommand printerSupportsPrintingToFile
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	265	supportsPageFormatSetting supportsMarginSetting
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	266	supportsColorSetting'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	267	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	268	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	269	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	270	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	271
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	272	AbstractSettingsApplication subclass:#ProcessorSchedulerSettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	273	instanceVariableNames:'dynamicPrios preemptive'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	274	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	275	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	276	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	277	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	278
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	279	AbstractSettingsApplication subclass:#RDoItServerSettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	280	instanceVariableNames:'rDoitLogging rDoitsEnabled rDoitErrorLogging hasRDoitServer
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	281	rDoitErrorDebugging rDoitServerPortOrPath
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	282	rDoitEnabledOnlyViaLocalConnection scriptingEnabled
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	283	scriptingEnabledOnlyViaLocalConnection scriptingErrorDebugging
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	284	scriptingErrorLogging scriptingLogging scriptingServerPortOrPath
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	285	rDoitOnlyViaLocalConnection'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	286	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	287	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	288	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	289	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	290
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	291	AbstractSettingsApplication subclass:#SQLServerSettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	292	instanceVariableNames:'sqlServerEnabled sqlSmalltalkServerEnabled sqlLogging
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	293	sqlDataLogging sqlErrorLogging hasSQLServer sqlErrorDebugging
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	294	sqlServerPort sqlStatementLogging'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	295	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	296	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	297	privateIn:AbstractSettingsApplication
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	298	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	299
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	300	AbstractSettingsApplication subclass:#STCCompilerSettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	301	instanceVariableNames:'cc ccOptions stcIncludes linkCommand stc linkArgs linkSharedArgs
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	302	canLoadBinaries stcDefines stcLibraries stcOptions stcLibraryPath
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	303	stcCompilationSelection stcCompilationList makeCommand
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	304	stcKeepCIntermediate supportedCCompilerSelection verbose'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	305	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	306	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	307	privateIn:AbstractSettingsApplication
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	308	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	309
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	310	AbstractSettingsApplication subclass:#SourceCodeFormatSettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	311	instanceVariableNames:'spaceAfterKeywordSelector emptyLineAfterTemporaries tabIndent
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	312	autoFormat cStyleBlocks editorText maxLengthForSingleLineBlocks
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	313	blockArgumentsOnNewLine spaceAfterReturnToken
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	314	spaceAroundTemporaries spaceAfterBlockStart spaceBeforeBlockEnd
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	315	oldUserPreferences reformatLocked'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	316	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	317	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	318	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	319	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	320
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	321	AbstractSettingsApplication subclass:#SourceCodeManagementSettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	322	instanceVariableNames:'sourceCacheDir useManager availableManagers condenseSourceCache
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	323	setupSourceCodeManager checkClassesWhenCheckingIn
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	324	formattingConfiguration flushSourceCache localSourceFirst
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	325	repositoryHolder manager repository listOfModules
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	326	managerTypePerModule addPerModuleRoot removeEnabled
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	327	perModuleRootModule removePerModuleRoot perModuleRoot
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	328	selectedPerModuleRoot rootsPerModule
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	329	selectedManagerTypeIndexHolder managerIsCVSSourceCodeManager
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	330	managerIsStoreSourceCodeManager perModuleFieldsEnableHolder
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	331	managerIsSmallTeamSourceCodeManager verboseSourceCodeAccess
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	332	keepMethodSource packageToAddHolder managerTypeIndexToAddHolder
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	333	managerTypeToAddHolder managerPerMatchingModule
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	334	selectedManagerPerMatchingModuleHolder'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	335	classVariableNames:'RecentlyUsedCVSRoots RecentlyUsedStoreHosts
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	336	RecentlyUsedSmallTeamHosts LastStoreHost LastStoreUser
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	337	LastStorePassword FillCacheProcess'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	338	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	339	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	340	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	341
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	342	SimpleDialog subclass:#PerModuleManagerSettingDialog
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	343	instanceVariableNames:'packageHolder managerNameHolder availableManagers'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	344	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	345	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	346	privateIn:AbstractSettingsApplication::SourceCodeManagementSettingsAppl
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	347	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	348
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	349	AbstractSettingsApplication subclass:#StyleSettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	350	instanceVariableNames:'showStandardStylesOnly styleList selectedStyle
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	351	styleDirectoryContents infoLabelHolder noticeLabelHolder
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	352	previewVisibleHolder'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	353	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	354	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	355	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	356	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	357
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	358	AbstractSettingsApplication subclass:#SyntaxColorSettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	359	instanceVariableNames:'coloredText syntaxColor syntaxColors resetList resetListSelection
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	360	fullSelectorCheck syntaxColoring oldUserPreferences
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	361	syntaxFontSelector syntaxFonts syntaxElementList
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	362	syntaxElementSelection syntaxEmphasisList syntaxEmphasisSelection
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	363	emphasisDictionary resetListDictionary changedSettings'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	364	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	365	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	366	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	367	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	368
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	369	AbstractSettingsApplication subclass:#SystemBrowserSettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	370	instanceVariableNames:'showAcceptCancelBarInBrowser useSearchBarInBrowser
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	371	showMethodTemplate useCodeView2InTools
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	372	showEmbeddedTestRunnerInBrowser showBookmarkBar
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	373	webBrowserLikeLayout sortAndIndentClassesByInheritance
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	374	showLocalHistory showGlobalHistory useInPlaceSearchInBrowserLists
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	375	sourceCodeManagementMenuLayout confirmRefactorings
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	376	smallLintRulesetDefault showMarqueeInfo'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	377	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	378	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	379	privateIn:AbstractSettingsApplication
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	380	!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	381
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	382	AbstractSettingsApplication subclass:#SystemMessageSettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	383	instanceVariableNames:'classInfos vmInfo vmErrors displayErrors logDoits updChanges
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	384	changeFileName beepForInfoDialog beepForWarningDialog
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	385	beepForErrorDialog flyByHelp beepEnabled beepInEditor
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	386	toolTipAutoHideDelay sendMessagesAlsoToTranscript
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	387	onlyShowTooltipsForActiveWindow logLevelIndex debugIfLogGenerated'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	388	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	389	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	390	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	391	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	392
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	393	AbstractSettingsApplication subclass:#TerminalViewSettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	394	instanceVariableNames:'terminalOutputIsUTF8 terminalInputIsUTF8'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	395	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	396	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	397	privateIn:AbstractSettingsApplication
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	398	!
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	399
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	400	AbstractSettingsApplication subclass:#ToolboxSettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	401	instanceVariableNames:'changesBrowserClassName fileBrowserClassName'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	402	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	403	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	404	privateIn:AbstractSettingsApplication
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	405	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	406
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	407	ApplicationModel subclass:#ClassToolSetting
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	408	instanceVariableNames:'optionValueHolder optionValueList optionLabelHolder
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	409	optionSelectionHolder optionLabelList optionCustomValueHolder
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	410	optionCustomValueVisibleHolder optionCustomValueBackgroundHolder'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	411	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	412	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	413	privateIn:AbstractSettingsApplication::ToolboxSettingsAppl
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	414	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	415
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	416	AbstractSettingsApplication subclass:#ToolsSettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	417	instanceVariableNames:'useNewVersionDiffBrowser transcriptBufferSize useNewInspector
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	418	showClockInLauncher useNewChangesBrowser useNewFileBrowser
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	419	useNewSystemBrowser useNewFileDialog useNewSettingsApplication
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	420	useProcessMonitorV2 useSmalltalkDocumentViewer useTestRunner2
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	421	showTipOfTheDayAtStartup autoRaiseTranscript eclipseStyleMenus
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	422	useNewChangeSetBrowser useCodeView2InTools
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	423	externalDiffCommandTemplate'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	424	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	425	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	426	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	427	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	428
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	429	AbstractSettingsApplication subclass:#WorkspaceSettingsAppl
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	430	instanceVariableNames:'usersModuleName workspaceDirectory'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	431	classVariableNames:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	432	poolDictionaries:''
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	433	privateIn:AbstractSettingsApplication
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	434	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	435
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	436	!AbstractSettingsApplication class methodsFor:'documentation'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	437
5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	438	copyright
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	439	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	440	COPYRIGHT (c) 2002 by eXept Software AG
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	441	All Rights Reserved
5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	442
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	443	This software is furnished under a license and may be used
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	444	only in accordance with the terms of that license and with the
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	445	inclusion of the above copyright notice. This software may not
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	446	be provided or otherwise made available to, or used by, any
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	447	other person. No title to or ownership of the software is
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	448	hereby transferred.
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	449	"
7557 c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	450	!
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	451
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	452	documentation
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	453	"
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	454	This is an abstract framework for settings applications.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	455	For a real settings dialog, you need a concrete settings dialog class to hold the pages
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	456	(as an example, see SettingsDialog)
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	457	and someone who specifies the hierarchy of settings-pages in a spec.
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	458	(as an example, see SettingsDialog class>>defaultSettingsApplicationList)
7557 c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	459
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	460	typical use:
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	461
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	462	\|settingsList settingsApp\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	463
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	464	settingsList := NewLauncher settingsList.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	465
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	466	settingsApp := SettingsDialog new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	467	'settingsApp requestor:requestingApplication'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	468	settingsApp installSettingsEntries:settingsList.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	469	settingsApp allButOpen.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	470	settingsApp window label:('ST/X Settings').
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	471	settingsApp openWindow.
7557 c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	472
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	473	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	474	! !
4226 44e2f83cc526 initial checkin penk parents: diff changeset	475
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	476	!AbstractSettingsApplication class methodsFor:'defaults'!
68504047f229 * empty log message * penk parents: 4286 diff changeset	477
68504047f229 * empty log message * penk parents: 4286 diff changeset	478	classResources
15490 6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	479	self package == AbstractLauncherApplication package ifTrue:[
6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	480	^ AbstractLauncherApplication classResources
6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	481	].
6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	482	^ super classResources
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	483	!
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	484
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	485	resourcePackName
7872 d35c66ad7c8f comment Claus Gittinger <cg@exept.de> parents: 7846 diff changeset	486	"return the name which is used as the fileNameBase of my resource file.
d35c66ad7c8f comment Claus Gittinger <cg@exept.de> parents: 7846 diff changeset	487	Here, use the same resources as the Launcher"
d35c66ad7c8f comment Claus Gittinger <cg@exept.de> parents: 7846 diff changeset	488
15490 6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	489	self package == AbstractLauncherApplication package ifTrue:[
6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	490	^ AbstractLauncherApplication resourcePackName
6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	491	].
6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	492	^ super resourcePackName
9595 e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	493	!
e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	494
e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	495	subEntryRawSettingsList
10893 b90f27b8dfd4 changed: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 10811 diff changeset	496	"redefine if I have sub-settings entries"
b90f27b8dfd4 changed: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 10811 diff changeset	497
9595 e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	498	^ #()
e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	499
e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	500	"Created: / 25-10-2010 / 09:37:21 / cg"
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	501	! !
68504047f229 * empty log message * penk parents: 4286 diff changeset	502
5283 9264c15059e7 category change penk parents: 5280 diff changeset	503	!AbstractSettingsApplication class methodsFor:'interface specs'!
9264c15059e7 category change penk parents: 5280 diff changeset	504
9264c15059e7 category change penk parents: 5280 diff changeset	505	windowSpec
9264c15059e7 category change penk parents: 5280 diff changeset	506	self subclassResponsibility
14759 47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	507	!
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	508
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	509	windowSpecForDialog
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	510	"This resource specification was automatically generated
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	511	by the UIPainter of ST/X."
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	512
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	513	"Do not manually edit this!! If it is corrupted,
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	514	the UIPainter may not be able to read the specification."
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	515
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	516	"
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	517	UIPainter new openOnClass:AbstractSettingsApplication andSelector:#windowSpecForDialog
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	518	AbstractSettingsApplication new openInterface:#windowSpecForDialog
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	519	"
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	520
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	521	<resource: #canvas>
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	522
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	523	^
14759 47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	524	#(FullSpec
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	525	name: windowSpecForDialog
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	526	window:
14759 47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	527	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	528	label: 'NewApplication'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	529	name: 'NewApplication'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	530	labelChannel: settingsString
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	531	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	532	bounds: (Rectangle 0 0 531 488)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	533	)
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	534	component:
14759 47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	535	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	536	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	537	(SubCanvasSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	538	name: 'Content'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	539	layout: (LayoutFrame 7 0 0 0 -7 1 -40 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	540	level: 0
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	541	hasHorizontalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	542	hasVerticalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	543	minorKey: windowSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	544	createNewBuilder: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	545	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	546	(HorizontalPanelViewSpec
16593 6f7fc11a4ab4 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16585 diff changeset	547	name: 'ButtonPanel'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	548	layout: (LayoutFrame 5 0 -40 1 -7 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	549	horizontalLayout: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	550	verticalLayout: center
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	551	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	552	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	553	reverseOrderIfOKAtLeft: true
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	554	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	555	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	556	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	557	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	558	label: 'Cancel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	559	name: 'CancelButton'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	560	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	561	model: doCancel
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	562	extent: (Point 159 25)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	563	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	564	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	565	label: 'OK'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	566	name: 'OKButton'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	567	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	568	model: doAccept
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	569	enableChannel: modifiedChannel
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	570	isDefault: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	571	defaultable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	572	extent: (Point 159 25)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	573	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	574	)
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	575
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	576	)
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	577	keepSpaceForOSXResizeHandleH: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	578	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	579	)
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	580
14759 47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	581	)
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	582	)
5283 9264c15059e7 category change penk parents: 5280 diff changeset	583	! !
9264c15059e7 category change penk parents: 5280 diff changeset	584
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	585	!AbstractSettingsApplication class methodsFor:'queries'!
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	586
15947 4d3269f7b832 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 15921 diff changeset	587	isAbstract
4d3269f7b832 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 15921 diff changeset	588	^ (self == AbstractSettingsApplication)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	589	!
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	590
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	591	quickSearchStrings
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	592	"returns a set of words to match in the quickSearch.
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	593	Here, as a fallback, the keys from the help spec,
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	594	the widget names and label aspects are returned
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	595	Notice that both all words and its current language translation are included
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	596	in the set and will be matched against the word in the quick search field"
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	597
18239 d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	598	\|words helpKeys resources withoutSpecialChars
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	599	addSingleWord addEachWord addEachWordXLated\|
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	600
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	601	"/ translate
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	602	resources := self classResources.
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	603
18239 d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	604	withoutSpecialChars :=
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	605	[:word \|
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	606	\|w\|
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	607
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	608	w := word.
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	609	[w startsWithAnyOf:'.,-'] whileTrue:[w := w copyButFirst].
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	610	[w endsWithAnyOf:'.,-'] whileTrue:[w := w copyButLast].
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	611	w
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	612	].
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	613
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	614	addSingleWord :=
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	615	[:word :origin\|
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	616	true "(w first isLetter)" ifTrue:[
18239 d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	617	words add:(withoutSpecialChars value:word asLowercase).
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	618	].
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	619	].
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	620
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	621	addEachWord :=
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	622	[:aString :origin\|
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	623	aString asCollectionOfWordsDo:[:w \|
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	624	addSingleWord value:w value:origin
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	625	].
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	626	].
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	627
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	628	addEachWordXLated :=
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	629	[:aString :origin \|
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	630	\|xlation\|
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	631
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	632	aString notNil ifTrue:[
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	633	addEachWord value:aString value:origin.
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	634	(xlation := resources string:aString) notNil ifTrue:[
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	635	xlation ~= aString ifTrue:[
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	636	addEachWord value:xlation value:origin.
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	637	].
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	638	].
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	639	].
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	640	].
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	641
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	642	words := Set new.
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	643	helpKeys := Set new.
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	644
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	645	self windowSpec decodeAsLiteralArray do:[:eachSpec \|
18239 d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	646	\|helpKey label name\|
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	647
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	648	label := eachSpec perform:#label ifNotUnderstood:nil.
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	649	label notNil ifTrue:[
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	650	addEachWordXLated value:label value:(#label->eachSpec).
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	651	].
18239 d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	652	name := eachSpec perform:#name ifNotUnderstood:nil.
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	653	name notNil ifTrue:[
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	654	addEachWordXLated value:name value:(#name->eachSpec).
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	655	].
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	656
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	657	(helpKey := eachSpec activeHelpKey) notNil ifTrue:[
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	658	helpKeys add:helpKey.
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	659	"/ words add:helpKey string asLowercase.
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	660	addSingleWord value:helpKey string value:(#helpKey->eachSpec)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	661	].
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	662	].
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	663	self helpSpec keys do:[:k \|
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	664	helpKeys add:k.
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	665	addSingleWord value:k value:#helpKeyTop
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	666	].
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	667
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	668	helpKeys do:[:eachKey \|
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	669	\|helpText\|
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	670
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	671	helpText := self helpSpec at:eachKey ifAbsent:nil.
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	672	addEachWordXLated value:helpText value:(#helpText->eachKey).
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	673	].
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	674	^ words
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	675
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	676	"
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	677	AbstractSettingsApplication::BuildSettingsAppl quickSearchStrings
18239 d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	678	Expecco::HotkeysSettingsApp quickSearchStrings
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	679	"
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	680
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	681	"Modified: / 25-06-2018 / 14:26:05 / Claus Gittinger"
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	682	! !
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	683
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	684	!AbstractSettingsApplication methodsFor:'accessing'!
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	685
15486 e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	686	clearDidModifySettings
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	687	"clear the flag that any settings was changed.
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	688	Not to confuse with the modified flag, which means that a settings app's
16125 a3bfff28fd3c #DOCUMENTATION Stefan Vogel <sv@exept.de> parents: 16090 diff changeset	689	changes must be stored into the UserPreferences.
15486 e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	690	This one tells if any UserPreferences has been changed, and the userPrefs
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	691	should be saved back to the settings.rc file"
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	692
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	693	didModifySettings := false.
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	694	!
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	695
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	696	didModifySettings
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	697	"true, if any settings was changed.
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	698	Not to confuse with the modified flag, which means that a settings app's
16125 a3bfff28fd3c #DOCUMENTATION Stefan Vogel <sv@exept.de> parents: 16090 diff changeset	699	changes must be stored into the UserPreferences.
15486 e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	700	This one tells if any UserPreferences has been changed, and the userPrefs
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	701	should be saved back to the settings.rc file"
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	702
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	703	^ didModifySettings
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	704	!
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	705
9484 206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	706	requestor:anotherApplication
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	707	requestor := anotherApplication.
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	708
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	709	"Modified: / 12-05-2010 / 17:16:37 / cg"
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	710	!
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	711
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	712	settingsDialog
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	713	^ settingsDialog
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	714	!
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	715
9484 206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	716	settingsDialog:aSettingsDialog
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	717	settingsDialog := aSettingsDialog.
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	718
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	719	"Modified: / 12-05-2010 / 18:44:09 / cg"
14759 47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	720	!
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	721
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	722	settingsString
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	723	^ settingsString
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	724	! !
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	725
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	726	!AbstractSettingsApplication methodsFor:'actions'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	727
14759 47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	728	accept
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	729	self saveSettings
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	730
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	731	"Created: / 14-10-2014 / 09:18:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	732	!
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	733
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	734	discardChangesAndReadSettings
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	735	self readSettings.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	736	!
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	737
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	738	evaluateModified
8553 0e83301fc922 Mark obsolete methods Stefan Vogel <sv@exept.de> parents: 8550 diff changeset	739	<resource: #obsolete>
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	740	self obsoleteMethodWarning.
c72e35116b13 instable state penk parents: 5040 diff changeset	741	^ self updateModifiedChannel.
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	742	!
330907eab7e0 * empty log message * penk parents: 4581 diff changeset	743
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	744	readSettings
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	745	self basicReadSettings.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	746
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	747	self modifiedChannel value:false.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	748	!
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	749
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	750	reopenToolsAfterChangedViewStyleSetting
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	751	\|app transcript\|
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	752
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	753	DebugView newDebugger.
15888 1d7798d909c8 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 15885 diff changeset	754
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	755	transcript := Transcript current.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	756	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
14967 e92d9ac3f138 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14954 diff changeset	757	app := transcript topView application.
e92d9ac3f138 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14954 diff changeset	758	app perform:#reopenLauncher ifNotUnderstood:[].
e92d9ac3f138 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14954 diff changeset	759	].
15888 1d7798d909c8 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 15885 diff changeset	760
14967 e92d9ac3f138 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14954 diff changeset	761	self window topView raise.
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	762	!
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	763
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	764	saveRequest
4944 fce7d52d36da * empty log message * Claus Gittinger <cg@exept.de> parents: 4941 diff changeset	765	^ self saveRequestAsking:self askForChangeOnRelease
4941 42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	766	!
42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	767
42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	768	saveRequestAsking:askForChangeOnRelease
17958 947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	769	\|result holder notAgainText\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	770
6383 62aec07a7f42 * empty log message * Claus Gittinger <cg@exept.de> parents: 6358 diff changeset	771	self hasUnsavedChanges ifTrue:[
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	772	"/ debugging
18189 1d48a832c7b8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18179 diff changeset	773	false ifTrue:[
1d48a832c7b8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18179 diff changeset	774	self whichUnsavedChangesInto:[:aspect \|
1d48a832c7b8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18179 diff changeset	775	Transcript show:'different: '; showCR:aspect.
1d48a832c7b8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18179 diff changeset	776	].
1d48a832c7b8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18179 diff changeset	777	].
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	778
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	779	askForChangeOnRelease ifTrue:[
17958 947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	780	notAgainText := resources string:'Do not ask this again (always save changes when closing)'.
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	781
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	782	Dialog
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	783	modifyingBoxWith:[:box \|
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	784	holder := false asValue.
18035 bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	785
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	786	"sr: bugfix: sorry but #confirmWithCancel:
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	787	does not support #noButton like #confirm: does.
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	788	Problem #noButton is always nil.
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	789	Seams like copy&paste code from #closeRequest but #confirm replaced by #confirmWithCancel.
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	790	I did a quick look, about how to support #noButton also for #confirmWithCancel:
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	791	but the effort and stability risks are too high for me for such a gimmick"
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	792	"/ holder onChangeEvaluate:[
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	793	"/ box noButton enabled:(holder value not)
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	794	"/ ].
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	795
17958 947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	796	box verticalPanel add:((CheckBox label:notAgainText) model:holder).
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	797	]
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	798	do:[
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	799	result := self confirmWithCancel:
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	800	(self resources
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	801	string:'Apply changes made in %1 ?'
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	802	with:(resources string:settingsString) allBold).
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	803	].
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	804
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	805	SettingsDialog autoSaveChangedSettingsOnClose:(holder value).
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	806	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	807	result := true.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	808	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	809
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	810	result isNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	811	^ false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	812	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	813	result ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	814	self saveSettings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	815	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	816	"/ reload current settings to show the right thing when re-entering.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	817	self readSettings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	818	]
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	819	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	820	^ true
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	821
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	822	"Modified: / 20-09-2006 / 23:56:25 / cg"
18035 bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	823	"Modified (comment): / 10-04-2018 / 16:55:30 / sr"
18189 1d48a832c7b8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18179 diff changeset	824	"Modified: / 09-06-2018 / 11:03:26 / Claus Gittinger"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	825	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	826
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	827	saveSettings
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	828	self basicSaveSettings.
15486 e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	829	didModifySettings := true.
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	830	self modifiedChannel value:false.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	831	!
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	832
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	833	saveSettingsIfUnsavedChangesArePresent
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	834	self hasUnsavedChanges ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	835	self saveSettings.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	836	self modifiedChannel value:false
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	837	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	838	!
c72e35116b13 instable state penk parents: 5040 diff changeset	839
c72e35116b13 instable state penk parents: 5040 diff changeset	840	updateModifiedChannel
c72e35116b13 instable state penk parents: 5040 diff changeset	841	self modifiedChannel value:self hasUnsavedChanges
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	842	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	843
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	844	!AbstractSettingsApplication methodsFor:'aspects'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	845
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	846	aspects
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	847	"if redefined to return a non-nil list of preference-key aspects,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	848	you can then use the basicSaveSettings/basicReadSettings/hasUnsavedChanges
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	849	as inherited from here.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	850	Otherwise, if you do not want the aspect-list-keys to be read/saved in the settings,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	851	you MUST redefine all of the 3 above mentioned methods."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	852
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	853	^ nil
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	854	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	855
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	856	modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	857	^ modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	858	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	859
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	860	!AbstractSettingsApplication methodsFor:'helpers'!
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	861
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	862	hasChangedAspectIn:aListOfAspects asComparedTo:anAspectProvider
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	863	"this code-sharing helper compares a bunch of aspect value against some object.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	864	The object is typically the current userPreferences object, or a flag-holder, such
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	865	as ParserFlags.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	866	Using this, and a list of aspect selectors replaces code like:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	867	someone aspect1 ~= (self aspect1 value) ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	868	someone aspect2 ~= (self aspect2 value) ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	869	...
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	870	someone aspectN ~= (self aspectN value) ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	871	^ false
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	872	Prerequisite:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	873	local aspects must be named like corresponding aspect methods in the flag-provider.
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	874	"
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	875
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	876	aListOfAspects do:[:eachAspectSymbol \|
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	877	(self myAspectFor:eachAspectSymbol) value ~= (anAspectProvider perform:eachAspectSymbol) ifTrue:[
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	878	"/ to debug missing apply-enablements
18551 15acc9248294 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18425 diff changeset	879	"/ Smalltalk enableBreakPoint:#cg.
15acc9248294 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18425 diff changeset	880	"/ Smalltalk disableBreakPoint:#cg.
15acc9248294 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18425 diff changeset	881
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	882	self debuggingCodeFor:#cg is:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	883	Transcript showCR:'settings aspect is different: ',eachAspectSymbol.
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	884	Transcript showCR:' here: ',((self myAspectFor:eachAspectSymbol) value) printString.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	885	Transcript showCR:' there: ',((anAspectProvider perform:eachAspectSymbol) value) printString.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	886	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	887	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	888	].
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	889	].
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	890	^ false
9797 76995c67487f comment/format in: #hasChangedAspectIn:asComparedTo: Claus Gittinger <cg@exept.de> parents: 9792 diff changeset	891
76995c67487f comment/format in: #hasChangedAspectIn:asComparedTo: Claus Gittinger <cg@exept.de> parents: 9792 diff changeset	892	"Modified: / 23-03-2011 / 15:45:11 / cg"
18551 15acc9248294 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18425 diff changeset	893	"Modified (format): / 21-12-2018 / 14:57:12 / Claus Gittinger"
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	894	!
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	895
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	896	myAspectFor:aspectSymbol
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	897	"/ used to be (self perform:aspectSymbol),
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	898	"/ but I am tired of having to add all those aspect getters.
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	899
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	900	^ self
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	901	perform:aspectSymbol
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	902	ifNotUnderstood:[
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	903	\|holder\|
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	904
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	905	self createBuilder.
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	906	(holder := builder bindingAt:aspectSymbol) isNil ifTrue:[
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	907	builder aspectAt:aspectSymbol put:(holder := nil asValue).
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	908	holder onChangeSend:#updateModifiedChannel to:self.
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	909	].
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	910	holder
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	911	].
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	912
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	913	"Created: / 04-06-2018 / 13:45:09 / Claus Gittinger"
14505 a45081b27fc3 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14485 diff changeset	914	!
a45081b27fc3 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14485 diff changeset	915
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	916	readAspects:aListOfAspects from:anAspectProvider
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	917	"this code-sharing helper reads a bunch of aspect values from some object.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	918	The object is typically the current userPreferences object, or a flag-holder, such
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	919	as ParserFlags.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	920	Using this, and a list of aspect selectors replaces code like:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	921	self aspect1 value:(someone aspect1).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	922	self aspect2 value:(someone aspect2).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	923	...
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	924	self aspectN value:(someone aspectN).
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	925	Prerequisite:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	926	local aspects must be named like corresponding aspect methods in the flag-provider.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	927	"
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	928
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	929	aListOfAspects do:[:eachAspectSymbol \|
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	930	(self myAspectFor:eachAspectSymbol)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	931	value:(anAspectProvider perform:eachAspectSymbol)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	932	withoutNotifying:self
9738 7dd722970a40 changed: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 9657 diff changeset	933	].
7dd722970a40 changed: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 9657 diff changeset	934
7dd722970a40 changed: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 9657 diff changeset	935	"Modified: / 08-02-2011 / 09:11:03 / cg"
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	936	"Modified: / 04-06-2018 / 13:45:55 / Claus Gittinger"
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	937	!
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	938
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	939	whichChangedAspectIn:aListOfAspects asComparedTo:anAspectProvider
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	940	"this code-sharing helper compares a bunch of aspect value against some object,
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	941	and returns a list of changed aspect names (for info only, in a confirmer).
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	942	The object is typically the current userPreferences object, or a flag-holder, such
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	943	as ParserFlags.
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	944	Using this, and a list of aspect selectors replaces code like:
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	945	someone aspect1 ~= (self aspect1 value) ifTrue:[^ true].
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	946	someone aspect2 ~= (self aspect2 value) ifTrue:[^ true].
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	947	...
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	948	someone aspectN ~= (self aspectN value) ifTrue:[^ true].
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	949	^ false
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	950	Prerequisite:
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	951	local aspects must be named like corresponding aspect methods in the flag-provider.
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	952	"
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	953
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	954	^ aListOfAspects select:[:eachAspectSymbol \|
18176 96c61c107803 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18174 diff changeset	955	(self aspectFor:eachAspectSymbol) value ~= (anAspectProvider perform:eachAspectSymbol)
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	956	]
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	957
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	958	"Created: / 31-05-2018 / 12:53:05 / Claus Gittinger"
18176 96c61c107803 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18174 diff changeset	959	"Modified: / 02-06-2018 / 05:14:30 / Claus Gittinger"
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	960	!
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	961
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	962	whichChangedAspectIn:aListOfAspects asComparedTo:anAspectProvider into:aBlock
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	963	"this code-sharing helper compares a bunch of aspect value against some object,
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	964	and returns a list of changed aspect names through aBlock(for info only, in a confirmer)"
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	965
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	966	^ aListOfAspects select:[:eachAspectSymbol \|
18176 96c61c107803 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18174 diff changeset	967	(self aspectFor:eachAspectSymbol) value ~= (anAspectProvider perform:eachAspectSymbol)
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	968	ifTrue:[ aBlock value:eachAspectSymbol ]
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	969	]
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	970
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	971	"Created: / 31-05-2018 / 12:57:19 / Claus Gittinger"
18176 96c61c107803 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18174 diff changeset	972	"Modified: / 02-06-2018 / 05:14:33 / Claus Gittinger"
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	973	!
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	974
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	975	writeAspects:aListOfAspects to:anAspectProvider
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	976	"this code-sharing helper writes a bunch of aspect values into some object.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	977	The object is typically the current userPreferences object, or a flag-holder, such
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	978	as ParserFlags.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	979	Using this, and a list of aspect selectors replaces code like:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	980	someone aspect1:(self aspect1 value).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	981	someone aspect2:(self aspect2 value).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	982	...
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	983	someone aspectN:(self aspectN value).
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	984	Prerequisite:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	985	local aspects must be named like corresponding aspect methods in the flag-provider.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	986	"
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	987
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	988	aListOfAspects do:[:eachAspectSymbol \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	989	anAspectProvider
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	990	perform:eachAspectSymbol asMutator
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	991	with:(self myAspectFor:eachAspectSymbol) value
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	992	].
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	993
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	994	"Modified: / 24-08-2010 / 16:52:42 / sr"
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	995	"Modified: / 04-06-2018 / 13:45:48 / Claus Gittinger"
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	996	! !
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	997
14759 47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	998	!AbstractSettingsApplication methodsFor:'hooks'!
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	999
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1000	preOpenWith: anUIBuilder
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1001	self readSettings
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1002
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1003	"Created: / 14-10-2014 / 09:16:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1004	! !
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1005
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1006	!AbstractSettingsApplication methodsFor:'initialization'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1007
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1008	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	1009	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	1010
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1011	super initialize.
19487 cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	1012	modifiedChannel := false asValue.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1013	resources := self class classResources.
9484 206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	1014	currentUserPrefs isNil ifTrue:[ self initializeCurrentUserPreferences ].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1015	settingsString := (UISpecification from:(self class windowSpec)) window label.
15486 e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	1016	didModifySettings := false.
15483 7142c70e4a6b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15388 diff changeset	1017
19487 cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	1018
4886 4fcb51786045 readSettings is no longer done in Claus Gittinger <cg@exept.de> parents: 4883 diff changeset	1019	"/ self readSettings.
9484 206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	1020
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	1021	"Modified: / 08-02-2017 / 00:29:53 / cg"
6125 09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	1022	!
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	1023
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	1024	initializeCurrentUserPreferences
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	1025	currentUserPrefs := UserPreferences current.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1026	! !
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1027
5078 9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	1028	!AbstractSettingsApplication methodsFor:'menu'!
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	1029
5080 9c9736712295 middleButtonMenu fix penk parents: 5078 diff changeset	1030	settingsDialogPopUpMenu
5078 9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	1031	^ nil
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	1032	! !
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	1033
14759 47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1034	!AbstractSettingsApplication methodsFor:'opening'!
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1035
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1036	open
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1037	"open a standard interface.
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1038	Sorry, but for visualworks compatibility, the builder is returned"
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1039
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1040	^ self openInterfaceModal: #windowSpecForDialog
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1041
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1042	"Created: / 14-10-2014 / 09:15:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1043	! !
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1044
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	1045	!AbstractSettingsApplication methodsFor:'protocol'!
289972d3e455 * empty log message * penk parents: 4319 diff changeset	1046
4873 3ffb8a8812ec * empty log message * penk parents: 4851 diff changeset	1047	askForChangeOnRelease
17958 947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	1048	"shall we ask if changed settings should be saved, when closing?"
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	1049
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	1050	^ SettingsDialog autoSaveChangedSettingsOnClose not
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	1051	!
97ccd5a946f4 next step penk parents: 4813 diff changeset	1052
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1053	basicReadSettings
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1054	"utility to read aspects as listed in the aspects method.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1055	If that has not been redefined, an error will be reported,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1056	as you should then redefine this method in a subclass"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1057
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1058	\|aspects\|
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1059
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1060	(aspects := self aspects) notNil ifTrue:[
17964 45bb084eb341 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17958 diff changeset	1061	self readAspects: aspects from:currentUserPrefs.
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1062	^ self
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1063	].
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1064	^ self subclassResponsibility:'either basicReadSettings or aspects must be redefined'
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1065	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1066
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1067	basicSaveSettings
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1068	"utility to save aspects as listed in the aspects method.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1069	If that has not been redefined, an error will be reported,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1070	as you should then redefine this method in a subclass"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1071
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1072	\|aspects\|
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1073
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1074	(aspects := self aspects) notNil ifTrue:[
17964 45bb084eb341 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17958 diff changeset	1075	self writeAspects:aspects to:currentUserPrefs.
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1076	^ self
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1077	].
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1078	^ self subclassResponsibility
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1079	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1080
17792 c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1081	editorHelpRelativeWikiURL
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1082	"the relative URL of the dialog-description in the Wiki"
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1083
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1084	^ nil
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1085
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1086	"Created: / 25-11-2017 / 23:43:05 / cg"
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1087	!
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1088
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1089	hasUnsavedChanges
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1090	"utility to check for changed aspects as listed in the aspects method.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1091	If that has not been redefined, an error will be reported,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1092	as you should then redefine this method in a subclass"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1093
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1094	\|aspects\|
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1095
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1096	(aspects := self aspects) notNil ifTrue:[
19428 12399a7d7510 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19427 diff changeset	1097	^ self hasChangedAspectIn:aspects asComparedTo:currentUserPrefs
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1098	].
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1099	^ self subclassResponsibility
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1100	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1101
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	1102	help
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1103	\|filename\|
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1104
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1105	filename := self helpFilename.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1106	filename isNil ifTrue:[
18335 a93c65ae395c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18329 diff changeset	1107	self warn:('Sorry - no Help available here.').
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1108	^ self.
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1109	].
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1110	self withWaitCursorDo:[
18075 0e328a880264 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18048 diff changeset	1111	Warning handle:[:ex \|
0e328a880264 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18048 diff changeset	1112	Dialog warn:ex description
0e328a880264 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18048 diff changeset	1113	] do:[
0e328a880264 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18048 diff changeset	1114	HTMLDocumentView openFullOnHelpFile:filename
0e328a880264 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18048 diff changeset	1115	].
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1116	].
18335 a93c65ae395c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18329 diff changeset	1117
a93c65ae395c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18329 diff changeset	1118	"Modified: / 09-08-2018 / 15:29:59 / Claus Gittinger"
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1119	!
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1120
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1121	helpFilename
15492 8a58c96052b4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15490 diff changeset	1122	"subclasses must return either the relative path of a helpFile
8a58c96052b4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15490 diff changeset	1123	in the doc/online/<language>/help directory,
8a58c96052b4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15490 diff changeset	1124	or an absolute path (typically in its packageDirectory).
8a58c96052b4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15490 diff changeset	1125	If an absolute filename is returned, the %(lang) sequence is replaced
8a58c96052b4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15490 diff changeset	1126	by the current user's language.
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1127	Or nil, if no help is available."
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1128
8031 ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	1129	Smalltalk isStandAloneApp ifFalse:[
15492 8a58c96052b4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15490 diff changeset	1130	self subclassResponsibility.
8031 ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	1131	].
ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	1132	^ nil.
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1133	!
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1134
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1135	whichUnsavedChangesInto:aBlock
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1136	"utility to return a list of changed aspects through aBlock.
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1137	(for info only, in a confirmer)"
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1138
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1139	\|aspects\|
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1140
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1141	(aspects := self aspects) notNil ifTrue:[
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1142	self
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1143	whichChangedAspectIn:(self aspects)
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1144	asComparedTo:currentUserPrefs
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1145	into:aBlock.
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1146	^ self
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1147	].
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1148	^ self subclassResponsibility
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1149
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1150	"Created: / 31-05-2018 / 12:56:53 / Claus Gittinger"
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1151	!
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1152
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1153	widgetsWithChangedSettingsDo:aBlock
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1154	"/ to be redefined in subclasses...
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1155
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1156	\|mySpec\|
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1157
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1158	self hasValuesDifferentFromDefault ifTrue:[
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1159	mySpec := self class windowSpec decodeAsLiteralArray.
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1160	(self aspects ? #()) do:[:aspect \|
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1161	\|subSpec widget\|
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1162
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1163	(UserPreferences default perform:aspect) ~= (currentUserPrefs perform:aspect) ifTrue:[
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1164	subSpec := mySpec findSpecForWhich:[:spec \| spec model = aspect].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1165	widget := self window
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1166	allSubViewsDetect:[:w \| w name = subSpec name]
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1167	ifNone:nil.
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1168	aBlock value:widget.
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1169	].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1170	].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1171	].
4226 44e2f83cc526 initial checkin penk parents: diff changeset	1172	! !
44e2f83cc526 initial checkin penk parents: diff changeset	1173
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	1174	!AbstractSettingsApplication methodsFor:'queries'!
1bde09704293 * empty log message * penk parents: 4893 diff changeset	1175
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1176	hasValuesDifferentFromDefault
18584 8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1177	\|savedCurrent\|
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1178
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1179	self hasUnsavedChanges ifTrue:[
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1180	^ true
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1181	].
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1182
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1183	savedCurrent := currentUserPrefs.
18584 8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1184	currentUserPrefs := UserPreferences default.
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1185	^ [self hasUnsavedChanges] ensure:[currentUserPrefs := savedCurrent].
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1186
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1187	"Modified (format): / 12-02-2019 / 20:47:41 / Stefan Vogel"
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1188	!
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1189
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	1190	isEnabledInSettingsDialog:aSettingsDialog
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	1191	^ true
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	1192
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	1193	"Created: / 25-01-2007 / 16:47:45 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	1194	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	1195
19427 8bfdbf0c5d88 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19397 diff changeset	1196	isWindowsDisplay
8bfdbf0c5d88 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19397 diff changeset	1197	^ Screen current isWindowsPlatform
8bfdbf0c5d88 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19397 diff changeset	1198	!
8bfdbf0c5d88 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19397 diff changeset	1199
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	1200	itemPathName
16309 77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	1201	settingsDialog isNil ifTrue:[^ ''].
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	1202	^ settingsDialog getNameOfApplication:self.
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1203	!
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1204
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1205	quickSearchStrings
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	1206	"returns a set of keywords to match in the quickSearch.
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1207	Notice that both the word and its current language translation is matched against
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1208	the text in the quick search field"
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1209
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1210	^ self class quickSearchStrings
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	1211	! !
1bde09704293 * empty log message * penk parents: 4893 diff changeset	1212
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1213	!AbstractSettingsApplication::AllSettingsAppl class methodsFor:'documentation'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1214
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1215	documentation
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1216	"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1217	this little app provides an alternative view on all settings keys.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1218	This offers a name-list of settings values, and thus allows for
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1219	settings to be changed for which no 'real' UI has been programmed.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1220	(i.e. a fallback for missing things)
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1221	"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1222	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1223
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1224	!AbstractSettingsApplication::AllSettingsAppl class methodsFor:'interface specs'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1225
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1226	windowSpec
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1227	"This resource specification was automatically generated
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1228	by the UIPainter of ST/X."
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1229
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1230	"Do not manually edit this!! If it is corrupted,
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1231	the UIPainter may not be able to read the specification."
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1232
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1233	"
15956 786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1234	UIPainter new openOnClass:AbstractSettingsApplication::AllSettingsAppl andSelector:#windowSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1235	AbstractSettingsApplication::AllSettingsAppl new openInterface:#windowSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1236	AbstractSettingsApplication::AllSettingsAppl open
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1237	"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1238
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1239	<resource: #canvas>
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1240
15956 786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1241	^
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1242	#(FullSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1243	name: windowSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1244	window:
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1245	(WindowSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1246	label: 'All Settings'
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1247	name: 'All Settings'
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1248	min: (Point 10 10)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1249	bounds: (Rectangle 0 0 659 242)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1250	)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1251	component:
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1252	(SpecCollection
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1253	collection: (
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1254	(DataSetSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1255	name: 'Table1'
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1256	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1257	model: selectedSettingHolder
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1258	hasHorizontalScrollBar: true
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1259	hasVerticalScrollBar: true
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1260	dataList: settingsList
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1261	columns:
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1262	(OrderedCollection
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1263
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1264	(DataSetColumnSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1265	label: 'Name'
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1266	labelButtonType: Button
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1267	height: heightOfFirstRow
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1268	model: key
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1269	menuFromApplication: false
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1270	)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1271	(DataSetColumnSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1272	label: 'Value'
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1273	labelButtonType: Button
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1274	height: heightOfFirstRow
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1275	model: value
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1276	menuFromApplication: false
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1277	)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1278	)
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1279	)
15956 786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1280	)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1281
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1282	)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1283	)
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1284	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1285
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1286	!AbstractSettingsApplication::AllSettingsAppl methodsFor:'actions'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1287
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1288	basicReadSettings
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1289	super basicReadSettings.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1290
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1291	usedCompilerForBuild value isNil ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1292	currentUserPrefs usedCompilerForBuild:(Tools::ProjectBuilder defaultUsedCompiler).
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1293	usedCompilerForBuild value:(Tools::ProjectBuilder defaultUsedCompiler).
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1294	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1295
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1296	"Modified: / 26-07-2012 / 23:16:52 / cg"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1297	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1298
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1299	basicSaveSettings
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1300	\|buildDir\|
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1301
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1302	buildDir := buildDirectory value.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1303	buildDir notEmptyOrNil ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1304	buildDir := buildDir asFilename.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1305	buildDir isDirectory ifFalse:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1306	(Dialog confirm:(resources
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1307	stringWithCRs:'Build directory %1 does not exist.\\Create?'
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1308	with:buildDir pathName allBold))
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1309	ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1310	buildDir makeDirectory.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1311	]
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1312	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1313	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1314
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1315	super basicSaveSettings.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1316
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1317	"Modified: / 22-01-2012 / 10:50:09 / cg"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1318	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1319
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1320	cleanupBuildDirectory
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1321	\|buildDir\|
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1322
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1323	buildDir := buildDirectory value.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1324	buildDir isEmptyOrNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1325	^ self.
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1326	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1327	buildDir := buildDir asFilename.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1328	(buildDir exists and:[Dialog confirm:('Really delete <1p> ?' expandMacrosWith:buildDir physicalPathName)]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1329	buildDir recursiveRemove.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1330	buildDir makeDirectory.
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1331	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1332	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1333
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1334	!AbstractSettingsApplication::AllSettingsAppl methodsFor:'aspects'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1335
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1336	aspects
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1337	^ #(
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1338	buildDirectory
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1339	localBuild
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1340	usedCompilerForBuild
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1341	)
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1342	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1343
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1344	buildDirectory
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1345	^ buildDirectory.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1346	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1347
15956 786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1348	fetchSettingsList
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1349	\|list\|
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1350
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1351	list := List new.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1352	UserPreferences selectorsAndMethodsDo:[:sel :mthd\|
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1353	\|setter getter getterMethod\|
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1354
19133 c41dbe689ab6 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19074 diff changeset	1355	sel argumentCount == 1 ifTrue:[
15956 786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1356	(sel endsWith:$:) ifTrue:[
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1357	setter := sel.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1358	getter := sel copyButLast asSymbolIfInterned.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1359	getter notNil ifTrue:[
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1360	(UserPreferences implements:getter) ifTrue:[
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1361	getterMethod := UserPreferences compiledMethodAt:getter.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1362	getterMethod isObsolete ifFalse:[
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1363	list add:(sel -> (UserPreferences current perform:getter)).
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1364	].
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1365	].
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1366	].
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1367	].
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1368	].
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1369	].
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1370	list sortBySelector:#key.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1371	^ list
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1372	!
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1373
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1374	hasSourceCodeManager
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1375	^ SourceCodeManager notNil
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1376	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1377
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1378	listOfPossibleCompilers
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1379	^ Tools::ProjectBuilder listOfPossibleCompilers
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1380
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1381	"Created: / 21-01-2012 / 14:05:43 / cg"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1382	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1383
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1384	localBuild
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1385	^ localBuild.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1386	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1387
15956 786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1388	selectedSettingHolder
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1389	<resource: #uiAspect>
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1390
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1391	^ selectedSettingHolder.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1392	!
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1393
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1394	settingsList
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1395	<resource: #uiAspect>
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1396
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1397	settingsList isNil ifTrue:[
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1398	settingsList := self fetchSettingsList.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1399
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1400	].
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1401	^ settingsList.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1402	!
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1403
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1404	usedCompilerForBuild
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1405	^ usedCompilerForBuild.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1406
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1407	"Created: / 22-01-2012 / 10:59:30 / cg"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1408	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1409
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1410	!AbstractSettingsApplication::AllSettingsAppl methodsFor:'help'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1411
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1412	helpFilename
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1413	^ 'Launcher/buildSetup.html'
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1414	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1415
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1416	!AbstractSettingsApplication::AllSettingsAppl methodsFor:'initialization'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1417
19488 4c7397fe2715 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19487 diff changeset	1418	initialize
4c7397fe2715 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19487 diff changeset	1419	super initialize.
4c7397fe2715 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19487 diff changeset	1420
4c7397fe2715 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19487 diff changeset	1421	buildDirectory := ValueHolder new.
4c7397fe2715 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19487 diff changeset	1422	buildDirectory onChangeSend:#updateModifiedChannel to:self.
4c7397fe2715 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19487 diff changeset	1423
4c7397fe2715 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19487 diff changeset	1424	localBuild := ValueHolder with:(UserPreferences current localBuild).
4c7397fe2715 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19487 diff changeset	1425	localBuild onChangeSend:#updateModifiedChannel to:self.
4c7397fe2715 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19487 diff changeset	1426
4c7397fe2715 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19487 diff changeset	1427	selectedSettingHolder := ValueHolder new.
4c7397fe2715 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19487 diff changeset	1428
4c7397fe2715 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19487 diff changeset	1429	usedCompilerForBuild := ValueHolder new.
4c7397fe2715 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19487 diff changeset	1430	usedCompilerForBuild onChangeSend:#updateModifiedChannel to:self.
4c7397fe2715 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19487 diff changeset	1431	!
4c7397fe2715 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19487 diff changeset	1432
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1433	postBuildDirectoryField:aField
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1434	aField historyList value:(Array
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1435	with:(OperatingSystem getHomeDirectory asFilename construct:'stx_build') pathName
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1436	with:(Filename currentDirectory construct:'stx_build') pathName)
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1437	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1438
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1439	!AbstractSettingsApplication::AllSettingsAppl methodsFor:'queries'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1440
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1441	hasUnsavedChanges
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1442	(super hasUnsavedChanges) ifTrue:[^ true].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1443	^ false
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1444
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1445	"Modified: / 22-01-2012 / 10:50:15 / cg"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1446	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1447
17283 ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1448	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl class methodsFor:'documentation'!
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1449
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1450	documentation
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1451	"
17425 8e4e287d31c3 #DOCUMENTATION by mawalch mawalch parents: 17418 diff changeset	1452	I manage packages which are to be loaded automatically
8e4e287d31c3 #DOCUMENTATION by mawalch mawalch parents: 17418 diff changeset	1453	whenever st/x is started
17283 ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1454	"
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1455	! !
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1456
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1457	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl class methodsFor:'help specs'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1458
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1459	helpSpec
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1460	"This resource specification was automatically generated
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1461	by the UIHelpTool of ST/X."
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1462
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1463	"Do not manually edit this!! If it is corrupted,
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1464	the UIHelpTool may not be able to read the specification."
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1465
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1466	"
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1467	UIHelpTool openOnClass:AbstractSettingsApplication::MemorySettingsAppl
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1468	"
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1469
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1470	<resource: #help>
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1471
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1472	^ super helpSpec addPairsFrom:#(
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	1473	#autoloadedPackages
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	1474	'Select known packages from the left list, and click on ">>>" to add them to the autoloaded list.\These will be automatically loaded when ST/X is started without a snapshot image.\Packages are searched along the packagePath.'
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1475
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1476	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1477	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1478
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1479	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl class methodsFor:'image specs'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1480
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1481	defaultIcon
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1482	<resource: #programImage>
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1483
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1484	^ ToolbarIconLibrary packageOpen24x24Icon
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1485	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1486
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1487	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl class methodsFor:'interface specs'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1488
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1489	windowSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1490	"This resource specification was automatically generated
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1491	by the UIPainter of ST/X."
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1492
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1493	"Do not manually edit this!! If it is corrupted,
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1494	the UIPainter may not be able to read the specification."
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1495
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1496	"
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1497	UIPainter new openOnClass:AbstractSettingsApplication::AutoloadedPackagesSettingsAppl andSelector:#windowSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1498	AbstractSettingsApplication::AutoloadedPackagesSettingsAppl new openInterface:#windowSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1499	AbstractSettingsApplication::AutoloadedPackagesSettingsAppl open
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1500	"
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1501
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1502	<resource: #canvas>
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1503
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1504	^
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1505	#(FullSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1506	name: windowSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1507	window:
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1508	(WindowSpec
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	1509	label: 'Autoloaded Packages Settings'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	1510	name: 'Autoloaded Packages Settings'
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1511	min: (Point 10 10)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1512	bounds: (Rectangle 0 0 705 722)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1513	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1514	component:
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1515	(SpecCollection
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1516	collection: (
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1517	(FramedBoxSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1518	label: 'Packages Automatically Loaded at Startup'
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1519	name: 'FramedBox1'
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1520	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1521	labelPosition: topLeft
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1522	translateLabel: true
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	1523	activeHelpKey: autoloadedPackages
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1524	component:
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1525	(SpecCollection
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1526	collection: (
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1527	(SubCanvasSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1528	name: 'SubCanvas1'
16214 3ed986359821 #FEATURE Claus Gittinger <cg@exept.de> parents: 16210 diff changeset	1529	layout: (LayoutFrame 0 0 8 0 0 1 0 1)
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1530	hasHorizontalScrollBar: false
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1531	hasVerticalScrollBar: false
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1532	majorKey: MultipleItemSelectionWidget
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1533	createNewApplication: true
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1534	createNewBuilder: false
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1535	postBuildCallback: postCreatePackageChooserWidget:
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1536	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1537	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1538
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1539	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1540	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1541	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1542
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1543	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1544	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1545	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1546
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1547	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl methodsFor:'actions'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1548
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1549	basicReadSettings
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1550	packageChooser notNil ifTrue:[
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1551	packageChooser listOfSelectedItems value:(UserPreferences current autoloadedPackages).
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1552	].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1553	!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1554
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1555	basicSaveSettings
16943 3e04cb80244f #BUGFIX by mawalch mawalch parents: 16925 diff changeset	1556	UserPreferences current
3e04cb80244f #BUGFIX by mawalch mawalch parents: 16925 diff changeset	1557	autoloadedPackages:(packageChooser listOfSelectedItems value asArray collect:[:each \| each asString string]).
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1558	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1559
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1560	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl methodsFor:'aspects'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1561
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1562	aspects
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1563	^ #(
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1564	autoloadedPackages
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1565	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1566	!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1567
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1568	possibleItemsLabel
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1569	^ 'Available Packages'.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1570	!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1571
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1572	readPackageList
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1573	"self basicNew readPackageList"
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1574
16219 b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1575	\|packageDirPath list setOfPackages setOfAlreadySelectedPckages\|
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1576
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1577	packageDirPath := Smalltalk getSystemFileName:'packages'.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1578	packageDirPath isNil ifTrue:[
16257 7a7ff15e751b #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16219 diff changeset	1579	^ #()
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1580	].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1581
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1582	list := OrderedCollection new.
16218 25ee303ae609 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16216 diff changeset	1583	setOfPackages := Set new.
16219 b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1584	setOfAlreadySelectedPckages := UserPreferences current autoloadedPackages asSet.
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1585
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1586	packageDirPath asFilename directoryContentsAsFilenames sort do:[:fn \|
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1587	\|item base nm path parentPath parent isLibrary isApplication isAlreadyLoaded
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1588	defClass target packageID\|
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1589
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1590	((fn suffix = 'mcz')
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1591	or:[ fn isDirectory
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1592	or:[ (fn baseName startsWith:'.')
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1593	or:[ (fn baseName = 'README') ]]
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1594	]) ifFalse:[
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1595	base := fn withoutSuffix baseName.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1596	(base startsWith:'lib') ifTrue:[
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1597	nm := (base copyFrom:4).
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1598	fn suffix notEmptyOrNil ifTrue:[
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1599	isLibrary := true.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1600	isApplication := false.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1601	] ifFalse:[
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1602	isLibrary := false.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1603	isApplication := true.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1604	]
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1605	] ifFalse:[
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1606	nm := base.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1607	isLibrary := false.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1608	isApplication := true.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1609	].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1610
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1611	path := nm asCollectionOfSubstringsSeparatedBy:$_.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1612	packageID := (path size > 1)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1613	ifTrue:[ path first , ':' , ((path copyFrom:2) asStringWith:$/) ]
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1614	ifFalse:[ path first ].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1615
16218 25ee303ae609 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16216 diff changeset	1616	(setOfPackages includes:packageID) ifFalse:[
16219 b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1617	(setOfAlreadySelectedPckages includes:packageID) ifFalse:[
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1618	setOfPackages add:packageID.
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1619	isAlreadyLoaded :=
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1620	(defClass := ProjectDefinition definitionClassForPackage:packageID) notNil
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1621	and:[ defClass isLoaded
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1622	and:[ defClass isFullyLoaded ]].
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1623
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1624	isAlreadyLoaded ifTrue:[
19074 47b266104e80 #OTHER by exept Claus Gittinger <cg@exept.de> parents: 19041 diff changeset	1625	list add:(packageID,(' (currently loaded)' allGray))
16219 b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1626	] ifFalse:[
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1627	list add:packageID
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1628	]
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1629	].
16218 25ee303ae609 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16216 diff changeset	1630	].
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1631	].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1632	].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1633	list sort.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1634	^ list
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1635	!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1636
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1637	selectedItemsLabel
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1638	^ 'Packages Loaded at Startup'.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1639	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1640
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1641	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl methodsFor:'help'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1642
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1643	helpFilename
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1644	^ 'Launcher/autoloadedPackagesSettings.html'
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1645	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1646
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1647	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl methodsFor:'initialization'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1648
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1649	postCreatePackageChooserWidget:aPackageChooser
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1650	\|availPackages selectedPackages setOfSelectedPackages\|
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1651
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1652	availPackages := self readPackageList.
16210 58264c7da774 #REFACTORING Claus Gittinger <cg@exept.de> parents: 16200 diff changeset	1653	selectedPackages := UserPreferences current autoloadedPackages.
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1654	setOfSelectedPackages := selectedPackages asSet.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1655
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1656	availPackages := availPackages reject:[:el \| setOfSelectedPackages includes:el].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1657
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1658	packageChooser := aPackageChooser application.
16214 3ed986359821 #FEATURE Claus Gittinger <cg@exept.de> parents: 16210 diff changeset	1659	packageChooser addAllButtonVisibleHolder value:false.
3ed986359821 #FEATURE Claus Gittinger <cg@exept.de> parents: 16210 diff changeset	1660	packageChooser removeAllButtonVisibleHolder value:false.
16210 58264c7da774 #REFACTORING Claus Gittinger <cg@exept.de> parents: 16200 diff changeset	1661	packageChooser listOfPossibleItems value:availPackages asOrderedCollection.
58264c7da774 #REFACTORING Claus Gittinger <cg@exept.de> parents: 16200 diff changeset	1662	packageChooser listOfSelectedItems value:selectedPackages asOrderedCollection.
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1663	packageChooser possibleItemsLabelHolder value:(resources string:self possibleItemsLabel).
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1664	packageChooser selectedItemsLabelHolder value:(resources string:self selectedItemsLabel).
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1665
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1666	packageChooser listOfSelectedItems onChangeSend:#updateModifiedChannel to:self.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1667	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1668
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1669	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl methodsFor:'queries'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1670
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1671	hasUnsavedChanges
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1672	packageChooser notNil ifTrue:[
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1673	packageChooser listOfSelectedItems value asArray = UserPreferences current autoloadedPackages asArray ifFalse:[^true].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1674	].
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1675	^ false.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1676	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1677
17283 ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1678	!AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'documentation'!
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1679
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1680	documentation
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1681	"
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1682	I manage parameters for package building (for deployment)
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1683	"
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1684	! !
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1685
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1686	!AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'help specs'!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1687
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1688	helpSpec
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1689	"This resource specification was automatically generated
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1690	by the UIHelpTool of ST/X."
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1691
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1692	"Do not manually edit this!! If it is corrupted,
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1693	the UIHelpTool may not be able to read the specification."
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1694
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1695	"
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1696	UIHelpTool openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1697	"
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1698
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1699	<resource: #help>
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1700
18624 46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1701	^ super helpSpec addPairsFrom:#(
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1702
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1703	#buildDirectory
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1704	'Temporary folder, where application packages are built for deployment.\If left unspecified, this defaults to the workspace folder or the current directory, if no workspace has been defined).'
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1705
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1706	#localBuild
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1707	'If checked, files are saved from the image to the build directory and compiled there.\If unchecked, files need to be checked into a repository and are fetched from there into a temporary for a build.'
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1708
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1709
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1710	)
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1711
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1712	"Modified: / 28-02-2019 / 12:52:31 / Claus Gittinger"
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1713	! !
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1714
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1715	!AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'image specs'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1716
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1717	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	1718	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	1719
9803 ca480beae977 set icon resource Stefan Vogel <sv@exept.de> parents: 9797 diff changeset	1720	^ AbstractSettingsApplication::ByteCodeCompilerSettingsAppl defaultIcon
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	1721
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	1722	"Modified: / 17-09-2007 / 11:35:02 / cg"
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1723	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1724
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1725	!AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'interface specs'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1726
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1727	windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1728	"This resource specification was automatically generated
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1729	by the UIPainter of ST/X."
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1730
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1731	"Do not manually edit this!! If it is corrupted,
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1732	the UIPainter may not be able to read the specification."
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1733
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1734	"
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1735	UIPainter new openOnClass:AbstractSettingsApplication::BuildSettingsAppl andSelector:#windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1736	AbstractSettingsApplication::BuildSettingsAppl new openInterface:#windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1737	AbstractSettingsApplication::BuildSettingsAppl open
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1738	"
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1739
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1740	<resource: #canvas>
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1741
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1742	^
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1743	#(FullSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1744	name: windowSpec
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1745	uuid: '71c633fe-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1746	window:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1747	(WindowSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1748	label: 'Build Settings'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1749	name: 'Build Settings'
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1750	uuid: '71c63796-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1751	min: (Point 10 10)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1752	bounds: (Rectangle 0 0 659 242)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1753	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1754	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1755	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1756	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1757	(VerticalPanelViewSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1758	name: 'VerticalPanel3'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1759	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1760	uuid: '71c63ad4-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1761	horizontalLayout: fit
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1762	verticalLayout: top
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1763	horizontalSpace: 3
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1764	verticalSpace: 4
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1765	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1766	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1767	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1768	(FramedBoxSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1769	label: 'Build Directory'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1770	name: 'FramedBox1'
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1771	uuid: '71c63dae-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1772	labelPosition: topLeft
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1773	translateLabel: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1774	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1775	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1776	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1777	(ViewSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1778	name: 'LocalBuild'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1779	layout: (LayoutFrame 0 0.0 0 0 0 1.0 25 0)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1780	activeHelpKey: localBuild
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1781	uuid: '71c63f7a-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1782	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1783	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1784	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1785	(CheckBoxSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1786	label: 'Local Build (Do not use Repository)'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1787	name: 'CheckBox4'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1788	layout: (LayoutFrame 2 0 5 0 -5 1 27 0)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1789	activeHelpKey: localBuild
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1790	uuid: '71c640ce-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1791	enableChannel: hasSourceCodeManager
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1792	model: localBuild
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1793	translateLabel: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1794	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1795	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1796
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1797	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1798	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1799	(ViewSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1800	name: 'Build Directory'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1801	layout: (LayoutFrame 0 0 40 0 0 1 70 0)
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1802	uuid: '71c64326-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1803	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1804	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1805	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1806	(LabelSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1807	label: 'Build Directory:'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1808	name: 'BuildDirDirLabel'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1809	layout: (LayoutFrame 0 0.0 0 0 200 0 22 0)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1810	activeHelpKey: buildDirectory
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1811	uuid: '71c64452-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1812	translateLabel: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1813	adjust: right
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1814	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1815	(FilenameInputFieldSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1816	name: 'FilenameEntryField1'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1817	layout: (LayoutFrame 202 0 0 0 0 1 22 0)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1818	activeHelpKey: buildDirectory
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1819	uuid: '71c64664-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1820	enableChannel: localBuild
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1821	model: buildDirectory
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1822	acceptOnReturn: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1823	acceptOnTab: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1824	acceptOnLostFocus: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1825	acceptOnPointerLeave: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1826	postBuildCallback: postBuildDirectoryField:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1827	viewClassName: FilenameWidgetWithHistory
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1828	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1829	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1830
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1831	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1832	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1833	(HorizontalPanelViewSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1834	name: 'ActionsHorizontalPanel'
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1835	layout: (LayoutFrame 62 0.25 71 0 0 1 100 0)
b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1836	uuid: '71c649ca-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1837	horizontalLayout: fitSpace
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1838	verticalLayout: center
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1839	horizontalSpace: 3
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1840	verticalSpace: 3
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1841	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1842	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1843	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1844	(ActionButtonSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1845	label: 'Cleanup Build Directory'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1846	name: 'CleanupBuildDirectoryButton'
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1847	uuid: '71c64bb4-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1848	translateLabel: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1849	tabable: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1850	model: cleanupBuildDirectory
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1851	extent: (Point 396 26)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1852	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1853	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1854
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1855	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1856	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1857	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1858
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1859	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1860	extent: (Point 659 136)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1861	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1862	(ViewSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1863	name: 'Box1'
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1864	uuid: '71c64e70-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1865	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1866	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1867	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1868	(LabelSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1869	label: 'Compiler for Build:'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1870	name: 'Label1'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1871	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1872	uuid: '71c64f92-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1873	translateLabel: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1874	adjust: right
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1875	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1876	(ComboListSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1877	name: 'ComboList1'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1878	layout: (LayoutFrame 150 0 0 0 300 0 20 0)
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1879	uuid: '71c6510e-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1880	model: usedCompilerForBuild
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1881	comboList: listOfPossibleCompilers
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1882	useIndex: false
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1883	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1884	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1885
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1886	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1887	extent: (Point 659 25)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1888	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1889	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1890
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1891	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1892	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1893	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1894
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1895	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1896	)
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1897	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1898
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1899	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'actions'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1900
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1901	basicReadSettings
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1902	super basicReadSettings.
11168 bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1903
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1904	usedCompilerForBuild value isNil ifTrue:[
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1905	currentUserPrefs usedCompilerForBuild:(Tools::ProjectBuilder defaultUsedCompiler).
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1906	usedCompilerForBuild value:(Tools::ProjectBuilder defaultUsedCompiler).
11682 47a1f9417d38 fix hasChange Claus Gittinger <cg@exept.de> parents: 11585 diff changeset	1907	].
47a1f9417d38 fix hasChange Claus Gittinger <cg@exept.de> parents: 11585 diff changeset	1908
47a1f9417d38 fix hasChange Claus Gittinger <cg@exept.de> parents: 11585 diff changeset	1909	"Modified: / 26-07-2012 / 23:16:52 / cg"
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1910	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1911
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1912	basicSaveSettings
7962 ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1913	\|buildDir\|
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1914
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1915	buildDir := buildDirectory value.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1916	buildDir notEmptyOrNil ifTrue:[
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1917	buildDir := buildDir asFilename.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1918	buildDir isDirectory ifFalse:[
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1919	(Dialog confirm:(resources
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1920	stringWithCRs:'Build directory %1 does not exist.\\Create?'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1921	with:buildDir pathName allBold))
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1922	ifTrue:[
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1923	buildDir makeDirectory.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1924	]
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1925	].
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1926	].
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1927
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1928	super basicSaveSettings.
11168 bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1929
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1930	"Modified: / 22-01-2012 / 10:50:09 / cg"
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1931	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1932
7962 ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1933	cleanupBuildDirectory
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1934	\|buildDir\|
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1935
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1936	buildDir := buildDirectory value.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1937	buildDir isEmptyOrNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1938	^ self.
7962 ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1939	].
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1940	buildDir := buildDir asFilename.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1941	(buildDir exists and:[Dialog confirm:('Really delete <1p> ?' expandMacrosWith:buildDir physicalPathName)]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1942	buildDir recursiveRemove.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1943	buildDir makeDirectory.
7962 ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1944	].
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1945	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1946
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1947	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'aspects'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1948
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1949	aspects
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1950	^ #(
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1951	buildDirectory
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1952	localBuild
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1953	usedCompilerForBuild
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1954	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1955	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1956
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1957	buildDirectory
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1958	^ buildDirectory.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1959	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1960
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1961	hasSourceCodeManager
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1962	^ SourceCodeManager notNil
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1963	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1964
11168 bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1965	listOfPossibleCompilers
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1966	^ Tools::ProjectBuilder listOfPossibleCompilers
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1967
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1968	"Created: / 21-01-2012 / 14:05:43 / cg"
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1969	!
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1970
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1971	localBuild
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1972	^ localBuild.
11168 bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1973	!
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1974
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1975	usedCompilerForBuild
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1976	^ usedCompilerForBuild.
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1977
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1978	"Created: / 22-01-2012 / 10:59:30 / cg"
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1979	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1980
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1981	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1982
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1983	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1984	^ 'Launcher/buildSetup.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1985	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1986
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1987	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'initialization'!
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1988
19488 4c7397fe2715 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19487 diff changeset	1989	initialize
4c7397fe2715 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19487 diff changeset	1990	super initialize.
4c7397fe2715 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19487 diff changeset	1991
4c7397fe2715 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19487 diff changeset	1992	usedCompilerForBuild := ValueHolder new.
4c7397fe2715 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19487 diff changeset	1993	usedCompilerForBuild onChangeSend:#updateModifiedChannel to:self.
4c7397fe2715 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19487 diff changeset	1994
4c7397fe2715 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19487 diff changeset	1995	localBuild := ValueHolder with:(UserPreferences current localBuild).
4c7397fe2715 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19487 diff changeset	1996	localBuild onChangeSend:#updateModifiedChannel to:self.
4c7397fe2715 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19487 diff changeset	1997
4c7397fe2715 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19487 diff changeset	1998	buildDirectory := ValueHolder new.
4c7397fe2715 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19487 diff changeset	1999	buildDirectory onChangeSend:#updateModifiedChannel to:self
4c7397fe2715 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19487 diff changeset	2000
4c7397fe2715 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19487 diff changeset	2001	!
4c7397fe2715 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19487 diff changeset	2002
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2003	postBuildDirectoryField:aField
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2004	aField historyList value:(Array
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2005	with:(OperatingSystem getHomeDirectory asFilename construct:'stx_build') pathName
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2006	with:(Filename currentDirectory construct:'stx_build') pathName)
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2007	! !
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2008
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	2009	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'queries'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	2010
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	2011	hasUnsavedChanges
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	2012	(super hasUnsavedChanges) ifTrue:[^ true].
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	2013	^ false
11168 bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	2014
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	2015	"Modified: / 22-01-2012 / 10:50:15 / cg"
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	2016	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	2017
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2018	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'defaults'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2019
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2020	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2021
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2022	^ #( nil #level1 #level2 #full )
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	constantFoldingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2026
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2027	^ #('disabled' 'level1 (always safe)' 'level2 (usually safe)' 'full')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2028	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2029
17283 ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2030	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'documentation'!
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2031
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2032	documentation
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2033	"
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2034	I manage settings for bytecode compilation.
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2035	Mostly controlling accepted syntax, warnings and errors.
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2036	"
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2037	! !
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2038
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2039	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'help specs'!
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2040
18624 46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	2041	helpSpec
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2042	"This resource specification was automatically generated
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2043	by the UIHelpTool of ST/X."
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2044
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2045	"Do not manually edit this!! If it is corrupted,
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2046	the UIHelpTool may not be able to read the specification."
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2047
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2048	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2049	UIHelpTool openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2050	"
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2051
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2052	<resource: #help>
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2053
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2054	^ super helpSpec addPairsFrom:#(
12982 8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2055
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2056	#allowAssignmentToPoolVariable
17057 b18c8b16129d #DOCUMENTATION by mawalch mawalch parents: 17006 diff changeset	2057	'Pool variables should only be initialized in the pool itself and not modified elsewhere later.\This flag makes pool variables writable.\May be required to fileIn code from Squeak and other Smalltalk dialects'
12982 8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2058
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2059	#allowDollarInIdentifier
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2060	'Check this to allow dollar characters in identifiers.\This may be required to filein old code for VAX Smalltalk,\but is not compatible to most other Smalltalk dialects.'
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2061
12982 8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2062	#allowDolphinExtensions
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2063	'Allow Dolphin-Smalltalk specific syntax extensions'
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2064
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2065	#allowEmptyStatements
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2066	'Allow empty statements'
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2067
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2068	#allowExtendedBinarySelectors
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2069	'Allow extended binary selectors (more than 2 characters, including "^", "\|" and "#")'
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2070
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2071	#allowFixedPointLiterals
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2072	'Allow <v>s<n> fixed point literals (scaled or fixed-point decimal v with n digits precision)'
12982 8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2073
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2074	#allowOldStyleAssignment
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2075	'Allow "_" as assignment. May be required to filein Squeak code'
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2076
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2077	#allowParagraphInIdentifier
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2078	'Check this to allow paragraph characters in identifiers.\This is not compatible to other Smalltalk dialects.'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2079
12982 8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2080	#allowQualifiedNames
14485 9e8140add846 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14477 diff changeset	2081	'Allow Visualworks qualified names.\This enables ''dot''-notation for namespace prefixes and the {..} qualified name syntax.\May be required to filein Visualworks code'
12982 8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2082
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2083	#allowReservedWordsAsSelectors
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2084	'Allow "self", "super" as selectors. May be required to filein code from other Smalltalk dialects'
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2085
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2086	#allowSqueakExtensions
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2087	'Allow some Squeak extensions (primitive spec after locals, brace array construction, C style arguments'
12982 8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2088
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2089	#allowUnderscoreInIdentifier
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2090	'Allow underscore characters in identifiers. Not compatible with Squeak.'
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2091
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2092	#allowVisualAgeESSymbolLiterals
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2093	'Allow VisualAge ESsymbol literals (##xxx).\Will generate regular symbols when compiled'
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2094
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2095	#allowVisualAgePrimitives
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2096	'Allow VisualAge primitive specification syntax'
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2097
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2098	#arraysAreImmutable
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2099	'Array and ByteArray literals are readonly objects, which cannot be modified. Prevents constant arrays as returned from a method to be modified elsewhere by accident'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2100
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2101	#fullDebugInfo
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2102	'Include more debug support in the generated code. Especially restartability and returnability of methods in the debugger are improved'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2103
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2104	#reenableSuppressedWarnings
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2105	'Reenable warnings which were previously suppressed for individual methods'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2106
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2107	#stringsAreImmutable
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2108	'String literals are readonly objects, which cannot be modified. Prevents constant strings as returned from a method to be modified elsewhere by accident'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2109
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2110	#warnAboutBadComments
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2111	'Warn if a comment is empty or consists of whitespace only'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2112
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2113	#warnAboutMissingMethodComment
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2114	'Warn if a method has no comment'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2115
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2116	#warnAboutNonLowercaseLocalVariableNames
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2117	'By convention, local variables should start with a lowercase character'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2118
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2119	#warnAboutPossiblyUnimplementedSelectors
14485 9e8140add846 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14477 diff changeset	2120	'Warn about a possibly unimplemented selector in a message send'
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2121
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2122	#warnAboutPossiblyUninitializedLocals
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2123	'Warn if a local variable might be uninitialized (nil) when used.\This might generate false warnings, if inside a block which is executed later,\after the variable gets a value assigned'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2124
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2125	#warnAboutReferenceToPrivateClass
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2126	'Warn when another classes private class is referenced.\This is considered "bad style" and should be replaced by a getter-call to the owning class or the privae class be made public'
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2127
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2128	#warnAboutShortLocalVariableNames
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2129	'Warn if a variable''s name is too short to be descriptive'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2130
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2131	#warnAboutWrongVariableNames
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2132	'Checks for bad articles in variable names (eg. "anUser")'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2133
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2134	#warnCommonMistakes
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2135	'Warn about code which is likely to be mistaken, based on heuristics'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2136
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2137	#warnDollarInIdentifier
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2138	'Warn if an identifier contains a dollar character.\This is not allowed in most other Smalltalk dialects.'
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2139
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2140	#warnInconsistentReturnValues
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2141	'Warn if a method returns both boolean and non-boolean values (usually a ^self)'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2142
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2143	#warnOldStyleAssignment
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2144	'Warn if an old style assignment ("_" character) is used instead of the modern ":=".'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2145
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2146	#warnParagraphInIdentifier
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2147	'Warn if an identifier contains a paragraph character.\This is not allowed in other Smalltalk dialects.'
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2148
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2149	#warnPlausibilityChecks
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2150	'Perform plausibility checks and warn about any such possible problem'
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2151
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2152	#warnPossibleIncompatibilities
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2153	'Warn about other possible incompatibilities'
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2154
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2155	#warnSTXSpecials
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2156	'Warn when ST/X special syntax is encountered.\Such constructs may be unportable to other Smalltalk dialects'
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2157
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2158	#warnUnderscoreInIdentifier
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2159	'Warn if an identifier contains an underline character.\This is not allowed in some old Smalltalk dialects.'
12982 8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2160
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2161	#warnUnusedVars
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2162	'Warn if a local variable is never used'
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2163
12982 8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2164	#warnings
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2165	'Turn off all warnings'
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2166
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2167	)
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2168
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2169	"Modified: / 23-04-2019 / 23:23:03 / Claus Gittinger"
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2170	! !
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2171
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2172	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2173
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2174	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	2175	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	2176
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2177	^ self defaultIcon5
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	2178
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	2179	"Modified: / 17-09-2007 / 11:35:05 / cg"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2180	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2181
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2182	defaultIcon1
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2183	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2184	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2185
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2186	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2187	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2188
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2189	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2190	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2191	ImageEditor openOnClass:self andSelector:#defaultIcon1
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2192	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2193	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2194
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2195	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2196
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2197	^Icon
15764 acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2198	constantNamed:'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl defaultIcon1'
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2199	ifAbsentPut:[(Depth2Image width:22 height:22) bits:(ByteArray fromPackedString:'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2200	@@@@@@@@C??????@CUUUUUW@CZ(J@B''@CZ""(''CCZ"(''@CV(J(WKCV"(W@CU""()WJCU(J()W@CUZ%W@CUZ%WACUPJ(EW@CUR""QWDCUQ"!!UWI
15764 acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2201	CUPJ!!UWICUQR!!UWJCUQR!!QWACUPFTEW@CUUUUUW@C??????@@@@@@@@B') colorMapFromArray:#[0 0 0 255 255 255 255 189 23 127 127 127] mask:((ImageMask width:22 height:22) bits:(ByteArray fromPackedString:'@@@@O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8@@@@'); yourself); yourself]
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2202	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2203
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2204	defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2205	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2206	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2207
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2208	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2209	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2210
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2211	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2212	self defaultIcon2 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2213	ImageEditor openOnClass:self andSelector:#defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2214	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2215	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2216
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2217	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2218
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2219	^Icon
15764 acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2220	constantNamed:'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl defaultIcon2'
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2221	ifAbsentPut:[(Depth4Image width:24 height:24) bits:(ByteArray fromPackedString:'
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2222	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HP@CL3L3L3L3L0@RHP@@@3L3L3L0@0@RY!!@AHCL3L3LBD@E&Y&DVPCL3
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2223	L3LDXQY&Y&Y"@3L3L3L0I&Y&IBY!!@3L3L3L0E&IB@DI&D@L3L3@AY"P@UPQ&XQ@3L0DVY$AUUPI&YD@3L0QFY"AU@AY"H@L3L3@BI&D@DVY"@@L3L3L@I&XQ
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2224	Y&Y!!@@@3L3@@E&Y&Y&IFD@@3L3@AYBY&Y!!@DH@@CL0@BP@E&PP@@@@@CL0@@@@@TPP@@@@@@L@@@@@@T@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2225	@@@@@@@@@@@@@@@@@@@@@@@@') colorMapFromArray:#[0 0 0 255 255 255 161 161 165 255 189 23 127 127 127 236 233 216 194 194 194] mask:((ImageMask width:24 height:24) bits:(ByteArray fromPackedString:'@@@@@@@@@@@@0@@C9??79??7?????????????????????????????????''=??#9??3;??13?9!!1''8@ G0@@C@@@@@@@@@@@@'); yourself); yourself]
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2226	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2227
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2228	defaultIcon5
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2229	"This resource specification was automatically generated
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2230	by the ImageEditor of ST/X."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2231
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2232	"Do not manually edit this!! If it is corrupted,
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2233	the ImageEditor may not be able to read the specification."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2234
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2235	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2236	self defaultIcon5 inspect
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2237	ImageEditor openOnClass:self andSelector:#defaultIcon5
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2238	Icon flushCachedIcons
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2239	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2240
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2241	<resource: #image>
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2242
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2243	^Icon
15764 acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2244	constantNamed:'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl defaultIcon5'
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2245	ifAbsentPut:[(Depth4Image width:24 height:24) bits:(ByteArray fromPackedString:'
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2246	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@AH@@@@@@@@@@@HP@UTP@R@@@@@@@@MQEU
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2247	UQES@@@@@@@@@%UUUUT @@@@@@@@@UT#H%TP@@@@@@@@EUH0@2UQ@@@@@@@QUULDPCUUDP@@@@@3UUHDPBUUL0@@@@@@H%TP@UT"@@@@@@@@@%UQEUT @@@@
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2248	@@@@@UUUUUTP@@@@@@@@ESIUURMQ@@@@@@@@H0@UTP@2@@@@@@@@@@@AL@@@@@@@@@@@@@@AL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@L@@@@@@@@@@@@@@@
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2249	@@@@@@@@@@@@@@@@@@@@@@@@') colorMapFromArray:#[0 0 0 255 255 255 161 161 165 127 127 127 236 233 216 194 194 194] mask:((ImageMask width:24 height:24) bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@A @@C0@@33@A?? A?? @??@@??@C??0G??8G??8C??0@??@@??@A?? A?? @33@@C0@O5+<HT*DHTJDO7;<'); yourself); yourself]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2250	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2251
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2252	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2253
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2254	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2255	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2256	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2257
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2258	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2259	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2260
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2261	"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2262	UIPainter new openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2263	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2264	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2265	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2266
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2267	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2268
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2269	^
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2270	#(FullSpec
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2271	name: windowSpec
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2272	uuid: 'e0a1dd6e-660d-11e9-bfcd-b8f6b1108e05'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2273	window:
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2274	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2275	label: 'Byte Code Compiler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2276	name: 'Byte Code Compiler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2277	flags: 1
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2278	uuid: '9c92dc14-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2279	min: (Point 10 10)
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2280	bounds: (Rectangle 0 0 664 712)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2281	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2282	component:
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2283	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2284	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2285	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2286	name: 'VerticalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2287	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2288	uuid: '9c92e3bc-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2289	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2290	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2291	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2292	verticalSpace: 3
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2293	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2294	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2295	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2296	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2297	label: 'Just in Time Compilation to Machine Code'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2298	name: 'JustInTimeCompilation'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2299	uuid: '9c92e8da-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2300	model: justInTimeCompilation
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2301	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2302	extent: (Point 664 25)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2303	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2304	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2305	name: 'Separator3'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2306	uuid: '9c92ed9e-1f3f-11b2-903e-3065ec8abe8a'
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2307	extent: (Point 664 3)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2308	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2309	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2310	name: 'Box1'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2311	uuid: '9c92f0aa-1f3f-11b2-903e-3065ec8abe8a'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2312	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2313	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2314	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2315	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2316	name: 'VerticalPanel1_1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2317	layout: (LayoutFrame 0 0 0 0 -20 0.5 0 1)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2318	uuid: '9c92f370-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2319	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2320	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2321	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2322	verticalSpace: 0
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2323	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2324	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2325	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2326	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2327	label: 'Allow Underscore in Identifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2328	name: 'AllowUnderscoreInIdentifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2329	activeHelpKey: allowUnderscoreInIdentifier
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2330	uuid: '9c92f618-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2331	model: allowUnderscoreInIdentifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2332	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2333	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2334	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2335	(CheckBoxSpec
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2336	label: 'Allow Dollar in Identifiers ($)'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2337	name: 'AllowDollarInIdentifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2338	activeHelpKey: allowDollarInIdentifier
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2339	uuid: '9c92f8e8-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2340	model: allowDollarInIdentifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2341	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2342	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2343	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2344	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2345	label: 'Allow VW3 QualifiedNames'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2346	name: 'AllowVW3QualifiedNames'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2347	activeHelpKey: allowQualifiedNames
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2348	uuid: '9c92fb40-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2349	model: allowQualifiedNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2350	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2351	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2352	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2353	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2354	label: 'Allow OldStyle Assignment (_)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2355	name: 'AllowOldStyleAssignment'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2356	activeHelpKey: allowOldStyleAssignment
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2357	uuid: '9c92fd7a-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2358	model: allowOldStyleAssignment
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2359	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2360	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2361	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2362	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2363	label: 'Allow Reserved Words as Selector (self)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2364	name: 'AllowReservedWordsAsSelector'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2365	activeHelpKey: allowReservedWordsAsSelectors
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2366	uuid: '9c92ffaa-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2367	model: allowReservedWordsAsSelectors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2368	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2369	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2370	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2371	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2372	label: 'Allow Extended Binary Selectors'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2373	name: 'CheckBox4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2374	activeHelpKey: allowExtendedBinarySelectors
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2375	uuid: '9c9301e4-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2376	model: allowExtendedBinarySelectors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2377	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2378	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2379	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2380	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2381	label: 'Allow Assignment to Pool Variable'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2382	name: 'CheckBox6'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2383	activeHelpKey: allowAssignmentToPoolVariable
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2384	uuid: '9c930450-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2385	model: allowAssignmentToPoolVariable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2386	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2387	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2388	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2389	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2390
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2391	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2392	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2393	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2394	name: 'VerticalPanel1_2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2395	layout: (LayoutFrame 0 0.5 0 0 0 1 0 1)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2396	uuid: '9c9306ee-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2397	horizontalLayout: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2398	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2399	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2400	verticalSpace: 0
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2401	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2402	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2403	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2404	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2405	label: 'Allow Squeak Extensions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2406	name: 'AllowSqueakExtensions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2407	activeHelpKey: allowSqueakExtensions
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2408	uuid: '9c93095a-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2409	model: allowSqueakExtensions
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2410	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2411	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2412	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2413	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2414	label: 'Allow Dolphin Extensions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2415	name: 'AllowDolphinExtensions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2416	activeHelpKey: allowDolphinExtensions
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2417	uuid: '9c930bb2-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2418	model: allowDolphinExtensions
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2419	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2420	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2421	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2422	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2423	label: 'Allow VisualAge ES-Symbols'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2424	name: 'AllowVisualAgeESSymbolLiterals'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2425	activeHelpKey: allowVisualAgeESSymbolLiterals
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2426	uuid: '9c930dec-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2427	model: allowVisualAgeESSymbolLiterals
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2428	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2429	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2430	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2431	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2432	label: 'Allow VisualAge Primitives'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2433	name: 'CheckBox8'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2434	activeHelpKey: allowVisualAgePrimitives
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2435	uuid: '9c931026-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2436	model: allowVisualAgePrimitives
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2437	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2438	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2439	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2440	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2441	label: 'Allow FixedPoint-Number Literals'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2442	name: 'AllowFixedPointLiterals'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2443	activeHelpKey: allowFixedPointLiterals
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2444	uuid: '9c931242-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2445	model: allowFixedPointLiterals
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2446	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2447	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2448	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2449	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2450	label: 'Allow Empty Statements'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2451	name: 'AllowEmptyStatements'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2452	activeHelpKey: allowEmptyStatements
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2453	uuid: '9c93147c-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2454	model: allowEmptyStatements
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2455	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2456	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2457	)
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2458	(CheckBoxSpec
19365 f92a171d61d3 #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 19360 diff changeset	2459	label: 'Allow Paragraph in Identifiers (§)'
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2460	name: 'CheckBox10'
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2461	activeHelpKey: allowParagraphInIdentifier
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2462	uuid: '9c9316ac-1f3f-11b2-903e-3065ec8abe8a'
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2463	model: allowParagraphInIdentifier
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2464	translateLabel: true
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2465	extent: (Point 665 22)
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2466	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2467	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2468
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2469	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2470	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2471	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2472
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2473	)
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2474	extent: (Point 664 157)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2475	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2476	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2477	name: 'Separator4'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2478	uuid: '9c931954-1f3f-11b2-903e-3065ec8abe8a'
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2479	extent: (Point 664 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2480	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2481	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2482	label: 'Warnings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2483	name: 'Warnings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2484	activeHelpKey: warnings
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2485	uuid: '9c931b7a-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2486	model: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2487	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2488	extent: (Point 664 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2489	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2490	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2491	name: 'Box2'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2492	uuid: '9c931e36-1f3f-11b2-903e-3065ec8abe8a'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2493	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2494	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2495	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2496	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2497	name: 'VerticalPanel2_1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2498	layout: (LayoutFrame 20 0 0 0 0 0.5 0 1)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2499	uuid: '9c932052-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2500	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2501	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2502	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2503	verticalSpace: 0
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2504	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2505	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2506	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2507	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2508	label: 'ST/X Extensions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2509	name: 'STXExtensions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2510	activeHelpKey: warnSTXSpecials
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2511	uuid: '9c9322be-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2512	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2513	model: warnSTXSpecials
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2514	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2515	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2516	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2517	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2518	label: 'Reference to Private Class'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2519	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2520	activeHelpKey: warnAboutReferenceToPrivateClass
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2521	uuid: '9c932534-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2522	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2523	model: warnAboutReferenceToPrivateClass
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2524	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2525	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2526	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2527	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2528	label: 'Underscores in Identifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2529	name: 'UnderscoresInIdentifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2530	activeHelpKey: warnUnderscoreInIdentifier
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2531	uuid: '9c932778-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2532	enableChannel: enableUnderscore
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2533	model: warnUnderscoreInIdentifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2534	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2535	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2536	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2537	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2538	label: 'Dollars in Identifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2539	name: 'DollarsInIdentifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2540	activeHelpKey: warnDollarInIdentifier
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2541	uuid: '9c9329b2-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2542	enableChannel: enableDollar
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2543	model: warnDollarInIdentifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2544	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2545	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2546	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2547	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2548	label: 'OldStyle Assignment'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2549	name: 'OldStyleAssignment'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2550	activeHelpKey: warnOldStyleAssignment
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2551	uuid: '9c932bec-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2552	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2553	model: warnOldStyleAssignment
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2554	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2555	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2556	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2557	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2558	label: 'Possible Incompatibilities'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2559	name: 'PossibleIncompatibilities'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2560	activeHelpKey: warnPossibleIncompatibilities
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2561	uuid: '9c932e1c-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2562	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2563	model: warnPossibleIncompatibilities
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2564	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2565	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2566	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2567	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2568	label: 'Possible STC Compilation Problems'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2569	name: 'PossibleSTCCompilationProblems'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2570	activeHelpKey: warnAboutPossibleSTCCompilationProblems
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2571	uuid: '9c933056-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2572	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2573	model: warnAboutPossibleSTCCompilationProblems
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2574	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2575	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2576	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2577	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2578	label: 'Possibly Unimplemented Selectors'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2579	name: 'CheckBox3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2580	activeHelpKey: warnAboutPossiblyUnimplementedSelectors
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2581	uuid: '9c93329a-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2582	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2583	model: warnAboutPossiblyUnimplementedSelectors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2584	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2585	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2586	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2587	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2588	label: 'Plausibility Checks'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2589	name: 'CheckBox7'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2590	activeHelpKey: warnPlausibilityChecks
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2591	uuid: '9c9334ca-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2592	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2593	model: warnPlausibilityChecks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2594	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2595	extent: (Point 312 22)
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2596	)
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2597	(CheckBoxSpec
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2598	label: 'Possibly Uninitialized Locals'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2599	name: 'CheckBox12'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2600	activeHelpKey: warnAboutPossiblyUninitializedLocals
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2601	uuid: '9c93329a-1f3f-11b2-903e-3065ec8abe8a'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2602	enableChannel: warnings
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2603	model: warnAboutPossiblyUninitializedLocals
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2604	translateLabel: true
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2605	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2606	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2607	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2608
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2609	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2610	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2611	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2612	name: 'VerticalPanel2_2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2613	layout: (LayoutFrame -1 0.5 0 0 0 1 0 1)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2614	uuid: '9c933736-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2615	horizontalLayout: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2616	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2617	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2618	verticalSpace: 0
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2619	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2620	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2621	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2622	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2623	label: 'Unused Method Variables'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2624	name: 'UnusedMethodVariables'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2625	activeHelpKey: warnUnusedVars
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2626	uuid: '9c933984-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2627	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2628	model: warnUnusedVars
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2629	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2630	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2631	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2632	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2633	label: 'Bad Variable Names (non-English article)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2634	name: 'BadVariableNames'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2635	activeHelpKey: warnAboutWrongVariableNames
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2636	uuid: '9c933c90-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2637	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2638	model: warnAboutWrongVariableNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2639	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2640	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2641	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2642	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2643	label: 'Bad (Non-Lowercase) Local Variable Names'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2644	name: 'BadLocalVariableNames'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2645	activeHelpKey: warnAboutNonLowercaseLocalVariableNames
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2646	uuid: '9c933ef2-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2647	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2648	model: warnAboutNonLowercaseLocalVariableNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2649	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2650	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2651	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2652	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2653	label: 'Bad (Short) Local Variable Names'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2654	name: 'CheckBox2'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2655	activeHelpKey: warnAboutShortLocalVariableNames
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2656	uuid: '9c934140-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2657	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2658	model: warnAboutShortLocalVariableNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2659	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2660	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2661	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2662	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2663	label: 'Bad (empty) Comments'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2664	name: 'BadComments'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2665	activeHelpKey: warnAboutBadComments
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2666	uuid: '9c93437a-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2667	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2668	model: warnAboutBadComments
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2669	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2670	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2671	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2672	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2673	label: 'Method-Comment Missing '
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2674	name: 'CheckBox5'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2675	activeHelpKey: warnAboutMissingMethodComment
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2676	uuid: '9c9345be-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2677	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2678	model: warnAboutMissingMethodComment
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2679	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2680	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2681	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2682	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2683	label: 'Inconsistent Return Values'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2684	name: 'InconsistentReturnValues'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2685	activeHelpKey: warnInconsistentReturnValues
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2686	uuid: '9c9347f8-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2687	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2688	model: warnInconsistentReturnValues
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2689	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2690	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2691	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2692	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2693	label: 'Common Mistakes'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2694	name: 'CommonMistakes'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2695	activeHelpKey: warnCommonMistakes
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2696	uuid: '9c934a32-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2697	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2698	model: warnCommonMistakes
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2699	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2700	extent: (Point 600 22)
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2701	)
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2702	(CheckBoxSpec
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2703	label: 'Paragraph in Identifier'
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2704	name: 'CheckBox11'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2705	activeHelpKey: warnParagraphInIdentifier
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2706	uuid: '9c934c6c-1f3f-11b2-903e-3065ec8abe8a'
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2707	enableChannel: enableParagraph
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2708	model: warnParagraphInIdentifier
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2709	translateLabel: true
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2710	extent: (Point 600 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2711	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2712	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2713
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2714	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2715	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2716	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2717
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2718	)
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2719	extent: (Point 664 224)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2720	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2721	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2722	name: 'Box4'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2723	uuid: '9c934f00-1f3f-11b2-903e-3065ec8abe8a'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2724	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2725	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2726	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2727	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2728	label: 'Reenable Suppressed Warnings Now'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2729	name: 'Button1'
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2730	layout: (LayoutFrame 0 0.5 0 0 0 1 0 1)
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2731	activeHelpKey: reenableSuppressedWarnings
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2732	uuid: '9c93519e-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2733	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2734	model: reenableSuppressedWarnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2735	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2736	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2737
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2738	)
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2739	extent: (Point 664 33)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2740	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2741	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2742	name: 'Separator5'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2743	uuid: '9c9356ee-1f3f-11b2-903e-3065ec8abe8a'
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2744	extent: (Point 664 2)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2745	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2746	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2747	label: 'Literal Strings are Immutable'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2748	name: 'LiteralStringsAreImmutable'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2749	activeHelpKey: stringsAreImmutable
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2750	uuid: '9c935932-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2751	model: stringsAreImmutable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2752	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2753	extent: (Point 664 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2754	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2755	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2756	label: 'Literal Arrays are Immutable'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2757	name: 'CheckBox9'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2758	activeHelpKey: arraysAreImmutable
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2759	uuid: '9c935c02-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2760	model: arraysAreImmutable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2761	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2762	extent: (Point 664 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2763	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2764	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2765	label: 'Full Debug Info'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2766	name: 'FullDebugInfo'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2767	activeHelpKey: fullDebugInfo
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2768	uuid: '9c935ec8-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2769	model: fullDebugSupport
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2770	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2771	extent: (Point 664 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2772	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2773	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2774	name: 'Separator6'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2775	uuid: '9c936170-1f3f-11b2-903e-3065ec8abe8a'
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2776	extent: (Point 664 2)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2777	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2778	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2779	name: 'Box3'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2780	uuid: '9c93636e-1f3f-11b2-903e-3065ec8abe8a'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2781	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2782	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2783	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2784	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2785	label: 'Constant Folding:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2786	name: 'ConstantFoldingLabel'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2787	layout: (LayoutFrame 0 0 0 0 328 0 22 0)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2788	uuid: '9c93658a-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2789	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2790	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2791	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2792	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2793	label: 'PopUp List'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2794	name: 'ConstantFolding'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2795	layout: (LayoutFrame 330 0 0 0 -5 1 22 0)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2796	uuid: '9c9368f0-1f3f-11b2-903e-3065ec8abe8a'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2797	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2798	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2799	model: constantFoldingSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2800	menu: constantFolding
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2801	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2802	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2803	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2804
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2805	)
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2806	extent: (Point 664 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2807	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2808	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2809
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2810	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2811	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2812	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2813
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2814	)
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2815	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2816	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2817
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2818	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2819
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2820	basicReadSettings
19487 cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	2821	self readAspects:(self simpleAspects) from:ParserFlags.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2822
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2823	self constantFoldingSelection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2824	value:(self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3).
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	2825
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2826	self supportsJustInTimeCompilation ifTrue:[
19487 cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	2827	self justInTimeCompilation value:(ObjectMemory justInTimeCompilation).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	2828	self fullDebugSupport value:(ObjectMemory fullSingleStepSupport).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2829	] ifFalse:[
19487 cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	2830	self justInTimeCompilation value:false.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	2831	self fullDebugSupport value:(ParserFlags fullLineNumberInfo).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2832	].
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	2833
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	2834	self warnAboutMissingMethodComment value:(UserPreferences current enforceComment).
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	2835
11814 ffce903c0a2f lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 11774 diff changeset	2836	"Modified: / 26-09-2012 / 14:16:32 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2837	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2838
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2839	basicSaveSettings
17532 4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2840	\|extensionSettingsChanged\|
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2841
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2842	extensionSettingsChanged := ParserFlags allowSqueakExtensions ~= self allowSqueakExtensions.
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2843
19487 cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	2844	self writeAspects:(self simpleAspects) to:ParserFlags.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2845
11814 ffce903c0a2f lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 11774 diff changeset	2846	ParserFlags lineNumberInfo:(self fullDebugSupport value ifTrue:[#full] ifFalse:[true]).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2847
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2848	Compiler foldConstants:(self class constantFoldingOptions at:self constantFoldingSelection value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2849
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2850	self supportsJustInTimeCompilation ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2851	\| justInTime \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2852	justInTime := self justInTimeCompilation value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2853	justInTime ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2854	Smalltalk allMethodsDo:[:m \| m checked:false].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2855	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2856	ObjectMemory justInTimeCompilation:justInTime.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2857	ObjectMemory fullSingleStepSupport:self fullDebugSupport value.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2858	].
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	2859
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	2860	UserPreferences current enforceComment:(self warnAboutMissingMethodComment value).
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	2861
17532 4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2862	extensionSettingsChanged ifTrue:[
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2863	ParserFlags allowSymbolsStartingWithDigit:(ParserFlags allowSqueakExtensions)
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2864	].
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2865
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2866	"Modified: / 18-06-2017 / 16:28:58 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2867	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2868
11292 7b6d254246a5 per-method warnings Claus Gittinger <cg@exept.de> parents: 11268 diff changeset	2869	reenableSuppressedWarnings
7b6d254246a5 per-method warnings Claus Gittinger <cg@exept.de> parents: 11268 diff changeset	2870	ParserFlags reenableAllSuppressedFlags
7b6d254246a5 per-method warnings Claus Gittinger <cg@exept.de> parents: 11268 diff changeset	2871
7b6d254246a5 per-method warnings Claus Gittinger <cg@exept.de> parents: 11268 diff changeset	2872	"Created: / 28-02-2012 / 13:32:52 / cg"
7b6d254246a5 per-method warnings Claus Gittinger <cg@exept.de> parents: 11268 diff changeset	2873	!
7b6d254246a5 per-method warnings Claus Gittinger <cg@exept.de> parents: 11268 diff changeset	2874
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2875	simpleAspects
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2876	^
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2877	#(
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2878	warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2879	warnCommonMistakes
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2880	warnPossibleIncompatibilities
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2881	warnDollarInIdentifier
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2882	warnParagraphInIdentifier
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2883	warnOldStyleAssignment
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2884	warnSTXSpecials
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2885	warnUnderscoreInIdentifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2886	warnUnusedVars
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2887	warnAboutWrongVariableNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2888	warnAboutBadComments
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2889	warnInconsistentReturnValues
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2890	warnAboutNonLowercaseLocalVariableNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2891	warnAboutShortLocalVariableNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2892	warnAboutPossibleSTCCompilationProblems
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2893	warnAboutReferenceToPrivateClass
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2894	warnAboutPossiblyUnimplementedSelectors
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2895	warnAboutPossiblyUninitializedLocals
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2896	warnPlausibilityChecks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2897
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2898	allowDollarInIdentifier
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2899	allowParagraphInIdentifier
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2900	allowDolphinExtensions
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2901	allowOldStyleAssignment
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2902	allowQualifiedNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2903	allowReservedWordsAsSelectors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2904	allowSqueakExtensions
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2905	allowUnderscoreInIdentifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2906	allowVisualAgeESSymbolLiterals
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2907	allowVisualAgePrimitives
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2908	allowFixedPointLiterals
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2909	allowEmptyStatements
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2910	allowExtendedBinarySelectors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2911
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2912	arraysAreImmutable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2913	stringsAreImmutable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2914	allowAssignmentToPoolVariable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2915	)
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2916
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2917	"Created: / 20-11-2006 / 22:37:17 / cg"
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2918	"Modified: / 16-11-2016 / 22:40:51 / cg"
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2919	"Modified: / 23-04-2019 / 23:16:47 / Claus Gittinger"
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2920	!
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2921
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2922	stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2923
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2924	AbstractLauncherApplication::LauncherDialogs stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2925	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2926
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2927	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2928
10698 61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2929	allowAssignmentToPoolVariable
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2930	^ allowAssignmentToPoolVariable.
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2931
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2932	"Created: / 12-09-2011 / 17:26:01 / cg"
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2933	!
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2934
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	2935	allowDollarInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2936	^ allowDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2937	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2938
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2939	allowDolphinExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2940	^ allowDolphinExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2941	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2942
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2943	allowEmptyStatements
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2944	^ allowEmptyStatements.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2945
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2946	"Created: / 20-11-2006 / 22:35:10 / cg"
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2947	!
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2948
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	2949	allowExtendedBinarySelectors
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	2950	^ allowExtendedBinarySelectors.
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	2951	!
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	2952
6578 560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	2953	allowFixedPointLiterals
19487 cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	2954	"holds true, if nnnsn (FixedPoint / ScaledDecimal) literals are allowed."
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	2955
6578 560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	2956	^ allowFixedPointLiterals.
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	2957	!
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	2958
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2959	allowOldStyleAssignment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2960	^ allowOldStyleAssignment.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2961	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2962
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2963	allowParagraphInIdentifier
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2964	^ allowParagraph.
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2965
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2966	"Created: / 16-11-2016 / 22:38:18 / cg"
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2967	!
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2968
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2969	allowQualifiedNames
18425 fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	2970	"true, if '#{..}' and 'namespace.varName' qualified names are allowed"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2971
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2972	^ allowQualifiedNames.
18425 fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	2973
fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	2974	"Modified (comment): / 23-09-2018 / 01:08:42 / Claus Gittinger"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2975	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2976
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2977	allowReservedWordsAsSelectors
18841 980c8159d853 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18816 diff changeset	2978	"if true, 'self', 'super', 'thisContext', 'nil', 'true' and 'false' are allowed
980c8159d853 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18816 diff changeset	2979	as unary message selectors."
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2980
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2981	^ allowReservedWordsAsSelectors.
18841 980c8159d853 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18816 diff changeset	2982
980c8159d853 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18816 diff changeset	2983	"Modified (comment): / 25-06-2019 / 11:16:36 / Claus Gittinger"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2984	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2985
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2986	allowSqueakExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2987
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2988	^ allowSqueakExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2989	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2990
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	2991	allowUnderscoreInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2992	^ allowUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2993	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2994
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	2995	allowVisualAgeESSymbolLiterals
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	2996	^ allowVisualAgeESSymbolLiterals.
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	2997	!
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	2998
11242 dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	2999	allowVisualAgePrimitives
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3000	^ allowVisualAgePrimitives.
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3001
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3002	"Created: / 07-02-2012 / 17:06:19 / cg"
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3003	!
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3004
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3005	arraysAreImmutable
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3006	^ immutableArrays.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3007	!
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3008
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3009	constantFolding
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3010	^ constantFolding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3011	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3012
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3013	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3014	^ constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3015	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3016
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3017	constantFoldingSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3018	^ constantFoldingSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3019	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3020
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3021	enableDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3022	^ enableDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3023	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3024
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3025	enableParagraph
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3026	^ enableParagraph.
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3027
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3028	"Created: / 16-11-2016 / 22:39:57 / cg"
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3029	!
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3030
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3031	enableUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3032	^ enableUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3033	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3034
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3035	fullDebugSupport
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3036	^ fullDebugSupport.
11814 ffce903c0a2f lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 11774 diff changeset	3037
ffce903c0a2f lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 11774 diff changeset	3038	"Modified: / 26-09-2012 / 14:16:27 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3039	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3040
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3041	justInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3042	^ justInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3043	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3044
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	3045	stringsAreImmutable
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	3046	^ immutableStrings.
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	3047	!
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	3048
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	3049	warnAboutBadComments
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	3050	^ warnAboutBadComments.
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	3051	!
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	3052
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3053	warnAboutMissingMethodComment
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3054	^ warnAboutMissingMethodComment.
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3055
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3056	"Created: / 17-07-2010 / 14:39:25 / cg"
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3057	!
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3058
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3059	warnAboutNonLowercaseLocalVariableNames
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3060	^ warnAboutNonLowercaseLocalVariableNames.
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3061
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3062	"Modified: / 22-10-2006 / 02:30:57 / cg"
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	3063	!
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	3064
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3065	warnAboutPossibleSTCCompilationProblems
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3066	^ warnAboutPossibleSTCCompilationProblems.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3067
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3068	"Created: / 20-11-2006 / 22:41:07 / cg"
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3069	!
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3070
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3071	warnAboutPossiblyUnimplementedSelectors
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3072	^ warnAboutPossiblyUnimplementedSelectors.
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3073
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3074	"Created: / 20-11-2006 / 22:41:07 / cg"
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3075	!
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3076
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3077	warnAboutPossiblyUninitializedLocals
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3078	^ warnAboutPossiblyUninitializedLocals.
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3079
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3080	"Created: / 23-04-2019 / 23:16:25 / Claus Gittinger"
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3081	!
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3082
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3083	warnAboutReferenceToPrivateClass
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3084	^ warnAboutReferenceToPrivateClass.
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3085	!
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3086
8009 f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	3087	warnAboutShortLocalVariableNames
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	3088	^ warnAboutShortLocalVariableNames.
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	3089	!
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	3090
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	3091	warnAboutWrongVariableNames
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	3092	^ warnAboutWrongVariableNames.
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	3093	!
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	3094
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3095	warnCommonMistakes
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3096	^ warnCommonMistakes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3097	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3098
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3099	warnDollarInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3100	^ warnDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3101	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3102
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	3103	warnInconsistentReturnValues
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	3104	^ warnInconsistentReturnValues.
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	3105	!
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	3106
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3107	warnOldStyleAssignment
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3108	^ warnOldStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3109	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3110
11155 00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3111	warnPlausibilityChecks
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3112	^ warnPlausibilityChecks.
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3113
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3114	"Created: / 19-01-2012 / 10:57:29 / cg"
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3115	!
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3116
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3117	warnPossibleIncompatibilities
7925 cabd467a8b04 comment Claus Gittinger <cg@exept.de> parents: 7906 diff changeset	3118	"holds true, if possible incompatibilities (with other ST systems)
cabd467a8b04 comment Claus Gittinger <cg@exept.de> parents: 7906 diff changeset	3119	are to be warned about"
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3120
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3121	^ warnCompatibility.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3122	!
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3123
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3124	warnSTXSpecials
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3125	^ warnSTX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3126	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3127
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3128	warnUnderscoreInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3129	^ warnUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3130	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3131
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3132	warnUnusedVars
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3133	^ warnUnusedVars.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3134	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3135
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3136	warnings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3137	^ warnings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3138	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3139
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3140	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3141
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3142	update:something with:aParameter from:changedObject
19487 cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3143	\|eUnderscore eDollar eParagraph\|
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3144
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3145	changedObject == self warnings ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3146	changedObject value ifTrue:[
19487 cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3147	eUnderscore := self allowUnderscoreInIdentifier value.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3148	eDollar := self allowUnderscoreInIdentifier value.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3149	eParagraph := self allowParagraphInIdentifier value.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3150	] ifFalse:[
19487 cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3151	eUnderscore := eDollar := eParagraph := false.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3152	].
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3153	self enableUnderscore value:eUnderscore.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3154	self enableDollar value:eDollar.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3155	self enableParagraph value:eParagraph.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3156	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3157	].
19487 cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3158
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3159	(changedObject == allowDollar
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3160	or:[changedObject == allowParagraph
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3161	or:[changedObject == allowUnderscore]]
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3162	) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3163	self warnings changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3164	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3165	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3166
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3167	super update:something with:aParameter from:changedObject
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3168
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3169	"Modified: / 16-11-2016 / 22:39:32 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3170	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3171
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3172	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3173
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3174	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3175	^ 'Launcher/compilerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3176	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3177
19487 cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3178	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'initialization'!
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3179
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3180	initialize
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3181	super initialize.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3182
19489 d4d135959585 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19488 diff changeset	3183	constantFoldingOptions := self class constantFoldingOptions.
d4d135959585 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19488 diff changeset	3184	constantFolding := (resources array:(self class constantFoldingStrings)) asList.
d4d135959585 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19488 diff changeset	3185	constantFoldingSelection := ValueHolder with:(self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3).
d4d135959585 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19488 diff changeset	3186	constantFoldingSelection onChangeSend:#updateModifiedChannel to:self.
d4d135959585 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19488 diff changeset	3187
d4d135959585 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19488 diff changeset	3188
d4d135959585 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19488 diff changeset	3189	self supportsJustInTimeCompilation ifTrue:[
d4d135959585 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19488 diff changeset	3190	fullDebugSupport := (ValueHolder with:ObjectMemory fullSingleStepSupport).
d4d135959585 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19488 diff changeset	3191	justInTimeCompilation := (ValueHolder with:ObjectMemory justInTimeCompilation).
d4d135959585 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19488 diff changeset	3192	] ifFalse:[
d4d135959585 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19488 diff changeset	3193	fullDebugSupport := ValueHolder with:(ParserFlags fullLineNumberInfo).
d4d135959585 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19488 diff changeset	3194	justInTimeCompilation := ValueHolder with:false.
d4d135959585 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19488 diff changeset	3195	].
d4d135959585 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19488 diff changeset	3196	fullDebugSupport onChangeSend:#updateModifiedChannel to:self.
d4d135959585 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19488 diff changeset	3197	justInTimeCompilation onChangeSend:#updateModifiedChannel to:self.
d4d135959585 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19488 diff changeset	3198
19487 cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3199	enableDollar := ValueHolder with:true.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3200	enableDollar addDependent:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3201
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3202	enableUnderscore := ValueHolder with:true.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3203	enableUnderscore addDependent:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3204
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3205	enableParagraph := ValueHolder with:true.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3206	enableParagraph addDependent:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3207
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3208	immutableStrings := ValueHolder with:(ParserFlags arraysAreImmutable).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3209	immutableStrings onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3210
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3211	warnAboutBadComments := ValueHolder with:(ParserFlags warnAboutBadComments).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3212	warnAboutBadComments onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3213
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3214	warnAboutMissingMethodComment := ValueHolder with:(UserPreferences current enforceComment).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3215	warnAboutMissingMethodComment onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3216
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3217	warnAboutNonLowercaseLocalVariableNames := ValueHolder with:(ParserFlags warnAboutNonLowercaseLocalVariableNames).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3218	warnAboutNonLowercaseLocalVariableNames onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3219
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3220	warnAboutPossibleSTCCompilationProblems := ValueHolder with:(ParserFlags warnAboutPossibleSTCCompilationProblems).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3221	warnAboutPossibleSTCCompilationProblems onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3222
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3223	allowDollar := ValueHolder with:(ParserFlags allowDollarInIdentifier).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3224	allowDollar onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3225	allowDollar addDependent:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3226
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3227	allowFixedPointLiterals := ValueHolder with:(ParserFlags allowFixedPointLiterals).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3228	allowFixedPointLiterals onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3229
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3230	allowExtendedBinarySelectors := ValueHolder with:(ParserFlags allowExtendedBinarySelectors).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3231	allowExtendedBinarySelectors onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3232
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3233	allowAssignmentToPoolVariable := ValueHolder with:(ParserFlags allowAssignmentToPoolVariable).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3234	allowAssignmentToPoolVariable onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3235
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3236	allowDolphinExtensions := ValueHolder with:(ParserFlags allowDolphinExtensions).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3237	allowDolphinExtensions onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3238
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3239	allowEmptyStatements := ValueHolder with:(ParserFlags allowEmptyStatements).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3240	allowEmptyStatements onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3241
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3242	allowOldStyleAssignment := ValueHolder with:(ParserFlags allowOldStyleAssignment).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3243	allowOldStyleAssignment onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3244
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3245	allowParagraph := ValueHolder with:(ParserFlags allowParagraphInIdentifier).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3246	allowParagraph onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3247	allowParagraph addDependent:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3248
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3249	allowQualifiedNames := ValueHolder with:(ParserFlags allowQualifiedNames).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3250	allowQualifiedNames onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3251
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3252	allowReservedWordsAsSelectors := ValueHolder with:(ParserFlags allowReservedWordsAsSelectors).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3253	allowReservedWordsAsSelectors onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3254
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3255	allowSqueakExtensions := ValueHolder with:(ParserFlags allowSqueakExtensions).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3256	allowSqueakExtensions onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3257
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3258	allowUnderscore := ValueHolder with:(ParserFlags allowUnderscoreInIdentifier).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3259	allowUnderscore onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3260	allowUnderscore addDependent:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3261
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3262	allowVisualAgeESSymbolLiterals := ValueHolder with:(ParserFlags allowVisualAgeESSymbolLiterals).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3263	allowVisualAgeESSymbolLiterals onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3264
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3265	allowVisualAgePrimitives := ValueHolder with:(ParserFlags allowVisualAgePrimitives).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3266	allowVisualAgePrimitives onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3267
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3268	immutableArrays := ValueHolder with:(ParserFlags arraysAreImmutable).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3269	immutableArrays onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3270
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3271	warnAboutPossiblyUnimplementedSelectors := ValueHolder with:(ParserFlags warnAboutPossiblyUnimplementedSelectors).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3272	warnAboutPossiblyUnimplementedSelectors onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3273
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3274	warnAboutPossiblyUninitializedLocals := ValueHolder with:(ParserFlags warnAboutPossiblyUninitializedLocals).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3275	warnAboutPossiblyUninitializedLocals onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3276
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3277	warnAboutReferenceToPrivateClass := ValueHolder with:(ParserFlags warnAboutReferenceToPrivateClass).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3278	warnAboutReferenceToPrivateClass onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3279
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3280	warnAboutShortLocalVariableNames := ValueHolder with:(ParserFlags warnAboutShortLocalVariableNames).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3281	warnAboutShortLocalVariableNames onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3282
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3283	warnAboutWrongVariableNames := ValueHolder with:(ParserFlags warnAboutWrongVariableNames).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3284	warnAboutWrongVariableNames onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3285
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3286	warnCommonMistakes := ValueHolder with:(ParserFlags warnCommonMistakes).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3287	warnCommonMistakes onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3288
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3289	warnDollar := ValueHolder with:(ParserFlags warnDollarInIdentifier).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3290	warnDollar onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3291
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3292	warnInconsistentReturnValues := ValueHolder with:(ParserFlags warnInconsistentReturnValues).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3293	warnInconsistentReturnValues onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3294
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3295	warnOldStyle := ValueHolder with:(ParserFlags warnOldStyleAssignment).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3296	warnOldStyle onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3297
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3298	warnPlausibilityChecks := ValueHolder with:(ParserFlags warnPlausibilityChecks).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3299	warnPlausibilityChecks onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3300
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3301	warnCompatibility := ValueHolder with:(ParserFlags warnPossibleIncompatibilities).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3302	warnCompatibility onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3303
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3304	warnSTX := ValueHolder with:(ParserFlags warnSTXSpecials).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3305	warnSTX onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3306
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3307	warnUnderscore := ValueHolder with:(ParserFlags warnUnderscoreInIdentifier).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3308	warnUnderscore onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3309
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3310	warnUnusedVars := ValueHolder with:(ParserFlags warnUnusedVars).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3311	warnUnusedVars onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3312
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3313	warnings := ValueHolder with:(ParserFlags warnings).
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3314	warnings addDependent:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3315	warnings changed.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3316	warnings onChangeSend:#updateModifiedChannel to:self.
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3317	! !
cc082b9448dd #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19447 diff changeset	3318
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3319	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3320
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3321	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	3322	(self
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3323	hasChangedAspectIn:(self simpleAspects)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3324	asComparedTo:ParserFlags) ifTrue:[^ true].
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3325
11814 ffce903c0a2f lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 11774 diff changeset	3326	((self supportsJustInTimeCompilation value ifTrue:[ObjectMemory fullSingleStepSupport ? false] ifFalse:[ParserFlags fullLineNumberInfo]) ~= self fullDebugSupport value) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3327	((Compiler foldConstants) ~= (self class constantFoldingOptions at:self constantFoldingSelection value)) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3328	((ObjectMemory justInTimeCompilation ? false) ~= self justInTimeCompilation value) ifTrue:[^ true].
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3329
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3330	(UserPreferences current enforceComment ~= self warnAboutMissingMethodComment value) ifTrue:[^ true].
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3331
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3332	^ false
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3333
11814 ffce903c0a2f lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 11774 diff changeset	3334	"Modified: / 26-09-2012 / 14:16:14 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3335	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3336
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3337	supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3338
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3339	^ ObjectMemory supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3340	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3341
17283 ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3342	!AbstractSettingsApplication::ChangeFileSettingsAppl class methodsFor:'documentation'!
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3343
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3344	documentation
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3345	"
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3346	I manage where the change file is to be stored and what is to be written into it
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3347	"
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3348	! !
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3349
14376 4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3350	!AbstractSettingsApplication::ChangeFileSettingsAppl class methodsFor:'help specs'!
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3351
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	3352	helpSpec
14376 4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3353	"This resource specification was automatically generated
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3354	by the UIHelpTool of ST/X."
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3355
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3356	"Do not manually edit this!! If it is corrupted,
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3357	the UIHelpTool may not be able to read the specification."
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3358
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3359	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3360	UIHelpTool openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl
14376 4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3361	"
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3362
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3363	<resource: #help>
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3364
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	3365	^ super helpSpec addPairsFrom:#(
14376 4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3366
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3367	#changeFileName
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3368	'The name of the file in which changes are recorded (for the Changebrowser)'
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3369
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3370	#logDoits
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3371	'Also record doIt evaluations in the change file'
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3372
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3373	#updChanges
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3374	'Record code changes (classes and methods) in the change file'
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3375
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3376	)
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3377	! !
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3378
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3379	!AbstractSettingsApplication::ChangeFileSettingsAppl class methodsFor:'image specs'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3380
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3381	defaultIcon
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3382	"This resource specification was automatically generated
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3383	by the ImageEditor of ST/X."
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3384
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3385	"Do not manually edit this!! If it is corrupted,
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3386	the ImageEditor may not be able to read the specification."
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3387
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3388	"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3389	self defaultIcon inspect
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3390	ImageEditor openOnClass:self andSelector:#defaultIcon
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3391	Icon flushCachedIcons
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3392	"
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3393
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3394	<resource: #image>
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3395
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3396	^Icon
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3397	constantNamed:'AbstractSettingsApplication::ChangeFileSettingsAppl defaultIcon'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3398	ifAbsentPut:[(Depth4Image new) width:22; height:22; bits:(ByteArray fromPackedString:'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3399	@@@@@@@@@@@@@@@ADQDQDQDQDQD @@DTQDQDQDQDQBD@@QP3MDQDQDQDHP@AECQDQDQDQDP!!@@DTMDQDQDQDQBD@@QP3MDP3QDQDHP@AEDQDP3L4QDP!!@@DT
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3400	QDP3QCMDQBD@@QQDP3QDP3QDHP@AEDP3QDQDL4P!!@@DTP3QDQDQCMBD@@QQCL3L3L3L4@P@AEDDQDQDQDQPA@@DTQDQDQDQDQ@D@@QP3MDQDQDQD@P@AEDP4
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3401	QDQDQDPA@@DTQCQDQDQDQ@D@@QP3MDQDQDQD@P@AEDQDQDQDQDPA@@D @@@@@@@@@@D@@ADQDQDQDQDQDP@b') ; colorMapFromArray:#[0 0 0 208 208 208 48 48 48 160 160 160 240 240 240]; mask:((ImageMask new) width:22; height:22; bits:(ByteArray fromPackedString:'@@@@_?? _??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0O??0') ; yourself); yourself]
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3402	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3403
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3404	!AbstractSettingsApplication::ChangeFileSettingsAppl class methodsFor:'interface specs'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3405
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3406	windowSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3407	"This resource specification was automatically generated
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3408	by the UIPainter of ST/X."
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3409
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3410	"Do not manually edit this!! If it is corrupted,
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3411	the UIPainter may not be able to read the specification."
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3412
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3413	"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3414	UIPainter new openOnClass:AbstractSettingsApplication::ChangeFileSettingsAppl andSelector:#windowSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3415	AbstractSettingsApplication::ChangeFileSettingsAppl new openInterface:#windowSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3416	AbstractSettingsApplication::ChangeFileSettingsAppl open
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3417	"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3418
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3419	<resource: #canvas>
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3420
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3421	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3422	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3423	name: windowSpec
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3424	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3425	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3426	label: 'Changes Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3427	name: 'Changes Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3428	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3429	bounds: (Rectangle 0 0 561 478)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3430	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3431	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3432	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3433	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3434	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3435	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3436	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3437	horizontalLayout: fitSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3438	verticalLayout: topSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3439	horizontalSpace: 5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3440	verticalSpace: 5
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3441	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3442	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3443	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3444	(FramedBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3445	label: 'Change File'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3446	name: 'FramedBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3447	labelPosition: topLeft
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3448	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3449	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3450	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3451	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3452	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3453	label: 'Log changed classes and methods in the Changefile'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3454	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3455	layout: (LayoutFrame 5 0 5 0 -5 1 35 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3456	activeHelpKey: updChanges
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3457	model: updChanges
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3458	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3459	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3460	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3461	label: 'Log doIts in the Changefile'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3462	name: 'CheckBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3463	layout: (LayoutFrame 5 0 35 0 -5 1 65 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3464	activeHelpKey: logDoits
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3465	model: logDoits
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3466	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3467	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3468	(ViewSpec
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3469	name: 'Box1'
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3470	layout: (LayoutFrame 5 0 73 0 -5 1 105 0)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3471	component:
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3472	(SpecCollection
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3473	collection: (
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3474	(LabelSpec
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3475	label: 'Changefile Name:'
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3476	name: 'ChangefileNameLabel'
17320 84917de97b41 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17283 diff changeset	3477	layout: (LayoutFrame 10 0 0 0 250 0 30 0)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3478	activeHelpKey: changeFileName
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3479	translateLabel: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3480	adjust: right
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3481	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3482	(FilenameInputFieldSpec
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3483	name: 'FilenameEntryField1'
17320 84917de97b41 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17283 diff changeset	3484	layout: (LayoutFrame 250 0 0 0 0 1 30 0)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3485	activeHelpKey: changeFileName
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3486	model: changeFileName
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3487	immediateAccept: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3488	acceptOnReturn: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3489	acceptOnTab: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3490	acceptOnLostFocus: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3491	acceptOnPointerLeave: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3492	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3493	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3494
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3495	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3496	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3497	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3498
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3499	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3500	extent: (Point 551 147)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3501	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3502	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3503
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3504	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3505	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3506	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3507
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3508	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3509	)
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3510	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3511
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3512	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'actions'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3513
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3514	basicReadSettings
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3515	self changeFileName value:(currentUserPrefs changeFileName
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3516	? ObjectMemory nameForChanges).
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3517	self logDoits value:Smalltalk logDoits.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3518	self updChanges value:Class updatingChanges.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3519
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3520	"Modified: / 27-10-2010 / 10:16:48 / cg"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3521	!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3522
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3523	basicSaveSettings
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3524	\|chgFile\|
26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3525
26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3526	chgFile := self changeFileName value.
15010 21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3527	chgFile := chgFile asNilIfEmpty.
14379 8e683325f9ac class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14377 diff changeset	3528	currentUserPrefs changeFileName isNil ifTrue:[
15010 21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3529	"/ had the default
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3530	chgFile = ObjectMemory nameForChanges ifFalse:[
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3531	ObjectMemory nameForChanges:chgFile.
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3532	currentUserPrefs changeFileName:chgFile
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3533	]
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3534	] ifFalse:[
15010 21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3535	"/ had a value before
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3536	chgFile = currentUserPrefs changeFileName ifFalse:[
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3537	ObjectMemory nameForChanges:chgFile.
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3538	currentUserPrefs changeFileName:chgFile
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3539	].
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3540	].
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3541	Smalltalk logDoits:self logDoits value.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3542	Class updateChanges:self updChanges value.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3543
9754 d237d1faea20 format Claus Gittinger <cg@exept.de> parents: 9739 diff changeset	3544	"Modified: / 09-02-2011 / 20:32:47 / cg"
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3545	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3546
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3547	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'aspects'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3548
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3549	changeFileName
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3550	^ changeFileName.
10904 6c29ee8850bc x Claus Gittinger <cg@exept.de> parents: 10903 diff changeset	3551
6c29ee8850bc x Claus Gittinger <cg@exept.de> parents: 10903 diff changeset	3552	"Modified (format): / 25-11-2011 / 15:43:37 / cg"
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3553	!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3554
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3555	logDoits
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3556	^ logDoits.
10904 6c29ee8850bc x Claus Gittinger <cg@exept.de> parents: 10903 diff changeset	3557
6c29ee8850bc x Claus Gittinger <cg@exept.de> parents: 10903 diff changeset	3558	"Modified (format): / 25-11-2011 / 15:43:41 / cg"
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3559	!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3560
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3561	updChanges
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3562	^ updChanges.
10904 6c29ee8850bc x Claus Gittinger <cg@exept.de> parents: 10903 diff changeset	3563
6c29ee8850bc x Claus Gittinger <cg@exept.de> parents: 10903 diff changeset	3564	"Modified (format): / 25-11-2011 / 15:43:45 / cg"
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3565	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3566
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3567	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'help'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3568
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3569	helpFilename
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3570	^ 'Launcher/messageSettings.html'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3571	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3572
19490 66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3573	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'initialization'!
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3574
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3575	initialize
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3576	super initialize.
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3577
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3578	changeFileName := ValueHolder with:(ObjectMemory nameForChanges).
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3579	changeFileName onChangeSend:#updateModifiedChannel to:self.
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3580
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3581	logDoits := ValueHolder with:(Smalltalk logDoits).
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3582	logDoits onChangeSend:#updateModifiedChannel to:self.
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3583
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3584	updChanges := ValueHolder with:(Class updatingChanges).
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3585	updChanges onChangeSend:#updateModifiedChannel to:self.
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3586	! !
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3587
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3588	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'queries'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3589
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3590	hasUnsavedChanges
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3591	self logDoits value ~= Smalltalk logDoits ifTrue:[^ true].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3592	self updChanges value ~= Class updatingChanges ifTrue:[^ true].
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3593	currentUserPrefs changeFileName isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3594	self changeFileName value ~= ObjectMemory nameForChanges ifTrue:[^ true].
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3595	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3596	self changeFileName value ~= currentUserPrefs changeFileName ifTrue:[^ true].
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3597	].
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3598	^ false
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3599
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3600	"Modified: / 27-10-2010 / 10:17:21 / cg"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3601	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3602
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3603	!AbstractSettingsApplication::CodeGeneratorSettingsAppl class methodsFor:'image specs'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3604
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3605	defaultIcon
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3606	"This resource specification was automatically generated
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3607	by the ImageEditor of ST/X."
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3608
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3609	"Do not manually edit this!! If it is corrupted,
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3610	the ImageEditor may not be able to read the specification."
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3611
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3612	"
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3613	self defaultIcon inspect
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3614	ImageEditor openOnClass:self andSelector:#defaultIcon
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3615	Icon flushCachedIcons
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3616	"
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3617
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3618	<resource: #image>
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3619
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3620	^Icon
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3621	constantNamed:'AbstractSettingsApplication::CodeGeneratorSettingsAppl defaultIcon'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3622	ifAbsentPut:[(Depth4Image new) width:22; height:22; bits:(ByteArray fromPackedString:'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3623	DQDQDQDQDQDQDQDRH"H"H"H"H"HADQH&Y&Y&Y&Y&Y IDD"XQE&Y&Y&Y&@$PRI!!Y&Y&Y&Y&XBQAH&E&Y&Y#Y&Y IDD"XQE&Y# 6Y&@$PRI&Y&L6N#X3XBQAH&
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3624	Y&M5M[T5\0IDD"Y&Y#&<7K$6@$PRI&Y&X57-T6XBPQH&Y&Y#W^5SY IAD"Y&Y#&<7K$6@!!DRI&Y#]SV5MWLBDQH&Y&X3X:M#M HQD"XQE&Y# 6Y&@!!DRI&XV
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3625	Y&X6Y&XBDQH&Y!!Y&Y&Y&Y HQD"XQE&Y&Y&Y&@!!DRI&Y&Y&Y&Y&XBDQH@@@@@@@@@@@HQDRH"H"H"H"H"H!!Db') ; colorMapFromArray:#[0 0 0 160 160 160 208 208 208 240 144 24 240 160 80 240 208 24 240 240 240 255 248 24 255 248 48 255 248 88 255 248 96 255 248 140 255 248 176 255 248 200 255 248 248]; mask:((ImageMask new) width:22; height:22; bits:(ByteArray fromPackedString:'@@@@_?? _??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0O??0') ; yourself); yourself]
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3626	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3627
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3628	!AbstractSettingsApplication::CodeGeneratorSettingsAppl class methodsFor:'interface specs'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3629
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3630	windowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3631	"This resource specification was automatically generated
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3632	by the UIPainter of ST/X."
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3633
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3634	"Do not manually edit this!! If it is corrupted,
18816 fb0039d3d3b3 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18763 diff changeset	3635	the UIPainter may not be able to read the specification."
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3636
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3637	"
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3638	UIPainter new openOnClass:AbstractSettingsApplication::CodeGeneratorSettingsAppl andSelector:#windowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3639	AbstractSettingsApplication::CodeGeneratorSettingsAppl new openInterface:#windowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3640	AbstractSettingsApplication::CodeGeneratorSettingsAppl open
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3641	"
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3642
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3643	<resource: #canvas>
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3644
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3645	^
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	3646	#(FullSpec
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	3647	name: windowSpec
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3648	window:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	3649	(WindowSpec
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	3650	label: 'Code Generator Settings'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	3651	name: 'Code Generator Settings'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3652	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3653	bounds: (Rectangle 0 0 607 786)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3654	)
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3655	component:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	3656	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3657	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3658	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3659	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3660	layout: (LayoutFrame 0 0.0 0 0 0 1.0 342 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3661	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3662	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3663	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3664	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3665	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3666	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3667	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3668	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3669	label: 'Generate Comments'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3670	name: 'GenerateComments'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3671	activeHelpKey: generateComments
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3672	model: generateComments
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3673	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3674	extent: (Point 607 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3675	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3676	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3677	label: 'Generate Comments in Getters'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3678	name: 'GenerateCommentsInGetters'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3679	activeHelpKey: generateCommentsInGetters
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3680	enableChannel: generateComments
18816 fb0039d3d3b3 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18763 diff changeset	3681	model: generateCommentsForGetters
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3682	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3683	extent: (Point 607 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3684	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3685	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3686	label: 'Generate Comments in Setters'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3687	name: 'GenerateCommentsInSetters'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3688	activeHelpKey: generateCommentsInSetters
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3689	enableChannel: generateComments
18816 fb0039d3d3b3 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18763 diff changeset	3690	model: generateCommentsForSetters
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3691	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3692	extent: (Point 607 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3693	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3694	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3695
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3696	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3697	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3698	)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3699
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	3700	)
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	3701	)
18816 fb0039d3d3b3 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18763 diff changeset	3702
fb0039d3d3b3 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18763 diff changeset	3703	"Modified: / 07-06-2019 / 16:00:21 / Stefan Vogel"
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3704	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3705
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3706	!AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'aspects'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3707
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	3708	aspects
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3709	^ #(
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	3710	generateComments
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	3711	generateCommentsForGetters
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	3712	generateCommentsForSetters
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3713	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3714	!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3715
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3716	generateComments
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3717	^ generateComments.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3718	!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3719
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3720	generateCommentsForGetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3721	^ generateCommentsForGetters.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3722	!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3723
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3724	generateCommentsForSetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3725	^ generateCommentsForSetters.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3726	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3727
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3728	!AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'help'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3729
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3730	helpFilename
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3731	^ 'Launcher/codeGeneratorSettings.html'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3732	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3733
19490 66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3734	!AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'initialization'!
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3735
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3736	initialize
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3737	\|userPrefs\|
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3738
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3739	super initialize.
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3740
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3741	userPrefs := UserPreferences current.
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3742
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3743	generateComments := ValueHolder with:(userPrefs generateComments).
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3744	generateComments onChangeSend:#updateModifiedChannel to:self.
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3745
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3746	generateCommentsForGetters := ValueHolder with:(userPrefs generateCommentsForGetters).
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3747	generateCommentsForGetters onChangeSend:#updateModifiedChannel to:self.
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3748
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3749	generateCommentsForSetters := ValueHolder with:(userPrefs generateCommentsForSetters).
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3750	generateCommentsForSetters onChangeSend:#updateModifiedChannel to:self.
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3751	! !
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3752
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3753	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl class methodsFor:'help specs'!
18143 016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3754
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3755	helpSpec
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3756	"This resource specification was automatically generated
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3757	by the UIHelpTool of ST/X."
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3758
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3759	"Do not manually edit this!! If it is corrupted,
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3760	the UIHelpTool may not be able to read the specification."
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3761
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3762	"
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3763	UIHelpTool openOnClass:AbstractSettingsApplication::CommunicationLoggingSettingsAppl
18143 016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3764	"
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3765
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3766	<resource: #help>
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3767
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3768	^ super helpSpec addPairsFrom:#(
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3769
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3770	#logExecutedOSCommands
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3771	'Display executed OS commands on the Transcript'
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3772
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3773	#logHTTPRequests
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3774	'Display outgoing HTTP request on the Transcript'
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3775
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3776	#logNetCommunications
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3777	'Display IMAP and other protocol traces (from the goodies/net package)'
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3778
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3779	#logSOAPRequests
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3780	'Display outgoing SOAP request on the Transcript'
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3781
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3782	#logSSLCommunications
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3783	'Display SSL traces (from the ssl package, if loaded)'
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3784
18143 016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3785	)
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3786
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3787	"Modified: / 19-07-2019 / 09:12:17 / Claus Gittinger"
18143 016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3788	! !
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3789
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3790	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl class methodsFor:'image specs'!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3791
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3792	defaultIcon
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3793	<resource: #programImage>
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3794
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3795	^ self defaultIcon2
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3796	!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3797
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3798	defaultIcon1
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3799	"This resource specification was automatically generated
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3800	by the ImageEditor of ST/X."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3801
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3802	"Do not manually edit this!! If it is corrupted,
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3803	the ImageEditor may not be able to read the specification."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3804
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3805	"
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	3806	self defaultIcon1 inspect
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	3807	ImageEditor openOnClass:self andSelector:#defaultIcon1
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3808	Icon flushCachedIcons
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3809	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3810
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3811	<resource: #image>
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3812
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3813	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	3814	constantNamed:'AbstractSettingsApplication::CommunicationLoggingSettingsAppl defaultIcon1'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	3815	ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	3816	@@@@@@@@@@@@@@@GY&Y&Y&Y&Y @0LB]UUUUUUUQG@C@0I5UUUUUUUD\@@@@''U&Y&YUUDQ0@@@B]UUUUUUTQG@@@@I5Y&Y&UUQD\@@@@''UUUUUUUDQ0@@@B]V
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	3817	Y&Y%UDQG@@@@I5UUUUUTQD\@@@@''U&Y&YUQDQ0@SLB]UUUUUUDQGT@@@I5UUUUUTQD]P@0@''U&Y&YUQDQ0@C@B]UUUUUUDQG@@L@I5Y&Y&UDQD\@DS@''UUUU
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	3818	UUQDQ0@SLB]UUUUUQDQG@AL0I7]7]7]7]7\@D3@"H"H"H"H"H@@QL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	3819	colorMapFromArray:#[0 0 0 255 255 0 192 192 192 100 100 100 224 224 224 240 240 240 0 80 128 80 80 80]
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	3820	mask:((ImageMask width:22 height:22) bits:(ByteArray fromPackedString:'@@@@_?<8??<8??<P??<P??<P??<P??<P??<P??<8??=<???<??>8??<8??<8??=<??=<??=<??=<??9<@@@8@@@@'); yourself); yourself]
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3821	!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3822
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3823	defaultIcon2
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3824	"This resource specification was automatically generated
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3825	by the ImageEditor of ST/X."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3826
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3827	"Do not manually edit this!! If it is corrupted,
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3828	the ImageEditor may not be able to read the specification."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3829
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3830	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3831	self defaultIcon2 inspect
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3832	ImageEditor openOnClass:self andSelector:#defaultIcon2
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3833	Icon flushCachedIcons
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3834	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3835
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3836	<resource: #image>
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3837
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3838	^Icon
15762 852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	3839	constantNamed:'AbstractSettingsApplication::CommunicationLoggingSettingsAppl defaultIcon2'
852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	3840	ifAbsentPut:[(Depth8Image width:17 height:22) bits:(ByteArray fromPackedString:'
9278 f72863183d67 * empty log message * Claus Gittinger <cg@exept.de> parents: 9277 diff changeset	3841	@@@@@@@@@@@@@@@@@@@@@@@@AP4MCP4MCP4MCP4MCP4M@@LE@ HB@ HB@ HB@ HJB T@@0TB@ HB@ HB@ HB@ (JAP@CAPHMCP4MCP4B@ HJB (E@@LE@ HB
f72863183d67 * empty log message * Claus Gittinger <cg@exept.de> parents: 9277 diff changeset	3842	@ HB@ HB@ (JB T@@0TBCP4MCP4M@ HBB (JAP@CAPHB@ HB@ HB@ HJB (E@@LE@ 4MCP4MCPHBB (JB T@@0TB@ HB@ HB@ HJB (JAP@CAPHMCP4MCP4B
f72863183d67 * empty log message * Claus Gittinger <cg@exept.de> parents: 9277 diff changeset	3843	@ (JB (E@@LE@ HB@ HB@ HBB (JB T@@0TB@ HB@ HB@ HJB (JAP@CAPHMCP4MCP4B@ (JB (E@@LE@ HB@ HB@ HBB (JB T@@0TBCP4MCP4M@ (JB (J
f72863183d67 * empty log message * Claus Gittinger <cg@exept.de> parents: 9277 diff changeset	3844	AP@CAPHB@ HB@ HB@ (JB (E@@LE@ HB@ HB@ HJB (JB T@@0TEAPTEAPTEAPTEAPTEAP@C@0LC@0LC@0LC@0LC@0L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
15762 852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	3845	@@@@@@@@@@@@@@@@@@@b'); 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]; mask:((ImageMask width:17 height:22) bits:(ByteArray fromPackedString:'@@@@_?<@??<@??<@??<@??<@??<@??<@??<@??<@??<@??<@??<@??<@??<@??<@??<@??<@??<@??8@@@@@@@@@'); yourself); yourself]
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3846	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3847
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3848	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl class methodsFor:'interface specs'!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3849
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3850	windowSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3851	"This resource specification was automatically generated
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3852	by the UIPainter of ST/X."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3853
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3854	"Do not manually edit this!! If it is corrupted,
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3855	the UIPainter may not be able to read the specification."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3856
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3857	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3858	UIPainter new openOnClass:AbstractSettingsApplication::CommunicationLoggingSettingsAppl andSelector:#windowSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3859	AbstractSettingsApplication::CommunicationLoggingSettingsAppl new openInterface:#windowSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3860	AbstractSettingsApplication::CommunicationLoggingSettingsAppl open
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3861	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3862
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3863	<resource: #canvas>
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3864
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3865	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3866	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3867	name: windowSpec
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3868	uuid: 'a524bbb0-a9f3-11e9-8c78-b8f6b1108e05'
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3869	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3870	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3871	label: 'Com-Logging settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3872	name: 'Com-Logging settings'
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3873	uuid: 'a524bdf4-a9f3-11e9-8c78-b8f6b1108e05'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3874	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3875	bounds: (Rectangle 0 0 445 401)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3876	)
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3877	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3878	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3879	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3880	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3881	name: 'VerticalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3882	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3883	uuid: 'a524c01a-a9f3-11e9-8c78-b8f6b1108e05'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3884	horizontalLayout: fitSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3885	verticalLayout: topSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3886	horizontalSpace: 5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3887	verticalSpace: 3
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3888	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3889	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3890	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3891	(CheckBoxSpec
18124 28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3892	label: 'Log Executed OS Commands'
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3893	name: 'LogExecutedOSCommands'
18129 41ca9a5605a1 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18124 diff changeset	3894	activeHelpKey: logExecutedOSCommands
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3895	uuid: 'a524c18c-a9f3-11e9-8c78-b8f6b1108e05'
18129 41ca9a5605a1 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18124 diff changeset	3896	model: logExecutedOSCommands
18124 28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3897	translateLabel: true
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3898	extent: (Point 435 34)
18124 28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3899	)
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3900	(CheckBoxSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3901	label: 'Log Outgoing HTTP Requests on Transcript'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3902	name: 'LogHTTPRequests'
18143 016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3903	activeHelpKey: logHTTPRequests
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3904	uuid: 'a524c2e0-a9f3-11e9-8c78-b8f6b1108e05'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3905	model: logHTTPRequests
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3906	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3907	extent: (Point 435 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3908	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3909	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3910	label: 'Log Outgoing SOAP Requests on Transcript'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3911	name: 'LogSOAPRequests'
18143 016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3912	activeHelpKey: logSOAPRequests
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3913	uuid: 'a524c3bc-a9f3-11e9-8c78-b8f6b1108e05'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3914	model: logSOAPRequests
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3915	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3916	extent: (Point 435 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3917	)
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3918	(CheckBoxSpec
18208 1c027c9eb9de #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18207 diff changeset	3919	label: 'Log IMAP and POP3 Communication Protocols'
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3920	name: 'LogNetCommunications'
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3921	activeHelpKey: logNetCommunications
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3922	uuid: 'a524c48e-a9f3-11e9-8c78-b8f6b1108e05'
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3923	model: logNetCommunications
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3924	translateLabel: true
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3925	extent: (Point 435 30)
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3926	)
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3927	(CheckBoxSpec
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3928	label: 'Log SSL Communication Protocols'
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3929	name: 'CheckBox1'
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3930	activeHelpKey: logSSLCommunications
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3931	uuid: 'a524c556-a9f3-11e9-8c78-b8f6b1108e05'
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3932	enableChannel: hasSSLPackageLoaded
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3933	model: logSSLCommunications
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3934	translateLabel: true
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3935	extent: (Point 435 30)
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3936	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3937	)
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3938
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3939	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3940	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3941	)
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3942
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3943	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3944	)
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3945	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3946
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	3947	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl methodsFor:'aspects'!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	3948
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	3949	aspects
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3950	^ #(
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	3951	logHTTPRequests
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	3952	logSOAPRequests
18124 28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3953	logExecutedOSCommands
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3954	logNetCommunications
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3955	logSSLCommunications
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3956	)
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3957
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3958	"Modified: / 19-07-2019 / 09:09:25 / Claus Gittinger"
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3959	!
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3960
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3961	hasSSLPackageLoaded
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3962	^ (Smalltalk at:#'SSL::SSLSocket') notNil
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3963
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3964	"Created: / 19-07-2019 / 09:08:13 / Claus Gittinger"
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3965	!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3966
18124 28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3967	logExecutedOSCommands
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3968	^ logExecutedOSCommands.
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3969	!
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3970
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3971	logHTTPRequests
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3972	^ logHTTPRequests.
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3973	!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3974
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3975	logNetCommunications
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3976	^ logNetCommunications.
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3977
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3978	"Created: / 13-06-2018 / 17:27:50 / Claus Gittinger"
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3979	!
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3980
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3981	logSOAPRequests
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3982	^ logSOAPRequests.
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3983	!
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3984
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3985	logSSLCommunications
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3986	^ logSSLCommunications.
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3987
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3988	"Created: / 19-07-2019 / 09:08:57 / Claus Gittinger"
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3989	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3990
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3991	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl methodsFor:'help'!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3992
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3993	helpFilename
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3994	^ 'Launcher/comLoggingSettings.html'
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3995	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3996
19490 66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3997	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl methodsFor:'initialization'!
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3998
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	3999	initialize
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4000	super initialize.
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4001
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4002	logExecutedOSCommands := ValueHolder with:false.
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4003	logExecutedOSCommands onChangeSend:#updateModifiedChannel to:self.
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4004
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4005	logHTTPRequests := ValueHolder with:false.
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4006	logHTTPRequests onChangeSend:#updateModifiedChannel to:self.
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4007
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4008	logNetCommunications := ValueHolder with:false.
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4009	logNetCommunications onChangeSend:#updateModifiedChannel to:self.
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4010
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4011	logSOAPRequests := ValueHolder with:false.
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4012	logSOAPRequests onChangeSend:#updateModifiedChannel to:self.
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4013
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4014	logSSLCommunications := ValueHolder with:false.
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4015	logSSLCommunications onChangeSend:#updateModifiedChannel to:self.
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4016	! !
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4017
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4018	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'help specs'!
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4019
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	4020	helpSpec
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4021	"This resource specification was automatically generated
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4022	by the UIHelpTool of ST/X."
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4023
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4024	"Do not manually edit this!! If it is corrupted,
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4025	the UIHelpTool may not be able to read the specification."
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4026
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4027	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4028	UIHelpTool openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4029	"
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4030
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4031	<resource: #help>
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4032
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	4033	^ super helpSpec addPairsFrom:#(
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4034
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4035	#allowSendingMail
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4036	'Show the "Send mail to Exept support team" button. Requires proper email setup'
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4037
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4038	#hideSupportCode
17524 b222453334cc #DOCUMENTATION by mawalch mawalch parents: 17514 diff changeset	4039	'Hide helper and support frames in the stack walkback display.\This includes the implementation of collection, exception and block evaluation'
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4040
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4041	#showErrorNotifier
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4042	'Show a notifier dialog before opening the full debugger.\This displays an abbreviated walkback and provides buttons to continue, abort or debug'
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4043
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4044	#showVerboseStack
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4045	'Show the full stack walkback, including all of the tool and exception frames.\Often, this is too much information and may distract from your real problem'
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4046
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4047	#useNewLayout
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4048	'Use the new button layout with step/next buttons in the middle'
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4049
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4050	)
17524 b222453334cc #DOCUMENTATION by mawalch mawalch parents: 17514 diff changeset	4051
b222453334cc #DOCUMENTATION by mawalch mawalch parents: 17514 diff changeset	4052	"Modified: / 01-06-2017 / 14:12:51 / mawalch"
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4053	! !
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4054
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4055	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4056
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4057	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4058	<resource: #programImage>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4059
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4060	^ ToolbarIconLibrary bugReporter24x24Icon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4061	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4062
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4063	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4064
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4065	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4066	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4067	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4068
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4069	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4070	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4071
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4072	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4073	UIPainter new openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4074	AbstractSettingsApplication::DebuggerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4075	AbstractSettingsApplication::DebuggerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4076	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4077
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4078	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4079
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4080	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4081	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4082	name: windowSpec
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4083	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4084	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4085	label: 'Debugger Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4086	name: 'Debugger Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4087	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4088	bounds: (Rectangle 0 0 600 320)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4089	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4090	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4091	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4092	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4093	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4094	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4095	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4096	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4097	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4098	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4099	verticalSpace: 0
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4100	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4101	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4102	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4103	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4104	name: 'ShowErrorNotifierBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4105	activeHelpKey: showErrorNotifier
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4106	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4107	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4108	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4109	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4110	label: 'Show Error Notifier before Opening Debugger'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4111	name: 'ShowErrorNotifierCheckBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4112	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4113	activeHelpKey: showErrorNotifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4114	model: showErrorNotifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4115	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4116	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4117	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4118
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4119	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4120	extent: (Point 600 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4121	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4122	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4123	name: 'UseNewLayoutInDebuggerBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4124	activeHelpKey: useNewLayout
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4125	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4126	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4127	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4128	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4129	label: 'Use New Layout'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4130	name: 'UseNewLayoutInDebuggerCheckBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4131	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4132	activeHelpKey: useNewLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4133	model: useNewLayoutInDebugger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4134	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4135	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4136	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4137
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4138	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4139	extent: (Point 600 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4140	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4141	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4142	name: 'ShowVerboseStackBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4143	activeHelpKey: showVerboseStack
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4144	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4145	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4146	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4147	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4148	label: 'Verbose Backtrace by Default in Debugger'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4149	name: 'ShowVerboseStackCheckBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4150	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4151	activeHelpKey: showVerboseStack
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4152	model: verboseBacktraceInDebugger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4153	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4154	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4155	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4156
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4157	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4158	extent: (Point 600 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4159	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4160	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4161	name: 'HideEnumerationCodeBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4162	activeHelpKey: hideSupportCode
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4163	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4164	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4165	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4166	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4167	label: 'Hide Support Code (Implementation of Enumerations, Exceptions, etc.)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4168	name: 'CheckBox1'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4169	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4170	activeHelpKey: hideSupportCode
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4171	model: hideSupportCodeInDebugger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4172	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4173	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4174	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4175
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4176	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4177	extent: (Point 600 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4178	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4179	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4180	name: 'AllowSendingMailFromDebuggerBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4181	activeHelpKey: allowSendingMail
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4182	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4183	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4184	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4185	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4186	label: 'Allow Sending of Error Reports from Debugger'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4187	name: 'AllowSendingMailFromDebuggerCheckBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4188	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4189	activeHelpKey: allowSendingMail
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4190	model: allowSendMailFromDebugger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4191	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4192	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4193	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4194
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4195	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4196	extent: (Point 600 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4197	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4198	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4199
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4200	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4201	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4202	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4203
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4204	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4205	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4206	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4207
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4208	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4209
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4210	basicReadSettings
19490 66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4211	showErrorNotifier value:(NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler).
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4212	super basicReadSettings.
11572 29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4213
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4214	"Modified: / 10-06-2012 / 21:23:24 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4215	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4216
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4217	basicSaveSettings
19490 66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4218	showErrorNotifier value ifFalse:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4219	NoHandlerError emergencyHandler:nil
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4220	] ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4221	NoHandlerError emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4222	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4223	super basicSaveSettings.
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4224	Debugger newDebugger.
11572 29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4225
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4226	"Modified: / 10-06-2012 / 21:23:32 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4227	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4228
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4229	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4230
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4231	allowSendMailFromDebugger
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4232	^ allowSendMailFromDebugger.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4233	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4234
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4235	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4236	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4237	allowSendMailFromDebugger
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4238	verboseBacktraceInDebugger
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4239	hideSupportCodeInDebugger
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4240	useNewLayoutInDebugger
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4241	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4242	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4243
11572 29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4244	hideSupportCodeInDebugger
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4245	^ hideSupportCodeInDebugger.
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4246
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4247	"Created: / 10-06-2012 / 21:23:40 / cg"
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4248	!
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4249
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4250	showErrorNotifier
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4251	^ showErrorNotifier.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4252	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4253
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4254	useNewLayoutInDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4255	^ useNewLayoutInDebugger.
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4256	!
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4257
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4258	verboseBacktraceInDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4259	^ verboseBacktraceInDebugger.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4260	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4261
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4262	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4263
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4264	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4265	^ 'Launcher/debuggerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4266	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4267
19490 66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4268	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'initialization'!
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4269
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4270	initialize
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4271	\|userPrefs\|
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4272
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4273	super initialize.
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4274
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4275	allowSendMailFromDebugger := ValueHolder with:(currentUserPrefs allowSendMailFromDebugger).
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4276	allowSendMailFromDebugger onChangeSend:#updateModifiedChannel to:self.
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4277
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4278	userPrefs := UserPreferences current.
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4279	hideSupportCodeInDebugger := ValueHolder with:(userPrefs hideSupportCodeInDebugger ? true).
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4280	hideSupportCodeInDebugger onChangeSend:#updateModifiedChannel to:self.
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4281
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4282	showErrorNotifier := ValueHolder with:(NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler).
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4283	showErrorNotifier onChangeSend:#updateModifiedChannel to:self.
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4284
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4285	useNewLayoutInDebugger := ValueHolder with:(userPrefs useNewLayoutInDebugger).
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4286	useNewLayoutInDebugger onChangeSend:#updateModifiedChannel to:self.
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4287
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4288	verboseBacktraceInDebugger := ValueHolder with:(userPrefs verboseBacktraceInDebugger).
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4289	verboseBacktraceInDebugger onChangeSend:#updateModifiedChannel to:self.
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4290	! !
66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4291
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4292	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4293
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4294	hasUnsavedChanges
19490 66c308bfaaf4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19489 diff changeset	4295	showErrorNotifier value ~= (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) ifTrue:[^ true].
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4296	^ super hasUnsavedChanges
11572 29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4297
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4298	"Modified: / 10-06-2012 / 21:23:54 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4299	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4300
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4301	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4302
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4303	clipEncodingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4304
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4305	^ #('untranslated' 'iso8859' 'jis' 'jis7' 'shift-JIS' 'EUC' 'big5')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4306	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4307
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4308	clipEncodingSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4309
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4310	^ #(nil #iso8859 #jis #jis7 #sjis #euc #big5)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4311	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4312
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4313	staticGrayOrGrayScaleDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4314
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4315	^ #('threshold' 'ordered dither' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4316	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4317
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4318	staticGrayOrGrayScaleDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4319
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4320	^ #(threshold ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4321	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4322
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4323	trueColorDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4324
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4325	^ #('nearest color' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4326	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4327
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4328	trueColorDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4329
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4330	^ #(ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4331	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4332
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4333	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'help specs'!
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4334
18624 46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	4335	helpSpec
16340 326a957fc098 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16338 diff changeset	4336	<resource: #help>
326a957fc098 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16338 diff changeset	4337
18624 46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	4338	^ super helpSpec addPairsFrom:#(
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4339
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4340	#enableVMWareDrawingBugWorkaround
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4341	'Enable a workaround for a redraw bug when the display is an XServer running inside a VMWare virtual machine.\If enabled, the number of buffered drawing operations is limited by performing an XFlush after every drawing operation.\\Only applies to X-Window display systems'
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4342
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4343	)
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4344
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	4345	"Created: / 24-06-2014 / 19:39:38 / cg"
18624 46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	4346	"Modified: / 28-02-2019 / 12:51:36 / Claus Gittinger"
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4347	! !
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4348
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4349	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4350
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4351	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4352	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4353
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4354	^ ToolbarIconLibrary displayScreenIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4355	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4356
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4357	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4358
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4359	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4360	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4361	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4362
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4363	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4364	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4365
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4366	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4367	UIPainter new openOnClass:AbstractSettingsApplication::DisplaySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4368	AbstractSettingsApplication::DisplaySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4369	AbstractSettingsApplication::DisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4370	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4371
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4372	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4373
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4374	^
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4375	#(FullSpec
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4376	name: windowSpec
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4377	uuid: 'a94ef476-24a6-11b2-9f08-00d861a3d4eb'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4378	window:
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4379	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4380	label: 'Display Screen Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4381	name: 'Display Screen Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4382	flags: 1
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4383	uuid: 'a94ef8ea-24a6-11b2-9f08-00d861a3d4eb'
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4384	min: (Point 10 10) bounds: (Rectangle 0 0 604 510)
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4385	) component:
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4386	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4387	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4388	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4389	label: 'Actual Visible Screen Area:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4390	name: 'ActualVisibleScreenAreaLabel'
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4391	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 30 0) uuid: 'a94efba6-24a6-11b2-9f08-00d861a3d4eb'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4392	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4393	adjust: left
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4394	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4395	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4396	label: 'Common Sizes:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4397	name: 'CommonSizesLabel'
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4398	layout: (LayoutFrame 0 0 39 0 277 0 69 0) uuid: 'a94efd7c-24a6-11b2-9f08-00d861a3d4eb'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4399	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4400	adjust: right
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4401	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4402	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4403	label: 'monitor size'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4404	name: 'MonitorSelectionPopUpList'
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4405	layout: (LayoutFrame 280 0 39 0 -5 1 69 0) uuid: 'a94efe6c-24a6-11b2-9f08-00d861a3d4eb'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4406	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4407	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4408	model: monitorSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4409	menu: monitorList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4410	useIndex: true
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4411	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4412	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4413	label: 'Screen Size:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4414	name: 'ScreenSizeLabel'
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4415	layout: (LayoutFrame 5 0 73 0 277 0 103 0) uuid: 'a94f0024-24a6-11b2-9f08-00d861a3d4eb'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4416	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4417	adjust: right
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4418	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4419	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4420	name: 'SizeXEntryField'
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4421	layout: (LayoutFrame 280 0 72 0 347 0 102 0) uuid: 'a94f010a-24a6-11b2-9f08-00d861a3d4eb'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4422	model: sizeX
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4423	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4424	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4425	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4426	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4427	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4428	acceptOnPointerLeave: true
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4429	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4430	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4431	label: ' x '
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4432	name: 'xLabel'
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4433	layout: (LayoutFrame 348 0 72 0 369 0 102 0) uuid: 'a94f03b2-24a6-11b2-9f08-00d861a3d4eb'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4434	translateLabel: true
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4435	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4436	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4437	name: 'SizeYEntryField'
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4438	layout: (LayoutFrame 370 0 72 0 437 0 102 0) uuid: 'a94f048e-24a6-11b2-9f08-00d861a3d4eb'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4439	model: sizeY
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4440	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4441	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4442	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4443	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4444	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4445	acceptOnPointerLeave: true
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4446	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4447	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4448	label: '(mm)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4449	name: 'mmLabel'
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4450	layout: (LayoutFrame 439 0 72 0 485 0 102 0) uuid: 'a94f05ce-24a6-11b2-9f08-00d861a3d4eb'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4451	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4452	adjust: left
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4453	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4454	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4455	label: 'Limit Usable Area To:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4456	name: 'Label1'
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4457	layout: (LayoutFrame 5 0 110 0 277 0 140 0) uuid: 'a94f0696-24a6-11b2-9f08-00d861a3d4eb'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4458	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4459	adjust: right
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4460	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4461	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4462	name: 'EntryField1'
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4463	layout: (LayoutFrame 280 0 110 0 347 0 140 0) uuid: 'a94f075e-24a6-11b2-9f08-00d861a3d4eb'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4464	model: usedWidth
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4465	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4466	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4467	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4468	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4469	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4470	acceptOnPointerLeave: true
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4471	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4472	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4473	label: ' x '
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4474	name: 'Label2'
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4475	layout: (LayoutFrame 348 0 110 0 369 0 140 0) uuid: 'a94f0894-24a6-11b2-9f08-00d861a3d4eb'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4476	translateLabel: true
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4477	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4478	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4479	name: 'EntryField2'
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4480	layout: (LayoutFrame 370 0 110 0 437 0 140 0) uuid: 'a94f095c-24a6-11b2-9f08-00d861a3d4eb'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4481	model: usedHeight
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4482	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4483	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4484	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4485	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4486	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4487	acceptOnPointerLeave: true
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4488	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4489	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4490	label: '(Pixel)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4491	name: 'Label3'
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4492	layout: (LayoutFrame 439 0 110 0 507 0 140 0) uuid: 'a94f0a88-24a6-11b2-9f08-00d861a3d4eb'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4493	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4494	adjust: left
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4495	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4496	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4497	label: 'Restore'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4498	name: 'Button1'
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4499	layout: (AlignmentOrigin 512 0 124 0 0 0.5) uuid: 'a94f0b50-24a6-11b2-9f08-00d861a3d4eb'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4500	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4501	model: restoreUsableExtent
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4502	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4503	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4504	name: 'Separator1'
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4505	layout: (LayoutFrame 0 0.0 143 0 0 1.0 147 0) uuid: 'a94f0d08-24a6-11b2-9f08-00d861a3d4eb'
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4506	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4507	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4508	name: 'ScreenDepthVisualLabel'
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4509	layout: (LayoutFrame 0 0.0 151 0.0 0 1.0 181 0) uuid: 'a94f0df8-24a6-11b2-9f08-00d861a3d4eb'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4510	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4511	labelChannel: screenDepthVisualLabelHolder
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4512	adjust: left
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4513	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4514	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4515	name: 'Separator2'
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4516	layout: (LayoutFrame 0 0.0 182 0 0 1.0 186 0) uuid: 'a94f0eca-24a6-11b2-9f08-00d861a3d4eb'
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4517	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4518	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4519	label: 'Color Monitor'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4520	name: 'ColorMonitorCheckBox'
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4521	layout: (LayoutFrame 5 0 193 0 250 0 223 0) uuid: 'a94f0f6a-24a6-11b2-9f08-00d861a3d4eb'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4522	model: isColorMonitor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4523	translateLabel: true
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4524	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4525	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4526	label: 'Use Fix Color Palette'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4527	name: 'FixColorPaletteCheckBox'
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4528	layout: (LayoutFrame 5 0 223 0 301 0 253 0) uuid: 'a94f10be-24a6-11b2-9f08-00d861a3d4eb'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4529	enableChannel: visualIsPseudoColor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4530	model: useFixPalette
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4531	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4532	labelChannel: useFixPaletteLabel
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4533	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4534	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4535	label: 'Use Fix Gray Color Palette'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4536	name: 'UseFixGrayPaletteCheckBox'
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4537	layout: (LayoutFrame 5 0 257 0 301 0 287 0) uuid: 'a94f119a-24a6-11b2-9f08-00d861a3d4eb'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4538	enableChannel: visualIsPseudoColor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4539	model: useFixGrayPalette
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4540	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4541	labelChannel: useFixGrayPaletteLabel
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4542	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4543	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4544	label: 'Image Display:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4545	name: 'ImageDisplayLabel'
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4546	layout: (LayoutFrame 5 0 294 0 227 0 324 0) uuid: 'a94f1262-24a6-11b2-9f08-00d861a3d4eb'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4547	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4548	adjust: right
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4549	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4550	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4551	label: 'image display'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4552	name: 'DitherListPopUpList'
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4553	layout: (LayoutFrame 230 0 294 0 -30 1 324 0) uuid: 'a94f1334-24a6-11b2-9f08-00d861a3d4eb'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4554	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4555	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4556	model: ditherListSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4557	enableChannel: ditherSymsNotNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4558	menu: ditherList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4559	useIndex: true
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4560	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4561	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4562	label: 'Allow Colored/Grayscale Icons'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4563	name: 'AllowColoredGrayscaleIconsCheckBox'
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4564	layout: (LayoutFrame 5 0 334 0 301 0 364 0) uuid: 'a94f1442-24a6-11b2-9f08-00d861a3d4eb'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4565	model: deepIcons
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4566	translateLabel: true
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4567	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4568	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4569	name: 'Separator3'
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4570	layout: (LayoutFrame 0 0.0 368 0 0 1.0 372 0) uuid: 'a94f1514-24a6-11b2-9f08-00d861a3d4eb'
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4571	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4572	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4573	label: 'ClipBoard Encoding:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4574	name: 'ClipBoardEncodingLabel'
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4575	layout: (LayoutFrame 0 0 383 0 277 0 413 0) uuid: 'a94f15aa-24a6-11b2-9f08-00d861a3d4eb'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4576	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4577	adjust: right
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4578	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4579	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4580	label: 'image display'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4581	name: 'ClipEncodingListPopUpList'
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4582	layout: (LayoutFrame 278 0 383 0 -30 1 413 0) uuid: 'a94f1672-24a6-11b2-9f08-00d861a3d4eb'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4583	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4584	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4585	model: clipEncodingListSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4586	menu: clipEncodingList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4587	useIndex: true
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4588	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4589	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4590	label: 'Max. CopyBuffer Size:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4591	name: 'MaxCopyBufferSizeLabel'
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4592	layout: (LayoutFrame 0 0 418 0 277 0 448 0) uuid: 'a94f176c-24a6-11b2-9f08-00d861a3d4eb'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4593	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4594	adjust: right
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4595	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4596	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4597	name: 'MaxCopyBufferEntryField'
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4598	layout: (LayoutFrame 278 0 418 0 373 0 448 0) uuid: 'a94f1834-24a6-11b2-9f08-00d861a3d4eb'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4599	model: maxCopyBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4600	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4601	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4602	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4603	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4604	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4605	acceptOnPointerLeave: true
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4606	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4607	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4608	name: 'Separator4'
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4609	layout: (LayoutFrame 0 0.0 454 0 0 1.0 458 0) uuid: 'a94f1974-24a6-11b2-9f08-00d861a3d4eb'
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4610	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4611	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4612	label: 'Enable VMWare Drawing Bug Workaround (Limit Number of Buffered Operations)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4613	name: 'CheckBox1'
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4614	layout: (LayoutFrame 5 0 464 0 0 1 486 0) activeHelpKey: enableVMWareDrawingBugWorkaround
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4615	uuid: 'a94f1a0a-24a6-11b2-9f08-00d861a3d4eb'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4616	model: enableVMWareDrawingBugWorkaround
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4617	translateLabel: true
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4618	)
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4619	)
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4620	)
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4621	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4622	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4623
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4624	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4625
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4626	basicReadSettings
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4627	self enableVMWareDrawingBugWorkaround value: currentUserPrefs enableVMWareDrawingBugWorkaround.
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4628
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4629	self useFixPalette value:screen fixColors notNil.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4630	self useFixGrayPalette value:screen fixGrayColors notNil.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4631	self isColorMonitor value:screen hasColors.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4632	self sizeX value:screen widthInMillimeter.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4633	self sizeY value:screen heightInMillimeter.
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4634	self usedWidth value:screen usableWidth.
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4635	self usedHeight value:screen usableHeight.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4636	self deepIcons value:screen supportsDeepIcons.
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4637
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4638	ditherSyms notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4639	self ditherListSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4640	value:(ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4641	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4642	self clipEncodingListSelection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4643	value:(self class clipEncodingSyms indexOf:screen clipboardEncoding
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4644	ifAbsent:1).
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4645
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4646	"Modified: / 19-11-2013 / 10:25:51 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4647	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4648
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4649	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4650
17005 a0d0b5aa304d #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16992 diff changeset	4651	currentUserPrefs enableVMWareDrawingBugWorkaround:self enableVMWareDrawingBugWorkaround value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4652	Image flushDeviceImages.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4653
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4654	screen visualType == #PseudoColor ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4655	self useFixPalette value ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4656	Color colorAllocationFailSignal handle:[:ex \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4657	self warn:'Could not allocate colors.'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4658	] do:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4659	Color getColorsRed:4 green:8 blue:4 on:screen
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4660	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4661	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4662	screen releaseFixColors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4663	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4664
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4665	self useFixGrayPalette value ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4666	Color colorAllocationFailSignal handle:[:ex \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4667	self warn:'Could not allocate colors.'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4668	] do:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4669	Color getGrayColors:32 on:screen
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4670	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4671	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4672	screen releaseFixGrayColors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4673	]
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4674	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4675	screen hasColors:self isColorMonitor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4676	screen widthInMillimeter:self sizeX value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4677	screen heightInMillimeter:self sizeY value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4678
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4679	screen setUsableWidth:self usedWidth value.
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4680	screen setUsableHeight:self usedHeight value.
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4681
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4682	screen supportsDeepIcons:self deepIcons value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4683	ditherSyms notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4684	Image ditherAlgorithm:(ditherSyms at:self ditherListSelection value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4685	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4686
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4687	WindowGroup activeGroup withWaitCursorDo:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4688	View defaultStyle:(View defaultStyle).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4689	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4690
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	4691	screen clipboardEncoding:(self class clipEncodingSyms at:self clipEncodingListSelection value).
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4692
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4693	"Modified: / 19-11-2013 / 10:26:08 / cg"
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4694	!
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4695
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4696	restoreUsableExtent
19527 bd9ec8deca7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 19514 diff changeset	4697	\|usableExtent\|
bd9ec8deca7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 19514 diff changeset	4698
bd9ec8deca7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 19514 diff changeset	4699	usableExtent := screen queryUsableExtent.
bd9ec8deca7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 19514 diff changeset	4700	self usedWidth value:(usableExtent width).
bd9ec8deca7f #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 19514 diff changeset	4701	self usedHeight value:(usableExtent height).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4702	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4703
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4704	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4705
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4706	clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4707	^ clipEncodingList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4708	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4709
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4710	clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4711	^ clipEncodingListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4712	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4713
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4714	deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4715	^ deepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4716	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4717
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4718	ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4719	^ ditherList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4720	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4721
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4722	ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4723	^ ditherListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4724	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4725
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4726	ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4727	^ ditherSymsNotNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4728	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4729
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4730	enableVMWareDrawingBugWorkaround
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4731	^ enableVMWareDrawingBugWorkaround.
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4732
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4733	"Created: / 19-11-2013 / 10:24:42 / cg"
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4734	!
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4735
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4736	isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4737	^ isColorMonitor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4738	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4739
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4740	maxCopyBufferSize
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4741	^ maxCopyBufferSize.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4742	!
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4743
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4744	monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4745	^ monitorList.
18425 fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	4746
fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	4747	"Modified: / 22-09-2018 / 11:20:11 / Claus Gittinger"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4748	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4749
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4750	monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4751	^ monitorSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4752	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4753
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4754	screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4755	^ screenDepthVisualLabelHolder.
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	sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4759	^ sizeX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4760	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4761
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4762	sizeY
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4763	^ sizeY.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4764	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4765
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4766	useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4767	^ useFixGrayPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4768	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4769
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4770	useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4771	^ useFixGrayPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4772	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4773
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4774	useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4775	^ useFixPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4776	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4777
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4778	useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4779	^ useFixPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4780	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4781
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4782	usedHeight
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4783	^ usedHeight.
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4784	!
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4785
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4786	usedWidth
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4787	^ usedWidth.
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4788	!
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4789
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4790	visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4791	^ visualIsPseudoColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4792	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4793
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4794	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4795
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4796	monitorSelectionChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4797
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4798	\| sel sizeInfoEntry sizes\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4799
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4800	sel := self monitorSelection value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4801	(sel notNil and:[sel ~~ 0]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4802	sizeInfoEntry := sizeInfos at:sel.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4803	sizes := sizeInfoEntry at:2.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4804	self sizeX value:(sizes at:1).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4805	self sizeY value:(sizes at:2).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4806	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4807	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4808
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4809	sizeXorYChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4810	\| sizes idx\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4811
18425 fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	4812	sizes := sizeInfos collectColumn:2.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4813	idx := sizes findFirst:[:entry \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4814	((entry at:1) = sizeX value)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4815	and:[((entry at:2) = sizeY value)]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4816	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4817	idx ~~ 0 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4818	self monitorSelection value:idx
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4819	].
18425 fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	4820
fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	4821	"Modified: / 22-09-2018 / 11:20:19 / Claus Gittinger"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4822	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4823
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4824	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4825	changedObject == self monitorSelection ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4826	self monitorSelectionChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4827	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4828	].
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4829	(changedObject == self sizeX or:[changedObject == self sizeY]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4830	self sizeXorYChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4831	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4832	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4833
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4834	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4835	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4836
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4837	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4838
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4839	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4840	^ 'Launcher/screenSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4841	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4842
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4843	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4844
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4845	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	4846	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	4847
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4848	\| listOfSizes visual \|
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4849
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4850	super initialize.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4851
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4852	screen := Screen current.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4853
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4854	listOfSizes := self class classResources at:'LIST_OF_OFFERED_SCREEN_SIZES' default:#default.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4855	listOfSizes == #default ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4856	"/ nothing in resource file; offer at least some.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4857	sizeInfos := #(
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4858	( '11.3'' (235mm x 175mm) LCD' (235 175) )
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4859	( '17'' (325mm x 245mm)' (325 245) )
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4860	( '19'' (340mm x 270mm)' (340 270) )
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4861	( '20'' (350mm x 280mm)' (350 280) )
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4862	( '21'' (365mm x 285mm)' (365 285) )
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4863	).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4864	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4865	sizeInfos := resources array:listOfSizes.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4866	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4867	visual := screen visualType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4868	(visual == #StaticGray or:[visual == #GrayScale]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4869	ditherStyles := self class staticGrayOrGrayScaleDitherStrings.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4870	ditherSyms := self class staticGrayOrGrayScaleDitherSyms.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4871	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4872	visual ~~ #TrueColor ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4873	ditherStyles := self class trueColorDitherStrings.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4874	ditherSyms := self class trueColorDitherSyms.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4875	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4876	].
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4877
19504 efff1322d600 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19500 diff changeset	4878	clipEncodingListSelection :=
efff1322d600 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19500 diff changeset	4879	(self class clipEncodingSyms indexOf:screen clipboardEncoding ifAbsent:1)
efff1322d600 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19500 diff changeset	4880	asValue.
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4881	clipEncodingListSelection onChangeSend:#updateModifiedChannel to:self.
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4882
19504 efff1322d600 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19500 diff changeset	4883	clipEncodingList := (resources array:self class clipEncodingStrings) asValue.
efff1322d600 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19500 diff changeset	4884
efff1322d600 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19500 diff changeset	4885	deepIcons := (screen supportsDeepIcons) asValue.
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4886	deepIcons onChangeSend:#updateModifiedChannel to:self.
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4887
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4888	ditherList := ValueHolder new.
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4889
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4890	ditherSyms notNil ifTrue:[
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4891	ditherListSelection := ValueHolder with:(ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold).
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4892	] ifFalse:[
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4893	ditherListSelection := ValueHolder new.
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4894	].
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4895	ditherListSelection onChangeSend:#updateModifiedChannel to:self.
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4896
19504 efff1322d600 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19500 diff changeset	4897	ditherSymsNotNil := (ditherSyms notNil) asValue.
efff1322d600 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19500 diff changeset	4898
efff1322d600 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19500 diff changeset	4899	enableVMWareDrawingBugWorkaround := false asValue.
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4900	enableVMWareDrawingBugWorkaround onChangeSend:#updateModifiedChannel to:self.
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4901
19504 efff1322d600 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19500 diff changeset	4902	isColorMonitor := (screen hasColors) asValue.
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4903	isColorMonitor onChangeSend:#updateModifiedChannel to:self.
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4904
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4905	monitorList := (resources array:(sizeInfos collectColumn:1)) asList.
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4906
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4907	monitorSelection := ValueHolder new.
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4908	monitorSelection addDependent:self.
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4909	monitorSelection onChangeSend:#updateModifiedChannel to:self.
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4910	monitorSelection changed.
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4911
19504 efff1322d600 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19500 diff changeset	4912	maxCopyBufferSize := (810241024) asValue.
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4913	maxCopyBufferSize addDependent:self.
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4914	maxCopyBufferSize changed.
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4915	maxCopyBufferSize onChangeSend:#updateModifiedChannel to:self.
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4916
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4917	screenDepthVisualLabelHolder :=
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4918	ValueHolder with:(resources string:'Screen: Depth: %1 Visual: %2 (%3)'
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4919	with:screen depth printString
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4920	with:screen visualType
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4921	with:screen serverVendor).
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4922
19504 efff1322d600 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19500 diff changeset	4923	sizeX := (screen widthInMillimeter) asValue.
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4924	sizeX addDependent:self.
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4925	sizeX changed.
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4926	sizeX onChangeSend:#updateModifiedChannel to:self.
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4927
19504 efff1322d600 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19500 diff changeset	4928	sizeY := (screen heightInMillimeter) asValue.
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4929	sizeY addDependent:self.
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4930	sizeY changed.
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4931	sizeY onChangeSend:#updateModifiedChannel to:self.
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4932
19504 efff1322d600 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19500 diff changeset	4933	useFixGrayPalette := (screen fixGrayColors notNil) asValue.
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4934	useFixGrayPalette onChangeSend:#updateModifiedChannel to:self.
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4935
19504 efff1322d600 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19500 diff changeset	4936	useFixGrayPaletteLabel := (resources string:'Use Fix Gray Color Palette %1' with:'(32)') asValue.
efff1322d600 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19500 diff changeset	4937
efff1322d600 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19500 diff changeset	4938	useFixPalette := (screen fixColors notNil) asValue.
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4939	useFixPalette onChangeSend:#updateModifiedChannel to:self.
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4940
19504 efff1322d600 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19500 diff changeset	4941	useFixPaletteLabel := (resources string:'Use Fix Color Palette %1' with:'(4x8x4)') asValue.
efff1322d600 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19500 diff changeset	4942
efff1322d600 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19500 diff changeset	4943	usedHeight := (screen usableHeight) asValue.
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4944	usedHeight addDependent:self.
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4945	usedHeight changed.
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4946	usedHeight onChangeSend:#updateModifiedChannel to:self.
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4947
19504 efff1322d600 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19500 diff changeset	4948	usedWidth := (screen usableWidth) asValue.
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4949	usedWidth addDependent:self.
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4950	usedWidth changed.
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4951	usedWidth onChangeSend:#updateModifiedChannel to:self.
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4952
19504 efff1322d600 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19500 diff changeset	4953	visualIsPseudoColor := (screen visualType == #PseudoColor) asValue.
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4954	visualIsPseudoColor onChangeSend:#updateModifiedChannel to:self.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4955
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	4956	"Modified: / 08-02-2017 / 00:30:30 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4957	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4958
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4959	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4960
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4961	hasUnsavedChanges
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4962	enableVMWareDrawingBugWorkaround value ~~ currentUserPrefs enableVMWareDrawingBugWorkaround ifTrue:[^ true].
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4963	useFixPalette value ~= screen fixColors notNil ifTrue:[^ true].
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4964	useFixGrayPalette value ~= screen fixGrayColors notNil ifTrue:[^ true].
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4965	isColorMonitor value ~= screen hasColors ifTrue:[^ true].
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4966	sizeX value ~= screen widthInMillimeter ifTrue:[^ true].
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4967	sizeY value ~= screen heightInMillimeter ifTrue:[^ true].
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4968	usedWidth value ~= screen usableWidth ifTrue:[^ true].
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4969	usedHeight value ~= screen usableHeight ifTrue:[^ true].
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4970
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4971	deepIcons value ~= screen supportsDeepIcons ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4972	ditherSyms notNil ifTrue:[
19491 43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4973	ditherListSelection value ~= (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold) ifTrue:[^ true].
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4974	].
43f47e328f9d #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19490 diff changeset	4975	clipEncodingListSelection value ~= (self class clipEncodingSyms indexOf:screen clipboardEncoding ifAbsent:1) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4976	^ false
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4977
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4978	"Modified: / 19-11-2013 / 10:26:34 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4979	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4980
12034 25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	4981	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'help specs'!
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	4982
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	4983	helpSpec
12034 25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	4984	"This resource specification was automatically generated
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	4985	by the UIHelpTool of ST/X."
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	4986
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	4987	"Do not manually edit this!! If it is corrupted,
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	4988	the UIHelpTool may not be able to read the specification."
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	4989
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	4990	"
16383 de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	4991	UIHelpTool openOnClass:AbstractSettingsApplication::EditSettingsAppl
12034 25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	4992	"
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	4993
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	4994	<resource: #help>
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	4995
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	4996	^ super helpSpec addPairsFrom:#(
12034 25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	4997
16383 de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	4998	"/#resetToDefault
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	4999	"/'Reset fonts back to original default values (as specified in the window style-file and OS settings)'
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5000	"/
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5001	"/#changeToHighContrast
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5002	"/'Change settings for higher contrast. Useful for presentations and outdor operation'
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5003	"/
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5004	"/#changeToBigFonts
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5005	"/'Change settings for bigger fonts. Useful for presentations'
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5006	"/
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5007	"/#changeToHugeFonts
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5008	"/'Change settings for huge fonts. Useful for presentations'
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5009	"/
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5010	"/#changeToSTXLook
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5011	"/'Change settings for an ST/X-like look (fixed-width code fonts)'
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5012	"/
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5013	"/#changeToSqueakLook
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5014	"/'Change settings for a Squeak-like look (variable fonts)'
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5015	"/
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5016	"/#changeToVisualAgeLook
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5017	"/'Change settings for a VisualAge-like look (bold variable fonts)'
12789 d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5018
13419 f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5019	#immediateCodeCompletion
14474 2c9625711787 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14411 diff changeset	5020	'Show code completion suggestions as you type.\This is an experimental feature, please disable it if you encounter problems.'
13475 13499bd0fa9b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13459 diff changeset	5021
13499bd0fa9b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13459 diff changeset	5022	#codeCompletionOnControlKey
13494 7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5023	'Show code completion suggestions when you hit the CTRL key, and the character before the cursor is non-blank.\This is an experimental feature, please disable it if you encounter problems.\(CTRL-Space still works as usual, even if this is disabled)'
7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5024
7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5025	#codeCompletionOnTabKey
14474 2c9625711787 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14411 diff changeset	5026	'Show code completion suggestions when you hit the TAB key, and the character before the cursor is non-blank.\This is an experimental feature, please disable it if you encounter problems.'
13419 f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5027
14505 a45081b27fc3 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14485 diff changeset	5028	#codeCompletionViewKeyboardNavigationNeedsModifier
a45081b27fc3 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14485 diff changeset	5029	'If on, cursor up/down are only passed to the floating completion view,\if a shift- or control modifier is pressed.\Check this, if you find it annoying, that cursor up/down is intercepted by a floating completion view.'
a45081b27fc3 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14485 diff changeset	5030
12789 d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5031	#alwaysPasteFileContents
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5032	'When pasting a file (from the Filebrowser or Explorer), always paste the file''s contents\without asking. If off, a dialog appears to ask the name or the contents of the file should be pasted'
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5033
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5034	#autoIndentInCodeView
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5035	'Automatically position the cursor to a reasonably indented position when pressing the return key.\This affects editors which show code'
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5036
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5037	#extendedWordSelectMode
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5038	'Controls if underlines will be treated as part of the word or not when selecting a word.\Many programming languages (including ST/X, but excluding Squeak and old ST80)\treat underline like a letter in identifiers'
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5039
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5040	#searchBoxIsModal
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5041	'If off, a text search box is non-modal, and can be left floating beside an editor to mix search and edit operations.\If modal, it behaves as usual, blocking interaction with the editor while open'
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5042
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5043	#selectAllWhenClickingBeyondEnd
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5044	'If on, a click beyond (i.e. below) the end of the text selects the whole text.\If off, use quadruple-click to select all (triple-click to select a full line)'
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5045
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5046	#showAcceptCancelBar
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5047	'Display an green-red-yellow accept-cancel bar to the left of the text.\Press green to accept, red to cancel, and yellow to compare against the original version.'
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5048
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5049	#st80DoubleClickSelectMode
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5050	'Enable the ST-80 mode for double-click on the character right after an opening parenthesis or string-quote,\to select the paranethized or quoted text.\Also, a double-click on the very first character selects the whole text'
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5051
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5052	#st80EditMode
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5053	'Enable the ST-80 line-end/text-end cursor behavior.\There, the cursor cannot be positioned beyond the end of text, and cursor movement leads to the next/previous line.\This is similar to the behavior of other editors, such as "vi" or "emacs".\If off, the page is treated like a piece of paper, where any position can be reached immediately ("Rand-Editor" behavior)'
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5054
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5055
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5056	#startTextDragWithCTRL
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5057	'Press CTRL to drag the selected text into another view'
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5058
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5059	#tabStops4
13145 cf52caa3b513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13144 diff changeset	5060	'Controls if tab stops are multiples of 4 or 8 while editing.\Notice that this only affects the cursor positioning while editing, and that tabs are never part of the text internally.\The external (file-) representation always uses tab stops in multiples of 8.\Thus, when saving, one leading tab is generated for every 8 leading spaces,\and when reading a file, each tab is replaced by 8 spaces.\For ST/X, using multiple of 4 is recommended (the whole system was written in this style)'
12789 d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5061
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5062	#useNewCodeView2
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5063	'Use the new advanced CodeView2, which supports line numbers, advanced variable and selector highlighting,\and other useful programmer features'
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5064
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5065	#whitespaceWordSelectMode
16788 c658333e6e72 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16718 diff changeset	5066	'Controls if non-whitespace separators (such as fullstop, parentheses etc.) are treated as separator when selecting a word via double-click.\If off, only whitespace is treated as such. Useful when editing plain text, or code written in Lisp or Scheme'
12789 d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5067
14166 49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5068	#selectionExtensionModelStandard
14623 e61fc7832515 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14621 diff changeset	5069	'Standard behavior - most text editors and text widgets behave like this.'
14166 49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5070
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5071	#selectionExtensionModelTraditional
14623 e61fc7832515 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14621 diff changeset	5072	'Traditional ST/X behavior (better but not standard).\Shift-End moves end of selection (if it is on the same line).\Shift-Home moves start of selection (if it is on the same line)'
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	5073
12034 25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5074	)
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5075
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5076	"Created: / 17-03-2012 / 11:37:51 / cg"
14166 49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5077	"Modified: / 27-03-2014 / 10:19:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12034 25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5078	! !
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5079
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5080	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5081
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5082	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5083	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5084
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5085	^ ToolbarIconLibrary editorIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5086	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5087
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5088	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5089
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5090	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5091	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5092	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5093
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5094	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5095	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5096
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5097	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5098	UIPainter new openOnClass:AbstractSettingsApplication::EditSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5099	AbstractSettingsApplication::EditSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5100	AbstractSettingsApplication::EditSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5101	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5102
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5103	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5104
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5105	^
13372 40c3a88f5698 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13369 diff changeset	5106	#(FullSpec
40c3a88f5698 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13369 diff changeset	5107	name: windowSpec
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5108	window:
13372 40c3a88f5698 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13369 diff changeset	5109	(WindowSpec
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5110	label: 'Editor Settings'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5111	name: 'Editor Settings'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5112	flags: 1
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5113	min: (Point 10 10)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5114	bounds: (Rectangle 0 0 658 543)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	5115	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5116	component:
13372 40c3a88f5698 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13369 diff changeset	5117	(SpecCollection
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5118	collection: (
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5119	(VerticalPanelViewSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5120	name: 'VerticalPanel1'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5121	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5122	horizontalLayout: fit
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5123	verticalLayout: top
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5124	horizontalSpace: 3
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5125	verticalSpace: 3
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5126	component:
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5127	(SpecCollection
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5128	collection: (
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5129	(CheckBoxSpec
16383 de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5130	label: 'Use the New Code Editor (v2)'
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5131	name: 'UserCodeView2'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5132	activeHelpKey: useNewCodeView2
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5133	model: useCodeView2InTools
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5134	translateLabel: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5135	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5136	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5137	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5138	label: 'Show Accept/Cancel Bar in Editor'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5139	name: 'ShowAcceptCancelBarInBrowser'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5140	activeHelpKey: showAcceptCancelBar
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5141	model: showAcceptCancelBarInBrowser
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5142	translateLabel: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5143	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5144	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5145	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5146	label: 'SearchBox is Modal'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5147	name: 'SearchBoxModalCheckBox'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5148	activeHelpKey: searchBoxIsModal
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5149	model: searchDialogIsModal
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5150	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5151	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5152	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5153	(DividerSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5154	name: 'Separator6'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5155	extent: (Point 658 4)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5156	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5157	(CheckBoxSpec
16383 de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5158	label: 'Code Completion as you Type'
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5159	name: 'CheckBox5'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5160	activeHelpKey: immediateCodeCompletion
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5161	model: immediateCodeCompletion
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5162	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5163	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5164	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5165	(ViewSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5166	name: 'Box1'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5167	activeHelpKey: codeCompletionOnControlKey
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5168	component:
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5169	(SpecCollection
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5170	collection: (
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5171	(CheckBoxSpec
16383 de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5172	label: 'Code Completion on CTRL Key'
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5173	name: 'CheckBox6'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5174	layout: (LayoutFrame 0 0 0 0 350 0 25 0)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5175	activeHelpKey: codeCompletionOnControlKey
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5176	model: codeCompletionOnControlKey
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5177	translateLabel: true
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5178	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5179	(CheckBoxSpec
16383 de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5180	label: 'On TAB Key'
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5181	name: 'CheckBox7'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5182	layout: (LayoutFrame 380 0 0 0 658 0 25 0)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5183	activeHelpKey: codeCompletionOnTabKey
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5184	model: codeCompletionOnTabKey
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5185	translateLabel: true
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5186	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5187	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5188
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5189	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5190	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5191	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5192	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5193	label: 'Shift/CTRL for Navigation in Completion List'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5194	name: 'CheckBox8'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5195	activeHelpKey: codeCompletionViewKeyboardNavigationNeedsModifier
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5196	model: codeCompletionViewKeyboardNavigationNeedsModifier
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5197	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5198	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5199	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5200	(DividerSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5201	name: 'Separator5'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5202	extent: (Point 658 4)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5203	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5204	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5205	label: 'Tab Stops in Multiples of 4'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5206	name: 'TabStopsMultiples4CheckBox'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5207	activeHelpKey: tabStops4
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5208	model: tabsIs4
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5209	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5210	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5211	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5212	(DividerSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5213	name: 'Separator2'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5214	extent: (Point 658 4)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5215	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5216	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5217	label: 'CTRL-Key to Start TextDrag'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5218	name: 'CTRLKeyStTextDragCheckBox'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5219	activeHelpKey: startTextDragWithCTRL
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5220	model: startTextDragWithControl
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5221	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5222	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5223	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5224	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5225	label: 'Always Paste the Contents when Dropping a File (Do not Ask) '
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5226	name: 'EnforceContentsDropForFiles'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5227	activeHelpKey: alwaysPasteFileContents
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5228	model: enforceContentsDropForFiles
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5229	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5230	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5231	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5232	(DividerSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5233	name: 'Separator4'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5234	extent: (Point 658 4)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5235	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5236	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5237	label: 'Autoindent (Position Cursor on Return Key in Code Editors)'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5238	name: 'CheckBox3'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5239	activeHelpKey: autoIndentInCodeView
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5240	model: autoIndentInCodeView
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5241	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5242	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5243	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5244	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5245	label: 'Cursor has Standard Line-End Behavior'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5246	name: 'CursorST80LineEndBehaviorCheckBox'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5247	activeHelpKey: st80EditMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5248	model: st80EditMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5249	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5250	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5251	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5252	(DividerSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5253	name: 'Separator3'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5254	extent: (Point 658 4)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5255	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5256	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5257	label: 'Select all when Clicking beyond the Text''s End'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5258	name: 'CheckBox2'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5259	activeHelpKey: selectAllWhenClickingBeyondEnd
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5260	model: selectAllWhenClickingBeyondEnd
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5261	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5262	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5263	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5264	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5265	label: 'Double Click Select Behavior as in ST80'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5266	name: 'DoubleClickSelectBehaviorST80CheckBox'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5267	activeHelpKey: st80DoubleClickSelectMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5268	model: st80DoubleClickSelectMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5269	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5270	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5271	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5272	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5273	label: 'Treat Underscore as Letter in Word-Select'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5274	name: 'UnderscoreIsLetterCheckBox'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5275	activeHelpKey: extendedWordSelectMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5276	model: extendedWordSelectMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5277	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5278	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5279	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5280	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5281	label: 'Any non-Whitespace in Word-Select'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5282	name: 'CheckBox1'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5283	activeHelpKey: whitespaceWordSelectMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5284	model: whitespaceWordSelectMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5285	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5286	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5287	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5288	(DividerSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5289	name: 'Separator7'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5290	extent: (Point 658 4)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5291	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5292	(RadioButtonSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5293	label: 'Traditional ST/X Selection Mode'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5294	name: 'RadioButton1'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5295	activeHelpKey: selectionExtensionModelTraditional
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5296	translateLabel: true
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5297	model: selectionExtensionMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5298	enableChannel: selectionExtensionModeEnabled
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5299	isTriggerOnDown: true
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5300	select: traditional
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5301	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5302	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5303	(RadioButtonSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5304	label: 'Standard Selection Mode'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5305	name: 'RadioButton2'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5306	activeHelpKey: selectionExtensionModelStandard
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5307	translateLabel: true
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5308	model: selectionExtensionMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5309	enableChannel: selectionExtensionModeEnabled
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5310	isTriggerOnDown: true
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5311	select: standard
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5312	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5313	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5314	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5315
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5316	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5317	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5318	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5319
13372 40c3a88f5698 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13369 diff changeset	5320	)
40c3a88f5698 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13369 diff changeset	5321	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5322	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5323
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5324	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5325
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5326	basicReadSettings
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5327	super basicReadSettings.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5328
19492 d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5329	st80DoubleClickSelectMode value:TextView st80SelectMode.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5330	tabsIs4 value:(ListView userDefaultTabPositions = ListView tab4Positions).
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5331	enforceContentsDropForFiles value:(currentUserPrefs enforcedDropModeForFiles == #text).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5332	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5333
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5334	basicSaveSettings
19492 d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5335	\|valueOfTabsIs4\|
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5336
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5337	super basicSaveSettings.
14895 840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5338
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5339	currentUserPrefs enforcedDropModeForFiles:
19492 d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5340	( enforceContentsDropForFiles value
14895 840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5341	ifTrue:[ #text ]
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5342	ifFalse:[ nil ] ).
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5343
19492 d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5344	TextView st80SelectMode:(st80DoubleClickSelectMode value).
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5345	valueOfTabsIs4 := tabsIs4 value.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5346	valueOfTabsIs4~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
14895 840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5347	ListView userDefaultTabPositions:
19492 d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5348	(valueOfTabsIs4
14895 840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5349	ifTrue:[ListView tab4Positions]
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5350	ifFalse:[ListView tab8Positions]).
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5351
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5352	ListView allSubInstancesDo:[:eachKindOfListView \|
19492 d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5353	valueOfTabsIs4
14895 840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5354	ifTrue:[eachKindOfListView setTab4]
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5355	ifFalse:[eachKindOfListView setTab8]
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5356	].
4574 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
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5360	commonAspects
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	5361	^ #(
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5362	#useCodeView2InTools
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5363	#showAcceptCancelBarInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5364	#searchDialogIsModal
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5365	#startTextDragWithControl
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5366	#st80EditMode
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5367	#extendedWordSelectMode
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5368	#whitespaceWordSelectMode
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5369	#selectAllWhenClickingBeyondEnd
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5370	#autoIndentInCodeView
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5371	#immediateCodeCompletion
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5372	#codeCompletionOnControlKey
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5373	#codeCompletionOnTabKey
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5374	#codeCompletionViewKeyboardNavigationNeedsModifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5375	#selectionExtensionMode
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5376	)
11379 21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5377
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5378	"Modified: / 07-03-2012 / 14:33:40 / cg"
14166 49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5379	"Modified: / 27-03-2014 / 10:10:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5380	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5381
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5382	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5383
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5384	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5385	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5386	#useCodeView2InTools
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5387	#showAcceptCancelBarInBrowser
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5388	#searchDialogIsModal
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5389	#startTextDragWithControl
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5390	#st80EditMode
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5391	#extendedWordSelectMode
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5392	#whitespaceWordSelectMode
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5393	#selectAllWhenClickingBeyondEnd
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5394	#autoIndentInCodeView
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5395	#immediateCodeCompletion
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5396	#codeCompletionOnControlKey
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5397	#codeCompletionOnTabKey
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5398	#codeCompletionViewKeyboardNavigationNeedsModifier
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5399	#selectionExtensionMode
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5400	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5401
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5402	"Modified: / 07-03-2012 / 14:33:40 / cg"
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5403	"Modified: / 27-03-2014 / 10:10:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5404	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5405
12789 d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5406	autoIndentInCodeView
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5407	^ autoIndentInCodeView.
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5408	!
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5409
13487 2f7251242b2c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13475 diff changeset	5410	codeCompletionOnControlKey
2f7251242b2c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13475 diff changeset	5411	^ codeCompletionOnControlKey.
2f7251242b2c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13475 diff changeset	5412	!
2f7251242b2c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13475 diff changeset	5413
13494 7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5414	codeCompletionOnTabKey
7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5415	^ codeCompletionOnTabKey.
7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5416	!
7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5417
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5418	enforceContentsDropForFiles
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5419	^ enforceContentsDropForFiles.
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5420	!
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5421
7580 4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	5422	extendedWordSelectMode
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	5423	^ extendedWordSelectMode.
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	5424	!
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	5425
13419 f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5426	immediateCodeCompletion
f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5427	^ immediateCodeCompletion.
f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5428	!
f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5429
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5430	searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5431	^ searchDialogIsModal.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5432	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5433
11379 21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5434	selectAllWhenClickingBeyondEnd
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5435	^ selectAllWhenClickingBeyondEnd.
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5436
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5437	"Created: / 07-03-2012 / 14:34:08 / cg"
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5438	!
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5439
14166 49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5440	selectionExtensionMode
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5441	^ selectionExtensionMode.
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5442
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5443	"Created: / 27-03-2014 / 10:10:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5444	!
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5445
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5446	selectionExtensionModeEnabled
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5447	"/ Hack to detect whether current system has hacked EditTextView or not.
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5448	"/ Once integrated, this method whould always return true.
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5449
14892 67b7cbb80a2f class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14833 diff changeset	5450	^ true. "/ EditTextView methodDictionary includesKey: #extendSelectionToX:y:setPrimarySelection:
14166 49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5451
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5452	"Created: / 27-03-2014 / 10:14:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5453	!
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5454
11985 4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	5455	showAcceptCancelBarInBrowser
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	5456	^ showAcceptCancelBarInBrowser.
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	5457	!
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	5458
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5459	st80DoubleClickSelectMode
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5460	^ st80DoubleClickSelectMode.
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5461	!
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5462
6783 6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	5463	st80EditMode
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5464	^ st80EditingMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5465	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5466
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5467	startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5468	^ startTextDragWithControl.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5469	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5470
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5471	tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5472	^ tabsIs4.
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5473	!
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5474
12004 1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5475	useCodeView2InTools
1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5476	^ useCodeView2InTools
1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5477
1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5478	"Modified: / 11-03-2010 / 10:09:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5479	!
1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5480
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5481	whitespaceWordSelectMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5482	^ whitespaceWordSelectMode.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5483	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5484
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5485	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5486
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5487	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5488	^ 'Launcher/editSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5489	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5490
19492 d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5491	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'initialization'!
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5492
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5493	initialize
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5494	<modifier: #super> "must be called if redefined"
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5495
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5496	super initialize.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5497
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5498	tabsIs4 := ValueHolder with:true.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5499	tabsIs4 onChangeSend:#updateModifiedChannel to:self.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5500
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5501	autoIndentInCodeView := ValueHolder with:true.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5502	autoIndentInCodeView onChangeSend:#updateModifiedChannel to:self.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5503
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5504	codeCompletionOnControlKey := ValueHolder with:false.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5505	codeCompletionOnControlKey onChangeSend:#updateModifiedChannel to:self.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5506
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5507	codeCompletionOnTabKey := ValueHolder with:false.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5508	codeCompletionOnTabKey onChangeSend:#updateModifiedChannel to:self.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5509
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5510	enforceContentsDropForFiles := ValueHolder with:true.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5511	enforceContentsDropForFiles onChangeSend:#updateModifiedChannel to:self.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5512
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5513	extendedWordSelectMode := ValueHolder with:true.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5514	extendedWordSelectMode onChangeSend:#updateModifiedChannel to:self.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5515
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5516	immediateCodeCompletion := ValueHolder with:false.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5517	immediateCodeCompletion onChangeSend:#updateModifiedChannel to:self.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5518
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5519	searchDialogIsModal := ValueHolder with:true.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5520	searchDialogIsModal onChangeSend:#updateModifiedChannel to:self.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5521
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5522	selectAllWhenClickingBeyondEnd := ValueHolder with:true.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5523	selectAllWhenClickingBeyondEnd onChangeSend:#updateModifiedChannel to:self.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5524
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5525	selectionExtensionMode := ValueHolder with:#traditional.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5526	selectionExtensionMode onChangeSend:#updateModifiedChannel to:self.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5527
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5528	showAcceptCancelBarInBrowser := ValueHolder with:false.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5529	showAcceptCancelBarInBrowser onChangeSend:#updateModifiedChannel to:self.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5530
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5531	st80DoubleClickSelectMode := ValueHolder with:true.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5532	st80DoubleClickSelectMode onChangeSend:#updateModifiedChannel to:self.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5533
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5534	st80EditingMode := ValueHolder with:true.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5535	st80EditingMode onChangeSend:#updateModifiedChannel to:self.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5536
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5537	startTextDragWithControl := ValueHolder with:true.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5538	startTextDragWithControl onChangeSend:#updateModifiedChannel to:self.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5539
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5540	useCodeView2InTools := ValueHolder new.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5541	useCodeView2InTools onChangeSend:#updateModifiedChannel to:self.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5542
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5543	whitespaceWordSelectMode := ValueHolder with:true.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5544	whitespaceWordSelectMode onChangeSend:#updateModifiedChannel to:self.
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5545	! !
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5546
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5547	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5548
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5549	hasUnsavedChanges
19492 d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5550	enforceContentsDropForFiles value ~= (currentUserPrefs enforcedDropModeForFiles == #text) ifTrue:[^ true].
d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5551	TextView st80SelectMode ~= (st80DoubleClickSelectMode value) ifTrue:[^ true].
5915 d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	5552	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
19492 d3e74719ee62 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19491 diff changeset	5553	ListView userDefaultTabPositions ~= (tabsIs4 value
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5554	ifTrue:[ListView tab4Positions]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5555	ifFalse:[ListView tab8Positions]) ifTrue:[^ true].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5556	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5557
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5558	^ super hasUnsavedChanges
10900 b798071a4587 comment Claus Gittinger <cg@exept.de> parents: 10893 diff changeset	5559
b798071a4587 comment Claus Gittinger <cg@exept.de> parents: 10893 diff changeset	5560	"Modified: / 25-11-2011 / 15:23:02 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5561	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5562
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5563	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5564
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5565	keepSourceOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5566
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5567	^ #( keep reference absReference sourceReference discard )
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5568	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5569
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5570	keepSourceStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5571
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5572	^ #('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	5573	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5574
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5575	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'help specs'!
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5576
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	5577	helpSpec
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5578	"This resource specification was automatically generated
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5579	by the UIHelpTool of ST/X."
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5580
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5581	"Do not manually edit this!! If it is corrupted,
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5582	the UIHelpTool may not be able to read the specification."
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5583
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5584	"
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5585	UIHelpTool openOnClass:AbstractSettingsApplication::HTTPStartServerSettingsApplication
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5586	"
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5587
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5588	<resource: #help>
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5589
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	5590	^ super helpSpec addPairsFrom:#(
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5591
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5592	#catchMethodRedefinition
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5593	'Warn if an existing method from another package is redefined'
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5594
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5595	#catchClassRedefinition
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5596	'Warn if an existing class from another package is redefined'
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5597
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5598	#historyLineInMethods
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5599	'If enabled, the compiler will maintain a method''s edit history inside the method.\This is done by appending a corresponding comment whenever a method is changed.'
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5600
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5601	#historyLineInClasses
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5602	'If enabled, the compiler will maintain a history method in the class.\This is done by appending a corresponding comment to a comment-only class method,\whenever a method is changed.\\This is disabled, if the HistoryManager class is not loaded.'
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5603
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5604	#userNameInHistoryLine
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5605	'Your name signature to be used in the history line.\If nothing is entere here, your login name will be used.'
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5606
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5607	#fileInSourceMode
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5608	'Controls how the source code information is stored when code is filed in.\This is probably no longer of interest, as machines nowadays have lots of memory.\\The possible settings are:\\- Keep as String (the full source is kept as a string in the method)\- Reference to File (remember the filename and position only)\- Reference to "st.img": (write source to a private source file and remember offset)\- Forget (no source is held)\\All file related settings introduce a possible danger when the loaded file changes\(i.e. is edited outside ST/X or a new version is checked out from a repository)\Therefore, we highly recommend to not change this settings.'
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5609
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5610	#loadBinaryObjectsWhenAutoloading
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5611	'Controls if binary packaged class libraries should be considered when autoloading,\or only source files are to be loaded.\A binary load may fail, if the file is not in sync with the ase-system''s version,\whereas source loading is usually safe.\\Notice that autoloading is a historic feature anyway, so you may not be interested in this setting anyway.'
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5612	)
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5613	! !
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5614
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5615	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5616
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5617	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	5618	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	5619
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5620	^ self defaultIcon3
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	5621
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	5622	"Modified: / 17-09-2007 / 11:35:08 / cg"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5623	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5624
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5625	defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5626	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5627	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5628
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5629	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5630	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5631
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5632	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5633	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5634	ImageEditor openOnClass:self andSelector:#defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5635	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5636	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5637
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5638	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5639
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5640	^Icon
15762 852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	5641	constantNamed:'AbstractSettingsApplication::GeneralCompilerSettingsAppl defaultIcon1'
852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	5642	ifAbsentPut:[(Depth2Image width:22 height:22) bits:(ByteArray fromPackedString:'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5643	@@@@@@@@C??????@CUUUUUW@CZ**''@CZ''CCZ''@CVWKCVW@CU)WJCU)W@CUZ%W@CUZ%WACUVUW@CUV*UWDCUU)UWI
15762 852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	5644	CUU*)UWICUUZ%UWJCUUZ%UWACUUVUUW@CUUUUUW@C??????@@@@@@@@B') colorMapFromArray:#[0 0 0 255 255 255 255 189 23 127 127 127] mask:((ImageMask width:22 height:22) bits:(ByteArray fromPackedString:'@@@@O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8@@@@'); yourself); yourself]
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5645	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5646
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5647	defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5648	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5649	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5650
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5651	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5652	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5653
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5654	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5655	self defaultIcon3 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5656	ImageEditor openOnClass:self andSelector:#defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5657	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5658	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5659
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5660	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5661
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5662	^Icon
15762 852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	5663	constantNamed:'AbstractSettingsApplication::GeneralCompilerSettingsAppl defaultIcon3'
852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	5664	ifAbsentPut:[(Depth8Image width:24 height:24) bits:(ByteArray fromPackedString:'
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5665	A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PC@0PDA@PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5666	A@PDA@PDA@PDA@PDA@PDA@LDA LDA@PDA@PDA@PDA@PDA@PD@0LDA@LDA LDA@LCA@PDA@PDA@PDA@PCA PC@0PEAPPC@0PF@0PDA@PDA@PDA@PC@PTDA@TE
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5667	APTDA@TA@0PDA@PDA@PDA@PD@0XEAPTEAPTEAPXCA@PDA@PDA@PDA@PD@0PEAPXAA XEAPPCA@PDA@PDA@PDA@LCA@TEA DC@0DFAPTD@0LDA@PDA@PD@0PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5668	APTE@PLB@ LAAPTEA@PCA@P@A@PD@0DAAPTEA LB@ LFAPTE@PDCA@P@A@PDA@LCA XEAPPC@0PEAPXF@0LDA@PDA@PDA@PD@0XEAPTDA@TEAPXCA@PDA@PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5669	A@PDA@PD@0PEAPTEAPTEAPPCA@PDA@PDA@PDA@PCA@TAA TEAPTF@PTD@0PDA@PDA@PDA@PCA DC@0PEAPPC@0DF@0PDA@PDA@PDA@PD@0LDA@LD@PLDA@LC
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5670	A@PDA@PDA@PDA@PDA@PDA@LD@PLDA@PDA@PDA@PDA@PDA@PDA@PDA@PC@0PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD
15762 852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	5671	A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD') colorMapFromArray:#[255 189 23 127 127 127 236 233 216 0 0 0 255 255 255 194 194 194 161 161 165] mask:((ImageMask width:24 height:24) bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@A @@C0@@33@A?? A?? @??@@??@C??0G??8G??8C??0@??@@??@A?? A?? @33@@C0@@A @@@@@@@@@@@@@'); yourself); yourself]
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5672	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5673
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5674	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5675
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5676	windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5677	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5678	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5679
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5680	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5681	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5682
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5683	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5684	UIPainter new openOnClass:AbstractSettingsApplication::GeneralCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5685	AbstractSettingsApplication::GeneralCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5686	AbstractSettingsApplication::GeneralCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5687	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5688
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5689	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5690
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5691	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	5692	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	5693	name: windowSpec
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5694	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	5695	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5696	label: 'General Compiler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5697	name: 'General Compiler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5698	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5699	bounds: (Rectangle 0 0 600 320)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	5700	)
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5701	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	5702	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5703	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5704	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5705	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5706	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5707	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5708	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5709	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5710	verticalSpace: 3
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5711	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5712	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5713	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5714	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5715	label: 'Catch Method Redefinitions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5716	name: 'CatchMethodRedefinitions'
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5717	activeHelpKey: catchMethodRedefinition
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5718	model: catchMethodRedefs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5719	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5720	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5721	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5722	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5723	label: 'Catch Class Redefinitions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5724	name: 'CatchClassRedefinitions'
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5725	activeHelpKey: catchClassRedefinition
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5726	model: catchClassRedefs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5727	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5728	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5729	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5730	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5731	name: 'Separator2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5732	extent: (Point 600 3)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5733	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5734	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5735	label: 'Keep History Line in Methods'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5736	name: 'KeepHistoryLineinMethods'
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5737	activeHelpKey: historyLineInMethods
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5738	model: historyLines
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5739	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5740	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5741	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5742	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5743	label: 'Keep Full Class History'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5744	name: 'KeepFullClassHistory'
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5745	activeHelpKey: historyLineInClasses
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5746	enableChannel: hasHistoryManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5747	model: fullHistoryUpdate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5748	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5749	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5750	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5751	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5752	name: 'Box2'
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5753	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5754	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5755	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5756	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5757	label: 'Username in History:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5758	name: 'Label1'
17321 42f0864cbb2a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17320 diff changeset	5759	layout: (LayoutFrame 0 0 0 0 217 0 30 0)
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5760	activeHelpKey: userNameInHistoryLine
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5761	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5762	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5763	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5764	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5765	name: 'EntryField1'
17321 42f0864cbb2a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17320 diff changeset	5766	layout: (LayoutFrame 221 0 0 0 368 0 30 0)
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5767	activeHelpKey: userNameInHistoryLine
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5768	model: userNameInHistoryHolder
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5769	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5770	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5771	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5772	acceptOnLostFocus: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5773	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5774	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5775	(LabelSpec
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5776	label: '(empty for login-name)'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5777	name: 'Label2'
17321 42f0864cbb2a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17320 diff changeset	5778	layout: (LayoutFrame 371 0 0 0 0 1 30 0)
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5779	activeHelpKey: userNameInHistoryLine
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5780	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5781	adjust: left
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5782	)
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5783	)
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5784
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5785	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5786	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5787	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5788	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5789	name: 'Separator3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5790	extent: (Point 600 3)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5791	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5792	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5793	name: 'Box1'
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5794	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5795	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5796	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5797	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5798	label: 'FileIn Source Mode:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5799	name: 'FileInSourceModeLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5800	layout: (AlignmentOrigin 282 0 15 0 1 0.5)
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5801	activeHelpKey: fileInSourceMode
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5802	translateLabel: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5803	adjust: right
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5804	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5805	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5806	label: 'PopUp List'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5807	name: 'KeepSourceSelection'
17321 42f0864cbb2a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17320 diff changeset	5808	layout: (LayoutFrame 292 0 1 0 -5 1 30 0)
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5809	activeHelpKey: fileInSourceMode
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5810	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5811	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5812	model: keepSourceSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5813	menu: keepSource
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5814	useIndex: true
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5815	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5816	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5817
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5818	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5819	extent: (Point 600 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5820	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5821	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5822	name: 'Separator1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5823	extent: (Point 600 3)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5824	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5825	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5826	label: 'If Present, Load Binary Objects when Autoloading'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5827	name: 'LoadBinaryObjectsWhenAutoloading'
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5828	activeHelpKey: loadBinaryObjectsWhenAutoloading
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5829	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5830	model: loadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5831	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5832	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5833	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5834	)
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5835
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5836	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5837	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5838	)
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5839
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	5840	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	5841	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5842	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5843
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5844	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5845
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5846	basicReadSettings
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5847	self keepSourceSelection
fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5848	value:(self class keepSourceOptions
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5849	indexOf:ClassCategoryReader sourceMode
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5850	ifAbsent:1).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5851	self catchClassRedefs value:(Class catchClassRedefinitions ? false).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5852	self catchMethodRedefs value:(Class catchMethodRedefinitions ? false).
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5853
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5854	self canLoadBinaries value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5855	self loadBinaries value:Smalltalk loadBinaries
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5856	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5857	self loadBinaries value:false
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5858	].
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5859
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5860	self hasHistoryManager ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5861	self fullHistoryUpdate value:(HistoryManager fullHistoryUpdate ? false)
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5862	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5863	self fullHistoryUpdate value:false
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5864	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5865	self historyLines value:self hasHistoryManager.
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	5866	self userNameInHistoryHolder value:(UserPreferences current historyManagerSignature).
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5867
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5868	"Modified: / 04-08-2010 / 18:34:15 / cg"
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	5869	"Modified: / 08-07-2011 / 10:26:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5870	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5871
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5872	basicSaveSettings
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5873	\|nm\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5874
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5875	ClassCategoryReader sourceMode:(self class keepSourceOptions at:self keepSourceSelection value).
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5876	Class catchClassRedefinitions:(self catchClassRedefs value).
fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5877	Class catchMethodRedefinitions:(self catchMethodRedefs value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5878	HistoryManager notNil ifTrue:[
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5879	HistoryManager fullHistoryUpdate:(self fullHistoryUpdate value).
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5880	self historyLines value ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5881	HistoryManager activate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5882	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5883	HistoryManager deactivate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5884	].
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5885	UserPreferences current historyManagerEnabled:(self historyLines value).
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5886	nm := (self userNameInHistoryHolder value ? '') withoutSeparators asNilIfEmpty.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5887	UserPreferences current historyManagerSignature:nm.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5888	].
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5889	Smalltalk loadBinaries:(self loadBinaries value).
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5890
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5891	"Modified: / 04-08-2010 / 18:33:20 / cg"
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	5892	"Modified: / 08-07-2011 / 10:26:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5893	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5894
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5895	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5896
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5897	canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5898	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5899	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5900
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5901	catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5902	^ catchClassRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5903	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5904
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5905	catchMethodRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5906	^ catchMethodRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5907	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5908
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5909	fullHistoryUpdate
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5910	^ fullHistoryUpdate.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5911	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5912
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5913	hasHistoryManager
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5914
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5915	^ HistoryManager notNil and:[HistoryManager isLoaded and:[HistoryManager isActive]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5916	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5917
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	5918	historyLines
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5919	^ historyLines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5920	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5921
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5922	keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5923	^ keepSource.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5924	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5925
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5926	keepSourceSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5927	^ keepSourceSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5928	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5929
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5930	loadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5931	^ loadBinaries.
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5932
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5933	"Modified: / 04-08-2010 / 18:34:56 / cg"
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5934	!
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5935
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5936	userNameInHistoryHolder
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5937	^ userNameInHistoryHolder.
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5938
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5939	"Modified: / 04-08-2010 / 18:37:53 / cg"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5940	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5941
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5942	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5943
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5944	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5945	^ 'Launcher/compilerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5946	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5947
19493 2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5948	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'initialization'!
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5949
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5950	initialize
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5951	<modifier: #super> "must be called if redefined"
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5952
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5953	super initialize.
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5954
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5955	canLoadBinaries := ValueHolder with:(ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]).
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5956
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5957	catchClassRedefs := ValueHolder with:(Class catchClassRedefinitions ? false).
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5958	catchClassRedefs onChangeSend:#updateModifiedChannel to:self.
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5959
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5960	catchMethodRedefs := ValueHolder with:(Class catchMethodRedefinitions ? false).
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5961	catchMethodRedefs onChangeSend:#updateModifiedChannel to:self.
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5962
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5963	fullHistoryUpdate := ValueHolder with:(self hasHistoryManager and:[HistoryManager fullHistoryUpdate]).
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5964	fullHistoryUpdate onChangeSend:#updateModifiedChannel to:self.
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5965
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5966	historyLines := ValueHolder with:(self hasHistoryManager).
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5967	historyLines onChangeSend:#updateModifiedChannel to:self.
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5968
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5969	keepSource := (resources array:(self class keepSourceStrings)) asList.
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5970
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5971	keepSourceSelection := ValueHolder with:(self class keepSourceOptions indexOf:ClassCategoryReader sourceMode ifAbsent:1).
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5972	keepSourceSelection onChangeSend:#updateModifiedChannel to:self.
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5973
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5974	loadBinaries := ValueHolder with:(self canLoadBinaries and:[ Smalltalk loadBinaries ]).
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5975	loadBinaries onChangeSend:#updateModifiedChannel to:self.
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5976
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5977	userNameInHistoryHolder := ValueHolder with:''.
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5978	userNameInHistoryHolder onChangeSend:#updateModifiedChannel to:self.
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5979	! !
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5980
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5981	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5982
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5983	hasUnsavedChanges
19493 2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5984	((HistoryManager fullHistoryUpdate ? false) ~= fullHistoryUpdate value) ifTrue:[^ true].
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5985	((ClassCategoryReader sourceMode) ~= (self class keepSourceOptions at:keepSourceSelection value)) ifTrue:[^ true].
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5986	((Class catchMethodRedefinitions ? false) ~= catchMethodRedefs value) ifTrue:[^ true].
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5987	((Class catchClassRedefinitions ? false) ~= catchClassRedefs value) ifTrue:[^ true].
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5988	((Smalltalk loadBinaries ? false) ~= loadBinaries value) ifTrue:[^ true].
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5989	((self hasHistoryManager) ~= historyLines value) ifTrue:[^ true].
2863a2a0d7be #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19492 diff changeset	5990	(UserPreferences current historyManagerSignature ~= userNameInHistoryHolder value) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5991	^ false.
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5992
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5993	"Modified: / 04-08-2010 / 18:31:55 / cg"
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	5994	"Modified: / 08-07-2011 / 10:25:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5995	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5996
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	5997	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'help specs'!
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	5998
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	5999	helpSpec
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6000	"This resource specification was automatically generated
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6001	by the UIHelpTool of ST/X."
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6002
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6003	"Do not manually edit this!! If it is corrupted,
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6004	the UIHelpTool may not be able to read the specification."
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6005
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6006	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6007	UIHelpTool openOnClass:AbstractSettingsApplication::HTTPStartServerSettingsApplication
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6008	"
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6009
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6010	<resource: #help>
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6011
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	6012	^ super helpSpec addPairsFrom:#(
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6013
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6014	#createFCGIServer
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6015	'Create (but do not start) a new FCGI server.\FCGI allows for a Smalltalk server to run under a master server (such as Apache)'
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6016
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6017	#createServer
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6018	'Create (but do not start) a new web server on the specified port (usually 8080 or 80).'
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6019
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6020	#createServerFromSettingsFile
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6021	'Create (but do not start) a new server and all services as specified in a settings file'
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6022
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6023	#loadWebServerPackage
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6024	'Load the missing webserver class packages'
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6025
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6026	#removeAllServers
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6027	'Stop and remove all defined servers'
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6028
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6029	#serverPortNumber
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6030	'The port on which the created server should listen (usually 8080, 8081 or 80)'
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6031
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6032	)
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6033	! !
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6034
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6035	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'image specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6036
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6037	defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6038	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6039	by the ImageEditor of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6040
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6041	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6042	the ImageEditor may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6043
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6044	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6045	self defaultIcon inspect
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6046	ImageEditor openOnClass:self andSelector:#defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6047	Icon flushCachedIcons
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6048	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6049
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6050	<resource: #image>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6051
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6052	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	6053	constantNamed:'AbstractSettingsApplication::HTTPStartServerSettingsApplication defaultIcon'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	6054	ifAbsentPut:[(Depth8Image width:22 height:22) bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6055	@@@@@@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	6056	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	6057	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	6058	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	6059	K2</K2</KSXEL@@@@@@@@@@@@@@+K"<AJB (JB46AS@@@@@@@@@@@@@@J28/@@@@@@@/M T0@@@@@@@@@@@@@B,.R41LSD1LSSXEL@@@@@@@@@@@@@@+K#8(
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	6060	JB (JCX6AS@@@@@@@@@@@@@@J28AM#XAJCX(M T0@@@@@@@a')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	6061	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]
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	6062	mask:((ImageMask width:22 height:22) 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	6063	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6064
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6065	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'interface specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6066
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6067	windowSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6068	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6069	by the UIPainter of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6070
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6071	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6072	the UIPainter may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6073
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6074	"
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	6075	UIPainter new openOnClass:AbstractSettingsApplication::HTTPStartServerSettingsApplication andSelector:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	6076	AbstractSettingsApplication::HTTPStartServerSettingsApplication new openInterface:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	6077	AbstractSettingsApplication::HTTPStartServerSettingsApplication open
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6078	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6079
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6080	<resource: #canvas>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6081
15916 ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6082	^
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6083	#(FullSpec
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6084	name: windowSpec
15916 ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6085	window:
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6086	(WindowSpec
15916 ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6087	label: 'HTTP Server Settings'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6088	name: 'HTTP Server Settings'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6089	min: (Point 10 10)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6090	bounds: (Rectangle 0 0 539 630)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6091	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6092	component:
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6093	(SpecCollection
15916 ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6094	collection: (
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6095	(VerticalPanelViewSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6096	name: 'VerticalPanel1'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6097	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6098	horizontalLayout: fit
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6099	verticalLayout: top
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6100	horizontalSpace: 3
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6101	verticalSpace: 3
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6102	component:
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6103	(SpecCollection
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6104	collection: (
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6105	(VerticalPanelViewSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6106	name: 'VerticalPanel4'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6107	horizontalLayout: fit
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6108	verticalLayout: topSpace
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6109	horizontalSpace: 3
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6110	verticalSpace: 3
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6111	component:
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6112	(SpecCollection
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6113	collection: (
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6114	(ViewSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6115	name: 'InfoMessageBox'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6116	component:
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6117	(SpecCollection
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6118	collection: (
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6119	(LabelSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6120	label: 'Label'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6121	name: 'Label2'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6122	layout: (LayoutFrame 5 0.0 0 0.0 -5 1 0 1.0)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6123	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6124	labelChannel: informationLabel
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6125	resizeForLabel: false
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6126	adjust: left
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6127	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6128	(ActionButtonSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6129	label: 'Load Missing WebServer Packages'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6130	name: 'Button8'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6131	layout: (AlignmentOrigin 0 0.5 0 1 0.5 1)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6132	activeHelpKey: loadWebServerPackage
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6133	visibilityChannel: hasWebServerClassesNotLoadedHolder
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6134	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6135	tabable: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6136	model: loadWebServerPackages
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6137	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6138	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6139
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6140	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6141	extent: (Point 539 200)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6142	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6143	(ViewSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6144	name: 'Separator'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6145	extent: (Point 539 20)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6146	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6147	(ViewSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6148	name: 'ActionButtonBox'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6149	component:
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6150	(SpecCollection
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6151	collection: (
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6152	(LabelSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6153	label: 'Port:'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6154	name: 'Label1'
17006 db74a64a26d6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17005 diff changeset	6155	layout: (LayoutFrame 5 0 21 0 57 0 49 0)
15916 ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6156	activeHelpKey: serverPortNumber
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6157	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6158	adjust: right
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6159	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6160	(InputFieldSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6161	name: 'EntryField1'
17006 db74a64a26d6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17005 diff changeset	6162	layout: (LayoutFrame 57 0 20 0 128 0 48 0)
15916 ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6163	activeHelpKey: serverPortNumber
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6164	enableChannel: hasWebServerClassesLoadedHolder
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6165	model: portNumberChannel
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6166	type: number
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6167	immediateAccept: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6168	acceptOnReturn: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6169	acceptOnTab: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6170	acceptOnLostFocus: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6171	acceptOnPointerLeave: false
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6172	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6173	(VerticalPanelViewSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6174	name: 'VerticalPanel5'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6175	layout: (LayoutFrame 136 0 14 0 -12 1 0 1)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6176	horizontalLayout: fit
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6177	verticalLayout: topSpace
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6178	horizontalSpace: 3
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6179	verticalSpace: 3
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6180	component:
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6181	(SpecCollection
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6182	collection: (
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6183	(ActionButtonSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6184	label: 'Create new HTTP Server'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6185	name: 'Button4'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6186	activeHelpKey: createServer
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6187	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6188	tabable: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6189	model: createServer
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6190	enableChannel: hasWebServerClassesLoadedHolder
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6191	useDefaultExtent: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6192	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6193	(ActionButtonSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6194	label: 'Create new FastCGI Server'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6195	name: 'Button7'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6196	activeHelpKey: createFCGIServer
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6197	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6198	tabable: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6199	model: createFcgiServer
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6200	enableChannel: hasWebServerClassesLoadedHolder
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6201	useDefaultExtent: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6202	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6203	(ActionButtonSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6204	label: 'Create Server from Settings File...'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6205	name: 'Button6'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6206	activeHelpKey: createServerFromSettingsFile
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6207	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6208	tabable: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6209	model: createServerFromFile
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6210	enableChannel: hasWebServerClassesLoadedHolder
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6211	useDefaultExtent: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6212	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6213	(ActionButtonSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6214	label: 'Remove all Servers'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6215	name: 'Button5'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6216	activeHelpKey: removeAllServers
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6217	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6218	tabable: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6219	model: removeAllServers
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6220	enableChannel: hasCreatedServerChannel
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6221	useDefaultExtent: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6222	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6223	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6224
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6225	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6226	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6227	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6228
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6229	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6230	extent: (Point 539 160)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6231	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6232	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6233
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6234	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6235	extent: (Point 539 620)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6236	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6237	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6238
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6239	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6240	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6241	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6242
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6243	)
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6244	)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6245	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6246
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6247	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'servers access'!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6248
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6249	addCreatedServer:aServer
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6250	self createdServers add:aServer.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6251	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6252
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6253	createdServers
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6254	CreatedServers isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6255	CreatedServers := Set new.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6256	].
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6257	^ CreatedServers
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6258	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6259
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6260	removeAllCreatedServer
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6261	self createdServers removeAll.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6262	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6263
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6264	removeCreatedServer:aServer
5355 aa7b1d44d7a8 remove server from createdServers penk parents: 5346 diff changeset	6265	self createdServers remove:aServer ifAbsent:nil.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6266	! !
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6267
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6268	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'actions'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6269
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6270	basicReadSettings
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6271	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6272
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6273	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6274	(serverClass notNil and:[serverClass isLoaded]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6275	self serverClass runningServers
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6276	removeDependent:self;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6277	addDependent:self.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6278	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6279	self createServerSubApplicationsForRunningServers.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6280	self createdServerChanged.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6281
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6282	"Modified: / 25-01-2007 / 16:41:27 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6283	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6284
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6285	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6286	"nothing done here"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6287
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6288	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6289	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6290
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6291	createFcgiServer
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6292	"create a FastCGI server"
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6293
7548 ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	6294	FCGIServer isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6295	self warn:'The FCGIServer-class is missing - cannot create server.'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6296	^ self.
7548 ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	6297	].
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6298	^ self createServerForClass:FCGIServer.
7548 ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	6299
ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	6300	"Modified: / 26-11-2006 / 13:12:14 / cg"
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6301	!
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6302
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6303	createServer
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6304	"create a default server - i.e. a HTTP server"
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6305
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6306	HTTPServer isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6307	self warn:'The HTTPServer-class is missing - cannot create server.'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6308	^ self.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6309	].
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6310	^ self createServerForClass:self serverClass.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6311
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6312	"Modified: / 09-04-2011 / 11:15:52 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6313	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6314
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	6315	createServerApplicationFor:aServerInstance
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	6316	\|settingsApp itemPathName newItem openApps\|
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6317
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6318	"/ settingsDialog isNil ifTrue:[^ self].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6319
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	6320	openApps := settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl.
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	6321	(openApps contains:[:app \| app httpServerInstance == aServerInstance]) ifTrue:[
15001 825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6322	" already have an Item for this application "
825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6323	^ self
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6324	].
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6325	HTTPServerSettingsAppl isNil ifTrue:[
15001 825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6326	Smalltalk loadPackage:'stx:goodies/webServer/ui'.
825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6327	HTTPServerSettingsAppl isNil ifTrue:[
825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6328	self warn:'Missing settings application: HTTPServerSettingsAppl'.
825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6329	^ self.
825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6330	].
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6331	].
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6332
19500 950ec99cf1d3 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19498 diff changeset	6333	settingsApp := HTTPServerSettingsAppl new.
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6334	settingsApp settingsDialog:settingsDialog.
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6335	settingsApp httpServerInstance:aServerInstance.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6336	settingsApp defaultSettingsApplication:false.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6337	itemPathName := self itemPathName , '/', settingsApp nameInSettingsDialog.
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6338	newItem := settingsDialog addApplClass:#'HTTPServerSettingsAppl' withName:itemPathName.
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6339	newItem application:settingsApp.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6340	self createdServerChanged.
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6341	settingsDialog expandItemForApplication:self.
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6342	settingsApp readSettings.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6343
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6344	"Modified: / 09-04-2011 / 11:17:44 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6345	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6346
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6347	createServerForClass:serverClass
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6348
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6349	\|newServer port runningServers\|
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6350
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6351	serverClass isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6352	self warn:'The server class is missing - cannot create server.'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6353	^ self.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6354	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6355
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6356	self withWaitCursorDo:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6357	port := self portNumberChannel value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6358	runningServers := serverClass runningServers.
16625 1ad26ef997ff #REFACTORING by mawalch mawalch parents: 16593 diff changeset	6359
1ad26ef997ff #REFACTORING by mawalch mawalch parents: 16593 diff changeset	6360	runningServers do:[:aServer \|
1ad26ef997ff #REFACTORING by mawalch mawalch parents: 16593 diff changeset	6361	aServer port = port asInteger ifTrue:[
1ad26ef997ff #REFACTORING by mawalch mawalch parents: 16593 diff changeset	6362	Dialog warn:'There is already a server for port ', port asString.
1ad26ef997ff #REFACTORING by mawalch mawalch parents: 16593 diff changeset	6363	^ self
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6364	]
16625 1ad26ef997ff #REFACTORING by mawalch mawalch parents: 16593 diff changeset	6365	].
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6366	runningServers addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6367
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6368	(port = serverClass defaultPort) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6369	newServer := serverClass newServerWithDefaultServiceListOn:port.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6370	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6371	newServer := serverClass newServerOnPort:port.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6372	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6373	self class addCreatedServer:newServer.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6374	self createServerApplicationFor:newServer.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6375	]
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6376	!
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6377
5049 3df132763949 instable state penk parents: 5044 diff changeset	6378	createServerFromFile
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6379	\|serverClass newServer fileName runningServers newServerPort answer\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6380
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6381	serverClass := self serverClass.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6382	fileName := Dialog requestFileName:'Select a Server Settings File'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6383	default:(serverClass settingsFilename)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6384	pattern:'*.xml'.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6385
5049 3df132763949 instable state penk parents: 5044 diff changeset	6386	fileName isEmptyOrNil ifTrue:[ ^ self].
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	6387	self withWaitCursorDo:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6388	newServer := serverClass serverFromSettingsFile:(fileName asFilename).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6389	newServer notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6390	newServerPort := newServer port.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6391	runningServers := serverClass runningServers.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6392	runningServers notEmpty ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6393	[self hasServerForPort:newServerPort] whileTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6394	answer := Dialog
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6395	request:('There is already a server for port <1p>. Please select another one' expandMacrosWith:newServerPort)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6396	initialAnswer:self portNumberChannel value printString.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6397	answer isEmptyOrNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6398	^ self
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6399	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6400	newServerPort := Number readFromString:answer.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6401	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6402	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6403	newServer port:newServerPort.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6404	runningServers addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6405	self class addCreatedServer:newServer.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6406	self createServerApplicationFor:newServer.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6407	].
5049 3df132763949 instable state penk parents: 5044 diff changeset	6408	].
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6409
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6410	"Modified: / 25-01-2007 / 16:40:57 / cg"
5049 3df132763949 instable state penk parents: 5044 diff changeset	6411	!
3df132763949 instable state penk parents: 5044 diff changeset	6412
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	6413	createServerSubApplicationsForRunningServers
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6414	\|serverToStart serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6415
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6416	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6417
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6418	(serverClass notNil and:[ serverClass isLoaded ]) ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6419	^ self
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6420	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6421
12570 c9f359cab740 class: AbstractSettingsApplication Stefan Vogel <sv@exept.de> parents: 12478 diff changeset	6422	serverToStart := serverClass runningServers asNewSet.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6423	serverToStart addAll:self class createdServers.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6424	serverToStart isEmpty ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6425	^ self
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6426	].
11774 4a80d7101f58 x Claus Gittinger <cg@exept.de> parents: 11732 diff changeset	6427	serverToStart := serverToStart select:[:s \| s port notNil].
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6428	serverToStart := serverToStart asSortedCollection:[:a :b \| a port < b port].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6429	serverToStart do:[:eachServerInstance \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6430	self createServerApplicationFor:eachServerInstance.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6431	]
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6432
11774 4a80d7101f58 x Claus Gittinger <cg@exept.de> parents: 11732 diff changeset	6433	"Modified: / 26-08-2012 / 10:25:23 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6434	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6435
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	6436	hasServerForPort:newServerPort
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6437	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6438
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6439	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6440	^ serverClass notNil
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6441	and:[ serverClass runningServers
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6442	contains:[:eachServer\| eachServer port = newServerPort]].
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6443
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6444	"Modified: / 25-01-2007 / 16:39:48 / cg"
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	6445	!
b3cba6441579 ready to use penk parents: 5049 diff changeset	6446
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6447	loadWebServerPackages
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6448	Smalltalk loadPackage:'stx:goodies/webServer'.
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6449	Smalltalk loadPackage:'stx:goodies/webServer/htmlTree'.
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6450	Smalltalk loadPackage:'stx:goodies/webServer/comanche'.
18124 28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	6451	Smalltalk loadPackage:'stx:goodies/webServer/comanche/stt'.
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	6452	Smalltalk loadPackage:'stx:goodies/webServer/comanche/swiki'.
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	6453	Smalltalk loadPackage:'stx:goodies/webServer/comanche/seaside2_5b4/squeakCompatibility'.
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6454	Smalltalk loadPackage:'stx:goodies/webServer/ui'.
19498 74d1f0dd29cc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19497 diff changeset	6455	hasWebServerClassesNotLoadedHolder value:(self hasWebServerClassesLoaded not).
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6456	!
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6457
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6458	removeAllServerSubApplications
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6459	"/ settingsDialog isNil ifTrue:[^ self].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6460
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	6461	settingsDialog removeAllSubApplicationsFor:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6462	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6463
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6464	removeAllServers
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6465	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6466
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6467	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6468	serverClass isLoaded ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6469	serverClass terminateAllServers.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	6470	].
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6471	self class removeAllCreatedServer.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	6472	self removeAllServerSubApplications.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	6473	self createdServerChanged.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6474
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6475	"Modified: / 25-01-2007 / 16:39:10 / cg"
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	6476	!
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	6477
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6478	setPortOnFreePort
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6479	\|serverClass highestUsedPortNr portToUse instances\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6480
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6481	"/ settingsDialog isNil ifTrue:[^ self].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6482
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6483	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6484	(serverClass notNil and:[serverClass isLoaded]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6485	instances := serverClass runningServers asNewSet.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6486	instances addAll:((settingsDialog getAllChildrenAppsForApplication:self)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6487	collect:[:aApp\| aApp httpServerInstance]).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6488	instances := instances select:[:i \| i port notNil].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6489	highestUsedPortNr := instances
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6490	inject:(serverClass defaultPort - 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6491	into:[:maxSoFar :thisServer \| thisServer port max:maxSoFar].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6492
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6493	portToUse := highestUsedPortNr + 1
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6494	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6495	portToUse := 8080
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	6496	].
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	6497	self portNumberChannel value:portToUse.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6498
11774 4a80d7101f58 x Claus Gittinger <cg@exept.de> parents: 11732 diff changeset	6499	"Modified: / 26-08-2012 / 10:26:20 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6500	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6501
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6502	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'aspects'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6503
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6504	hasCreatedServerChannel
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6505	^ hasCreatedServerChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6506	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6507
16309 77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	6508	hasWebServerClassesLoaded
77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	6509	^ self hasHTTPServerClass and:[self hasFCGIServerClass].
77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	6510	!
77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	6511
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6512	hasWebServerClassesLoadedHolder
19498 74d1f0dd29cc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19497 diff changeset	6513	^ BlockValue forLogicalNot:hasWebServerClassesNotLoadedHolder
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6514	!
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6515
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6516	hasWebServerClassesNotLoadedHolder
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6517	^ hasWebServerClassesNotLoadedHolder.
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6518	!
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6519
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6520	informationLabel
11504 20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6521	\|info\|
20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6522
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6523	info := resources
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6524	string:'HTTPSTARTINFO'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6525	default:
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6526	'This dialog enables you to create (possibly multiple) HTTP Server processes.
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6527	(i.e. it is possible to serve multiple ports)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6528
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6529	Once created, select the individual server in the left tree,
11504 20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6530	configure its services, and finally start it up.'.
20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6531
20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6532	self hasHTTPServerClass ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6533	info := info ,
19041 7e56f18cb39e #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 18957 diff changeset	6534	c'\n\n',
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6535	(resources string:'ATTENTION: Disabled because HTTPServer class is missing.') allBold
11504 20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6536	].
19447 6ca3f10f4932 #UI_ENHANCEMENT by exept anharman parents: 19434 diff changeset	6537	^ info withCRs
11504 20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6538
20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6539	"Modified: / 14-05-2012 / 12:35:46 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6540	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6541
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6542	portNumberChannel
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6543	^ portNumberChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6544	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6545
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6546	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'change & update'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6547
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6548	createdServerChanged
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6549
19498 74d1f0dd29cc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19497 diff changeset	6550	hasCreatedServerChannel value:self hasCreatedServer.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6551	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6552	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6553
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6554	runningServersChanged
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	6555	self createServerSubApplicationsForRunningServers.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6556	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6557	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6558
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6559	update:something with:aParameter from:changedObject
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6560	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6561
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6562	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6563	(serverClass isLoaded and:[changedObject == serverClass runningServers]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6564	self runningServersChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6565	^ self.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6566	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6567	super update:something with:aParameter from:changedObject
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6568
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6569	"Modified: / 25-01-2007 / 16:38:52 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6570	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6571
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6572	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6573
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6574	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6575	^ 'HTTPServer/index.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6576	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6577
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6578	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'initialization & release'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6579
19498 74d1f0dd29cc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19497 diff changeset	6580	initialize
74d1f0dd29cc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19497 diff changeset	6581	super initialize.
74d1f0dd29cc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19497 diff changeset	6582
74d1f0dd29cc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19497 diff changeset	6583	hasCreatedServerChannel := ValueHolder with:true.
74d1f0dd29cc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19497 diff changeset	6584	hasWebServerClassesNotLoadedHolder := ValueHolder with:(self hasWebServerClassesLoaded not).
74d1f0dd29cc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19497 diff changeset	6585	portNumberChannel := ValueHolder new.
74d1f0dd29cc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19497 diff changeset	6586
74d1f0dd29cc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19497 diff changeset	6587	!
74d1f0dd29cc #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19497 diff changeset	6588
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6589	release
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6590	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6591
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6592	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6593	(serverClass notNil and:[serverClass isLoaded]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6594	serverClass runningServers removeDependent:self.
14066 0e59cd86d52f class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13915 diff changeset	6595	].
0e59cd86d52f class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13915 diff changeset	6596	super release
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6597
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6598	"Modified: / 25-01-2007 / 16:39:23 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6599	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6600
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6601	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'queries'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6602
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6603	hasCreatedServer
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6604	"/ settingsDialog isNil ifTrue:[^ false].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6605	^ (settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6606	notEmpty
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6607	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6608
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6609	hasFCGIServerClass
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6610	^ FCGIServer notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6611
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6612	"Created: / 25-01-2007 / 17:50:14 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6613	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6614
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6615	hasHTTPServerClass
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6616	^ self serverClass notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6617
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6618	"Created: / 25-01-2007 / 17:50:03 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6619	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6620
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6621	hasUnsavedChanges
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6622
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6623	^ false
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	6624	!
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	6625
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6626	isEnabledInSettingsDialog:aSettingsDialog
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6627	^ true
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6628	"/ ^ self serverClass notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6629	"/ or:[ HTTPServer notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6630	"/ or:[ FCGIServer notNil ]]
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6631
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6632	"Created: / 25-01-2007 / 16:48:18 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6633	"Modified: / 25-01-2007 / 17:49:24 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6634	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6635
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	6636	serverClass
16718 cc9f5b0ac2bd #OTHER by mawalch mawalch parents: 16682 diff changeset	6637	"answer the default class for instantiating servers.
cc9f5b0ac2bd #OTHER by mawalch mawalch parents: 16682 diff changeset	6638	Note that we may instantiate FCGIServer as well"
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6639
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	6640	^ HTTPServer
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6641	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6642
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6643	whyDisabledInSettingsDialogInfo
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6644	^ 'there is no HTTPServer class in the system'
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6645
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6646	"Created: / 25-01-2007 / 17:16:46 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6647	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6648
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6649	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'help specs'!
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6650
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	6651	helpSpec
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6652	"This resource specification was automatically generated
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6653	by the UIHelpTool of ST/X."
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6654
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6655	"Do not manually edit this!! If it is corrupted,
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6656	the UIHelpTool may not be able to read the specification."
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6657
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6658	"
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6659	UIHelpTool openOnClass:AbstractSettingsApplication::MemorySettingsAppl
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6660	"
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6661
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6662	<resource: #help>
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6663
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	6664	^ super helpSpec addPairsFrom:#(
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6665
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6666	#rawKeyList
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6667	'Select an entry from this list of keys, to see the associated function in the right list.\To change, check the "Change" toggle below, then select the function to assign,\and finally press the "Apply" button'
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6668
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6669	#functionKeyList
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6670	'Select an entry from this function list, to see the raw key which invokes this function.\To change, check the "Change" toggle below, select a rawkey+function combinarion,\and finally press the "Apply" button'
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6671
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6672	#'changeMap'
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6673	'Switch between "display" and "modify" mode.\If checked, you can select a combination and assign the key-function combination with the "Apply" button.\If not checked, either list show''s the other''s associated entry'
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6674
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6675	#'applyChange'
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6676	'Adds the current key-function combination to the keyboard map'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6677
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6678	#saveMapAs
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6679	'Save the current keyboard map to an alternative keyboard setup file.\This can be loaded via fileIn or shared with other users.'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6680
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6681	)
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6682	! !
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6683
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6684	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6685
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6686	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6687	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6688
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6689	^ ToolbarIconLibrary keyboardMappingIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6690	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6691
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6692	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6693
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6694	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6695	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6696	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6697
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6698	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6699	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6700
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6701	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6702	UIPainter new openOnClass:AbstractSettingsApplication::KbdMappingSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6703	AbstractSettingsApplication::KbdMappingSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6704	AbstractSettingsApplication::KbdMappingSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6705	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6706
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6707	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6708
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6709	^
13496 bbfee49a9595 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13494 diff changeset	6710	#(FullSpec
bbfee49a9595 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13494 diff changeset	6711	name: windowSpec
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6712	window:
13496 bbfee49a9595 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13494 diff changeset	6713	(WindowSpec
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6714	label: 'Keyboard Mapping Settings'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6715	name: 'Keyboard Mapping Settings'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6716	min: (Point 10 10)
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6717	bounds: (Rectangle 0 0 482 654)
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6718	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6719	component:
13496 bbfee49a9595 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13494 diff changeset	6720	(SpecCollection
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6721	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6722	(TextEditorSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6723	name: 'Text'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6724	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 100 0)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6725	enableChannel: false
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6726	model: labelTextHolder
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6727	hasHorizontalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6728	hasVerticalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6729	miniScrollerHorizontal: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6730	miniScrollerVertical: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6731	isReadOnly: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6732	hasKeyboardFocusInitially: false
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6733	postBuildCallback: postBuildHelpLabel:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6734	viewClassName: 'TextView'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6735	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6736	(VariableVerticalPanelSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6737	name: 'VariableVerticalPanel1'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6738	layout: (LayoutFrame 0 0.0 100 0 0 1.0 0 1.0)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6739	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6740	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6741	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6742	(VariableHorizontalPanelSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6743	name: 'VariableHorizontalPanel1'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6744	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6745	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6746	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6747	(ViewSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6748	name: 'Box2'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6749	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6750	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6751	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6752	(LabelSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6753	label: 'Key'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6754	name: 'Label1'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6755	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6756	translateLabel: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6757	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6758	(SequenceViewSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6759	name: 'RawKeyList'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6760	layout: (LayoutFrame 0 0 30 0 0 1 -30 1)
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6761	activeHelpKey: rawKeyList
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6762	model: selectedRawKey
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6763	hasHorizontalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6764	hasVerticalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6765	useIndex: false
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6766	sequenceList: rawKeyList
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6767	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6768	(ViewSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6769	name: 'Box4'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6770	layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6771	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6772	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6773	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6774	(CheckBoxSpec
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6775	label: 'Modify'
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6776	name: 'CheckBox1'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6777	layout: (LayoutFrame 0 0 7 0 136 0 29 0)
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6778	activeHelpKey: changeMap
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6779	model: changeMapHolder
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6780	translateLabel: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6781	)
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6782	(InputFieldSpec
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6783	name: 'EntryField1'
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6784	layout: (LayoutFrame 136 0 7 0 0 1 29 0)
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6785	visibilityChannel: changeMapHolder
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6786	model: currentKeyHolder
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6787	acceptOnReturn: true
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6788	acceptOnTab: true
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6789	acceptOnPointerLeave: true
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6790	)
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6791	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6792
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6793	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6794	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6795	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6796
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6797	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6798	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6799	(ViewSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6800	name: 'Box3'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6801	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6802	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6803	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6804	(LabelSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6805	label: 'Function'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6806	name: 'Label2'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6807	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6808	translateLabel: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6809	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6810	(SequenceViewSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6811	name: 'FunctionKeyList'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6812	layout: (LayoutFrame 0 0 30 0 0 1 -30 1)
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6813	activeHelpKey: functionList
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6814	model: selectedFunctionKey
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6815	hasHorizontalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6816	hasVerticalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6817	useIndex: false
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6818	sequenceList: functionKeyList
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6819	)
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6820	(HorizontalPanelViewSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6821	name: 'HorizontalPanel1'
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6822	layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6823	horizontalLayout: fitSpace
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6824	verticalLayout: center
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6825	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6826	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6827	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6828	(ActionButtonSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6829	label: 'Apply'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6830	name: 'Button1'
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6831	activeHelpKey: applyChange
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6832	visibilityChannel: changeMapHolder
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6833	translateLabel: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6834	model: applyMapChange
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6835	extent: (Point 125 22)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6836	)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6837	(ActionButtonSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6838	label: 'Save As...'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6839	name: 'Button2'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6840	activeHelpKey: saveMapAs
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6841	visibilityChannel: changeMapHolder
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6842	translateLabel: true
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6843	model: saveMapAs
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6844	extent: (Point 125 22)
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6845	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6846	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6847
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6848	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6849	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6850	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6851
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6852	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6853	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6854	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6855
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6856	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6857	handles: (Any 0.5 1.0)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6858	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6859	(ViewSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6860	name: 'Box1'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6861	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6862	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6863	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6864	(LabelSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6865	label: 'Macro text (if any):'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6866	name: 'MacroTextLabel'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6867	layout: (LayoutFrame 0 0.0 0 0 0 1.0 30 0)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6868	translateLabel: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6869	adjust: left
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6870	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6871	(TextEditorSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6872	name: 'MacroText'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6873	layout: (LayoutFrame 0 0.0 30 0 0 1.0 0 1.0)
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6874	activeHelpKey: macroText
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6875	model: macroTextHolder
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6876	hasHorizontalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6877	hasVerticalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6878	isReadOnly: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6879	hasKeyboardFocusInitially: false
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6880	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6881	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6882
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6883	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6884	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6885	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6886
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6887	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6888	handles: (Any 0.5 1.0)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6889	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6890	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6891
13496 bbfee49a9595 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13494 diff changeset	6892	)
bbfee49a9595 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13494 diff changeset	6893	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6894	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6895
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6896	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6897
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6898	applyMapChange
15051 e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	6899	\|rawKey function\|
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	6900
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	6901	rawKey := self currentKeyHolder value asSymbol.
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	6902	function := self selectedFunctionKey value asSymbol.
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	6903
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	6904	function = (resources string:'* unassigned *') ifTrue:[
16644 1c87adf56e82 #BUGFIX by mawalch mawalch parents: 16629 diff changeset	6905	mappings removeKey:rawKey
15051 e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	6906	] ifFalse:[
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	6907	mappings at:rawKey put:function.
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	6908	].
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6909	self updateModifiedChannel.
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6910	!
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6911
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6912	basicReadSettings
15050 9034dd01f8a4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15049 diff changeset	6913	\|screenMap l\|
9034dd01f8a4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15049 diff changeset	6914
9034dd01f8a4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15049 diff changeset	6915	screenMap := Screen current keyboardMap.
9034dd01f8a4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15049 diff changeset	6916	mappings := screenMap species new declareAllFrom: screenMap.
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6917
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6918	self rawKeyList contents: (mappings keys collect:[:key \| key asString] as:Array) sort.
15388 5ba8c56e92b6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15387 diff changeset	6919	l := (mappings values asSet collect:[:key \| key asString] as:OrderedCollection) sort.
15051 e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	6920	l addFirst:(resources string:'* unassigned *').
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6921	self functionKeyList contents:l.
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6922
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6923	self changeMapHolder value:false.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6924	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6925
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6926	basicSaveSettings
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6927	self saveMapAs:(Filename applicationDataDirectory construct:'private_keyboard.rc')
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6928	!
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6929
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6930	saveMapAs
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6931	"invoked via save as button"
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6932
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6933	\|fn\|
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6934
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6935	fn := Dialog
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6936	requestFileName:'Save private keyboard settings in:'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6937	default:'private_keyboard.rc'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6938	fromDirectory:(Filename applicationDataDirectory).
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6939	fn isEmptyOrNil ifTrue:[ ^ self ].
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6940	self saveMapAs:fn asFilename.
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6941	!
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6942
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6943	saveMapAs:aFilename
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6944	aFilename writingFileDo:[:s \|
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6945	s nextPutLine:'\|map\|'.
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6946	s nextPutLine:'map := Screen current keyboardMap.'.
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6947	mappings keysAndValuesDo:[:eachKey :eachFunction \|
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6948	s nextPutLine:('map at:%1 put:%2.' bindWith:eachKey storeString with:eachFunction storeString).
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6949	].
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6950	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6951	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6952
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6953	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6954
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6955	changeMapHolder
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6956	^ changeMapHolder.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6957	!
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6958
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6959	currentKeyHolder
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6960	^ currentKeyHolder.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6961	!
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6962
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6963	functionKeyList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6964	^ functionKeyList.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6965	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6966
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6967	labelTextHolder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6968	^ labelTextHolder.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6969	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6970
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6971	macroTextHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6972	^ macroTextHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6973	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6974
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6975	rawKeyList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6976	^ rawKeyList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6977	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6978
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6979	selectedFunctionKey
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6980	^ selectedFunctionKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6981	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6982
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6983	selectedRawKey
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6984	^ selectedRawKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6985	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6986
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6987	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6988
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6989	changeFunctionKeySelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6990	\|raw\|
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6991
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6992	raw := self selectedRawKey value.
9629 e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	6993	self selectedFunctionKey value:(mappings at:raw asSymbol) asString withoutNotifying:self.
e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	6994
e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	6995	"Modified: / 11-11-2010 / 06:50:04 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6996	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6997
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6998	changeMacroText
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6999
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7000	\|f macro indent\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7001
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7002	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7003	(f startsWith:'Cmd') ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7004	f := f copyFrom:4
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7005	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7006	macro := currentUserPrefs functionKeySequences
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7007	at:(f asSymbol) ifAbsent:nil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7008	macro notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7009	macro := macro asStringCollection.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7010	indent := macro
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7011	inject:99999 into:[:min :element \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7012	\|stripped\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7013
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7014	stripped := element withoutLeadingSeparators.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7015	stripped isEmpty ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7016	min
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7017	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7018	min min:(element size - stripped size)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7019	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7020	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7021	indent ~~ 0 ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7022	macro := macro collect:[:line \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7023	line size > indent ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7024	line copyFrom:indent+1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7025	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7026	line
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7027	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7028	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7029	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7030	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7031	macroTextHolder value:macro.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7032	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7033
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7034	changeRawKeySelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7035	\|f raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7036
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7037	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7038	raw := mappings keyAtValue:f asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7039	raw isNil ifTrue:[
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7040	raw := mappings keyAtValue:f first.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7041	raw isNil ifTrue:[
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7042	raw := mappings keyAtValue:f asSymbol.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7043	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7044	].
9629 e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	7045	self selectedRawKey value:raw withoutNotifying:self.
e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	7046
e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	7047	"Modified: / 11-11-2010 / 06:49:56 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7048	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7049
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7050	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7051	changedObject == self selectedFunctionKey ifTrue:[
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7052	changeMapHolder value ifFalse:[
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7053	self changeRawKeySelection.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7054	].
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7055	self changeMacroText.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7056	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7057	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7058	changedObject == self selectedRawKey ifTrue:[
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7059	changeMapHolder value ifFalse:[
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7060	self changeFunctionKeySelection.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7061	].
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7062	self currentKeyHolder value:changedObject value.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7063	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7064	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7065	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7066	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7067
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7068	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7069
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7070	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7071	^ 'Launcher/keyboardSetting.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7072	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7073
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7074	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7075
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7076	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7077
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7078	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7079
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7080	super initialize.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	7081
19494 a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7082	changeMapHolder := ValueHolder with:false.
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7083	currentKeyHolder := ValueHolder new.
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7084	functionKeyList := List new.
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7085	labelTextHolder := ValueHolder with:(resources at:'KEY_MSG' default:'keyboard mapping:') withCRs.
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7086	macroTextHolder := ValueHolder new.
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7087	rawKeyList := List new.
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7088
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7089	selectedFunctionKey := ValueHolder new.
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7090	selectedFunctionKey addDependent:self.
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7091
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7092	selectedRawKey := ValueHolder new.
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7093	selectedRawKey addDependent:self.
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7094
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7095	"Modified: / 08-02-2017 / 00:30:32 / cg"
14568 6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7096	!
6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7097
6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7098	postBuildHelpLabel:aWidget
6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7099	aWidget level:0.
6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7100	aWidget scrolledView backgroundColor:self window viewBackground.
6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7101	aWidget font:(Label defaultFont).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7102	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7103
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7104	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7105
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7106	hasUnsavedChanges
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7107	^ mappings ~= Screen current keyboardMap.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7108	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7109
14377 2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7110	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'font specs'!
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7111
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7112	bigLabelFont
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7113	<resource: #fontSpec>
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7114
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7115	^ Label defaultFont asBold
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7116	! !
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7117
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7118	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'help specs'!
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7119
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	7120	helpSpec
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7121	"This resource specification was automatically generated
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7122	by the UIHelpTool of ST/X."
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7123
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7124	"Do not manually edit this!! If it is corrupted,
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7125	the UIHelpTool may not be able to read the specification."
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7126
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7127	"
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7128	UIHelpTool openOnClass:HTTPServerSettingsAppl
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7129	"
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7130
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7131	<resource: #help>
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7132
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	7133	^ super helpSpec addPairsFrom:#(
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7134
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7135	#useSystemLanguage
16524 ecacacdca483 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16466 diff changeset	7136	'If set, the operating system language (LANG variable) is used in the next session\(and the setting here only affects the current session).\If clear, the language setting is also used in the next session.'
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7137
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7138	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7139	! !
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7140
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7141	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7142
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7143	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	7144	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	7145
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	7146	^ ToolbarIconLibrary languagesIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7147	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7148
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7149	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7150
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7151	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7152	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7153	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7154
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7155	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7156	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7157
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7158	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7159	UIPainter new openOnClass:AbstractSettingsApplication::LanguageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7160	AbstractSettingsApplication::LanguageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7161	AbstractSettingsApplication::LanguageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7162	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7163
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7164	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7165
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7166	^
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	7167	#(FullSpec
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	7168	name: windowSpec
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7169	window:
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	7170	(WindowSpec
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7171	label: 'Language Settings'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7172	name: 'Language Settings'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7173	min: (Point 10 10)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7174	bounds: (Rectangle 0 0 571 878)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7175	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7176	component:
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	7177	(SpecCollection
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7178	collection: (
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7179	(LabelSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7180	label: 'Current Language:'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7181	name: 'Label1'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7182	layout: (LayoutFrame 0 0 0 0 -233 1 30 0)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7183	translateLabel: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7184	labelChannel: currentLanguageLabel
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7185	adjust: right
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7186	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7187	(LabelSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7188	label: 'Label'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7189	name: 'CurrentLang'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7190	layout: (LayoutFrame -233 1 0 0 0 1 30 0)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7191	style: bigLabelFont
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7192	translateLabel: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7193	labelChannel: currentFlagAndLanguageChannel
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7194	adjust: left
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7195	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7196	(TextEditorSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7197	name: 'TextEditor1'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7198	layout: (LayoutFrame 0 0 32 0 0 1.0 240 0)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7199	model: noticeLabelHolder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7200	hasHorizontalScrollBar: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7201	hasVerticalScrollBar: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7202	miniScrollerHorizontal: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7203	autoHideScrollBars: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7204	isReadOnly: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7205	hasKeyboardFocusInitially: false
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7206	postBuildCallback: postBuildHelpLabel:
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7207	viewClassName: 'TextView'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7208	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7209	(InputFieldSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7210	name: 'EntryField1'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7211	layout: (LayoutFrame 2 0.0 240 0 -2 1.0 270 0)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7212	model: languageHolder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7213	acceptOnReturn: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7214	acceptOnTab: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7215	acceptOnLostFocus: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7216	acceptOnPointerLeave: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7217	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7218	(CheckBoxSpec
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7219	label: 'Use OS Language on Startup'
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7220	name: 'CheckBox1'
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7221	layout: (LayoutFrame 0 0.0 275 0 0 1.0 305 0)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7222	activeHelpKey: useSystemLanguage
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7223	model: useSystemLanguageHolder
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7224	translateLabel: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7225	)
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7226	(SequenceViewSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7227	name: 'List1'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7228	layout: (LayoutFrame 2 0.0 315 0 -2 1.0 -36 1.0)
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7229	model: languageIndexHolder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7230	hasHorizontalScrollBar: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7231	hasVerticalScrollBar: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7232	doubleClickSelector: doubleClick:
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7233	useIndex: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7234	sequenceList: languageListHolder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7235	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7236	(HorizontalPanelViewSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7237	name: 'HorizontalPanel1'
15917 8bd56a31147e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15916 diff changeset	7238	layout: (LayoutFrame 0 0 -37 1 0 1 0 1)
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7239	horizontalLayout: center
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7240	verticalLayout: center
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7241	horizontalSpace: 3
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7242	verticalSpace: 3
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7243	component:
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7244	(SpecCollection
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7245	collection: (
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7246	(ActionButtonSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7247	label: 'Reread Language Resources'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7248	name: 'RereadResourcesButton'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7249	translateLabel: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7250	resizeForLabel: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7251	model: rereadResourceFiles
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7252	useDefaultExtent: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7253	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7254	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7255
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7256	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7257	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7258	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7259
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	7260	)
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	7261	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7262	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7263
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7264	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7265
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7266	languageList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7267	"return the value of the instance variable 'languageList' (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7268
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7269	^ languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7270	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7271
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7272	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7273
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7274	basicReadSettings
19494 a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7275	useSystemLanguageHolder value:(currentUserPrefs useSystemLanguage).
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7276	languageIndexHolder value:self currentLanguageIndex.
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7277	languageHolder value:self currentLanguage.
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7278	currentFlagAndLanguageChannel value:self currentLanguage.
9559 314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	7279
314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	7280	"Modified: / 24-08-2010 / 18:52:48 / sr"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7281	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7282
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7283	basicSaveSettings
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7284	\|fontPref fontPrefs language oldLanguage languageString territory enc
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7285	answer matchingFonts l screen switch dialog anyWrong\|
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7286
19494 a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7287	currentUserPrefs useSystemLanguage:(useSystemLanguageHolder value).
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7288
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7289	self withWaitCursorDo:[
19494 a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7290	languageString := translatedLanguages at:(languageIndexHolder value).
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7291	language := languageHolder value asString string.
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7292	(language includes:$-) ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7293	l := language asCollectionOfSubstringsSeparatedBy:$-.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7294	language := l at:1.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7295	territory := l at:2.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7296	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7297	territory isNil ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7298	territory := language string copyTo:2
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7299	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7300
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7301	"/ check if the new language needs a differently encoded font;
17629 de2f89a5a799 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17536 diff changeset	7302	"/ ask user to switch font and allow cancelation.
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7303	"/ Otherwise, you are left with unreadable menu & button items ...
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7304
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7305	oldLanguage := UserPreferences current language.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7306	Smalltalk language:language asSymbol.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7307	ResourcePack flushCachedResourcePacks.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7308
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7309	"/ refetch resources ...
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7310	resources := AbstractLauncherApplication classResources.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7311	fontPrefs := resources at:'PREFERRED_FONT_ENCODINGS' default:nil.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7312	fontPrefs isNil ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7313	fontPref := resources at:'PREFERRED_FONT_ENCODING' default:nil.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7314	fontPref isNil ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7315	fontPrefs := #(#'iso10646-1')
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7316	] ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7317	fontPrefs := #(#'iso10646-1') , (Array with:fontPref).
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7318	]
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7319	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7320
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7321	"/ 'normalize' names of encodings
18720 527904823f96 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18692 diff changeset	7322	fontPrefs := fontPrefs
527904823f96 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18692 diff changeset	7323	collect:[:each \| (CharacterEncoder encoderFor:each asLowercase asSymbol ifAbsent:nil)].
527904823f96 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18692 diff changeset	7324	fontPrefs := fontPrefs
527904823f96 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18692 diff changeset	7325	select:[:each \| each notNil and:[each isNullEncoder not]]
527904823f96 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18692 diff changeset	7326	thenCollect:[:each \| each nameOfEncoding].
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7327	fontPrefs isEmpty ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7328	fontPrefs := #(#'iso10464-1')
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7329	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7330	fontPref := fontPrefs first.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7331
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7332	Smalltalk setLanguage:#en.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7333	ResourcePack flushCachedResourcePacks.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7334	resources := AbstractLauncherApplication classResources.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7335
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7336	switch := true.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7337	anyWrong := false.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7338	(Array
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7339	with:MenuView defaultFont
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7340	"/ with:ListView defaultFont
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7341	with:EditTextView defaultFont
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7342	with:Button defaultFont)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7343	do:[:fn \|
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7344	enc := fn encoding.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7345	enc isNil ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7346	(fontPrefs contains:[:pref \| CharacterEncoder isEncoding:pref subSetOf:enc])
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7347	ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7348	anyWrong := true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7349	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7350	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7351	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7352	anyWrong ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7353	"/ look if there is one at all.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7354	screen := Screen current.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7355	matchingFonts := screen listOfAvailableFonts
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7356	select:[:f \| fontPrefs contains:[:pref \|
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7357	CharacterEncoder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7358	isEncoding:pref subSetOf:(f encoding ? 'ascii')]].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7359
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7360	matchingFonts isEmpty ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7361	"/ flush and try again - just in case, the font path has changed.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7362	screen flushListOfAvailableFonts.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7363	matchingFonts := screen listOfAvailableFonts
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7364	select:[:f \| fontPrefs contains:[:pref \|
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7365	CharacterEncoder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7366	isEncoding:pref subSetOf:(f encoding ? 'ascii')]].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7367	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7368	matchingFonts isEmpty ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7369	(Dialog
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7370	confirm:(resources
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7371	string:'Your display does not seem to offer any appropriate font.\\Change the language anyway ?\ (Texts will probably be unreadable then)'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7372	with:fontPref) withCRs)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7373	ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7374	switch := false
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7375	]
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7376	] ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7377	answer := Dialog
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7378	confirmWithCancel:(resources
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7379	string:'Some font(s) is not %1-encoded.\\Change it ?'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7380	with:fontPref) withCRs
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7381	labels:(resources
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7382	array:#('Cancel' 'No' 'Yes'))
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7383	default:3.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7384	answer isNil ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7385	switch := false
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7386	] ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7387	answer ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7388	switch := (AbstractLauncherApplication::LauncherDialogs fontBoxForEncoding:fontPref)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7389	]
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7390	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7391	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7392	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7393
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7394	switch ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7395	Transcript showCR:'Changing language setting to ' , languageString string , ' (' , language , ')...'.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7396	Smalltalk language:language asSymbol territory:(territory ? language) asSymbol.
19360 194cc7cf851c #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 19350 diff changeset	7397	currentUserPrefs language:language asSymbol territory:(territory ? language) asSymbol.
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7398	ResourcePack flushCachedResourcePacks.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7399	"/ ResourcePack flushCachedResourcePacks - already done by language-change
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7400	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7401	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7402	switch ifTrue:[
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7403	(dialog := settingsDialog) notNil ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7404	dialog reopenLauncher.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7405	] ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7406	NewLauncher current reopenLauncher.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7407	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7408	DebugView newDebugger.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7409	].
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7410	self updateForChangedLanguage.
7430 37990108bea9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7427 diff changeset	7411
37990108bea9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7427 diff changeset	7412	"Modified: / 19-10-2006 / 22:17:44 / cg"
17629 de2f89a5a799 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17536 diff changeset	7413	"Modified (comment): / 24-08-2017 / 14:57:24 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7414	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7415
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7416	doubleClick:aEntry
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7417	self saveSettingsIfUnsavedChangesArePresent.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7418	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7419
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7420	rereadResourceFiles
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7421	ResourcePack flushCachedResourcePacks.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7422	perLanguageResources := nil.
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	7423	self withWaitCursorDo:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7424	self updateForChangedLanguage.
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	7425	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7426
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7427	"/ Smalltalk language:(Smalltalk language).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7428	"/ Smalltalk languageTerritory:(Smalltalk languageTerritory).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7429
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7430	Smalltalk changed:#Language.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7431	Smalltalk changed:#LanguageTerritory.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7432	!
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7433
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7434	updateForChangedLanguage
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7435	self initializeLanguages.
5721 effab3aca7ff * empty log message * Claus Gittinger <cg@exept.de> parents: 5719 diff changeset	7436	languageListHolder value:languageList.
19494 a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7437	languageListHolder value:languageList.
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7438	currentFlagAndLanguageChannel value:self currentLanguage.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7439	self setCurrentLanguageLabel.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7440	self setNoticeLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7441	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7442
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7443	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7444
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7445	currentFlagAndLanguageChannel
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7446	^ currentFlagAndLanguageChannel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7447	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7448
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7449	currentLanguageLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7450	^ currentLanguageLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7451	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7452
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7453	languageHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7454	^ languageHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7455	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7456
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7457	languageIndexHolder
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7458	^ languageIndexHolder.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7459	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7460
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7461	languageListHolder
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7462	^ languageListHolder.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7463	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7464
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7465	noticeLabelHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7466	^ noticeLabelHolder.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7467	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7468
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7469	useSystemLanguageHolder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7470	^ useSystemLanguageHolder.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7471	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7472
19494 a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7473	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'change & update'!
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7474
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7475	languageIndexChanged
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7476	\|langIdx\|
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7477
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7478	langIdx := languageIndexHolder value ? 1.
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7479	languageHolder value:(listOfLanguages at:langIdx).
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7480	self updateModifiedChannel.
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7481	! !
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7482
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7483	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7484
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7485	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7486	^ 'Launcher/languageSetting.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7487	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7488
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7489	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7490
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7491	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7492	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7493
19494 a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7494	super initialize.
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7495
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7496	self initializeLanguages.
19494 a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7497
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7498	currentFlagAndLanguageChannel := ValueHolder with:(self currentLanguage).
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7499
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7500	currentLanguageLabel := ValueHolder new.
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7501	self setCurrentLanguageLabel.
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7502
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7503	languageHolder := self currentLanguage asValue.
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7504	languageHolder onChangeSend:#updateModifiedChannel to:self.
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7505
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7506	languageIndexHolder := (self currentLanguageIndex) asValue.
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7507	languageIndexHolder onChangeSend:#languageIndexChanged to:self.
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7508
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7509	languageListHolder := self languageList asValue.
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7510
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7511	noticeLabelHolder := ValueHolder new.
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7512	self setNoticeLabel.
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7513
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7514	useSystemLanguageHolder := true asValue.
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7515	useSystemLanguageHolder onChangeSend:#updateModifiedChannel to:self.
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7516
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7517
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7518	"Modified: / 08-02-2017 / 00:30:07 / cg"
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7519	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7520
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7521	initializeLanguages
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7522	\|flags enResources savedLanguage savedLanguageTerritory enLanguages nativeLanguages
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7523	languages listOfLanguageKeys readLanguagesFile rsc\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7524
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7525	resources := self class classResources.
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	7526	listOfLanguages := resources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default' 'en' ).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7527	listOfLanguages := listOfLanguages asOrderedCollection.
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	7528	listOfLanguageKeys := listOfLanguages collect:[:l \| l copyReplaceAll:$- with:$_ ].
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	7529
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7530	(perLanguageResources notNil
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7531	and:[ (perLanguageResources includesKey:#en) not
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7532	and:[ (perLanguageResources includesKey:#'en_us') not ]])
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	7533	ifTrue:[
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7534	perLanguageResources := nil.
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	7535	].
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	7536
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7537	perLanguageResources isNil ifTrue:[
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7538	perLanguageResources := Dictionary new.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7539
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7540	"/ short languages.rs file present?
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7541	rsc := ResourcePack forPackage:'stx:libtool' resourceFileName:'languages.rs' cached:false.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7542	readLanguagesFile := rsc notNil and:[(rsc at:#languageFileExists ifAbsent:false) == true].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7543
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7544	listOfLanguageKeys do:[:eachLang \|
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7545	savedLanguage := Smalltalk language.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7546	savedLanguageTerritory := Smalltalk languageTerritory.
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7547	readLanguagesFile ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7548	ResourcePack flushCachedResourcePacks.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7549	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7550
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7551	[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7552	\|rsc lang terr\|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7553
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7554	lang := terr := eachLang.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7555	(lang includes:$_) ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7556	terr := lang copyFrom:4.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7557	lang := lang copyTo:2.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7558	].
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7559	Smalltalk setLanguage:lang asSymbol territory:terr asSymbol.
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7560	readLanguagesFile ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7561	rsc := ResourcePack forPackage:'stx:libtool' resourceFileName:'languages.rs' cached:false.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7562	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7563	rsc := ResourcePack for:(self class) cached:false.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7564	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7565	perLanguageResources at:eachLang asSymbol put:rsc.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7566	] ensure:[
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7567	Smalltalk setLanguage:savedLanguage territory:savedLanguageTerritory.
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7568	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7569	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7570	readLanguagesFile ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7571	ResourcePack flushCachedResourcePacks.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7572	].
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7573	].
7295 1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	7574
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	7575	enResources := perLanguageResources at:#en ifAbsent:[perLanguageResources at:#'en_us'].
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	7576
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7577	enLanguages :=
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7578	listOfLanguageKeys
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7579	collect:[:lang \|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7580	\|item\|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7581
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7582	item := enResources at:('LANG_' , lang) default:nil.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7583	item isNil ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7584	lang
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7585	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7586	item isString ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7587	item
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7588	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7589	item at:1
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7590	]
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7591	]
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7592	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7593
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7594	nativeLanguages :=
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7595	listOfLanguageKeys
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7596	collect:[:lang \|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7597	\|item enLang\|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7598
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7599	item := enResources at:('LANG_' , lang) default:nil.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7600	item isNil ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7601	enLang := lang
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7602	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7603	item isString ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7604	enLang := item
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7605	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7606	enLang := item at:1
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7607	]
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7608	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7609	item := (perLanguageResources at:lang asSymbol ifAbsent:enResources) at:enLang default:enLang.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7610	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7611
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7612	languages :=
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7613	enLanguages
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7614	collect:[:enLang \|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7615	\|item\|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7616
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7617	item := resources at:enLang default:enLang.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7618	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7619
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7620	flags :=
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7621	listOfLanguageKeys
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7622	collect:[:lang \|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7623	\|item coll\|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7624
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7625	item := resources at:('FLAG_' , lang) default:nil.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7626	item notNil ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7627	item
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7628	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7629	coll := lang asCollectionOfSubstringsSeparatedBy:$_.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7630	(coll size > 1
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7631	and:[(item := resources at:('FLAG_' , coll last) default:nil) notNil])
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7632	ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7633	item
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7634	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7635	item := resources string:('LANG_' , lang).
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7636	item isArray ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7637	item at:2
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7638	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7639	nil
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7640	]
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7641	]
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7642	]
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7643	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7644
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7645	flags :=
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7646	flags
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7647	collect:[:nm \|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7648	\|img d fn\|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7649
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7650	nm notNil ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7651	img := Image fromFile:nm.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7652	img isNil ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7653	d := Smalltalk getPackageDirectoryForPackage:'stx:goodies'.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7654	(d notNil and:[ (fn := d construct:nm) exists]) ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7655	img := Image fromFile:fn.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7656	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7657	('LanguageSettings [info]: missing flags file: ',nm) infoPrintCR.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7658	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7659	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7660	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7661	nil
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7662	]
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7663	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7664
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7665
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7666	translatedLanguages :=
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7667	(1 to:languages size)
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7668	collect:[:idx \|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7669	\|lang englishLang nativeLang s\|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7670
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7671	lang := languages at:idx.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7672	englishLang := enLanguages at:idx.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7673	nativeLang := nativeLanguages at:idx.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7674
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7675	s := nativeLang.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7676	englishLang ~= nativeLang ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7677	s := s , ' / ' , englishLang
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7678	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7679	(lang ~= nativeLang and:[lang ~= englishLang]) ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7680	s := s , ' / ' , lang
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7681	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7682	s
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7683	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7684
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7685	languageList := translatedLanguages
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7686	with:flags
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7687	collect:[:lang :flag \| LabelAndIcon icon:flag string:lang.].
7295 1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	7688
1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	7689	"Modified: / 18-09-2006 / 19:23:39 / cg"
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	7690	!
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	7691
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	7692	postBuildHelpLabel:aWidget
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	7693	aWidget level:0.
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	7694	aWidget scrolledView backgroundColor:self window viewBackground.
14568 6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7695	aWidget font:(Label defaultFont).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7696	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7697
19494 a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7698	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'private'!
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7699
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7700	setCurrentLanguageLabel
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7701	currentLanguageLabel value: (resources string:'Current Language:')
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7702	!
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7703
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7704	setNoticeLabel
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7705	noticeLabelHolder
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7706	value: ((resources at:'LANG_MSG' default:'Select a Language') withCRs).
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7707	! !
a6253a3d0a45 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19493 diff changeset	7708
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7709	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7710
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7711	currentLanguage
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7712	^ languageList at:(self currentLanguageIndex)
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7713	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7714
8458 56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	7715	currentLanguageCode
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	7716	^ listOfLanguages at:(self currentLanguageIndex)
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	7717	!
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	7718
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7719	currentLanguageIndex
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7720	\| lang terr langIdx \|
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7721
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7722	lang := Smalltalk language.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7723	terr := Smalltalk languageTerritory.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7724
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7725	(lang ~= terr) ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7726	langIdx := listOfLanguages indexOf:(lang , '-' , terr) ifAbsent:nil.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7727	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7728	langIdx isNil ifTrue:[
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7729	langIdx := listOfLanguages indexOf:lang ifAbsent:nil.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7730	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7731	langIdx isNil ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7732	langIdx := listOfLanguages indexOf:'en' ifAbsent:nil.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7733	langIdx isNil ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7734	langIdx := listOfLanguages indexOf:'en-us' ifAbsent:nil.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7735
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7736	langIdx isNil ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7737	langIdx := 1.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7738	]
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7739	]
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7740	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7741	^ langIdx
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7742	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7743
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7744	hasUnsavedChanges
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7745	useSystemLanguageHolder value ~= currentUserPrefs useSystemLanguage ifTrue:[^ true].
9559 314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	7746	^ languageIndexHolder value ~= self currentLanguageIndex
7427 2f024ec17c7b * empty log message * Claus Gittinger <cg@exept.de> parents: 7385 diff changeset	7747
2f024ec17c7b * empty log message * Claus Gittinger <cg@exept.de> parents: 7385 diff changeset	7748	"Modified: / 17-10-2006 / 17:51:09 / cg"
9559 314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	7749	"Modified: / 24-08-2010 / 18:50:11 / sr"
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7750	!
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7751
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7752	quickSearchStrings
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7753	"keywords to match in the quickSearch.
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7754	Notice that both the word and its current language translation is matched against
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7755	the text in the quick search field"
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7756
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7757	^ super quickSearchStrings
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7758	addAll:#('language' 'english');
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7759	yourself
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7760	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7761
12409 fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7762	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'help specs'!
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7763
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	7764	helpSpec
12409 fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7765	"This resource specification was automatically generated
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7766	by the UIHelpTool of ST/X."
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7767
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7768	"Do not manually edit this!! If it is corrupted,
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7769	the UIHelpTool may not be able to read the specification."
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7770
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7771	"
17514 b6a7d15d5e8d #OTHER by mawalch mawalch parents: 17453 diff changeset	7772	UIHelpTool openOnClass:AbstractSettingsApplication::MemorySettingsAppl
12409 fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7773	"
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7774
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7775	<resource: #help>
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7776
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	7777	^ super helpSpec addPairsFrom:#(
12409 fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7778
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7779	#codeLimit
17514 b6a7d15d5e8d #OTHER by mawalch mawalch parents: 17453 diff changeset	7780	'Flush dynamic compiled code to stay within this limit (never flush, if 0 or blank).\Because most of ST/X''s code is precompiled anyway (in contrast to other Smalltalk and Java systems),\this only affects code which is dynamically generated at execution time.\So a code limit is usually not needed/useful at all, and disabled by default'
12409 fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7781
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7782	#codeTrigger
16144 d52edd3811bc #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16143 diff changeset	7783	'Start incremental background GC whenever this amount of dynamic jitted code has been allocated.\This can be adjusted to reclaim unused dynamically generated jitted code earlier.\Only useful if an applications generates big amounts of throw-away/execute once methods,\which gest jitted and are unreferenced soon afterwards'
12409 fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7784
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7785	#compressLimit
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	7786	'Use slower 2-pass compressing GC if > 0 and more memory is in use.\This compressing oldspace GC strategy is blocking and freezes the system for a noticable time period.\It is therefore disabled by default and should be regarded as a last-chance option when memory gets very fragmented.\Long running applications may want to trigger such compacting GCs explicitely at know-to-be-ok times (midnight or weekend)'
12409 fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7787
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7788	#fastMoreLimit
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	7789	'Quickly allocate more memory (suppress GC) up to this limit.\If non-zero, the memory manager will allocate more virtual memory instead of performing a full garbage collect,\as long as less than this amount has been allocated. If zero, it will allocate up to the maximum without a full collect\(which is ok, as long as the background collector can keep up with the allocation rate).'
12409 fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7790
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7791	#igcFreeAmount
16144 d52edd3811bc #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16143 diff changeset	7792	'Try to keep this amount of free space for peak requests.\If after an incremental GC cycle, less than this amount is found to be free,\more virtual memory is allocated to ensure this amount is available.\This prepares the memory system for future short peak memory requests, and avoids blocking then'
12409 fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7793
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7794	#igcFreeLimit
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7795	'Start incremental background GC whenever freespace drops below this'
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7796
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7797	#igcLimit
13041 f99a2405835e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13010 diff changeset	7798	'Start incremental background GC whenever this amount has been allocated in oldSpace since last GC'
12409 fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7799
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7800	#maxOldSpace
16144 d52edd3811bc #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16143 diff changeset	7801	'Never allocate more than this amount of memory (oldSpace limit).\Having a limit here prevents runaway programs from allocating virtually unlimited amounts of memory.\That could lead to thrashing the virtual memory system and make the whole system useless.\Notice that on 32bit systems, there is an implementation and OS dependent upper limit on this maximum.\Also notice, that your paging disk space must be big enough (Windows users must be especially careful)'
12409 fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7802
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7803	#methodCodeSizeLimit
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7804	'Do not JIT, if an individual method''s code size exceeds this'
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7805
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7806	#newSpaceSize
16143 93dfa902272a #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16125 diff changeset	7807	'Size of the space where new objects are created (newSpace).\The size determines the worst-case pause time of a scavenge operation.\For servers or other request-processing applications, a bigger newSpace will dramatically reduce the GC overhead (to almost 0%).\For interactive applications, a smaller newSpace reduces the worst case pause times.\Useful values are between 800KiB to 64MiB'
12409 fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7808
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7809	#oldIncr
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7810	'Increase oldSpace in chunks of this size'
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7811
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7812	#stackLimit
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7813	'Trigger a recursionInterrupt exception if more stack is used by a process'
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7814
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7815	)
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7816	! !
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7817
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7818	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7819
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7820	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	7821	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	7822
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	7823	^ ToolbarIconLibrary memoryIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7824	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7825
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7826	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7827
5433 f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7828	windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7829	"This resource specification was automatically generated
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7830	by the UIPainter of ST/X."
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7831
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7832	"Do not manually edit this!! If it is corrupted,
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7833	the UIPainter may not be able to read the specification."
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7834
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7835	"
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7836	UIPainter new openOnClass:AbstractSettingsApplication::MemorySettingsAppl andSelector:#windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7837	AbstractSettingsApplication::MemorySettingsAppl new openInterface:#windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7838	AbstractSettingsApplication::MemorySettingsAppl open
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7839	"
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7840
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7841	<resource: #canvas>
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7842
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7843	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	7844	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	7845	name: windowSpec
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7846	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	7847	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7848	label: 'Memory Manager Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7849	name: 'Memory Manager Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7850	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7851	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7852	bounds: (Rectangle 0 0 705 722)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7853	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7854	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	7855	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7856	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7857	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7858	label: 'Label'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7859	name: 'Label1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7860	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 50 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7861	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7862	labelChannel: warningLabelHolder
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7863	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7864	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7865	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7866	name: 'VerticalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7867	layout: (LayoutFrame 0 0.0 50 0 0 1.0 0 1.0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7868	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7869	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7870	horizontalSpace: 0
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7871	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7872	ignoreInvisibleComponents: true
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7873	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7874	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7875	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7876	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7877	label: 'Limits:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7878	name: 'Label54'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7879	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7880	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7881	extent: (Point 705 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7882	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7883	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7884	name: 'StackLimitBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7885	activeHelpKey: stackLimit
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7886	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7887	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7888	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7889	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7890	label: 'Stack Limit:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7891	name: 'Label38'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7892	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7893	activeHelpKey: stackLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7894	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7895	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7896	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7897	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7898	name: 'EntryField20'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7899	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7900	activeHelpKey: stackLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7901	enableChannel: supportsJustInTimeCompilation
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7902	model: stackLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7903	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7904	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7905	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7906	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7907	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7908	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7909	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7910	label: '(Trigger recursionInterrupt if more stack is used by a process)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7911	name: 'Label39'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7912	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7913	activeHelpKey: stackLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7914	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7915	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7916	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7917	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7918
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7919	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7920	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7921	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7922	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7923	name: 'NewSpaceSizeBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7924	activeHelpKey: newSpaceSize
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7925	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7926	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7927	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7928	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7929	label: 'Size of NewSpace:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7930	name: 'Label44'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7931	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7932	activeHelpKey: newSpaceSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7933	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7934	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7935	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7936	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7937	name: 'EntryField23'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7938	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7939	activeHelpKey: newSpaceSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7940	model: newSpaceSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7941	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7942	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7943	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7944	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7945	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7946	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7947	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7948	label: '(Size of Space where new objects are created)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7949	name: 'Label45'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7950	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7951	activeHelpKey: newSpaceSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7952	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7953	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7954	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7955	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7956
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7957	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7958	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7959	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7960	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7961	name: 'MaximumMemoryLimitBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7962	activeHelpKey: maxOldSpace
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7963	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7964	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7965	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7966	(LabelSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7967	label: 'Maximum Memory Limit:'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7968	name: 'Label46'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7969	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7970	activeHelpKey: maxOldSpace
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7971	translateLabel: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7972	adjust: right
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7973	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7974	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7975	name: 'EntryField24'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7976	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7977	activeHelpKey: maxOldSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7978	model: maxOldSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7979	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7980	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7981	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7982	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7983	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7984	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7985	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7986	label: '(Never allocate more than this amount of memory)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7987	name: 'Label47'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7988	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7989	activeHelpKey: maxOldSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7990	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7991	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7992	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7993	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7994
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7995	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7996	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7997	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7998	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7999	name: 'QuickAllocationLimitBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8000	activeHelpKey: fastMoreLimit
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8001	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8002	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8003	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8004	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8005	label: 'Quick Allocation Limit:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8006	name: 'Label26'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8007	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8008	activeHelpKey: fastMoreLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8009	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8010	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8011	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8012	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8013	name: 'EntryField14'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8014	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8015	activeHelpKey: fastMoreLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8016	model: fastMoreLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8017	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8018	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8019	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8020	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8021	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8022	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8023	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8024	label: '(Quickly allocate more memory (suppress GC) up to this limit)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8025	name: 'Label27'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8026	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8027	activeHelpKey: fastMoreLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8028	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8029	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8030	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8031	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8032
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8033	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8034	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8035	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8036	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8037	name: 'OldspaceIncrementBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8038	activeHelpKey: oldIncr
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8039	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8040	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8041	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8042	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8043	label: 'Oldspace Increment:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8044	name: 'Label34'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8045	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8046	activeHelpKey: oldIncr
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8047	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8048	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8049	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8050	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8051	name: 'EntryField18'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8052	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8053	activeHelpKey: oldIncr
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8054	model: oldIncr
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8055	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8056	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8057	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8058	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8059	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8060	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8061	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8062	label: '(Increase oldSpace in chunks of this size)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8063	name: 'Label35'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8064	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8065	activeHelpKey: oldIncr
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8066	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8067	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8068	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8069	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8070
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8071	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8072	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8073	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8074	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8075	name: 'OldSpaceCompressLimitBox'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8076	activeHelpKey: compressLimit
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8077	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8078	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8079	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8080	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8081	label: 'Oldspace Compress Limit:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8082	name: 'Label36'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8083	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8084	activeHelpKey: compressLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8085	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8086	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8087	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8088	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8089	name: 'EntryField19'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8090	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8091	activeHelpKey: compressLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8092	model: compressLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8093	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8094	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8095	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8096	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8097	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8098	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8099	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8100	label: '(Use 2-pass compressing GC if > 0 and more memory is in use)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8101	name: 'Label37'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8102	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8103	activeHelpKey: compressLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8104	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8105	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8106	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8107	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8108
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8109	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8110	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8111	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8112	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8113	name: 'CodeLimitBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8114	activeHelpKey: codeLimit
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8115	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8116	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8117	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8118	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8119	label: 'Dynamic code Limit:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8120	name: 'Label40'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8121	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8122	activeHelpKey: codeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8123	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8124	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8125	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8126	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8127	name: 'EntryField21'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8128	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8129	activeHelpKey: codeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8130	enableChannel: supportsJustInTimeCompilation
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8131	model: codeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8132	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8133	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8134	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8135	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8136	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8137	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8138	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8139	label: '(Flush dynamic compiled code to stay within this limit)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8140	name: 'Label41'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8141	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8142	activeHelpKey: codeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8143	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8144	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8145	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8146	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8147
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8148	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8149	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8150	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8151	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8152	name: 'MethodSizeLimitBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8153	activeHelpKey: methodCodeSizeLimit
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8154	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8155	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8156	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8157	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8158	label: 'Method Code Size Limit:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8159	name: 'Label52'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8160	layout: (LayoutFrame 0 0 5 0 265 0 25 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8161	activeHelpKey: methodCodeSizeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8162	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8163	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8164	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8165	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8166	name: 'EntryField27'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8167	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8168	activeHelpKey: methodCodeSizeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8169	enableChannel: supportsJustInTimeCompilation
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8170	model: methodCodeSizeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8171	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8172	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8173	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8174	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8175	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8176	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8177	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8178	label: '(Do not JIT, if an individual method''s code size exceeds this)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8179	name: 'Label53'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8180	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8181	activeHelpKey: methodCodeSizeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8182	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8183	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8184	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8185	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8186
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8187	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8188	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8189	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8190	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8191	label: 'Triggers:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8192	name: 'Label55'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8193	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8194	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8195	extent: (Point 705 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8196	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8197	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8198	name: 'IncrementalGCAllocationTriggerBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8199	activeHelpKey: igcLimit
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8200	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8201	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8202	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8203	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8204	label: 'Incremental GC Allocation Trigger:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8205	name: 'Label48'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8206	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8207	activeHelpKey: igcLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8208	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8209	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8210	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8211	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8212	name: 'EntryField25'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8213	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8214	activeHelpKey: igcLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8215	model: igcLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8216	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8217	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8218	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8219	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8220	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8221	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8222	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8223	label: '(Start IGC whenever this has been newly allocated)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8224	name: 'Label49'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8225	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8226	activeHelpKey: igcLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8227	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8228	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8229	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8230	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8231
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8232	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8233	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8234	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8235	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8236	name: 'IncrementalGCFreespaceTriggerBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8237	activeHelpKey: igcFreeLimit
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8238	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8239	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8240	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8241	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8242	label: 'Incremental GC Freespace Trigger:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8243	name: 'Label50'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8244	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8245	activeHelpKey: igcFreeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8246	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8247	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8248	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8249	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8250	name: 'EntryField26'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8251	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8252	activeHelpKey: igcFreeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8253	model: igcFreeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8254	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8255	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8256	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8257	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8258	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8259	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8260	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8261	label: '(Start IGC whenever freespace drops below this)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8262	name: 'Label51'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8263	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8264	activeHelpKey: igcFreeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8265	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8266	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8267	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8268	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8269
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8270	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8271	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8272	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8273	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8274	name: 'CodeTriggerBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8275	activeHelpKey: codeTrigger
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8276	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8277	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8278	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8279	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8280	label: 'Incremental GC Dynamic Code Trigger:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8281	name: 'Label42'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8282	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8283	activeHelpKey: codeTrigger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8284	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8285	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8286	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8287	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8288	name: 'EntryField22'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8289	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8290	activeHelpKey: codeTrigger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8291	model: codeTrigger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8292	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8293	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8294	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8295	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8296	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8297	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8298	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8299	label: '(Start incremental GC whenever this amount of code has been allocated)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8300	name: 'Label43'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8301	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8302	activeHelpKey: codeTrigger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8303	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8304	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8305	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8306	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8307
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8308	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8309	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8310	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8311	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8312	name: 'GCAmountBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8313	activeHelpKey: igcFreeAmount
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8314	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8315	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8316	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8317	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8318	label: 'Incremental GC Amount:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8319	name: 'Label32'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8320	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8321	activeHelpKey: igcFreeAmount
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8322	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8323	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8324	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8325	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8326	name: 'EntryField17'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8327	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8328	activeHelpKey: igcFreeAmount
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8329	model: igcFreeAmount
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8330	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8331	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8332	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8333	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8334	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8335	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8336	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8337	label: '(Try to keep this amount for peak requests)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8338	name: 'Label33'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8339	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8340	activeHelpKey: igcFreeAmount
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8341	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8342	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8343	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8344	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8345
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8346	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8347	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8348	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8349	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8350
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8351	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8352	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8353	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8354
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	8355	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	8356	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8357	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8358
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8359	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8360
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8361	basicReadSettings
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	8362	self
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8363	readAspects:(self aspectsInObjectMemory)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8364	from:ObjectMemory.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8365
19495 f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8366	igcLimit value:ObjectMemory incrementalGCLimit.
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8367	igcFreeLimit value:ObjectMemory freeSpaceGCLimit.
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8368	igcFreeAmount value:ObjectMemory freeSpaceGCAmount.
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8369	oldIncr value:ObjectMemory oldSpaceIncrement.
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8370	compressLimit value:ObjectMemory oldSpaceCompressLimit.
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8371	codeLimit value:ObjectMemory dynamicCodeLimit.
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8372	codeTrigger value:ObjectMemory dynamicCodeGCTrigger.
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8373	methodCodeSizeLimit value:(ObjectMemory codeSizeLimitForDynamicCompilation:-1).
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8374	fastMoreLimit value:(ObjectMemory fastMoreOldSpaceLimit:-1).
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8375
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8376	stackLimit value:Process defaultMaximumStackSize.
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8377
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8378	"Modified: / 12-08-2010 / 15:34:24 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8379	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8380
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8381	basicSaveSettings
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	8382	self
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8383	writeAspects:(self aspectsInObjectMemory)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8384	to:ObjectMemory.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8385
19495 f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8386	ObjectMemory freeSpaceGCAmount:igcFreeAmount value.
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8387	ObjectMemory freeSpaceGCLimit:igcFreeLimit value.
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8388	ObjectMemory incrementalGCLimit:igcLimit value.
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8389	ObjectMemory oldSpaceIncrement:oldIncr value.
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8390	ObjectMemory fastMoreOldSpaceLimit:fastMoreLimit value.
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8391	ObjectMemory oldSpaceCompressLimit:compressLimit value.
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8392	ObjectMemory dynamicCodeLimit:codeLimit value.
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8393	ObjectMemory dynamicCodeGCTrigger:codeTrigger value.
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8394	ObjectMemory codeSizeLimitForDynamicCompilation:(methodCodeSizeLimit value).
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8395
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8396	Process defaultMaximumStackSize:stackLimit value.
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8397
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8398	"Modified: / 12-08-2010 / 15:34:47 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8399	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8400
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8401	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8402
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8403	aspectsInObjectMemory
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8404	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8405	newSpaceSize
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8406	maxOldSpace
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8407	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8408	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8409
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8410	codeLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8411	^ codeLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8412	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8413
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8414	codeTrigger
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8415	^ codeTrigger.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8416	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8417
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8418	compressLimit
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8419	^ compressLimit.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8420	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8421
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8422	fastMoreLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8423	^ fastMoreLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8424	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8425
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8426	igcFreeAmount
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8427	^ igcFreeAmount.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8428	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8429
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8430	igcFreeLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8431	^ igcFreeLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8432	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8433
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8434	igcLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8435	^ igcLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8436	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8437
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8438	maxOldSpace
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8439	^ maxOldSpace.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8440	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8441
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8442	methodCodeSizeLimit
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8443	^ methodCodeSizeLimit.
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8444
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8445	"Created: / 12-08-2010 / 15:31:56 / cg"
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8446	!
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8447
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8448	newSpaceSize
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8449	^ newSpaceSize.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8450	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8451
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8452	oldIncr
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8453	^ oldIncr.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8454	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8455
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8456	stackLimit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8457	^ stackLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8458	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8459
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8460	warningLabelHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8461	^ warningLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8462	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8463
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8464	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8465
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8466	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8467	^ 'Launcher/memorySettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8468	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8469
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8470	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8471
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8472	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	8473	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	8474
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8475	super initialize.
19495 f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8476
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8477	codeLimit := ValueHolder with:(ObjectMemory dynamicCodeLimit).
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8478	codeLimit onChangeSend:#updateModifiedChannel to:self.
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8479
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8480	codeTrigger := ValueHolder with:(ObjectMemory dynamicCodeGCTrigger).
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8481	codeTrigger onChangeSend:#updateModifiedChannel to:self.
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8482
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8483	compressLimit := ValueHolder with:(ObjectMemory oldSpaceCompressLimit).
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8484	compressLimit onChangeSend:#updateModifiedChannel to:self.
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8485
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8486	fastMoreLimit := ValueHolder with:(ObjectMemory fastMoreOldSpaceLimit:-1).
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8487	fastMoreLimit onChangeSend:#updateModifiedChannel to:self.
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8488
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8489	igcFreeAmount := ValueHolder with:(ObjectMemory freeSpaceGCAmount).
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8490	igcFreeAmount onChangeSend:#updateModifiedChannel to:self.
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8491
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8492	igcFreeLimit := ValueHolder with:(ObjectMemory freeSpaceGCLimit).
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8493	igcFreeLimit onChangeSend:#updateModifiedChannel to:self.
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8494
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8495	igcLimit := ValueHolder with:(ObjectMemory incrementalGCLimit).
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8496	igcLimit onChangeSend:#updateModifiedChannel to:self.
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8497
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8498	maxOldSpace := ValueHolder with:(ObjectMemory maxOldSpace).
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8499	maxOldSpace onChangeSend:#updateModifiedChannel to:self.
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8500
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8501	methodCodeSizeLimit := ValueHolder with:(ObjectMemory codeSizeLimitForDynamicCompilation:-1).
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8502	methodCodeSizeLimit onChangeSend:#updateModifiedChannel to:self.
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8503
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8504	newSpaceSize := ValueHolder with:(ObjectMemory newSpaceSize).
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8505	newSpaceSize onChangeSend:#updateModifiedChannel to:self.
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8506
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8507	oldIncr := ValueHolder with:(ObjectMemory oldSpaceIncrement).
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8508	oldIncr onChangeSend:#updateModifiedChannel to:self.
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8509
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8510	stackLimit := ValueHolder with:(Process defaultMaximumStackSize).
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8511	stackLimit onChangeSend:#updateModifiedChannel to:self.
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8512
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8513	warningLabelHolder :=
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8514	ValueHolder with:
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8515	(StringCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8516	with:(resources string:'Warning - invalid settings may result in failures or poor performance.')
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8517	with:(resources string:'You have been warned.') allBold
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8518	).
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	8519
19495 f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8520	"Modified: / 08-02-2017 / 00:30:20 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8521	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8522
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8523	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8524
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8525	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	8526	(self
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8527	hasChangedAspectIn:(self aspectsInObjectMemory)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8528	asComparedTo:ObjectMemory) ifTrue:[^ true].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8529
19495 f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8530	ObjectMemory freeSpaceGCAmount ~= igcFreeAmount value ifTrue:[^ true].
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8531	ObjectMemory freeSpaceGCLimit ~= igcFreeLimit value ifTrue:[^ true].
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8532	ObjectMemory incrementalGCLimit ~= igcLimit value ifTrue:[^ true].
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8533	ObjectMemory oldSpaceIncrement ~= oldIncr value ifTrue:[^ true].
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8534	(ObjectMemory fastMoreOldSpaceLimit:-1) ~= fastMoreLimit value ifTrue:[^ true].
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8535	ObjectMemory oldSpaceCompressLimit ~= compressLimit value ifTrue:[^ true].
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8536	ObjectMemory dynamicCodeLimit ~= codeLimit value ifTrue:[^ true].
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8537	ObjectMemory dynamicCodeGCTrigger ~= codeTrigger value ifTrue:[^ true].
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8538	(ObjectMemory codeSizeLimitForDynamicCompilation:-1) ~= methodCodeSizeLimit value ifTrue:[^ true].
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8539
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8540	Process defaultMaximumStackSize ~= stackLimit value ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8541	^ false
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8542
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8543	"Modified: / 12-08-2010 / 15:33:12 / cg"
19495 f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8544	!
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8545
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8546	supportsJustInTimeCompilation
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8547
f95054ef3c84 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19494 diff changeset	8548	^ ObjectMemory supportsJustInTimeCompilation.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8549	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8550
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8551	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl class methodsFor:'help specs'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8552
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	8553	helpSpec
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8554	"This resource specification was automatically generated
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8555	by the UIHelpTool of ST/X."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8556
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8557	"Do not manually edit this!! If it is corrupted,
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8558	the UIHelpTool may not be able to read the specification."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8559
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8560	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8561	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8562	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8563
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8564	<resource: #help>
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8565
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	8566	^ super helpSpec addPairsFrom:#(
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8567
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8568	#dotNetBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8569	'The dotNet bridge extension allows transparent access and message sending to .NET classes and instances.'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8570
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8571	#smalltalkBridgeServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8572	'The smalltalk bridge server extension allows distributed processing\via transparent access and message sending from other ST/X systems.'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8573	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8574	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8575
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8576	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl class methodsFor:'image specs'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8577
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8578	defaultIcon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8579	"This resource specification was automatically generated
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8580	by the ImageEditor of ST/X."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8581
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8582	"Do not manually edit this!! If it is corrupted,
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8583	the ImageEditor may not be able to read the specification."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8584
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8585	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8586	self defaultIcon inspect
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8587	ImageEditor openOnClass:self andSelector:#defaultIcon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8588	Icon flushCachedIcons
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8589	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8590
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8591	<resource: #image>
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8592
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8593	^Icon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8594	constantNamed:'AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl defaultIcon'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8595	ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8596	@@!!8@@@@@@BG @@@!!1]P@@@@AWE8@@!!1 '' @@@BGFB^@!!1 5Q8@@BCFCUG !!DWQPH@@BDQMHD \QFA] @@@1DXE6X"DQ]VY&Y"HQE5I&@!!]QI&Y&XBEED"TG
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8597	]QD&Y&IPL5ERQ5 !!TV@@ACVBEQIF$REXP@@DX1HU!!@$''HXP@@@T2L!!!!@@GI(@@@@AVL&!!@@@UGP@@@@G]TM@@@@@P@@@@@A5A@@@@@@@@@@@@@@@@@@@@@@@
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8598	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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 width:22 height:22) bits:(ByteArray fromPackedString:'G@C O G0_0O8?8_<?(_<?8_<???<???<???<?8_<?8_<_0O8O G0O@G B@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'); yourself); yourself]
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8599	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8600
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8601	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl class methodsFor:'interface specs'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8602
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8603	windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8604	"This resource specification was automatically generated
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8605	by the UIPainter of ST/X."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8606
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8607	"Do not manually edit this!! If it is corrupted,
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8608	the UIPainter may not be able to read the specification."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8609
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8610	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8611	UIPainter new openOnClass:AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl andSelector:#windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8612	AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl new openInterface:#windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8613	AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl open
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8614	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8615
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8616	<resource: #canvas>
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8617
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8618	^
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8619	#(FullSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8620	name: windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8621	window:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8622	(WindowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8623	label: 'Communication Settings'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8624	name: 'Communication Settings'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8625	flags: 1
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8626	min: (Point 10 10)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8627	bounds: (Rectangle 0 0 738 671)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8628	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8629	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8630	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8631	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8632	(VerticalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8633	name: 'VerticalPanel1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8634	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8635	horizontalLayout: fit
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8636	verticalLayout: top
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8637	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8638	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8639	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8640	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8641	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8642	(FramedBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8643	label: '.NET Bridge'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8644	name: 'FramedBox1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8645	activeHelpKey: dotNetBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8646	labelPosition: topLeft
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8647	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8648	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8649	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8650	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8651	(VerticalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8652	name: 'VerticalPanel3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8653	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8654	horizontalLayout: left
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8655	verticalLayout: center
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8656	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8657	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8658	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8659	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8660	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8661	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8662	name: 'Box6'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8663	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8664	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8665	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8666	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8667	label: 'Verbose'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8668	name: 'CheckBox5'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8669	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8670	enableChannel: hasDotNetBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8671	model: dotNetBridgeVerbose
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8672	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8673	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8674	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8675
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8676	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8677	extent: (Point 696 25)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8678	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8679	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8680	name: 'Box7'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8681	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8682	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8683	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8684	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8685	label: 'Bridge Runs in IDE'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8686	name: 'CheckBox6'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8687	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8688	enableChannel: hasDotNetBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8689	model: dotNetBridgeRunsInIDE
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8690	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8691	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8692	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8693
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8694	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8695	extent: (Point 696 25)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8696	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8697	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8698
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8699	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8700	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8701	(ActionButtonSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8702	label: 'Close all Connections'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8703	name: 'Button1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8704	layout: (LayoutFrame -228 1 27 0 -3 1 49 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8705	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8706	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8707	model: closeAllDotNetConnections
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8708	enableChannel: hasDotNetBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8709	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8710	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8711
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8712	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8713	extent: (Point 738 92)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8714	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8715	(FramedBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8716	label: 'Smalltalk Bridge Server'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8717	name: 'FramedBox2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8718	activeHelpKey: smalltalkBridgeServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8719	labelPosition: topLeft
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8720	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8721	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8722	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8723	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8724	(VerticalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8725	name: 'VerticalPanel4'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8726	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8727	horizontalLayout: left
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8728	verticalLayout: center
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8729	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8730	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8731	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8732	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8733	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8734	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8735	name: 'Box8'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8736	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8737	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8738	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8739	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8740	label: 'Bridge Server Enabled'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8741	name: 'CheckBox7'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8742	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	8743	enableChannel: hasSmalltalkBridge
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8744	model: smalltalkBridgeEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8745	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8746	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8747	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8748
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8749	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8750	extent: (Point 696 25)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8751	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8752	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8753	name: 'Box9'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8754	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8755	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8756	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8757	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8758	label: 'Verbose'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8759	name: 'CheckBox8'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8760	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8761	enableChannel: hasSmalltalkBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8762	model: smalltalkBridgeVerbose
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8763	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8764	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8765	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8766
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8767	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8768	extent: (Point 696 25)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8769	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8770	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8771
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8772	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8773	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8774	(ActionButtonSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8775	label: 'Close all Connections'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8776	name: 'Button2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8777	layout: (LayoutFrame -228 1 27 0 -3 1 49 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8778	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8779	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8780	model: closeAllSmalltalkBridgeConnections
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8781	enableChannel: hasSmalltalkBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8782	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8783	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8784
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8785	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8786	extent: (Point 738 101)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8787	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8788	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8789
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8790	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8791	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8792	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8793
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8794	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8795	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8796	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8797
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8798	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl methodsFor:'actions'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8799
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8800	aspects
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8801	^ #(
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8802	smtpServerName
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8803	dotNetBridgeRunsInIDE
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8804	dotNetBridgeVerbose
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8805	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8806	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8807
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8808	basicReadSettings
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8809	super basicReadSettings.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8810
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8811	BRIDGE::SmalltalkBridge notNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8812	self smalltalkBridgeVerbose value:(BRIDGE::SmalltalkBridge verbose).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8813	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8814	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8815
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8816	basicSaveSettings
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8817	super basicSaveSettings.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8818
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8819	BRIDGE::SmalltalkBridge notNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8820	BRIDGE::SmalltalkBridge verbose:(self smalltalkBridgeVerbose value).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8821	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8822	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8823
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8824	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl methodsFor:'aspects'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8825
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8826	acceptChannel
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8827
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8828	acceptChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8829	acceptChannel := TriggerValue new.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8830	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8831	^ acceptChannel.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8832
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8833	"Created: / 12-11-2006 / 19:04:09 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8834	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8835
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8836	dotNetBridgeRunsInIDE
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8837
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8838	dotNetBridgeRunsInIDE isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8839	dotNetBridgeRunsInIDE := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8840	dotNetBridgeRunsInIDE onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8841	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8842	^ dotNetBridgeRunsInIDE.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8843	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8844
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8845	dotNetBridgeVerbose
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8846
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8847	dotNetBridgeVerbose isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8848	dotNetBridgeVerbose := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8849	dotNetBridgeVerbose onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8850	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8851	^ dotNetBridgeVerbose.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8852	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8853
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8854	hasDotNetBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8855	^ DOTNET::DotNet notNil and:[ DOTNET::DotNet isLoaded ].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8856	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8857
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8858	hasSmalltalkBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8859	^ BRIDGE::SmalltalkBridge notNil and:[ BRIDGE::SmalltalkBridge isLoaded ].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8860	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8861
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8862	smalltalkBridgeEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8863
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8864	smalltalkBridgeEnabled isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8865	smalltalkBridgeEnabled := false asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8866	smalltalkBridgeEnabled onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8867	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8868	^ smalltalkBridgeEnabled.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8869	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8870
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8871	smalltalkBridgeVerbose
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8872
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8873	smalltalkBridgeVerbose isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8874	smalltalkBridgeVerbose := false asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8875	smalltalkBridgeVerbose onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8876	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8877	^ smalltalkBridgeVerbose.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8878	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8879
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8880	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl methodsFor:'help'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8881
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8882	helpFilename
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8883	^ 'Launcher/communicationsSettings.html'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8884	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8885
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8886	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl methodsFor:'initialization & release'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8887
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8888	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	8889	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	8890
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8891	super initialize.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8892	self readSettings.
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	8893
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	8894	"Modified: / 08-02-2017 / 00:30:35 / cg"
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8895	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8896
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8897	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl methodsFor:'queries'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8898
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8899	hasRemoteBrowsingSupport
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8900
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8901	^ SmalltalkShareServer notNil
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8902	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8903
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8904	hasUnsavedChanges
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8905	(super hasUnsavedChanges) ifTrue:[^ true].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8906
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8907	BRIDGE::SmalltalkBridge notNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8908	BRIDGE::SmalltalkBridge verbose ~= (self smalltalkBridgeVerbose value) ifTrue:[^ true].
16466 59b8495a1650 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 16411 diff changeset	8909	BRIDGE::SmalltalkBridge defaultInstanceOrNil notNil ifTrue:[
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8910	(self smalltalkBridgeEnabled value) ifFalse:[^ true].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8911	] ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8912	(self smalltalkBridgeEnabled value) ifTrue:[^ true].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8913	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8914	] ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8915	(self smalltalkBridgeEnabled value) ifTrue:[^ true].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8916	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8917	^ false
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8918	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8919
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8920	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl methodsFor:'user actions'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8921
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8922	closeAllDotNetConnections
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8923	DOTNET::DotNet notNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8924	DOTNET::DotNet exitAllInstances
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8925	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8926	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8927
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8928	closeAllSmalltalkBridgeConnections
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8929	BRIDGE::SmalltalkBridge notNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8930	BRIDGE::SmalltalkBridge exitAllInstances
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8931	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8932	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8933
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	8934	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'help specs'!
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	8935
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	8936	helpSpec
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	8937	"This resource specification was automatically generated
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	8938	by the UIHelpTool of ST/X."
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	8939
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	8940	"Do not manually edit this!! If it is corrupted,
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	8941	the UIHelpTool may not be able to read the specification."
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	8942
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	8943	"
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	8944	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	8945	"
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	8946
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	8947	<resource: #help>
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	8948
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	8949	^ super helpSpec addPairsFrom:#(
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	8950
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	8951	#smtpServer
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	8952	'The host name of your SMTP (mail transfer) server.\This is only needed for the debugger''s "Send Error Report via Mail" menu function,\so you can leave this empty if you don''t need or want this function'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	8953
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	8954	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	8955	! !
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	8956
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8957	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8958
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8959	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8960	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8961	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8962
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8963	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8964	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8965
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8966	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8967	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8968	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8969	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8970	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8971
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8972	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8973
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8974	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	8975	constantNamed:'AbstractSettingsApplication::MiscCommunicationSettingsAppl defaultIcon'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	8976	ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
4949 a34c379465a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4948 diff changeset	8977	@@!!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	8978	]QD$Q5IVI5ERQ5 !!TVPW]BUBEQIF$REXPT^FY1HV!!@$''HXPXIWU"]!!!!%@GI(BAFGUV\&!!FT@UGQ"PQEW^D]EYP@@PFHHETU5A@U%@@@@I@BGTRT@U%@@@@AH
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	8979	P"DQ]PU%@@@@@EBUHQU5U%@@@@@@@B !!YHU%@@@@@@@E@ UFY%@@@@@@@@APIH@@@@@@@@@@@@T@@@@@@@@b')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	8980	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]
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	8981	mask:((ImageMask width:22 height:22) 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	8982	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	8983
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8984	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8985
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8986	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8987	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8988	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8989
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8990	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8991	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8992
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8993	"
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	8994	UIPainter new openOnClass:AbstractSettingsApplication::MiscCommunicationSettingsAppl andSelector:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	8995	AbstractSettingsApplication::MiscCommunicationSettingsAppl new openInterface:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	8996	AbstractSettingsApplication::MiscCommunicationSettingsAppl open
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	8997	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8998
933cd54deefe checkin from browser penk parents: 4292 diff changeset	8999	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9000
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9001	^
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	9002	#(FullSpec
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	9003	name: windowSpec
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9004	window:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	9005	(WindowSpec
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9006	label: 'Communication Settings'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9007	name: 'Communication Settings'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9008	flags: 1
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9009	min: (Point 10 10)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	9010	bounds: (Rectangle 0 0 738 671)
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9011	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9012	component:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	9013	(SpecCollection
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9014	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9015	(VerticalPanelViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9016	name: 'VerticalPanel1'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9017	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9018	horizontalLayout: fit
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9019	verticalLayout: top
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9020	horizontalSpace: 3
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9021	verticalSpace: 3
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9022	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9023	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9024	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9025	(FramedBoxSpec
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9026	label: 'SMTP (Mail) Server'
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9027	name: 'SMTPServerBox1'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9028	activeHelpKey: smtpServer
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9029	labelPosition: topLeft
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9030	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9031	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9032	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9033	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9034	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9035	name: 'Box5'
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9036	layout: (LayoutFrame 0 0 10 0 0 1 35 0)
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9037	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9038	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9039	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9040	(LabelSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9041	label: 'SMTP Server:'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9042	name: 'SMTPLabel'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9043	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9044	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9045	adjust: right
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9046	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9047	(InputFieldSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9048	name: 'SMTPServer'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9049	layout: (LayoutFrame 150 0 0 0 400 0 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9050	model: smtpServerName
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9051	acceptOnReturn: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9052	acceptOnTab: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9053	acceptOnLostFocus: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9054	acceptOnPointerLeave: false
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9055	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9056	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9057
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9058	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9059	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9060	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9061
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9062	)
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9063	extent: (Point 738 81)
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9064	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9065	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9066
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9067	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9068	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9069	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9070
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	9071	)
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	9072	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9073	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9074
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9075	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9076
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9077	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9078	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9079	smtpServerName
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9080	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9081	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9082
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9083	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9084
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9085	acceptChannel
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9086
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9087	acceptChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9088	acceptChannel := TriggerValue new.
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9089	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9090	^ acceptChannel.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9091
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9092	"Created: / 12-11-2006 / 19:04:09 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9093	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9094
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9095	smtpServerName
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9096
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9097	smtpServerName isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9098	smtpServerName := '' asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9099	smtpServerName onChangeSend:#updateModifiedChannel to:self.
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9100	].
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9101	^ smtpServerName.
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9102
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9103	"Created: / 20-09-2007 / 16:04:39 / cg"
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9104	! !
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9105
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9106	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9107
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9108	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9109	^ 'Launcher/communicationsSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9110	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9111
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9112	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9113
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9114	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9115	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9116
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9117	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9118	self readSettings.
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9119
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9120	"Modified: / 08-02-2017 / 00:30:26 / cg"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9121	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9122
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9123	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9124
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9125	hasUnsavedChanges
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9126	(super hasUnsavedChanges) ifTrue:[^ true].
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9127	^ false
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9128
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9129	"Modified: / 20-09-2007 / 16:04:56 / cg"
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9130	! !
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9131
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9132	!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'constants'!
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9133
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9134	registryValueForHighDpiAware
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9135	^ '~HIGHDPIAWARE'
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9136
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9137	"Created: / 28-11-2019 / 10:17:10 / Stefan Reise"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9138	!
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9139
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9140	regitsryValueForHighDpiUnAware
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9141	^ '~DPIUNAWARE'
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9142
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9143	"Created: / 28-11-2019 / 10:20:11 / Stefan Reise"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9144	! !
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9145
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9146	!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'documentation'!
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9147
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9148	documentation
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9149	"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9150	documentation to be added.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9151
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9152	class:
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9153	<a short class summary here, describing what instances represent>
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9154
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9155	responsibilities:
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9156	<describing what my main role is>
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9157
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9158	collaborators:
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9159	<describing with whom and how I talk to>
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9160
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9161	API:
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9162	<public api and main messages>
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9163
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9164	example:
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9165	<a one-line examples on how to use - can also be in a separate example method>
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9166
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9167	implementation:
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9168	<implementation points>
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9169
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9170	[author:]
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9171	Stefan Reise
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9172
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9173	[instance variables:]
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9174
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9175	[class variables:]
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9176
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9177	[see also:]
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9178
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9179	"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9180	!
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9181
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9182	examples
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9183	"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9184	Notice that everything between [exBegin] and [exEnd] is extracted by the html-doc generator
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9185	to create nicely formatted and clickable executable examples in the generated html-doc.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9186	(see the browser's class-documentation menu items for more)
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9187
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9188	opening the application:
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9189	[exBegin]
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9190	AbstractSettingsApplication::MiscDisplay2SettingsAppl open
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9191	[exEnd]
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9192
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9193	opening the application on some model:
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9194	[exBegin]
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9195	AbstractSettingsApplication::MiscDisplay2SettingsAppl openOn:aModel
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9196	[exEnd]
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9197	"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9198	! !
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9199
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9200	!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'help specs'!
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9201
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	9202	helpSpec
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9203	"This resource specification was automatically generated
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9204	by the UIHelpTool of ST/X."
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9205
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9206	"Do not manually edit this!! If it is corrupted,
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9207	the UIHelpTool may not be able to read the specification."
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9208
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9209	"
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9210	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplay2SettingsAppl
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9211	"
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9212
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9213	<resource: #help>
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9214
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	9215	^ super helpSpec addPairsFrom:#(
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9216
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9217	#cartoonToolTipStyle
19328 db0d7c4cf619 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 19314 diff changeset	9218	'Choose between normal and cartoon mode when showing tooltips.\Disabled for non-X11 displays'
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9219
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9220	#lowerOnRightClickInTitle
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9221	'When right-clicking into a window''s title/caption area, lower the window.\(Windows operating system ony)'
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9222
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9223	#lowerOnShiftClickInTitle
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9224	'When shift-clicking into a window''s title/caption area, lower the window.\(Windows operating system ony)'
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9225
19311 53e8a613a407 #REFACTORING by Stefan Reise sr parents: 19309 diff changeset	9226	#markThisApplicationAsHighDpiAwareHelp
53e8a613a407 #REFACTORING by Stefan Reise sr parents: 19309 diff changeset	9227	''
53e8a613a407 #REFACTORING by Stefan Reise sr parents: 19309 diff changeset	9228
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9229	#nativeDialogs
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9230	'Use native dialogs if possible (WarnBox, InformationBox, etc.)\(Windows operating system ony)'
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9231
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9232	#nativeFileDialogs
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9233	'Use native file dialogs if possible (Load- and Save Dialogs)\(Windows operating system ony)'
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9234
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9235	#nativeWidgets
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9236	'Use native widgets if possible (Scrollbars, Checktoggles, etc.)\Experimental and unfinished.\(Windows operating system ony)'
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9237
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9238	#opaqueTableColumnResizing
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9239	'When moving a table-view''s column splitter handle, immediately resize the columns.\Otherwise, show a dashed resize line above the view and resize when the mouse button is released.\Uncheck on a slow machine and/or a slow graphics engine'
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9240
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9241	#opaqueVariablePanelResizing
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9242	'When moving a variable panels splitter handle, immediately resize the components.\Otherwise, show a dashed resize line above the view and resize when the mouse button is released.\Uncheck on a slow machine and/or a slow graphics engine'
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9243
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9244	#shadows
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9245	'Simulate shadows under popup menus and dialogs (by greyShading).\No longer needed, as modern systems nowadays do it automatically for us.'
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9246
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9247	#suppressScalingByWindowsHelp
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9248	''
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9249
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9250	)
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9251	! !
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9252
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9253	!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'helpers'!
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9254
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9255	applyMarkThisApplicationAsHighDpiAware:aBoolean
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9256	\|markThisApplicationAsHighDpiAware\|
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9257
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9258	markThisApplicationAsHighDpiAware := aBoolean.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9259	markThisApplicationAsHighDpiAware = self isHighDpiAwareSetInRegistry ifFalse:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9260	markThisApplicationAsHighDpiAware ifTrue:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9261	self setHighDpiAware.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9262	] ifFalse:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9263	self unsetHighDpiAware.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9264	].
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9265	].
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9266
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9267	"Created: / 28-11-2019 / 10:30:20 / Stefan Reise"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9268	!
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9269
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9270	commonSetDpiAwareModeForExpeccoBinaries:dpiAwareMode
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9271	\|currentBinary otherBinary
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9272	registryKeyForDpiAware\|
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9273
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9274	currentBinary := OperatingSystem pathOfSTXExecutable asFilename.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9275	currentBinary suffix asLowercase = 'exe' ifTrue:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9276	otherBinary := currentBinary withSuffix:'com'.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9277	] ifFalse:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9278	otherBinary := currentBinary withSuffix:'exe'.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9279	].
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9280
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9281	registryKeyForDpiAware := self registryKeyForHighDpiAware.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9282	registryKeyForDpiAware isNil ifTrue:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9283	^ self
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9284	].
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9285
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9286	(Array
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9287	with:currentBinary
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9288	with:otherBinary) do:[:eachBinaryFilename \|
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9289	registryKeyForDpiAware
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9290	valueNamed:eachBinaryFilename nameString
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9291	put:dpiAwareMode.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9292	].
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9293
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9294	"Created: / 28-11-2019 / 10:19:50 / Stefan Reise"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9295	!
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9296
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9297	setHighDpiAware
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9298	"after set this key,
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9299	the next started stx/expecco instance will not be scaled by windows
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9300	you can check for success by inspect the binary properties
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9301	via windows context menu of the binary"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9302
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9303	"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9304	self unsetHighDpiAware.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9305	self isHighDpiAwareSetInRegistry.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9306	self setHighDpiAware.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9307	self isHighDpiAwareSetInRegistry.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9308	"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9309
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9310	self commonSetDpiAwareModeForExpeccoBinaries:self registryValueForHighDpiAware.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9311
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9312	"Created: / 28-11-2019 / 10:19:58 / Stefan Reise"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9313	!
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9314
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9315	unsetHighDpiAware
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9316	"after unset this key,
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9317	the next started stx/expecco instance will be scaled by windows
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9318	you can check for success by inspect the binary properties
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9319	via windows context menu of the binary"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9320
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9321	"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9322	self unsetHighDpiAware.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9323	self isHighDpiAwareSetInRegistry.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9324	self setHighDpiAware.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9325	self isHighDpiAwareSetInRegistry.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9326	"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9327
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9328	self commonSetDpiAwareModeForExpeccoBinaries:self regitsryValueForHighDpiUnAware.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9329
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9330	"Created: / 28-11-2019 / 10:20:09 / Stefan Reise"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9331	! !
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9332
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9333	!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'image specs'!
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9334
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9335	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9336	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9337	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9338
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9339	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9340	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9341
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9342	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9343	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9344	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9345	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9346	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9347
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9348	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9349
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9350	^Icon
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	9351	constantNamed:'AbstractSettingsApplication::MiscDisplay2SettingsAppl defaultIcon'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	9352	ifAbsentPut:[(Depth4Image new) width:22; height:22; bits:(ByteArray fromPackedString:'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	9353	@@@@@@@@@@@@@@@@@@@@@@@@@@@ H@@@@@@@@@@@@B@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@.;.;.;.;.;@@@@:<;]!!I&W3.,@@@C+3-6D&Y_N:0@@@N/%
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	9354	**DQ.>U[@@@@9,3L3L3LL3X@@@C&3L3L3L03M C2HN[L3L3L03L60@@@9,3L3L3CL3[@@ C&3L3L3LL3M @B@N[L3L3L03L6@@H@9,3L3L03L3X@?2C&3L3L
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	9355	3LL3M C2HN[L3L3LL3L6@OH 9&Y&Y&Y&Y&X@<"C.;.;.;.;.8@C?H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 0 96 128 100 100 100 224 224 224 16 128 160 128 128 128 80 80 80 0 96 144 16 128 176 0 112 152 16 112 144 0 80 120 240 240 240 16 144 192 192 192 192 255 255 0]; mask:((ImageMask new) width:22; height:22; bits:(ByteArray fromPackedString:'@@@@@@@8@@@8@@@P@@@P_?<P??<P??<P??<P??<8??=<???<??>8??<8??<8??=<??=<??=<??=<??9<@@@8@@@@') ; yourself); yourself]
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9356	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9357
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9358	!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9359
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9360	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9361	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9362	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9363
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9364	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9365	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9366
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9367	"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9368	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplay2SettingsAppl andSelector:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9369	AbstractSettingsApplication::MiscDisplay2SettingsAppl new openInterface:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9370	AbstractSettingsApplication::MiscDisplay2SettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9371	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9372
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9373	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9374
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9375	^
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9376	#(FullSpec
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9377	name: windowSpec
19311 53e8a613a407 #REFACTORING by Stefan Reise sr parents: 19309 diff changeset	9378	uuid: '3b27cbb6-2411-11b2-ac03-00d861106b7c'
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9379	window:
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9380	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9381	label: 'Display settings 2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9382	name: 'Display settings 2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9383	flags: 1
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9384	uuid: 'f780676e-235d-11b2-a955-00d861106b7c'
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9385	min: (Point 10 10) bounds: (Rectangle 0 0 671 591)
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9386	) component:
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9387	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9388	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9389	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9390	name: 'VerticalPanel1'
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9391	layout: (LayoutFrame 0 0 0 0 0 1 0 1) uuid: 'f7806994-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9392	horizontalLayout: fitSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9393	verticalLayout: topSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9394	horizontalSpace: 5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9395	verticalSpace: 3
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9396	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9397	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9398	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9399	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9400	label: 'Use Native Widgets (Experimental & Unfinished Feature)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9401	name: 'NativeWidgets'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9402	activeHelpKey: nativeWidgets
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9403	uuid: 'f7806b2e-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9404	enableChannel: displaySupportsNativeWidgets
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9405	model: nativeWidgets
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9406	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9407	extent: (Point 661 30)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9408	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9409	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9410	label: 'Use Native Dialogs (Experimental & Unfinished Feature)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9411	name: 'NativeDialogs'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9412	activeHelpKey: nativeDialogs
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9413	uuid: 'f7806cb4-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9414	enableChannel: displaySupportsNativeDialogs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9415	model: nativeDialogs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9416	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9417	extent: (Point 661 30)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9418	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9419	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9420	label: 'Use Native File Dialogs (Experimental & Unfinished Feature)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9421	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9422	activeHelpKey: nativeFileDialogs
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9423	uuid: 'f7806d40-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9424	enableChannel: displaySupportsNativeFileDialogs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9425	model: nativeFileDialogs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9426	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9427	extent: (Point 661 30)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9428	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9429	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9430	name: 'SeparatingSpace1'
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9431	uuid: 'f7806db8-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9432	extent: (Point 661 5)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9433	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9434	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9435	name: 'Separator1'
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9436	uuid: 'f7806eee-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9437	extent: (Point 661 4)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9438	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9439	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9440	name: 'SeparatingSpace2'
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9441	uuid: 'f7806fb6-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9442	extent: (Point 661 5)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9443	)
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9444	(CheckBoxSpec
19311 53e8a613a407 #REFACTORING by Stefan Reise sr parents: 19309 diff changeset	9445	label: 'Mark this Application as "High DPI Aware" (Requires Restart of this Application)'
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9446	name: 'CheckBox3'
19311 53e8a613a407 #REFACTORING by Stefan Reise sr parents: 19309 diff changeset	9447	activeHelpKey: markThisApplicationAsHighDpiAwareHelp
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9448	uuid: 'f7806e58-235d-11b2-a955-00d861106b7c'
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9449	enableChannel: operatingSystemIsWindowsLike
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9450	model: markThisApplicationAsHighDpiAwareHolder
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9451	translateLabel: true
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9452	extent: (Point 661 30)
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9453	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9454	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9455	label: 'Shadows under PopUp Views'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9456	name: 'shadows'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9457	activeHelpKey: shadows
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9458	uuid: 'f780701a-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9459	model: shadows
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9460	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9461	extent: (Point 661 30)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9462	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9463	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9464	label: 'Cartoon Tooltip Style'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9465	name: 'CheckBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9466	activeHelpKey: cartoonToolTipStyle
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9467	uuid: 'f7807088-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9468	enableChannel: displaySupportsArbitraryShapedViews
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9469	model: cartoonToolTipStyle
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9470	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9471	extent: (Point 661 30)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9472	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9473	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9474	label: 'Opaque Variable Panel Resizing'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9475	name: 'opaqueVariablePanelResize'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9476	activeHelpKey: opaqueVariablePanelResizing
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9477	uuid: 'f7807100-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9478	model: opaqueVariablePanelResizing
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9479	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9480	extent: (Point 661 30)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9481	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9482	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9483	label: 'Opaque Table Column Resizing'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9484	name: 'opaqueTableColumnResize'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9485	activeHelpKey: opaqueTableColumnResizing
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9486	uuid: 'f780716e-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9487	model: opaqueTableColumnResizing
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9488	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9489	extent: (Point 661 30)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9490	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9491	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9492	name: 'SeparatingSpace3'
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9493	uuid: 'f78071e6-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9494	extent: (Point 661 4)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9495	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9496	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9497	name: 'Separator3'
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9498	uuid: 'f7807236-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9499	extent: (Point 661 3)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9500	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9501	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9502	name: 'SeparatingSpace4'
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9503	uuid: 'f7807290-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9504	extent: (Point 661 3)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9505	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9506	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9507	label: 'Right-Click in Title brings Window to Back'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9508	name: 'lowerOnRightClickInTitle'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9509	activeHelpKey: lowerOnRightClickInTitle
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9510	uuid: 'f78072e0-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9511	enableChannel: isWindowsDisplay
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9512	model: lowerOnRightClickInTitle
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9513	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9514	extent: (Point 661 30)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9515	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9516	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9517	label: 'Shift-Click in Title brings Window to Back'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9518	name: 'lowerOnShiftClickInTitle'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9519	activeHelpKey: lowerOnShiftClickInTitle
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9520	uuid: 'f7807358-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9521	enableChannel: isWindowsDisplay
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9522	model: lowerOnShiftClickInTitle
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9523	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9524	extent: (Point 661 30)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9525	)
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9526	)
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9527	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9528	)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9529	)
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9530	)
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9531	)
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9532	! !
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9533
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9534	!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'queries'!
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9535
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9536	isHighDpiAwareSetInRegistry
19429 df1468183528 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 19428 diff changeset	9537	"query if stx/expecco is high dpi aware,
df1468183528 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 19428 diff changeset	9538	if not: windows does scale expecco's windows (looks ugly)
df1468183528 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 19428 diff changeset	9539	if yes: windows assumes that expecco does it"
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9540
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9541	"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9542	self isHighDpiAwareSetInRegistry
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9543	"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9544
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9545	\|registryKeyForHighDpiAware\|
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9546
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9547	registryKeyForHighDpiAware := self registryKeyForHighDpiAware.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9548	registryKeyForHighDpiAware isNil ifTrue:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9549	^ false
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9550	].
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9551
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9552	^ (registryKeyForHighDpiAware
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9553	valueNamed:OperatingSystem pathOfSTXExecutable)
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9554	= self registryValueForHighDpiAware
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9555
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9556	"Created: / 28-11-2019 / 10:24:14 / Stefan Reise"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9557	!
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9558
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9559	registryKeyForHighDpiAware
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9560	"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9561	self registryKeyForHighDpiAware
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9562	"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9563
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9564	OperatingSystem isMSWINDOWSlike ifFalse:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9565	^ nil
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9566	].
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9567
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9568	^ Win32OperatingSystem::RegistryEntry
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9569	key:'HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers'
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9570	createIfAbsent:true.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9571
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9572	"Created: / 28-11-2019 / 10:16:59 / Stefan Reise"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9573	!
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9574
19312 24bebdcf39ff #REFACTORING by Stefan Reise sr parents: 19311 diff changeset	9575	suppressScalingByWindowsHelpTextWithForView:aView
24bebdcf39ff #REFACTORING by Stefan Reise sr parents: 19311 diff changeset	9576	\|resources textLines isHighDpiAwareText currentSettingIsRecommended monitorScaleFactor\|
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9577
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9578	resources := self classResources.
19366 dc84f8fe0878 #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 19365 diff changeset	9579
19530 dd72f9732a3c #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 19529 diff changeset	9580	aView graphicsDevice isWindowsPlatform ifFalse:[
19366 dc84f8fe0878 #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 19365 diff changeset	9581	^ resources string:'This setting is only used with Windows displays'.
dc84f8fe0878 #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 19365 diff changeset	9582	].
dc84f8fe0878 #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 19365 diff changeset	9583
19530 dd72f9732a3c #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 19529 diff changeset	9584	monitorScaleFactor := aView topView monitorScaleFactor.
19312 24bebdcf39ff #REFACTORING by Stefan Reise sr parents: 19311 diff changeset	9585
19303 c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9586	textLines := OrderedCollection new.
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9587	textLines add:(resources string:'If the screen scaling factor (in windows display settings) is highter than 100%,').
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9588	textLines add:(resources string:'Windows automatically scales (via simple bitmap scaling) all applications, which are not marked as "high DPI aware".').
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9589	textLines add:(resources string:'Dependent on screen scaling factor, monitor physical size and resolution, those applications could be displayed blurry after being scaled by Windows.').
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9590	textLines add:''.
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9591	textLines add:(resources string:'Applications, which do mark themselves as "high DPI aware", will not being scaled by Windows at all, they have to care about high DPI issues by themself.').
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9592	textLines add:(resources string:'One issue would be to adjust the fonts, bitmaps and layouts according to the screen scaling factor.').
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9593	textLines add:''.
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9594	textLines add:(resources string:'This application does not yet care about all high DPI issues. Take note of the following recommendations:').
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9595	textLines add:(resources string:'* if the screen scaling factor is <= 150%, set ''mark this application as "high DPI aware"'', because then:').
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9596	textLines add:(resources string:' - this application will be displayed as clear as possible').
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9597	textLines add:(resources string:' - this application''s fonts, icons and layouts will be almost displayed as intended').
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9598	textLines add:(resources string:' - this application''s size ratio will almost match with the rest of the screen content').
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9599	textLines add:''.
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9600	textLines add:(resources string:'* if the screen scaling factor is > 150%, unset ''mark this application as "high DPI aware"'', because then:').
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9601	textLines add:(resources string:' - this application will be displayed clear enough (due to the high screen scaling factor you can assume the screen has a very high DPI value)').
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9602	textLines add:(resources string:' - this application''s fonts, icons and layouts will be displayed as intended').
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9603	textLines add:(resources string:' - this application''s size ratio will match with the rest of the screen content').
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9604
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9605	textLines add:''.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9606	textLines
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9607	add:((resources
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9608	string:'Current monitor scale factor: %1%%.')
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9609	bindWith:(monitorScaleFactor * 100) printString).
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9610
19529 952f1b112e7a #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 19527 diff changeset	9611	Screen current isHighDpiAware ifTrue:[
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9612	isHighDpiAwareText := 'This application is currently marked as "high DPI Aware".'.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9613	currentSettingIsRecommended := monitorScaleFactor <= 1.5.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9614	] ifFalse:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9615	isHighDpiAwareText := 'This application is currently not marked as "high DPI Aware".'.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9616	currentSettingIsRecommended := (monitorScaleFactor > 1.5) or:[monitorScaleFactor = 1].
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9617	].
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9618
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9619	textLines add:(resources string:isHighDpiAwareText).
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9620	textLines add:''.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9621
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9622	monitorScaleFactor = 1 ifTrue:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9623	textLines add:(resources string:'The ''mark this application as "high DPI aware"'' setting is currently irrelevant because there is no screen scaling set in windows display settings.').
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9624	] ifFalse:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9625	currentSettingIsRecommended ifTrue:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9626	textLines add:(resources string:'The current setup of screen scaling factor and this application''s "high DPI aware" markup is recommended. Don''t change this setting.').
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9627	] ifFalse:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9628	textLines add:(resources string:'The current setup of screen scaling factor and this application''s "high DPI aware" markup is not recommended. Please change this setting.').
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9629	].
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9630	].
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9631
19312 24bebdcf39ff #REFACTORING by Stefan Reise sr parents: 19311 diff changeset	9632	^ textLines asStringWith:Character cr
24bebdcf39ff #REFACTORING by Stefan Reise sr parents: 19311 diff changeset	9633
24bebdcf39ff #REFACTORING by Stefan Reise sr parents: 19311 diff changeset	9634	"Created: / 28-11-2019 / 10:58:19 / Stefan Reise"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9635	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9636
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9637	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'actions'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9638
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9639	basicReadSettings
9140 520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	9640	\|currentScreen\|
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	9641
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	9642	currentScreen := Screen current.
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	9643
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	9644	self
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9645	readAspects:
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9646	#(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9647	nativeWidgets
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9648	nativeDialogs
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9649	nativeFileDialogs
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9650	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9651	from:currentScreen.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9652
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9653	super basicReadSettings.
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9654
19496 f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9655	shadows value:PopUpView shadows.
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9656	cartoonToolTipStyle value: (currentUserPrefs toolTipShapeStyle == #cartoon).
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9657
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	9658	currentScreen isWindowsPlatform ifTrue:[
19496 f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9659	lowerOnRightClickInTitle value:(currentScreen rightButtonIsLowerWindow:nil).
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9660	lowerOnShiftClickInTitle value:(currentScreen shiftedLeftButtonIsLowerWindow:nil).
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9661	].
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9662
19365 f92a171d61d3 #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 19360 diff changeset	9663	"/ #markThisApplicationAsHighDpiAwareHolder is nil under linux/osx
f92a171d61d3 #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 19360 diff changeset	9664	markThisApplicationAsHighDpiAwareHolder notNil ifTrue:[
f92a171d61d3 #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 19360 diff changeset	9665	markThisApplicationAsHighDpiAwareHolder
f92a171d61d3 #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 19360 diff changeset	9666	value:self class isHighDpiAwareSetInRegistry
f92a171d61d3 #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 19360 diff changeset	9667	withoutNotifying:self.
f92a171d61d3 #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 19360 diff changeset	9668	]
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9669
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9670	"Modified: / 24-08-2010 / 16:43:39 / sr"
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9671	"Modified: / 28-11-2019 / 10:25:50 / Stefan Reise"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9672	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9673
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9674	basicSaveSettings
19496 f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9675	\|currentScreen mustReopenTools newVal\|
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9676
9140 520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	9677	mustReopenTools := false.
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	9678
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9679	currentScreen := Screen current.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9680
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9681	self displaySupportsNativeWidgets ifTrue:[
19496 f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9682	currentScreen nativeWidgets ~= (newVal := nativeWidgets value) ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9683	mustReopenTools := true.
19496 f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9684	currentScreen nativeWidgets:newVal.
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9685	currentUserPrefs nativeWidgets:newVal.
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9686	].
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9687	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9688	self displaySupportsNativeDialogs ifTrue:[
19496 f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9689	currentScreen nativeDialogs:nativeDialogs value.
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9690	currentUserPrefs nativeDialogs:nativeDialogs value.
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9691	].
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9692	self displaySupportsNativeFileDialogs ifTrue:[
19497 573a669fee3b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19496 diff changeset	9693	currentScreen nativeFileDialogs:nativeFileDialogs value.
573a669fee3b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19496 diff changeset	9694	currentUserPrefs nativeFileDialogs:nativeFileDialogs value.
573a669fee3b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19496 diff changeset	9695	].
573a669fee3b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19496 diff changeset	9696
573a669fee3b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19496 diff changeset	9697	currentUserPrefs toolTipShapeStyle:((cartoonToolTipStyle value)
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9698	ifTrue:[ #cartoon ]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9699	ifFalse:[ nil ]).
19496 f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9700	PopUpView shadows:shadows value.
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9701
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9702	super basicSaveSettings.
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9703
14745 7ac4401b840e class: AbstractSettingsApplication Stefan Vogel <sv@exept.de> parents: 14631 diff changeset	9704	currentScreen isWindowsPlatform ifTrue:[
19496 f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9705	currentScreen rightButtonIsLowerWindow:(lowerOnRightClickInTitle value).
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9706	currentScreen shiftedLeftButtonIsLowerWindow:(lowerOnShiftClickInTitle value).
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9707	].
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9708
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9709	mustReopenTools ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9710	self reopenToolsAfterChangedViewStyleSetting.
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9711	].
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9712
19365 f92a171d61d3 #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 19360 diff changeset	9713	"/ #markThisApplicationAsHighDpiAwareHolder is nil under linux/osx
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9714	markThisApplicationAsHighDpiAwareHolder notNil ifTrue:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9715	self class applyMarkThisApplicationAsHighDpiAware:markThisApplicationAsHighDpiAwareHolder value.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9716	].
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9717
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9718	"Modified: / 24-08-2010 / 17:27:25 / sr"
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9719	"Modified: / 28-11-2019 / 10:30:44 / Stefan Reise"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9720	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9721
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9722	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'aspects'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9723
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9724	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9725	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9726	opaqueVariablePanelResizing
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9727	opaqueTableColumnResizing
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9728	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9729
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9730	"Modified: / 24-08-2010 / 17:26:38 / sr"
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9731	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9732
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9733	cartoonToolTipStyle
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9734	^ cartoonToolTipStyle.
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9735	!
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9736
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9737	lowerOnRightClickInTitle
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9738	^ lowerOnRightClickInTitle.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9739	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9740
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9741	lowerOnShiftClickInTitle
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9742	^ lowerOnShiftClickInTitle.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9743	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9744
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9745	markThisApplicationAsHighDpiAwareHolder
19365 f92a171d61d3 #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 19360 diff changeset	9746	"warning: nil if not running on linux/osx"
f92a171d61d3 #BUGFIX by exept Claus Gittinger <cg@exept.de> parents: 19360 diff changeset	9747
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9748	^ markThisApplicationAsHighDpiAwareHolder
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9749
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9750	"Created: / 28-11-2019 / 10:31:05 / Stefan Reise"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9751	!
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9752
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9753	nativeDialogs
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9754	^ nativeDialogs.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9755	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9756
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9757	nativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9758	^ nativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9759
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9760	"Modified: / 24-08-2010 / 16:43:08 / sr"
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9761	!
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9762
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9763	nativeWidgets
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9764	^ nativeWidgets.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9765	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9766
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9767	opaqueTableColumnResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9768	^ opaqueTableColumnResize.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9769	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9770
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9771	opaqueVariablePanelResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9772	^ opaqueVariablePanelResize.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9773	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9774
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9775	shadows
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9776	^ shadows.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9777	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9778
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9779	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'help'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9780
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9781	helpFilename
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9782	^ 'Launcher/miscSettings.html'
19311 53e8a613a407 #REFACTORING by Stefan Reise sr parents: 19309 diff changeset	9783	!
53e8a613a407 #REFACTORING by Stefan Reise sr parents: 19309 diff changeset	9784
53e8a613a407 #REFACTORING by Stefan Reise sr parents: 19309 diff changeset	9785	helpTextForKey:aKey
53e8a613a407 #REFACTORING by Stefan Reise sr parents: 19309 diff changeset	9786	aKey == #markThisApplicationAsHighDpiAwareHelp ifTrue:[
19312 24bebdcf39ff #REFACTORING by Stefan Reise sr parents: 19311 diff changeset	9787	^ self class suppressScalingByWindowsHelpTextWithForView:self
19311 53e8a613a407 #REFACTORING by Stefan Reise sr parents: 19309 diff changeset	9788	].
53e8a613a407 #REFACTORING by Stefan Reise sr parents: 19309 diff changeset	9789
53e8a613a407 #REFACTORING by Stefan Reise sr parents: 19309 diff changeset	9790	^ super helpTextForKey:aKey
53e8a613a407 #REFACTORING by Stefan Reise sr parents: 19309 diff changeset	9791
53e8a613a407 #REFACTORING by Stefan Reise sr parents: 19309 diff changeset	9792	"Created: / 27-11-2019 / 13:16:18 / Stefan Reise"
19312 24bebdcf39ff #REFACTORING by Stefan Reise sr parents: 19311 diff changeset	9793	"Modified: / 28-11-2019 / 10:59:30 / Stefan Reise"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9794	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9795
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9796	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'initialization'!
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9797
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9798	initialize
19496 f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9799	\|display\|
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9800
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9801	super initialize.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9802
19496 f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9803	display := Screen current.
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9804
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9805	OperatingSystem isMSWINDOWSlike ifTrue:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9806	markThisApplicationAsHighDpiAwareHolder := self class isHighDpiAwareSetInRegistry asValue.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9807	markThisApplicationAsHighDpiAwareHolder addDependent:self.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9808	].
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9809
19496 f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9810	cartoonToolTipStyle := ValueHolder with:false.
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9811	cartoonToolTipStyle onChangeSend:#updateModifiedChannel to:self.
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9812
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9813	lowerOnRightClickInTitle := ValueHolder with:true.
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9814	lowerOnRightClickInTitle onChangeSend:#updateModifiedChannel to:self.
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9815
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9816	lowerOnShiftClickInTitle := ValueHolder with:true.
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9817	lowerOnShiftClickInTitle onChangeSend:#updateModifiedChannel to:self.
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9818
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9819	nativeDialogs := ValueHolder with:(display nativeDialogs).
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9820	nativeDialogs onChangeSend:#updateModifiedChannel to:self.
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9821
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9822	nativeFileDialogs := ValueHolder with:(display nativeFileDialogs).
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9823	nativeFileDialogs onChangeSend:#updateModifiedChannel to:self.
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9824
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9825	nativeWidgets := ValueHolder with:(display nativeWidgets).
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9826	nativeWidgets onChangeSend:#updateModifiedChannel to:self.
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9827
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9828	opaqueTableColumnResize := ValueHolder with:true.
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9829	opaqueTableColumnResize onChangeSend:#updateModifiedChannel to:self.
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9830
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9831	opaqueVariablePanelResize := ValueHolder with:true.
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9832	opaqueVariablePanelResize onChangeSend:#updateModifiedChannel to:self.
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9833
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9834	shadows := ValueHolder with:(PopUpView shadows).
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9835	shadows onChangeSend:#updateModifiedChannel to:self.
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9836
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9837	"Created: / 28-11-2019 / 10:18:04 / Stefan Reise"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9838	! !
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9839
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9840	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'queries'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9841
13548 dc78ae8a04d0 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13531 diff changeset	9842	displaySupportsArbitraryShapedViews
dc78ae8a04d0 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13531 diff changeset	9843	^ Screen current supportsArbitraryShapedViews
dc78ae8a04d0 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13531 diff changeset	9844	!
dc78ae8a04d0 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13531 diff changeset	9845
19496 f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9846	displaySupportsNativeDialogs
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9847	^ Screen current supportsNativeDialogs
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9848	!
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9849
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9850	displaySupportsNativeFileDialogs
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9851	^ Screen current supportsNativeFileDialogs
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9852
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9853	"Modified: / 24-08-2010 / 16:28:58 / sr"
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9854	!
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9855
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9856	displaySupportsNativeWidgets
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9857	^ Screen current supportsNativeWidgets
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9858	!
f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9859
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9860	hasUnsavedChanges
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9861	\|currentScreen\|
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9862
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9863	currentScreen := Screen current.
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9864
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9865	(self
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9866	hasChangedAspectIn:
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9867	#(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9868	nativeWidgets
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9869	nativeDialogs
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9870	nativeFileDialogs
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9871	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9872	asComparedTo:currentScreen) ifTrue:[^ true].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9873
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9874	(super hasUnsavedChanges) ifTrue:[^ true].
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9875
19497 573a669fee3b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19496 diff changeset	9876	shadows value ~= PopUpView shadows ifTrue:[^ true].
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9877	(currentUserPrefs toolTipShapeStyle == #cartoon) ~= cartoonToolTipStyle value ifTrue:[^ true].
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9878
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	9879	currentScreen isWindowsPlatform ifTrue:[
19497 573a669fee3b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19496 diff changeset	9880	(currentScreen rightButtonIsLowerWindow:nil) ~= (lowerOnRightClickInTitle value) ifTrue:[^ true].
573a669fee3b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19496 diff changeset	9881	(currentScreen shiftedLeftButtonIsLowerWindow:nil) ~= (lowerOnShiftClickInTitle value) ifTrue:[^ true].
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9882
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9883	(markThisApplicationAsHighDpiAwareHolder notNil "/ is nil unter linux
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9884	and:[markThisApplicationAsHighDpiAwareHolder value ~= self class isHighDpiAwareSetInRegistry]) ifTrue:[^ true].
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9885	].
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9886	^ false
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9887
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9888	"Modified: / 24-08-2010 / 16:44:43 / sr"
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9889	"Modified: / 28-11-2019 / 10:32:10 / Stefan Reise"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9890	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9891
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9892	operatingSystemIsWindowsLike
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9893	^ OperatingSystem isMSWINDOWSlike
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9894
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9895	"Created: / 27-11-2019 / 13:18:33 / Stefan Reise"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9896	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9897
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9898	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'updating'!
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9899
19496 f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9900	update:something with:aParameter from:changedObject
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9901
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9902	changedObject == markThisApplicationAsHighDpiAwareHolder ifTrue:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9903	self updateModifiedChannel.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9904	^ self
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9905	].
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9906
19496 f62806e748d4 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19495 diff changeset	9907	^ super update:something with:aParameter from:changedObject
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9908
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9909	"Created: / 28-11-2019 / 10:31:27 / Stefan Reise"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9910	! !
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9911
12351 8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9912	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'help specs'!
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9913
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	9914	helpSpec
12351 8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9915	"This resource specification was automatically generated
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9916	by the UIHelpTool of ST/X."
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9917
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9918	"Do not manually edit this!! If it is corrupted,
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9919	the UIHelpTool may not be able to read the specification."
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9920
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9921	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	9922	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
12351 8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9923	"
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9924
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9925	<resource: #help>
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9926
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	9927	^ super helpSpec addPairsFrom:#(
12351 8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9928
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9929	#showAccelerators
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9930	'Show shortcut-key bindings (if any) in popup menus'
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9931
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9932	#focusFollowsMouse
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9933	'Keyboard focus follows the mouse position (no need to click into fields for focus)'
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9934
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9935	#'shouldRememberLastExtent'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9936	'Applications remember their last window size when closed,\and take that as default when opened the next time.'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9937
13369 d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	9938	#menuPanelTakesFocusOnClick
d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	9939	'Menupanel takes the keyboard focus when clicked. If off, the focus remains unchanged'
d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	9940
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9941	#mouseWheelFocusFollowsMouse
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9942	'Mousewheel focus follows the mouse position (no need to click into fields for focus).\If Keyboard focus follows pointer is set to true, then this is always also true.'
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9943
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9944	#allowMouseWheelZoom
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9945	'Turning the mousewheel with CTRL- or ALT-key pressed will zoom in/out\(i.e. changes the view''s magnification if it supports zooming).\Note that on Mac-OSX systems, CTRL-Wheel is already handled by the window manager,\so you have to press the ALT key.'
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9946
17641 4211d4bb9e73 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17629 diff changeset	9947	#metaIsMouseWheelZoom
4211d4bb9e73 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17629 diff changeset	9948	'If on, the mousewheel with ALT-key pressed will zoom in/out\if off, it will scroll horizontally.\Note that on Mac-OSX systems, SHIFT-Wheel is already handled by the window manager an not passed to the XQuartz application,\so you have to use the ALT key.'
4211d4bb9e73 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17629 diff changeset	9949
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9950	#takeFocus
14833 70e2b677b37c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14832 diff changeset	9951	'Windows automatically fetch the focus when opened\(usually not needed, as done by window manager)'
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9952
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9953	#returnFocus
14833 70e2b677b37c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14832 diff changeset	9954	'Dialog boxes return the focus to the original view when closed\(usually not needed, as done by window manager)'
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9955
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9956	#activateOnClick
14833 70e2b677b37c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14832 diff changeset	9957	'Raise and activate a window when clicked into it\(usually not needed, as done by window manager)'
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9958
12351 8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9959	#button2WithAltKey
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9960	'Use with single button mice to get a right-button emulation'
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9961
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9962	#selectOnRightClick
15057 50b9d352cd81 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15051 diff changeset	9963	'Right click changes the selection (before the menu is opened).\This is the Windows behavior.\Under X11, selection and menu activation are done by different mouse buttons.'
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9964
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9965	#showRightButtonMenuOnRelease
15057 50b9d352cd81 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15051 diff changeset	9966	'Activate popup menus when the mouse button is released; not when pressed.\Usually better, as it allows for the mouse pointer to be moved away,\in case you change your mind.\However, some people prefer the menu to come up immediately.\\The combination of this off AND selectOnRightClick is hard to use.'
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9967
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9968	#hostNameInLabel
14833 70e2b677b37c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14832 diff changeset	9969	'Show additional session, host and user information in each of the ST/X windows.\Useful, if you have multiple, possibly remote ST/X sessions running on the same screen,\to not loose track of which window belongs to which session.'
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9970
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9971	#autoRaiseOnFocusIn
14833 70e2b677b37c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14832 diff changeset	9972	'Automatic raise of a window after a short delay, whenever it gets the focus (via the window manager).\Most useful on systems where the focus follows the mouse.\(sometimes not needed, as done by the window manager)'
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9973
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9974	#forceWindowsIntoMonitorBounds
14833 70e2b677b37c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14832 diff changeset	9975	'Restrict the position and size of windows to ensure they are (at least partially) within the screen''s bounds.\Especially useful when switching the screen''s resolution.'
12351 8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9976	)
17641 4211d4bb9e73 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17629 diff changeset	9977
4211d4bb9e73 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17629 diff changeset	9978	"Modified: / 30-08-2017 / 14:57:30 / cg"
12351 8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9979	! !
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9980
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9981	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'image specs'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9982
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9983	defaultIcon
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9984	"This resource specification was automatically generated
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9985	by the ImageEditor of ST/X."
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9986
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9987	"Do not manually edit this!! If it is corrupted,
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9988	the ImageEditor may not be able to read the specification."
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9989
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9990	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9991	self defaultIcon inspect
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9992	ImageEditor openOnClass:self andSelector:#defaultIcon
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9993	Icon flushCachedIcons
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9994	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9995
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9996	<resource: #image>
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9997
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9998	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	9999	constantNamed:'AbstractSettingsApplication::MiscDisplaySettingsAppl defaultIcon'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	10000	ifAbsentPut:[(Depth8Image width:22 height:22) bits:(ByteArray fromPackedString:'
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10001	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DB@0D@@@@@@@@@@@@@@@@@@@@@@@DB@0LD@P@@@@@@@@@@@@@@@@@@@@DB@0LDA@DA@@@@@@@@@@@@
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10002	@@@@@@TB@ HDA@XF@PD@@@@@@@@@@@@@@@TB@ HB@ \FA H@P@@@@@@@@@@@@TB@ HB@ HBB@XIB@ A@@@@@@@@@@TB@ HB@ HB@ (KB@ KB0DC@@@@@@TB
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10003	@ HB@ HB@ HB@ ,KB0LC@P@@@@@@APHB@ HB@ HBB (JB0LC@0HL@@4MCP4MCP4MCP4MCP4MCP4AC HE@@@MCPHCC0<PDQHRD1PB@0LM@ DE@@@@CP4B@0<O
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10004	DADRD!!LT@ LCCPHE@@@@@@4M@08UEQTVE!!XWE0LNC 4E@@@@@@@EAPHB@ HB@ HB@ HJB (E@@@@@@@@APTB@ HB@ HB@ HBB (JAP@@@@@@@@TE@ HB@ HB
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10005	@ HBB (JB T@@@@@@@@EAPHB@ HB@ HB@ (JB (E@@@@@@@@APTB@ HB@ HB@ HJB (JAP@@@@@@@@TE@ HB@ HB@ HBB (JB T@@@@@@@@EAPHB@ HB@ HB
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	10006	B (JB (E@@@@@@@@APTEAPTEAPTEAPTEAPTEAP@@@@@@@@@a')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	10007	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]
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	10008	mask:((ImageMask width:22 height:22) bits:(ByteArray fromPackedString:'@C@@@G @@O0@@_8@@?<@A?>@C??@G??0O??0G??8???0??? ???@??>@??<@??<@??<@??<@??<@??<@??<@??<@'); yourself); yourself]
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10009	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10010
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10011	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'interface specs'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10012
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10013	windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10014	"This resource specification was automatically generated
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10015	by the UIPainter of ST/X."
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10016
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10017	"Do not manually edit this!! If it is corrupted,
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10018	the UIPainter may not be able to read the specification."
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10019
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10020	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10021	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl andSelector:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10022	AbstractSettingsApplication::MiscDisplaySettingsAppl new openInterface:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10023	AbstractSettingsApplication::MiscDisplaySettingsAppl open
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10024	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10025
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10026	<resource: #canvas>
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10027
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10028	^
13283 697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	10029	#(FullSpec
697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	10030	name: windowSpec
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10031	window:
13283 697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	10032	(WindowSpec
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10033	label: 'Display settings'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10034	name: 'Display settings'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10035	flags: 1
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10036	min: (Point 10 10)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10037	bounds: (Rectangle 0 0 540 662)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10038	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10039	component:
13283 697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	10040	(SpecCollection
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10041	collection: (
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10042	(VerticalPanelViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10043	name: 'VerticalPanel1'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10044	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10045	horizontalLayout: fitSpace
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10046	verticalLayout: topSpace
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10047	horizontalSpace: 5
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10048	verticalSpace: 1
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10049	component:
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10050	(SpecCollection
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10051	collection: (
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10052	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10053	label: 'Beeper enabled'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10054	name: 'beepEnabled'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10055	visibilityChannel: false
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10056	model: beepEnabled
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10057	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10058	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10059	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10060	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10061	label: 'Show Accelerator Keys in Menus'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10062	name: 'showAccelerators'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10063	activeHelpKey: showAccelerators
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10064	model: showAccelerators
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10065	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10066	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10067	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10068	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10069	name: 'SeparatingSpace1'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10070	extent: (Point 530 4)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10071	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10072	(DividerSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10073	name: 'Separator1'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10074	extent: (Point 530 3)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10075	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10076	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10077	name: 'SeparatingSpace2'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10078	extent: (Point 530 3)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10079	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10080	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10081	label: 'Keyboard Focus Follows Mouse'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10082	name: 'focusFollowsMouse'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10083	activeHelpKey: focusFollowsMouse
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10084	model: focusFollowsMouse
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10085	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10086	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10087	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10088	(CheckBoxSpec
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10089	label: 'MouseWheel Focus Follows Mouse'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10090	name: 'mouseWheelFocusFollowsMouse'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10091	activeHelpKey: mouseWheelFocusFollowsMouse
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10092	enableChannel: mouseWheelFocusFollowsMouseEnabled
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10093	model: mouseWheelFocusFollowsMouse
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10094	translateLabel: true
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10095	extent: (Point 530 30)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10096	)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10097	(CheckBoxSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10098	label: 'Zoom with CTRL- or ALT-Mousewheel'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10099	name: 'CheckBox1'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10100	activeHelpKey: allowMouseWheelZoom
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10101	model: allowMouseWheelZoom
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10102	translateLabel: true
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10103	extent: (Point 530 30)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10104	)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10105	(ViewSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10106	name: 'SeparatingSpace4'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10107	extent: (Point 530 3)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10108	)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10109	(DividerSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10110	name: 'Separator2'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10111	extent: (Point 530 3)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10112	)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10113	(ViewSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10114	name: 'SeparatingSpace5'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10115	extent: (Point 530 3)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10116	)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10117	(CheckBoxSpec
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10118	label: 'Menu Panels take Focus on Click'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10119	name: 'CheckBox7'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10120	activeHelpKey: menuPanelTakesFocusOnClick
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10121	model: menuPanelTakesFocusOnClick
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10122	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10123	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10124	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10125	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10126	label: 'Views Catch Focus when Mapped'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10127	name: 'takeFocus'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10128	activeHelpKey: takeFocus
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10129	model: takeFocus
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10130	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10131	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10132	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10133	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10134	label: 'Boxes Return Focus to Previously Active View'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10135	name: 'returnFocus'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10136	activeHelpKey: returnFocus
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10137	model: returnFocus
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10138	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10139	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10140	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10141	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10142	label: 'Raise & Activate Windows on Click'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10143	name: 'activateOnClick'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10144	activeHelpKey: activateOnClick
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10145	model: activateOnClick
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10146	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10147	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10148	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10149	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10150	label: 'Autoraise Windows on FocusIn'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10151	name: 'CheckBox4'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10152	activeHelpKey: autoRaiseOnFocusIn
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10153	model: autoRaiseOnFocusIn
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10154	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10155	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10156	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10157	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10158	label: 'Force Windows into Monitor''s Bounds'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10159	name: 'CheckBox2'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10160	activeHelpKey: forceWindowsIntoMonitorBounds
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10161	model: forceWindowsIntoMonitorBounds
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10162	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10163	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10164	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10165	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10166	label: 'Applications Remember Last Extent as Default'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10167	name: 'CheckBox5'
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10168	activeHelpKey: shouldRememberLastExtent
16338 2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10169	model: shouldRememberLastExtentHolder
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10170	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10171	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10172	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10173	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10174	name: 'SeparatingSpace5'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10175	extent: (Point 530 4)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10176	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10177	(DividerSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10178	name: 'Separator3'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10179	extent: (Point 530 4)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10180	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10181	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10182	name: 'SeparatingSpace6'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10183	extent: (Point 530 3)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10184	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10185	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10186	label: 'Select on Right-Button-Press'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10187	name: 'selectOnRightClick'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10188	activeHelpKey: selectOnRightClick
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10189	model: selectOnRightClick
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10190	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10191	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10192	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10193	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10194	label: 'Menu on Right-Button-Release'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10195	name: 'showRightButtonMenuOnRelease'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10196	activeHelpKey: showRightButtonMenuOnRelease
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10197	model: showRightButtonMenuOnRelease
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10198	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10199	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10200	)
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10201	(CheckBoxSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10202	label: 'ALT-Leftclick is Rightclick'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10203	name: 'CheckBox3'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10204	activeHelpKey: button2WithAltKey
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10205	model: button2WithAltKey
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10206	translateLabel: true
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10207	extent: (Point 530 30)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10208	)
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10209	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10210	name: 'SeparatingSpace7'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10211	extent: (Point 530 4)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10212	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10213	(DividerSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10214	name: 'Separator4'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10215	extent: (Point 530 4)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10216	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10217	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10218	name: 'SeparatingSpace8'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10219	extent: (Point 530 4)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10220	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10221	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10222	name: 'Box1'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10223	component:
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10224	(SpecCollection
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10225	collection: (
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10226	(LabelSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10227	label: 'Label'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10228	name: 'Label1'
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10229	layout: (LayoutFrame 0 0 0 0 218 0 20 0)
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10230	activeHelpKey: hostNameInLabel
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10231	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10232	labelChannel: formatHostNameWindowLabel
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10233	adjust: right
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10234	useDefaultExtent: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10235	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10236	(LabelSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10237	label: 'Label'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10238	name: 'Label2'
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10239	layout: (LayoutFrame 0 0.30000000000000004 30 0 0 0.59999999999999998 0 1)
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10240	activeHelpKey: hostNameInLabel
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10241	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10242	labelChannel: formatHostNameWindowLabel1
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10243	adjust: left
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10244	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10245	(LabelSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10246	label: 'Label'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10247	name: 'Label3'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10248	layout: (LayoutFrame 0 0.59999999999999998 30 0 0 1 0 1)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10249	activeHelpKey: hostNameInLabel
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10250	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10251	labelChannel: formatHostNameWindowLabel2
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10252	adjust: left
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10253	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10254	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10255
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10256	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10257	extent: (Point 530 92)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10258	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10259	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10260	name: 'WindowLabelBox'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10261	component:
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10262	(SpecCollection
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10263	collection: (
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10264	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10265	label: 'Window Label Format'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10266	name: 'hostNameInLabelHolder'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10267	layout: (LayoutFrame 0 0 0 0 216 0 30 0)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10268	activeHelpKey: hostNameInLabel
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10269	model: hostNameInLabelHolder
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10270	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10271	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10272	(InputFieldSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10273	name: 'hostNameInLabelEntryField'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10274	layout: (LayoutFrame 218 0 0 0 -5 1 30 0)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10275	activeHelpKey: hostNameInLabel
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10276	enableChannel: hostNameInLabelHolder
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10277	model: newWindowLabelFormat
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10278	immediateAccept: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10279	acceptOnReturn: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10280	acceptOnTab: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10281	acceptOnLostFocus: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10282	acceptOnPointerLeave: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10283	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10284	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10285
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10286	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10287	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10288	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10289	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10290
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10291	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10292	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10293	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10294
13283 697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	10295	)
697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	10296	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10297	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10298
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10299	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10300
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10301	basicReadSettings
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10302	super basicReadSettings.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	10303
16338 2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10304	self shouldRememberLastExtentHolder value:currentUserPrefs shouldRememberLastExtent.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10305	self newWindowLabelFormat value:StandardSystemView windowLabelFormat.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	10306	self hostNameInLabelHolder value:StandardSystemView includeHostNameInLabel.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	10307	self returnFocus value:StandardSystemView returnFocusWhenClosingModalBoxes.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10308	self takeFocus value:StandardSystemView takeFocusWhenMapped.
13762 74eaff2f8a39 Replace references to Diplay with "Screen current" - where appropriate Stefan Vogel <sv@exept.de> parents: 13694 diff changeset	10309	self activateOnClick value:(Screen current activateOnClick:nil).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10310	self showAccelerators value:MenuView showAcceleratorKeys.
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10311
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10312	self autoRaiseOnFocusIn value: (currentUserPrefs autoRaiseOnFocusInDelay notNil).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10313	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10314
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10315	basicSaveSettings
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10316	\|currentScreen\|
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	10317
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	10318	currentScreen := Screen current.
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	10319
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	10320	(self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	10321	or:[self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat]) ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10322	StandardSystemView includeHostNameInLabel:self hostNameInLabelHolder value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10323	self newWindowLabelFormat value notNil ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10324	StandardSystemView windowLabelFormat:self newWindowLabelFormat value
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10325	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10326
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10327	Screen allScreens do:[:aDisplay \|
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10328	aDisplay allViewsDo:[:aView \|
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10329	\|l\|
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10330
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10331	aView isTopView ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10332	l := aView label.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10333	l notNil ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10334	aView label:(l , ' '); label:l. "/ force a change
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10335	]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10336	]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10337	]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10338	]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10339	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10340
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10341	super basicSaveSettings.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10342
16338 2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10343	currentUserPrefs shouldRememberLastExtent:(self shouldRememberLastExtentHolder value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10344	StandardSystemView returnFocusWhenClosingModalBoxes:self returnFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10345	StandardSystemView takeFocusWhenMapped:self takeFocus value.
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	10346	currentScreen activateOnClick:self activateOnClick value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10347
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10348	MenuView showAcceleratorKeys:self showAccelerators value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10349
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10350	self autoRaiseOnFocusIn value ~= (currentUserPrefs autoRaiseOnFocusInDelay notNil) ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10351	currentUserPrefs autoRaiseOnFocusInDelay:(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10352	self autoRaiseOnFocusIn value ifTrue:[ 750 ] ifFalse:[nil]).
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10353	].
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10354
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10355	"Modified: / 16.12.2002 / 18:06:31 / penk"
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10356	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10357
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10358	formatHostNameinWindowLabels
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10359	\|newFormat\|
c72e35116b13 instable state penk parents: 5040 diff changeset	10360
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	10361	newFormat := Dialog
19314 a810beaf09a5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19312 diff changeset	10362	request:c'Define the Format of Window Labels:\n\n %1 - Label\n %2 - Hostname\n %3 - Username\n %4 - ProcessId\n'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10363	initialAnswer:newWindowLabelFormat.
17418 e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	10364	newFormat notEmptyOrNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10365	newWindowLabelFormat := newFormat.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10366	self updateModifiedChannel
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10367	]
17418 e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	10368
e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	10369	"Modified: / 17-02-2017 / 08:26:39 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10370	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10371
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10372	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10373
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10374	activateOnClick
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10375	activateOnClick isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10376	activateOnClick := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10377	activateOnClick onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10378	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10379	^ activateOnClick.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10380	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10381
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	10382	allowMouseWheelZoom
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	10383	allowMouseWheelZoom isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10384	allowMouseWheelZoom := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10385	allowMouseWheelZoom onChangeSend:#updateModifiedChannel to:self
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	10386	].
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	10387	^ allowMouseWheelZoom.
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	10388	!
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	10389
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10390	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10391	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10392	beepEnabled
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10393	focusFollowsMouse
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10394	mouseWheelFocusFollowsMouse
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10395	showRightButtonMenuOnRelease
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10396	selectOnRightClick
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10397	allowMouseWheelZoom
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10398	forceWindowsIntoMonitorBounds
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10399	button2WithAltKey
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10400	menuPanelTakesFocusOnClick
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10401	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10402
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10403	"Modified: / 31-07-2013 / 18:14:44 / cg"
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10404	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10405
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10406	autoRaiseOnFocusIn
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10407	autoRaiseOnFocusIn isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10408	autoRaiseOnFocusIn := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10409	autoRaiseOnFocusIn onChangeSend:#updateModifiedChannel to:self
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10410	].
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10411	^ autoRaiseOnFocusIn.
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10412	!
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10413
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10414	beepEnabled
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10415	beepEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10416	beepEnabled := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10417	beepEnabled onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10418	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10419	^ beepEnabled.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10420	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10421
12352 1a664d79c63e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12351 diff changeset	10422	button2WithAltKey
1a664d79c63e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12351 diff changeset	10423	button2WithAltKey isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10424	button2WithAltKey := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10425	button2WithAltKey onChangeSend:#updateModifiedChannel to:self
12352 1a664d79c63e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12351 diff changeset	10426	].
1a664d79c63e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12351 diff changeset	10427	^ button2WithAltKey.
1a664d79c63e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12351 diff changeset	10428	!
1a664d79c63e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12351 diff changeset	10429
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	10430	displaySupportsNativeDialogs
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	10431	^ Screen current supportsNativeDialogs
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	10432	!
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	10433
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	10434	displaySupportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	10435	^ Screen current supportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	10436	!
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	10437
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10438	focusFollowsMouse
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10439	focusFollowsMouse isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10440	focusFollowsMouse := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10441	focusFollowsMouse onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10442	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10443	^ focusFollowsMouse.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10444	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10445
9592 417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10446	forceWindowsIntoMonitorBounds
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10447	forceWindowsIntoMonitorBounds isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10448	forceWindowsIntoMonitorBounds := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10449	forceWindowsIntoMonitorBounds onChangeSend:#updateModifiedChannel to:self
9592 417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10450	].
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10451	^ forceWindowsIntoMonitorBounds.
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10452
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10453	"Created: / 22-10-2010 / 14:25:40 / cg"
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10454	!
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10455
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10456	formatHostNameWindowLabel
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10457	formatHostNameWindowLabel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10458	formatHostNameWindowLabel :=
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10459	(resources string:'Window Label Format:').
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10460	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10461	^ formatHostNameWindowLabel.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10462
6939 af3cdc84970f * empty log message * Claus Gittinger <cg@exept.de> parents: 6897 diff changeset	10463	"Created: / 16-12-2002 / 17:50:49 / penk"
af3cdc84970f * empty log message * Claus Gittinger <cg@exept.de> parents: 6897 diff changeset	10464	"Modified: / 22-08-2006 / 11:43:41 / cg"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10465	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10466
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10467	formatHostNameWindowLabel1
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10468	formatHostNameWindowLabel1 isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10469	formatHostNameWindowLabel1 :=
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10470	(resources stringWithCRs:'%1 - Label\%2 - Hostname\%3 - Username')
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10471	].
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10472	^ formatHostNameWindowLabel1.
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10473
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10474	"Created: / 16-12-2002 / 17:50:49 / penk"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10475	"Modified: / 22-08-2006 / 11:43:41 / cg"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10476	!
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10477
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10478	formatHostNameWindowLabel2
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10479	formatHostNameWindowLabel2 isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10480	formatHostNameWindowLabel2 :=
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10481	(resources stringWithCRs:'%4 - ProcessId\%5 - TOP-Directory\%6 - TOP-Path').
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10482	].
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10483	^ formatHostNameWindowLabel2.
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10484
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10485	"Created: / 16-12-2002 / 17:50:49 / penk"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10486	"Modified: / 22-08-2006 / 11:43:41 / cg"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10487	!
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10488
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10489	hostNameInLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10490	hostNameInLabelHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10491	hostNameInLabelHolder := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10492	hostNameInLabelHolder onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10493	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10494	^ hostNameInLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10495	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10496
13369 d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	10497	menuPanelTakesFocusOnClick
d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	10498	menuPanelTakesFocusOnClick isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10499	menuPanelTakesFocusOnClick := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10500	menuPanelTakesFocusOnClick onChangeSend:#updateModifiedChannel to:self
13369 d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	10501	].
d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	10502	^ menuPanelTakesFocusOnClick.
d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	10503	!
d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	10504
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10505	mouseWheelFocusFollowsMouse
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10506	mouseWheelFocusFollowsMouse isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10507	mouseWheelFocusFollowsMouse := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10508	mouseWheelFocusFollowsMouse onChangeSend:#updateModifiedChannel to:self
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10509	].
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10510	^ mouseWheelFocusFollowsMouse.
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10511	!
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10512
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10513	mouseWheelFocusFollowsMouseEnabled
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10514	^ BlockValue
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10515	forLogicalNot:(self focusFollowsMouse).
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10516	!
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10517
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10518	newWindowLabelFormat
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10519	newWindowLabelFormat isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10520	newWindowLabelFormat := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10521	newWindowLabelFormat onChangeSend:#updateModifiedChannel to:self
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10522	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10523	^ newWindowLabelFormat.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10524
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10525	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10526	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10527
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10528	returnFocus
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10529	returnFocus isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10530	returnFocus := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10531	returnFocus onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10532	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10533	^ returnFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10534	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10535
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10536	selectOnRightClick
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10537	selectOnRightClick isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10538	selectOnRightClick := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10539	selectOnRightClick onChangeSend:#updateModifiedChannel to:self
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10540	].
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10541	^ selectOnRightClick.
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10542	!
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10543
16338 2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10544	shouldRememberLastExtentHolder
2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10545	shouldRememberLastExtentHolder isNil ifTrue:[
2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10546	shouldRememberLastExtentHolder := true asValue.
2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10547	shouldRememberLastExtentHolder onChangeSend:#updateModifiedChannel to:self
2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10548	].
2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10549	^ shouldRememberLastExtentHolder.
13283 697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	10550	!
697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	10551
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10552	showAccelerators
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10553	showAccelerators isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10554	showAccelerators := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10555	showAccelerators onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10556	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10557	^ showAccelerators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10558	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10559
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10560	showRightButtonMenuOnRelease
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10561	showRightButtonMenuOnRelease isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10562	showRightButtonMenuOnRelease := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10563	showRightButtonMenuOnRelease onChangeSend:#updateModifiedChannel to:self
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10564	].
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10565	^ showRightButtonMenuOnRelease.
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10566	!
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10567
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10568	takeFocus
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10569	takeFocus isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10570	takeFocus := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10571	takeFocus onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10572	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10573	^ takeFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10574	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10575
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10576	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10577
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10578	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10579	^ 'Launcher/miscSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10580	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10581
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10582	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10583
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10584	hasUnsavedChanges
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10585	(super hasUnsavedChanges) ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	10586
16338 2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10587	self shouldRememberLastExtentHolder value ~= currentUserPrefs shouldRememberLastExtent ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10588	self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10589	self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10590	self returnFocus value ~= StandardSystemView returnFocusWhenClosingModalBoxes ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10591	self takeFocus value ~= StandardSystemView takeFocusWhenMapped ifTrue:[^ true].
13762 74eaff2f8a39 Replace references to Diplay with "Screen current" - where appropriate Stefan Vogel <sv@exept.de> parents: 13694 diff changeset	10592	self activateOnClick value ~= (Screen current activateOnClick:nil) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10593	self showAccelerators value ~= MenuView showAcceleratorKeys ifTrue:[^ true].
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10594	self autoRaiseOnFocusIn value ~= (currentUserPrefs autoRaiseOnFocusInDelay notNil) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10595	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10596	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10597
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10598	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl class methodsFor:'help specs'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10599
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	10600	helpSpec
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10601	"This resource specification was automatically generated
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10602	by the UIHelpTool of ST/X."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10603
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10604	"Do not manually edit this!! If it is corrupted,
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10605	the UIHelpTool may not be able to read the specification."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10606
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10607	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10608	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10609	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10610
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10611	<resource: #help>
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10612
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	10613	^ super helpSpec addPairsFrom:#(
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10614
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10615	#windowMigration
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10616	'The window migration service is available for X-display systems only.\It allows a window to be fetched from your screen and moved to another X-display'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10617
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10618	#remoteBrowsing
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10619	'The remote browsing service allows for another ST/X system''s browser to request a classes source from your running system'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10620
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10621	#smallTeamCommon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10622	'The smallTeam framework distributes notifications to team members when code is changed in a browser.\This allows for team members to track and follow your changes in real time.'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10623
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10624	#smallTeam
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10625	'This enables the smallteam server in a local network.\Changes are interchanged with the listed partner hosts'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10626
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10627	#smallTeamHosts
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10628	'List of hosts with which change notifications are to be exchanged (local team members)'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10629
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10630	#smallTeamHostToAdd
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10631	'Name of host to add (with button below)'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10632
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10633	#addSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10634	'Add the above hostname to the list of team members'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10635
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10636	#removeSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10637	'Remove the selected hostname from the list of team members'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10638
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10639	#smallTeamViaXMPP
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10640	'This enables the smallteam server in a global network.\Changes are interchanged via XMPP with the listed XMPP partners'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10641
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10642	#xmppServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10643	'The xmpp server which distributes your xmpp messages (you need a login account there)'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10644
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10645	#xmppLoginUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10646	'Your login username on the above xmpp server'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10647
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10648	#xmppLoginPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10649	'Your login password on the above xmpp server'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10650
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10651	#smallTeamXMPPUsers
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10652	'List of users with which change notifications are to be exchanged (global team members)'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10653
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10654	#smallTeamXMPPUserToAdd
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10655	'Name of user to add (with button below)'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10656
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10657	#addSmallTeamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10658	'Add the above username to the list of team members'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10659
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10660	#removeSmallTeamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10661	'Remove the selected username from the list of team members'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10662	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10663	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10664
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10665	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl class methodsFor:'image specs'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10666
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10667	defaultIcon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10668	"This resource specification was automatically generated
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10669	by the ImageEditor of ST/X."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10670
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10671	"Do not manually edit this!! If it is corrupted,
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10672	the ImageEditor may not be able to read the specification."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10673
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10674	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10675	self defaultIcon inspect
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10676	ImageEditor openOnClass:self andSelector:#defaultIcon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10677	Icon flushCachedIcons
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10678	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10679
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10680	<resource: #image>
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10681
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10682	^Icon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10683	constantNamed:'AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl defaultIcon'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10684	ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10685	@@!!8@@@@@@BG @@@!!1]P@@@@AWE8@@!!1 '' @@@BGFB^@!!1 5Q8@@BCFCUG !!DWQPH@@BDQMHD \QFA] @@@1DXE6X"DQ]VY&Y"HQE5I&@!!]QI&Y&XBEED"TG
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10686	]QD&Y&IPL5ERQ5 !!TV@@ACVBEQIF$REXP@@DX1HU!!@$''HXP@@@T2L!!!!@@GI(@@@@AVL&!!@@@UGP@@@@G]TM@@@@@P@@@@@A5A@@@@@@@@@@@@@@@@@@@@@@@
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10687	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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 width:22 height:22) bits:(ByteArray fromPackedString:'G@C O G0_0O8?8_<?(_<?8_<???<???<???<?8_<?8_<_0O8O G0O@G B@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@'); yourself); yourself]
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10688	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10689
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10690	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl class methodsFor:'interface specs'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10691
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10692	windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10693	"This resource specification was automatically generated
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10694	by the UIPainter of ST/X."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10695
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10696	"Do not manually edit this!! If it is corrupted,
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10697	the UIPainter may not be able to read the specification."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10698
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10699	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10700	UIPainter new openOnClass:AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl andSelector:#windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10701	AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl new openInterface:#windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10702	AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl open
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10703	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10704
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10705	<resource: #canvas>
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10706
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10707	^
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10708	#(FullSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10709	name: windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10710	window:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10711	(WindowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10712	label: 'Smalltalk Communication Settings'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10713	name: 'Smalltalk Communication Settings'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10714	flags: 1
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10715	min: (Point 10 10)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10716	bounds: (Rectangle 0 0 751 766)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10717	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10718	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10719	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10720	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10721	(VerticalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10722	name: 'VerticalPanel1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10723	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10724	horizontalLayout: fit
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10725	verticalLayout: top
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10726	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10727	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10728	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10729	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10730	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10731	(FramedBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10732	label: 'Window migration'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10733	name: 'WindowMicrationSetupBox'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10734	activeHelpKey: windowMigration
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10735	labelPosition: topLeft
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10736	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10737	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10738	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10739	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10740	(VerticalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10741	name: 'VerticalPanel2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10742	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10743	horizontalLayout: left
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10744	verticalLayout: center
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10745	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10746	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10747	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10748	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10749	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10750	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10751	name: 'Box2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10752	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10753	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10754	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10755	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10756	label: 'Window migration enabled'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10757	name: 'CheckBox2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10758	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10759	enableChannel: hasWindowMigrationServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10760	model: windowMigrationEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10761	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10762	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10763	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10764
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10765	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10766	extent: (Point 696 25)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10767	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10768	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10769	name: 'Box3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10770	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10771	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10772	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10773	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10774	label: 'Password check'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10775	name: 'CheckBox3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10776	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10777	enableChannel: enablePasswordCheck
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10778	model: windowMigrationAuthenticate
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10779	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10780	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10781	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10782
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10783	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10784	extent: (Point 696 25)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10785	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10786	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10787	name: 'Box4'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10788	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10789	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10790	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10791	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10792	label: 'Password:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10793	name: 'Label3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10794	layout: (LayoutFrame 0 0 0 0 150 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10795	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10796	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10797	enableDisableColorChannel: enablePasswordCheck
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10798	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10799	(InputFieldSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10800	name: 'EntryField1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10801	layout: (LayoutFrame 150 0 0 0 400 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10802	enableChannel: windowMigrationAuthenticate
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10803	model: windowMigrationPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10804	type: password
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10805	acceptOnReturn: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10806	acceptOnTab: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10807	acceptOnLostFocus: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10808	acceptOnPointerLeave: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10809	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10810	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10811
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10812	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10813	extent: (Point 696 25)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10814	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10815	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10816
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10817	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10818	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10819	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10820
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10821	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10822	extent: (Point 751 120)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10823	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10824	(FramedBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10825	label: 'Remote Browsing'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10826	name: 'RemoteBrowsingSetupBox'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10827	activeHelpKey: remoteBrowsing
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10828	labelPosition: topLeft
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10829	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10830	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10831	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10832	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10833	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10834	name: 'Box1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10835	layout: (LayoutFrame 0 0 5 0 0 1 30 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10836	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10837	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10838	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10839	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10840	label: 'Remote browsing enabled'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10841	name: 'CheckBox1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10842	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10843	enableChannel: hasRemoteBrowsingSupport
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10844	model: remoteBrowsingEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10845	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10846	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10847	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10848
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10849	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10850	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10851	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10852
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10853	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10854	extent: (Point 751 70)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10855	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10856	(FramedBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10857	label: 'SmallTeam Change Distribution'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10858	name: 'SmallTeamSetupBox'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10859	activeHelpKey: smallTeamCommon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10860	labelPosition: topLeft
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10861	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10862	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10863	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10864	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10865	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10866	name: 'enableBox'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10867	layout: (LayoutFrame 0 0 8 0 0 1 33 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10868	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10869	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10870	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10871	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10872	label: 'SmallTeam Server enabled'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10873	name: 'CheckBox4'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10874	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10875	enableChannel: smallTeamServerAvailable
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10876	model: smallTeamServerEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10877	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10878	activeHelpKey: smallTeam
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10879	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10880	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10881
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10882	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10883	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10884	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10885	label: 'SmallTeam Hosts:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10886	name: 'smallTeamHostsLabel'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10887	layout: (LayoutFrame 0 0.0 37 0 60 0.25 62 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10888	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10889	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10890	enableDisableColorChannel: smallTeamServerAvailable
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10891	activeHelpKey: smallTeamHosts
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10892	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10893	(SequenceViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10894	name: 'smallTeamHostsList'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10895	layout: (LayoutFrame 64 0.25 37 0 0 1 131 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10896	enableChannel: smallTeamServerEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10897	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10898	model: selectedSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10899	hasHorizontalScrollBar: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10900	hasVerticalScrollBar: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10901	miniScrollerHorizontal: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10902	useIndex: false
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10903	sequenceList: listOfSmallTeamHosts
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10904	activeHelpKey: smallTeamHosts
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10905	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10906	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10907	label: 'Host:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10908	name: 'hostLabel'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10909	layout: (LayoutFrame 0 0.0 137 0 60 0.25 162 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10910	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10911	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10912	enableDisableColorChannel: smallTeamServerEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10913	activeHelpKey: smallTeamHostToAdd
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10914	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10915	(InputFieldSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10916	name: 'smallTeamHostEntryField'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10917	layout: (LayoutFrame 64 0.25 138 0 0 1 163 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10918	enableChannel: smallTeamServerEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10919	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10920	model: smallTeamHostEntry
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10921	acceptChannel: acceptChannel
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10922	acceptOnPointerLeave: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10923	activeHelpKey: smallTeamHostToAdd
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10924	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10925	(HorizontalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10926	name: 'HorizontalPanel2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10927	layout: (LayoutFrame 64 0.25 168 0 -1 1 193 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10928	horizontalLayout: fitSpace
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10929	verticalLayout: center
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10930	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10931	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10932	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10933	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10934	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10935	(ActionButtonSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10936	label: 'Add'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10937	name: 'addButton'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10938	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10939	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10940	model: addSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10941	enableChannel: addHostEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10942	extent: (Point 226 22)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10943	activeHelpKey: addSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10944	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10945	(ActionButtonSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10946	label: 'Remove'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10947	name: 'removeButton'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10948	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10949	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10950	model: removeSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10951	enableChannel: removeHostEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10952	extent: (Point 226 22)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10953	activeHelpKey: removeSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10954	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10955	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10956
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10957	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10958	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10959	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10960	label: 'XMPP SmallTeam enabled'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10961	name: 'CheckBox5'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10962	layout: (LayoutFrame 5 0 197 0 600 0 222 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10963	enableChannel: smallTeamViaXMPPAvailable
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10964	model: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10965	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10966	activeHelpKey: smallTeamViaXMPP
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10967	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10968	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10969	label: 'XMPP Team Members:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10970	name: 'Label4'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10971	layout: (LayoutFrame 0 0.0 323 0 60 0.25 348 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10972	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10973	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10974	enableDisableColorChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10975	activeHelpKey: smallTeamXMPPUsers
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10976	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10977	(SequenceViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10978	name: 'List1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10979	layout: (LayoutFrame 64 0.25 323 0 0 1 417 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10980	enableChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10981	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10982	model: selectedXMPPSmallTeamUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10983	hasHorizontalScrollBar: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10984	hasVerticalScrollBar: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10985	miniScrollerHorizontal: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10986	useIndex: false
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10987	sequenceList: listOfXMPPSmallTeamUsers
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10988	activeHelpKey: smallTeamXMPPUsers
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10989	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10990	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10991	label: 'Member:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10992	name: 'Label5'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10993	layout: (LayoutFrame 0 0.0 423 0 60 0.25 448 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10994	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10995	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10996	enableDisableColorChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10997	activeHelpKey: smallTeamXMPPUserToAdd
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10998	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10999	(InputFieldSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11000	name: 'EntryField2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11001	layout: (LayoutFrame 64 0.25 424 0 0 1 449 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11002	enableChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11003	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11004	model: xmppSmallTeamUserEntry
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11005	acceptChannel: acceptChannel
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11006	acceptOnPointerLeave: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11007	activeHelpKey: smallTeamXMPPUserToAdd
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11008	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11009	(HorizontalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11010	name: 'HorizontalPanel3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11011	layout: (LayoutFrame 64 0.25 455 0 -1 1 480 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11012	horizontalLayout: fitSpace
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11013	verticalLayout: center
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11014	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11015	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11016	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11017	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11018	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11019	(ActionButtonSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11020	label: 'Add'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11021	name: 'Button3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11022	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11023	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11024	model: addSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11025	enableChannel: addXMPPUserEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11026	extent: (Point 226 22)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11027	activeHelpKey: addSmallTeamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11028	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11029	(ActionButtonSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11030	label: 'Remove'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11031	name: 'Button4'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11032	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11033	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11034	model: removeSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11035	enableChannel: removeXMPPUserEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11036	extent: (Point 226 22)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11037	activeHelpKey: removeSmallTeamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11038	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11039	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11040
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11041	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11042	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11043	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11044	label: 'XMPP Server:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11045	name: 'Label6'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11046	layout: (LayoutFrame 0 0.0 227 0 60 0.25 252 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11047	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11048	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11049	enableDisableColorChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11050	activeHelpKey: xmppServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11051	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11052	(InputFieldSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11053	name: 'EntryField3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11054	layout: (LayoutFrame 64 0.25 228 0 0 1 253 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11055	enableChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11056	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11057	model: smallteamXMPPServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11058	acceptChannel: acceptChannel
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11059	acceptOnPointerLeave: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11060	activeHelpKey: xmppServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11061	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11062	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11063	label: 'XMPP Username:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11064	name: 'Label7'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11065	layout: (LayoutFrame 0 0.0 258 0 60 0.25 283 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11066	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11067	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11068	enableDisableColorChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11069	activeHelpKey: xmppLoginUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11070	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11071	(InputFieldSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11072	name: 'EntryField4'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11073	layout: (LayoutFrame 64 0.25 259 0 0 1 284 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11074	enableChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11075	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11076	model: smallteamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11077	acceptChannel: acceptChannel
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11078	acceptOnPointerLeave: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11079	activeHelpKey: xmppLoginUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11080	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11081	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11082	label: 'XMPP Password:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11083	name: 'Label8'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11084	layout: (LayoutFrame 0 0.0 288 0 60 0.25 313 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11085	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11086	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11087	enableDisableColorChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11088	activeHelpKey: xmppLoginPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11089	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11090	(InputFieldSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11091	name: 'EntryField5'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11092	layout: (LayoutFrame 64 0.25 289 0 0 1 314 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11093	enableChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11094	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11095	model: smallteamXMPPPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11096	type: password
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11097	acceptChannel: acceptChannel
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11098	acceptOnPointerLeave: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11099	activeHelpKey: xmppLoginPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11100	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11101	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11102
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11103	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11104	extent: (Point 751 521)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11105	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11106	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11107
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11108	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11109	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11110	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11111
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11112	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11113	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11114	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11115
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11116	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'actions'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11117
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11118	aspects
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11119	^ #(
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11120	smallteamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11121	smallteamXMPPPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11122	smallteamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11123	smallteamXMPPServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11124	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11125	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11126
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11127	basicReadSettings
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11128	\|pw auth\|
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11129
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11130	super basicReadSettings.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11131
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11132	SmallTeam notNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11133	self smallTeamServerEnabled value:(SmallTeam isLoaded and:[SmallTeam serverRunning]).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11134	self listOfSmallTeamHosts contents:(SmallTeam connectedHosts).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11135	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11136
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11137	self remoteBrowsingEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11138	value:(self hasRemoteBrowsingSupport
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11139	and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11140
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11141	self windowMigrationEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11142	value:(self hasWindowMigrationServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11143	and:[ WindowMigrationServer isLoaded
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11144	and:[ WindowMigrationServer serverRunning ]]).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11145
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11146
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11147	pw := nil.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11148	auth := false.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11149	(self hasWindowMigrationServer and:[WindowMigrationServer isLoaded]) ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11150	pw := WindowMigrationServer password.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11151	auth := self windowMigrationPassword value notNil
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11152	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11153
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11154	self windowMigrationPassword value:pw.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11155	self windowMigrationAuthenticate value:auth
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11156
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11157	"Modified: / 20-09-2007 / 16:04:59 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11158	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11159
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11160	basicSaveSettings
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11161	super basicSaveSettings.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11162	self smallTeamServerAvailable ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11163	SmallTeam connectedHosts copy do:[:host \|
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11164	(self listOfSmallTeamHosts includes:host) ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11165	SmallTeam removeHost:host.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11166	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11167	].
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11168	self listOfSmallTeamHosts do:[:eachHost \|
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11169	SmallTeam addHost:eachHost.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11170	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11171	self smallTeamServerEnabled value ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11172	SmallTeam startServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11173	] ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11174	SmallTeam stopServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11175	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11176	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11177	self smallTeamViaXMPPAvailable ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11178	SmallTeamXMPPRoboter listOfXMPPUsers copy do:[:user \|
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11179	(self listOfXMPPSmallTeamUsers includes:user) ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11180	SmallTeamXMPPRoboter removeUser:user.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11181	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11182	].
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11183	self listOfXMPPSmallTeamUsers do:[:eachUser \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11184	SmallTeamXMPPRoboter addUser:eachUser.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11185	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11186	currentUserPrefs smallteamXMPPServer:(self smallteamXMPPServer value).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11187	currentUserPrefs smallteamXMPPUser:(self smallteamXMPPUser value).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11188	currentUserPrefs smallteamXMPPPassword:(self smallteamXMPPPassword value).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11189	self smallTeamViaXMPPEnabled value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11190	SmallTeamXMPPRoboter startServer
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11191	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11192	SmallTeamXMPPRoboter stopServer
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11193	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11194	].
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11195	self hasRemoteBrowsingSupport ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11196	self remoteBrowsingEnabled value ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11197	SmalltalkShareServer serverRunning ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11198	SmalltalkShareServer killAll
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11199	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11200	] ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11201	SmalltalkShareServer serverRunning ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11202	SmalltalkShareServer start.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11203
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11204	"/ must wait a bit; give it a chance to
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11205	"/ really start (before checking)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11206
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11207	Delay waitForSeconds:0.5.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11208	SmalltalkShareServer serverRunning ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11209	self warn:'SmalltalkShareServer startup failed (see stderr).'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11210	]
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11211	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11212	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11213	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11214	self hasWindowMigrationServer ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11215	self windowMigrationAuthenticate value ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11216	WindowMigrationServer password:self windowMigrationPassword value.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11217	] ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11218	WindowMigrationServer password:nil
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11219	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11220	self windowMigrationEnabled value ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11221	WindowMigrationServer serverRunning ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11222	WindowMigrationServer stop
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11223	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11224	] ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11225	WindowMigrationServer serverRunning ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11226	WindowMigrationServer start.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11227
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11228	"/ must wait a bit; give it a chance to
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11229	"/ really start (before checking)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11230
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11231	Delay waitForSeconds:0.5.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11232	WindowMigrationServer serverRunning ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11233	self warn:'WindowMigrationServer startup failed (see stderr).'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11234	]
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11235	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11236	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11237	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11238
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11239	"Modified: / 20-09-2007 / 16:05:01 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11240	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11241
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11242	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'aspects'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11243
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11244	acceptChannel
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11245
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11246	acceptChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11247	acceptChannel := TriggerValue new.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11248	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11249	^ acceptChannel.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11250
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11251	"Created: / 12-11-2006 / 19:04:09 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11252	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11253
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11254	addHostEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11255	^ self smallTeamServerEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11256	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11257
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11258	addXMPPUserEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11259	^ self smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11260	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11261
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11262	enablePasswordCheck
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11263
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11264	enablePasswordCheck isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11265	self hasWindowMigrationServer ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11266	enablePasswordCheck := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11267	] ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11268	enablePasswordCheck := self windowMigrationEnabled.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11269	].
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11270	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11271	^ enablePasswordCheck.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11272	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11273
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11274	listOfSmallTeamHosts
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11275
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11276	listOfSmallTeamHosts isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11277	listOfSmallTeamHosts := List new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11278	listOfSmallTeamHosts onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11279	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11280	^ listOfSmallTeamHosts.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11281
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11282	"Created: / 12-11-2006 / 19:06:35 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11283	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11284
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11285	listOfXMPPSmallTeamUsers
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11286
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11287	listOfXMPPSmallTeamUsers isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11288	listOfXMPPSmallTeamUsers := List new.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11289	listOfXMPPSmallTeamUsers onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11290	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11291	^ listOfXMPPSmallTeamUsers.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11292	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11293
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11294	remoteBrowsingEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11295
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11296	remoteBrowsingEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11297	remoteBrowsingEnabled := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11298	remoteBrowsingEnabled onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11299	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11300	^ remoteBrowsingEnabled.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11301	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11302
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11303	removeHostEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11304	^ BlockValue
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11305	forLogical:self smallTeamServerEnabled
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11306	and:(BlockValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11307	with:[:h \| h notEmptyOrNil]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11308	argument:self selectedSmallTeamHost)
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11309
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11310	"Created: / 12-11-2006 / 19:01:42 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11311	"Modified: / 08-03-2007 / 23:02:36 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11312	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11313
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11314	removeXMPPUserEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11315	^ BlockValue
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11316	forLogical:self smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11317	and:(BlockValue
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11318	with:[:h \| h notEmptyOrNil]
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11319	argument:self selectedXMPPSmallTeamUser)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11320	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11321
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11322	selectedSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11323
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11324	selectedSmallTeamHost isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11325	selectedSmallTeamHost := nil asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11326	selectedSmallTeamHost onChangeSend:#selectedSmallTeamHostChanged to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11327	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11328	^ selectedSmallTeamHost.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11329
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11330	"Created: / 12-11-2006 / 19:11:01 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11331	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11332
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11333	selectedXMPPSmallTeamUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11334
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11335	selectedXMPPSmallTeamUser isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11336	selectedXMPPSmallTeamUser := nil asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11337	selectedXMPPSmallTeamUser onChangeSend:#selectedXMPPSmallTeamUserChanged to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11338	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11339	^ selectedXMPPSmallTeamUser.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11340	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11341
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11342	smallTeamHostEntry
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11343
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11344	smallTeamHostEntry isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11345	smallTeamHostEntry := nil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11346	smallTeamHostEntry onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11347	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11348	^ smallTeamHostEntry.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11349
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11350	"Created: / 12-11-2006 / 19:07:06 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11351	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11352
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11353	smallTeamServerAvailable
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11354	^ SmallTeam notNil.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11355
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11356	"Created: / 12-11-2006 / 18:56:20 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11357	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11358
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11359	smallTeamServerEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11360
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11361	smallTeamServerEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11362	smallTeamServerEnabled := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11363	smallTeamServerEnabled onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11364	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11365	^ smallTeamServerEnabled.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11366
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11367	"Created: / 12-11-2006 / 18:56:11 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11368	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11369
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11370	smallTeamViaXMPPAvailable
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11371	^ SmallTeam notNil
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11372	and:[ JBCClient notNil and:[ SmallTeamXMPPRoboter notNil ] ].
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11373	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11374
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11375	smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11376
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11377	smallTeamViaXMPPEnabled isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11378	smallTeamViaXMPPEnabled := false asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11379	smallTeamViaXMPPEnabled onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11380	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11381	^ smallTeamViaXMPPEnabled.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11382	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11383
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11384	smalltalkBridgeEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11385
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11386	smalltalkBridgeEnabled isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11387	smalltalkBridgeEnabled := false asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11388	smalltalkBridgeEnabled onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11389	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11390	^ smalltalkBridgeEnabled.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11391	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11392
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11393	smalltalkBridgeVerbose
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11394
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11395	smalltalkBridgeVerbose isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11396	smalltalkBridgeVerbose := false asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11397	smalltalkBridgeVerbose onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11398	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11399	^ smalltalkBridgeVerbose.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11400	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11401
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11402	smallteamXMPPPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11403
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11404	smallteamXMPPPassword isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11405	smallteamXMPPPassword := '' asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11406	smallteamXMPPPassword onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11407	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11408	^ smallteamXMPPPassword.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11409	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11410
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11411	smallteamXMPPServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11412
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11413	smallteamXMPPServer isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11414	smallteamXMPPServer := '' asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11415	smallteamXMPPServer onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11416	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11417	^ smallteamXMPPServer.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11418	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11419
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11420	smallteamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11421
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11422	smallteamXMPPUser isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11423	smallteamXMPPUser := '' asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11424	smallteamXMPPUser onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11425	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11426	^ smallteamXMPPUser.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11427	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11428
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11429	windowMigrationAuthenticate
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11430
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11431	windowMigrationAuthenticate isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11432	windowMigrationAuthenticate := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11433	windowMigrationAuthenticate onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11434	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11435	^ windowMigrationAuthenticate.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11436	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11437
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11438	windowMigrationEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11439
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11440	windowMigrationEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11441	windowMigrationEnabled := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11442	windowMigrationEnabled onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11443	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11444	^ windowMigrationEnabled.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11445	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11446
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11447	windowMigrationPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11448
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11449	windowMigrationPassword isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11450	windowMigrationPassword := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11451	windowMigrationPassword onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11452	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11453	^ windowMigrationPassword.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11454	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11455
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11456	xmppSmallTeamUserEntry
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11457
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11458	xmppSmallTeamUserEntry isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11459	xmppSmallTeamUserEntry := nil asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11460	xmppSmallTeamUserEntry onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11461	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11462	^ xmppSmallTeamUserEntry.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11463	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11464
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11465	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'change & update'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11466
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11467	selectedSmallTeamHostChanged
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11468	self acceptChannel value:true.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11469	self smallTeamHostEntry value:( self selectedSmallTeamHost value).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11470
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11471	"Created: / 12-11-2006 / 19:09:49 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11472	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11473
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11474	selectedXMPPSmallTeamUserChanged
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11475	self acceptChannel value:true.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11476	self xmppSmallTeamUserEntry value:( self selectedXMPPSmallTeamUser value).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11477	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11478
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11479	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'help'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11480
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11481	helpFilename
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11482	^ 'Launcher/communicationsSettings.html'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11483	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11484
16172 39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11485	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'help specs'!
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11486
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11487	helpTextForKey:aKey
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11488	\|normalText hasWindowMigrationServer\|
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11489
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11490	hasWindowMigrationServer := self hasWindowMigrationServer.
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11491
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11492	normalText := super helpTextForKey:aKey.
16172 39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11493	aKey == #windowMigration ifTrue:[
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11494	hasWindowMigrationServer ifFalse:[
16172 39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11495	^ normalText , (resources stringWithCRs:'\\Disabled because the windowMigration package is not loaded')
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11496	]
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11497	].
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11498	aKey == #remoteBrowsing ifTrue:[
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11499	hasWindowMigrationServer ifFalse:[
16172 39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11500	^ normalText , (resources stringWithCRs:'\\Disabled because the remoteBrowsing package is not loaded')
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11501	]
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11502	].
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11503	(#(smallTeamCommon
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11504	smallTeam smallTeamHosts
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11505	addSmallTeamHost removeSmallTeamHost
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11506	smallTeamViaXMPP
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11507	xmppServer xmppLoginUser xmppLoginPassword
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11508	smallTeamXMPPUsers smallTeamXMPPUserToAdd
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11509	addSmallTeamXMPPUser removeSmallTeamXMPPUser
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11510	) includes:aKey) ifTrue:[
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11511	hasWindowMigrationServer ifFalse:[
16172 39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11512	^ normalText , (resources stringWithCRs:'\\Disabled because the smallTeam package is not loaded')
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11513	]
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11514	].
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11515	^ normalText
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11516	! !
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11517
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11518	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'initialization & release'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11519
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11520	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	11521	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	11522
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11523	super initialize.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11524	self readSettings.
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	11525
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	11526	"Modified: / 08-02-2017 / 00:30:03 / cg"
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11527	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11528
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11529	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'queries'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11530
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11531	hasRemoteBrowsingSupport
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11532
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11533	^ SmalltalkShareServer notNil
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11534	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11535
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11536	hasUnsavedChanges
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11537	(super hasUnsavedChanges) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11538	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11539	].
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11540	(self smallTeamServerAvailable) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11541	self smallTeamServerEnabled value
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11542	~= (SmallTeam isLoaded and:[ SmallTeam serverRunning ]) ifTrue:[ ^ true ].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11543	self listOfSmallTeamHosts asSet ~= (SmallTeam connectedHosts asSet) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11544	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11545	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11546	].
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11547	(self smallTeamViaXMPPAvailable) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11548	self smallTeamViaXMPPEnabled value ~= (SmallTeamXMPPRoboter isLoaded
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11549	and:[ SmallTeamXMPPRoboter serverRunning ]) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11550	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11551	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11552	self listOfXMPPSmallTeamUsers asSet
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11553	~= ((SmallTeamXMPPRoboter listOfXMPPUsers ? #()) asSet) ifTrue:[ ^ true ].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11554	self smallteamXMPPServer value ~= (currentUserPrefs smallteamXMPPServer) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11555	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11556	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11557	self smallteamXMPPUser value ~= (currentUserPrefs smallteamXMPPUser) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11558	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11559	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11560	self smallteamXMPPPassword value
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11561	~= (currentUserPrefs smallteamXMPPPassword) ifTrue:[ ^ true ].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11562	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11563	(self hasRemoteBrowsingSupport and:[ SmalltalkShareServer isLoaded ]) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11564	self remoteBrowsingEnabled value ~~ SmalltalkShareServer serverRunning ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11565	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11566	].
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11567	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11568	self hasWindowMigrationServer ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11569	WindowMigrationServer isLoaded ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11570	self windowMigrationEnabled value ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11571	WindowMigrationServer autoload.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11572	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11573	].
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11574	(self windowMigrationEnabled value ~~ WindowMigrationServer serverRunning) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11575	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11576	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11577	(self windowMigrationPassword value ~= WindowMigrationServer password) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11578	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11579	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11580	(self windowMigrationAuthenticate value
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11581	~= self windowMigrationPassword value notNil) ifTrue:[ ^ true ].
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11582	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11583	^ false
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11584
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11585	"Modified: / 20-09-2007 / 16:04:56 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11586	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11587
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11588	hasWindowMigrationServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11589
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11590	^ WindowMigrationServer notNil
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11591	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11592
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11593	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'user actions'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11594
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11595	addSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11596	\|host\|
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11597
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11598	acceptChannel value:true.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11599
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11600	host := self smallTeamHostEntry value.
17418 e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	11601
e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	11602	host notEmptyOrNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11603	self listOfSmallTeamHosts add:host
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11604	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11605
17418 e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	11606	"Modified (format): / 17-02-2017 / 08:33:52 / cg"
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11607	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11608
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11609	removeSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11610	\|host\|
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11611
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11612	acceptChannel value:true.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11613
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11614	host := self selectedSmallTeamHost value.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11615
17418 e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	11616	host notEmptyOrNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11617	self selectedSmallTeamHost value:nil.
17939 128b51c94f39 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17904 diff changeset	11618	self listOfSmallTeamHosts remove:host ifAbsent:[ self beep ].
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11619	self smallTeamHostEntry value:''.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11620	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11621
17418 e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	11622	"Modified: / 17-02-2017 / 08:33:29 / cg"
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11623	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11624
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11625	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11626
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11627	defaultIcon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	11628	<resource: #programImage>
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	11629
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	11630	^ AbstractSettingsApplication::MiscCommunicationSettingsAppl defaultIcon.
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11631	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11632
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11633	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11634
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11635	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11636	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11637	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11638
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11639	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11640	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11641
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11642	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11643	UIPainter new openOnClass:AbstractSettingsApplication::OsiSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11644	AbstractSettingsApplication::OsiSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11645	AbstractSettingsApplication::OsiSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11646	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11647
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11648	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11649
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	11650	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11651	#(FullSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11652	name: windowSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11653	window:
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11654	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11655	label: 'OSI Protocols Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11656	name: 'OSI Protocols Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11657	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11658	bounds: (Rectangle 0 0 600 550)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11659	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11660	component:
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11661	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11662	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11663	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11664	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11665	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11666	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11667	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11668	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11669	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11670	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11671	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11672	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11673	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11674	label: 'ACSE'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11675	name: 'Label1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11676	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11677	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11678	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11679	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11680	name: 'Box1a'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11681	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11682	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11683	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11684	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11685	label: 'Log Errors'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11686	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11687	layout: (LayoutFrame 25 0 0 0 -2 0.33 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11688	enableChannel: osiACSEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11689	model: osiACSEErrorLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11690	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11691	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11692	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11693
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11694	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11695	extent: (Point 600 27)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11696	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11697	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11698	name: 'Box1b'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11699	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11700	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11701	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11702	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11703	label: 'Log Connections'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11704	name: 'CheckBox10'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11705	layout: (LayoutFrame 25 0 0 0 -2 0.66 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11706	enableChannel: osiACSEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11707	model: osiACSEConnectionLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11708	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11709	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11710	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11711
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11712	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11713	extent: (Point 600 26)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11714	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11715	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11716	name: 'Box1c'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11717	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11718	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11719	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11720	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11721	label: 'Log Data Transfer'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11722	name: 'CheckBox14'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11723	layout: (LayoutFrame 25 0 0 0 -2 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11724	enableChannel: osiACSEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11725	model: osiACSEDataLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11726	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11727	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11728	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11729
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11730	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11731	extent: (Point 600 26)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11732	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11733	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11734	name: 'Separator1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11735	extent: (Point 600 4)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11736	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11737	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11738	label: 'ROSE'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11739	name: 'Label2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11740	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11741	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11742	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11743	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11744	name: 'Box4a'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11745	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11746	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11747	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11748	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11749	label: 'Log Errors'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11750	name: 'CheckBox4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11751	layout: (LayoutFrame 25 0 0 0 -2 0.33 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11752	enableChannel: osiROSEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11753	model: osiROSEErrorLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11754	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11755	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11756	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11757
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11758	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11759	extent: (Point 600 25)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11760	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11761	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11762	name: 'Box4b'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11763	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11764	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11765	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11766	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11767	label: 'Log Invoactions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11768	name: 'CheckBox16'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11769	layout: (LayoutFrame 25 0 0 0 -2 0.66 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11770	enableChannel: osiROSEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11771	model: osiROSEInvokationLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11772	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11773	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11774	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11775
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11776	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11777	extent: (Point 600 25)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11778	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11779	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11780	name: 'Box4c'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11781	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11782	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11783	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11784	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11785	label: 'Log Responses'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11786	name: 'CheckBox20'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11787	layout: (LayoutFrame 25 0 0 0 -2 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11788	enableChannel: osiROSEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11789	model: osiROSEResponseLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11790	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11791	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11792	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11793
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11794	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11795	extent: (Point 600 25)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11796	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11797	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11798	name: 'Separator2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11799	extent: (Point 600 3)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11800	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11801	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11802	label: 'CMISE'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11803	name: 'Label3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11804	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11805	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11806	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11807	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11808	name: 'Box7a'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11809	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11810	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11811	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11812	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11813	label: 'Log Errors'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11814	name: 'CheckBox7'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11815	layout: (LayoutFrame 25 0 0 0 -2 0.33 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11816	enableChannel: osiCMISEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11817	model: osiCMISEErrorLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11818	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11819	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11820	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11821
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11822	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11823	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11824	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11825	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11826	name: 'Box7b'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11827	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11828	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11829	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11830	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11831	label: 'Log Messages'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11832	name: 'CheckBox22'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11833	layout: (LayoutFrame 25 0 0 0 -2 0.66 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11834	enableChannel: osiCMISEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11835	model: osiCMISEMessageLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11836	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11837	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11838	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11839
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11840	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11841	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11842	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11843	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11844
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11845	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11846	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11847	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11848
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11849	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11850	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11851	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11852
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11853	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11854
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11855	basicReadSettings
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11856	self updateOSIPackagePresentHolders.
19505 40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11857	osiACSEPresent value ifTrue:[
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11858	osiACSEErrorLogging value:OSI::ACSE errorLogging.
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11859	osiACSEConnectionLogging value:OSI::ACSE connectionLogging.
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11860	osiACSEDataLogging value:OSI::ACSE dataLogging
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11861	].
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11862	osiROSEPresent value ifTrue:[
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11863	osiROSEErrorLogging value:OSI::ROSE errorLogging.
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11864	osiROSEInvokationLogging value:OSI::ROSE invocationLogging.
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11865	osiROSEResponseLogging value:OSI::ROSE responseLogging
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11866	].
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11867	osiCMISEPresent value ifTrue:[
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11868	osiCMISEErrorLogging value:OSI::CMISE errorLogging.
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11869	osiCMISEMessageLogging value:OSI::CMISE messageLogging
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11870	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11871	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11872
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11873	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11874
19505 40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11875	osiACSEPresent value ifTrue:[
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11876	OSI::ACSE errorLogging: osiACSEErrorLogging value.
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11877	OSI::ACSE connectionLogging: osiACSEConnectionLogging value.
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11878	OSI::ACSE dataLogging: osiACSEDataLogging value.
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11879	].
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11880	osiROSEPresent value ifTrue:[
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11881	OSI::ROSE errorLogging: osiROSEErrorLogging value.
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11882	OSI::ROSE invocationLogging: osiROSEInvokationLogging value.
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11883	OSI::ROSE responseLogging: osiROSEResponseLogging value.
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11884	].
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11885	osiCMISEPresent value ifTrue:[
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11886	OSI::CMISE errorLogging: osiCMISEErrorLogging value.
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11887	OSI::CMISE messageLogging: osiCMISEMessageLogging value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11888	].
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11889	!
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11890
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11891	updateOSIPackagePresentHolders
19505 40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11892	osiACSEPresent value:(OSI::ACSE notNil and:[OSI::ACSE isLoaded]).
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11893	osiROSEPresent value:(OSI::ROSE notNil and:[OSI::ROSE isLoaded]).
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11894	osiCMISEPresent value:(OSI::CMISE notNil and:[OSI::CMISE isLoaded]).
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11895	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11896
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11897	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11898
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11899	osiACSEConnectionLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11900	^ osiACSEConnectionLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11901	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11902
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11903	osiACSEDataLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11904	^ osiACSEDataLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11905	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11906
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11907	osiACSEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11908	^ osiACSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11909	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11910
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11911	osiACSEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11912	^ osiACSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11913	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11914
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11915	osiCMISEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11916	^ osiCMISEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11917	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11918
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11919	osiCMISEMessageLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11920	^ osiCMISEMessageLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11921	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11922
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11923	osiCMISEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11924	^ osiCMISEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11925	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11926
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11927	osiROSEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11928	^ osiROSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11929	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11930
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11931	osiROSEInvokationLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11932	^ osiROSEInvokationLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11933	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11934
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11935	osiROSEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11936	^ osiROSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11937	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11938
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11939	osiROSEResponseLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11940	^ osiROSEResponseLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11941	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11942
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11943	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11944
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11945	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11946	^ 'Launcher/communicationsSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11947	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11948
19505 40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11949	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'initialization'!
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11950
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11951	initialize
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11952	super initialize.
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11953
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11954	osiACSEConnectionLogging := true asValue.
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11955	osiACSEDataLogging := true asValue.
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11956	osiACSEErrorLogging := true asValue.
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11957	osiACSEPresent := OSI::ACSE notNil asValue.
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11958	osiCMISEErrorLogging := true asValue.
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11959	osiCMISEMessageLogging := true asValue.
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11960	osiCMISEPresent := OSI::CMISE notNil asValue.
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11961	osiROSEErrorLogging := true asValue.
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11962	osiROSEInvokationLogging := true asValue.
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11963	osiROSEPresent := OSI::ROSE notNil asValue.
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11964	osiROSEResponseLogging := true asValue.
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11965	! !
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11966
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11967	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11968
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11969	hasUnsavedChanges
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11970	self updateOSIPackagePresentHolders.
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11971
19505 40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11972	(osiACSEPresent value
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11973	and:[
19505 40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11974	osiACSEErrorLogging value ~= OSI::ACSE errorLogging
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11975	or:[ osiACSEConnectionLogging value ~= OSI::ACSE connectionLogging
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11976	or:[ osiACSEDataLogging value ~= OSI::ACSE dataLogging]]]) ifTrue:[^ true].
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11977
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11978	(osiROSEPresent value
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11979	and:[
19505 40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11980	osiROSEErrorLogging value ~= OSI::ROSE errorLogging
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11981	or:[ osiROSEInvokationLogging value ~= OSI::ROSE invocationLogging
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11982	or:[ osiROSEResponseLogging value ~= OSI::ROSE responseLogging]]]) ifTrue:[^ true].
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11983
19505 40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11984	(osiCMISEPresent value
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11985	and:[
19505 40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11986	osiCMISEErrorLogging value ~= OSI::CMISE errorLogging
40f166a6e992 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19504 diff changeset	11987	or:[ osiCMISEMessageLogging value ~= OSI::CMISE messageLogging]])ifTrue:[^ true].
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11988
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11989	^ false.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11990	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11991
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11992	!AbstractSettingsApplication::PackagePathSettingsAppl class methodsFor:'image specs'!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11993
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11994	defaultIcon
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11995	<resource: #programImage>
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11996
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11997	^ ToolbarIconLibrary packageOpen24x24Icon
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11998	! !
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11999
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12000	!AbstractSettingsApplication::PackagePathSettingsAppl class methodsFor:'interface specs'!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12001
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12002	windowSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12003	"This resource specification was automatically generated
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12004	by the UIPainter of ST/X."
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12005
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12006	"Do not manually edit this!! If it is corrupted,
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12007	the UIPainter may not be able to read the specification."
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12008
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12009	"
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12010	UIPainter new openOnClass:AbstractSettingsApplication::PackagePathSettingsAppl andSelector:#windowSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12011	AbstractSettingsApplication::PackagePathSettingsAppl new openInterface:#windowSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12012	AbstractSettingsApplication::PackagePathSettingsAppl open
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12013	"
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12014
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12015	<resource: #canvas>
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12016
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12017	^
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12018	#(FullSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12019	name: windowSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12020	window:
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12021	(WindowSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12022	label: 'Package Path Settings'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12023	name: 'Package Path Settings'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12024	min: (Point 10 10)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12025	bounds: (Rectangle 0 0 659 287)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12026	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12027	component:
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12028	(SpecCollection
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12029	collection: (
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12030	(FramedBoxSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12031	label: 'Package Path'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12032	name: 'FramedBox1'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12033	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12034	labelPosition: topLeft
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12035	translateLabel: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12036	component:
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12037	(SpecCollection
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12038	collection: (
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12039	(LabelSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12040	label: 'Folders in Package Path'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12041	name: 'Label1'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12042	layout: (LayoutFrame 0 0.0 10 0 0 1.0 40 0)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12043	translateLabel: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12044	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12045	(SequenceViewSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12046	name: 'List1'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12047	layout: (LayoutFrame 0 0 40 0 0 1 -40 1)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12048	model: selectedFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12049	hasHorizontalScrollBar: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12050	hasVerticalScrollBar: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12051	useIndex: false
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12052	sequenceList: listOfFoldersInPath
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12053	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12054	(HorizontalPanelViewSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12055	name: 'HorizontalPanel1'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12056	layout: (LayoutFrame 0 0.0 -36 1 0 1.0 4 1)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12057	horizontalLayout: right
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12058	verticalLayout: center
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12059	horizontalSpace: 3
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12060	verticalSpace: 3
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12061	component:
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12062	(SpecCollection
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12063	collection: (
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12064	(ActionButtonSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12065	label: 'Add...'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12066	name: 'Button1'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12067	translateLabel: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12068	model: addFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12069	extent: (Point 93 31)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12070	usePreferredWidth: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12071	usePreferredHeight: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12072	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12073	(ActionButtonSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12074	label: 'Remove Selected'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12075	name: 'Button2'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12076	translateLabel: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12077	model: removeSelectedFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12078	extent: (Point 144 31)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12079	usePreferredWidth: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12080	usePreferredHeight: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12081	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12082	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12083
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12084	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12085	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12086	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12087
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12088	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12089	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12090	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12091
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12092	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12093	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12094	! !
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12095
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12096	!AbstractSettingsApplication::PackagePathSettingsAppl methodsFor:'actions'!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12097
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12098	addFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12099	\|folder\|
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12100
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12101	folder := Dialog requestDirectoryName:'Additional Folder with Packages:'.
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12102	folder isEmptyOrNil ifTrue:[^ self].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12103	(self listOfFoldersInPath includes:folder) ifFalse:[
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12104	self listOfFoldersInPath add:folder.
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12105	self updateModifiedChannel.
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12106	].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12107	!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12108
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12109	basicReadSettings
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12110	self listOfFoldersInPath contents:(Smalltalk packagePath).
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12111	!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12112
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12113	basicSaveSettings
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12114	Smalltalk packagePath:(self listOfFoldersInPath asOrderedCollection).
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12115	!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12116
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12117	removeSelectedFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12118	self listOfFoldersInPath remove:(self selectedFolder value) ifAbsent:[].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12119	self updateModifiedChannel.
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12120	! !
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12121
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12122	!AbstractSettingsApplication::PackagePathSettingsAppl methodsFor:'aspects'!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12123
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12124	aspects
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12125	^ #(
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12126	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12127	!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12128
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12129	listOfFoldersInPath
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12130	listOfFoldersInPath isNil ifTrue:[
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12131	listOfFoldersInPath := List new.
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12132	listOfFoldersInPath addAll:Smalltalk packagePath
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12133	].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12134	^ listOfFoldersInPath
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12135	!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12136
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12137	selectedFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12138	selectedFolder isNil ifTrue:[
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12139	selectedFolder := nil asValue.
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12140	].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12141	^ selectedFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12142	! !
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12143
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12144	!AbstractSettingsApplication::PackagePathSettingsAppl methodsFor:'help'!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12145
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12146	helpFilename
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12147	^ 'Launcher/packagePathSettings.html'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12148	! !
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12149
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12150	!AbstractSettingsApplication::PackagePathSettingsAppl methodsFor:'queries'!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12151
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12152	hasUnsavedChanges
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12153	self listOfFoldersInPath asOrderedCollection ~= Smalltalk packagePath asOrderedCollection ifTrue:[^ true].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12154	^ false.
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12155	! !
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12156
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12157	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12158
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12159	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	12160	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	12161
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	12162	^ ToolbarIconLibrary printerIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12163	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12164
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12165	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12166
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12167	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12168	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12169	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12170
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12171	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12172	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12173
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12174	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12175	UIPainter new openOnClass:AbstractSettingsApplication::PrinterSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12176	AbstractSettingsApplication::PrinterSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12177	AbstractSettingsApplication::PrinterSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12178	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12179
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12180	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12181
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12182	^
14241 e20d2a66f0b5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14240 diff changeset	12183	#(FullSpec
e20d2a66f0b5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14240 diff changeset	12184	name: windowSpec
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12185	window:
14241 e20d2a66f0b5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14240 diff changeset	12186	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12187	label: 'Printer Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12188	name: 'Printer Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12189	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12190	min: (Point 10 10)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12191	bounds: (Rectangle 0 0 601 474)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12192	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12193	component:
14241 e20d2a66f0b5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14240 diff changeset	12194	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12195	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12196	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12197	name: 'VerticalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12198	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12199	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12200	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12201	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12202	verticalSpace: 3
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12203	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12204	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12205	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12206	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12207	name: 'PrinterSelectBox'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12208	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12209	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12210	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12211	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12212	label: 'Printer Type:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12213	name: 'PrinterTypeLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12214	layout: (LayoutFrame 0 0 5 0 181 0 35 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12215	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12216	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12217	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12218	(ComboListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12219	name: 'PrinterTypeComboList'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12220	layout: (LayoutFrame 183 0 5 0 -5 1 35 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12221	model: printerTypeSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12222	comboList: printerType
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12223	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12224	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12225	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12226	label: 'Print Command:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12227	name: 'PrinterCommandLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12228	layout: (LayoutFrame 0 0 38 0 181 0 68 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12229	visibilityChannel: printerIsDrivenByCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12230	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12231	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12232	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12233	(ComboBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12234	name: 'CommandComboBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12235	layout: (LayoutFrame 183 0 38 0 -5 1 68 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12236	visibilityChannel: printerIsDrivenByCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12237	enableChannel: printCommandEnabled
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12238	model: printCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12239	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12240	acceptOnPointerLeave: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12241	comboList: printCommandList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12242	useIndex: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12243	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12244	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12245	label: 'Print to File:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12246	name: 'PrinterFileLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12247	layout: (LayoutFrame 0 0 71 0 181 0 101 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12248	visibilityChannel: printerSupportsPrintingToFile
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12249	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12250	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12251	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12252	(FilenameInputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12253	name: 'PrinterFileEntryField'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12254	layout: (LayoutFrame 183 0 71 0 -5 1 101 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12255	visibilityChannel: printerSupportsPrintingToFile
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12256	model: printFilename
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12257	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12258	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12259	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12260	acceptOnPointerLeave: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12261	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12262	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12263
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12264	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12265	extent: (Point 601 108)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12266	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12267	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12268	name: 'FormatBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12269	visibilityChannel: supportsPageFormatSetting
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12270	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12271	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12272	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12273	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12274	name: 'Separator1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12275	layout: (LayoutFrame 0 0 4 0 0 1 7 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12276	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12277	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12278	label: 'Page Format:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12279	name: 'PageFormatLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12280	layout: (LayoutFrame 0 0 11 0 181 0 41 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12281	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12282	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12283	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12284	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12285	label: 'PopUp List'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12286	name: 'PageFormatPopUpList'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12287	layout: (LayoutFrame 183 0 11 0 333 0 41 0)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12288	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12289	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12290	model: pageFormat
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12291	enableChannel: enableFormat
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12292	menu: pageFormatList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12293	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12294	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12295	label: 'Landscape'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12296	name: 'LandscapeCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12297	layout: (LayoutFrame 380 0 11 0 -5 1 41 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12298	enableChannel: enablelandscape
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12299	model: landscape
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12300	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12301	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12302	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12303
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12304	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12305	extent: (Point 601 43)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12306	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12307	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12308	name: 'MarginBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12309	visibilityChannel: supportsMarginSetting
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12310	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12311	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12312	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12313	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12314	name: 'Separator5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12315	layout: (LayoutFrame 0 0 0 0 0 1 3 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12316	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12317	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12318	name: 'VerticalPanel2'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12319	layout: (LayoutFrame 0 0.0 9 0.0 0 1.0 -16 1.0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12320	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12321	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12322	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12323	verticalSpace: 3
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12324	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12325	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12326	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12327	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12328	name: 'Box1'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12329	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12330	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12331	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12332	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12333	label: 'Top Margin:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12334	name: 'TopMarginLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12335	layout: (LayoutFrame 0 0 0 0 181 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12336	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12337	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12338	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12339	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12340	name: 'TopMarginEntryField'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12341	layout: (LayoutFrame 183 0 0 0 283 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12342	enableChannel: enableMargins
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12343	model: topMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12344	type: numberOrNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12345	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12346	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12347	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12348	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12349	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12350	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12351	label: 'PopUp List'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12352	name: 'PopUpList2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12353	layout: (LayoutFrame -155 1 0 0 -5 1 30 0)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12354	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12355	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12356	model: selectedUnit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12357	menu: unitList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12358	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12359	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12360	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12361
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12362	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12363	extent: (Point 601 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12364	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12365	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12366	name: 'Box2'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12367	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12368	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12369	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12370	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12371	label: 'Left Margin:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12372	name: 'LeftMarginLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12373	layout: (LayoutFrame 0 0 0 0 181 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12374	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12375	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12376	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12377	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12378	name: 'LeftMarginEntryField'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12379	layout: (LayoutFrame 183 0 0 0 283 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12380	enableChannel: enableMargins
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12381	model: leftMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12382	type: numberOrNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12383	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12384	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12385	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12386	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12387	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12388	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12389
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12390	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12391	extent: (Point 601 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12392	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12393	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12394	name: 'Box3'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12395	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12396	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12397	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12398	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12399	label: 'Right Margin:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12400	name: 'RightMarginLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12401	layout: (LayoutFrame 0 0 0 0 181 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12402	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12403	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12404	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12405	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12406	name: 'RightMarginEntryField'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12407	layout: (LayoutFrame 183 0 0 0 283 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12408	enableChannel: enableMargins
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12409	model: rightMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12410	type: numberOrNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12411	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12412	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12413	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12414	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12415	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12416	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12417
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12418	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12419	extent: (Point 601 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12420	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12421	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12422	name: 'Box4'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12423	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12424	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12425	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12426	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12427	label: 'Bottom Margin:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12428	name: 'BottomMarginLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12429	layout: (LayoutFrame 0 0 0 0 181 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12430	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12431	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12432	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12433	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12434	name: 'BottomMarginEntryField'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12435	layout: (LayoutFrame 183 0 0 0 283 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12436	enableChannel: enableMargins
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12437	model: bottomMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12438	type: numberOrNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12439	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12440	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12441	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12442	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12443	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12444	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12445
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12446	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12447	extent: (Point 601 32)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12448	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12449	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12450
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12451	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12452	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12453	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12454
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12455	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12456	extent: (Point 601 164)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12457	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12458	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12459	name: 'ColorBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12460	visibilityChannel: supportsColorSetting
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12461	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12462	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12463	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12464	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12465	name: 'Separator6'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12466	layout: (LayoutFrame 0 0 0 0 0 1 3 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12467	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12468	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12469	label: 'Color Printer'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12470	name: 'ColorPrinterCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12471	layout: (LayoutFrame 183 0 4 0 782 0 34 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12472	enableChannel: enableColorBox
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12473	model: supportsColor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12474	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12475	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12476	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12477
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12478	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12479	extent: (Point 601 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12480	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12481	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12482
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12483	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12484	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12485	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12486
14241 e20d2a66f0b5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14240 diff changeset	12487	)
e20d2a66f0b5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14240 diff changeset	12488	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12489	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12490
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12491	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12492
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12493	basicReadSettings
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12494	Printer notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12495	self
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12496	readAspects:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12497	#(
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12498	topMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12499	bottomMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12500	leftMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12501	rightMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12502	landscape
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12503	printCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12504	printFilename
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12505	supportsColor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12506	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12507	from:Printer.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12508	].
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12509
9811 6ac0aaf84f1e Fix printting under linux Stefan Vogel <sv@exept.de> parents: 9803 diff changeset	12510	self printerTypeSelection value:(self possiblePrinters identityIndexOf:Printer ifAbsent:1).
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12511	self pageFormatList notEmpty ifTrue:[ self pageFormat value:Printer pageFormat ].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12512	self printerTypeSelectionOrUnitListChanged.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12513
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12514	"Modified: / 07-08-2006 / 15:22:27 / fm"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12515	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12516
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12517	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12518
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12519	Printer := self possiblePrinters at:(self printerTypeSelection value).
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12520
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12521	Printer printCommand:self printCommand value.
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12522	Printer printFilename:(printFilename value isEmptyOrNil ifTrue:[nil] ifFalse:[printFilename value]).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12523
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12524	Printer supportsPageSizes ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12525	Printer pageFormat:(self pageFormat value).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12526	Printer landscape:(self landscape value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12527	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12528	Printer supportsMargins ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12529	\| unit \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12530	self selectedUnit value == 2 ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12531	unit := #mm
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12532	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12533	unit := #inch
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12534	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12535	Printer topMargin:(UnitConverter convert:(self topMargin value) from:unit to:#inch).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12536	Printer leftMargin:(UnitConverter convert:(self leftMargin value) from:unit to:#inch).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12537	Printer rightMargin:(UnitConverter convert:(self rightMargin value) from:unit to:#inch).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12538	Printer bottomMargin:(UnitConverter convert:(self bottomMargin value) from:unit to:#inch).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12539	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12540	Printer supportsPostscript ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12541	Printer supportsColor:self supportsColor value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12542	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12543	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12544
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12545	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12546
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12547	bottomMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12548	^ bottomMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12549	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12550
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12551	enableColorBox
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12552	^ enableColorBox.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12553	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12554
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12555	enableFormat
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12556	^ enableFormat.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12557	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12558
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12559	enableMargins
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12560	^ enableMargins.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12561	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12562
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12563	enablelandscape
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12564	^ enablelandscape.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12565	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12566
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12567	landscape
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12568	^ landscape.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12569
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12570	"Modified: / 07-08-2006 / 15:22:44 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12571	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12572
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12573	leftMargin
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12574	^ leftMargin.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12575	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12576
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12577	pageFormat
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12578	^ pageFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12579	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12580
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12581	pageFormatList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12582	^ pageFormatList.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12583
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12584	"Modified: / 07-08-2006 / 15:23:19 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12585	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12586
19506 a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12587	possiblePrinters
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12588	^ possiblePrinters
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12589	!
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12590
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12591	printCommand
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12592	^ printCommand.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12593	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12594
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12595	printCommandEnabled
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12596	^ BlockValue
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12597	with:[:m \| m isEmptyOrNil]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12598	argument:(self printFilename).
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12599
06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12600	"Modified: / 08-03-2007 / 23:02:40 / cg"
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12601	!
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12602
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12603	printCommandList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12604	^ printCommandList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12605	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12606
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12607	printFilename
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12608	^ printFilename.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12609
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12610	"Modified: / 07-08-2006 / 15:24:45 / fm"
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12611	!
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12612
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12613	printerIsDrivenByCommand
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12614	^ printerIsDrivenByCommand.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12615
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12616	"Created: / 10-10-2006 / 18:22:32 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12617	"Modified: / 08-03-2007 / 23:02:44 / cg"
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12618	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12619
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12620	printerSupportsPrintingToFile
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12621	^ printerSupportsPrintingToFile.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12622
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12623	"Created: / 10-10-2006 / 18:27:44 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12624	"Modified: / 08-03-2007 / 23:02:47 / cg"
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12625	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12626
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12627	printerType
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12628	^ printerType.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12629
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12630	"Modified: / 10-10-2006 / 18:09:43 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12631	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12632
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12633	printerTypeSelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12634	^ printerTypeSelection.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12635
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12636	"Modified: / 10-10-2006 / 18:22:58 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12637	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12638
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12639	rightMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12640	^ rightMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12641	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12642
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12643	selectedUnit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12644	^ selectedUnit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12645	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12646
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12647	supportsColor
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12648	^ supportsColor.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12649
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12650	"Modified: / 07-08-2006 / 15:24:22 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12651	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12652
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12653	supportsColorSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12654	^ supportsColorSetting.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12655
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12656	"Created: / 10-10-2006 / 18:35:47 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12657	"Modified: / 08-03-2007 / 23:02:50 / cg"
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12658	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12659
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12660	supportsMarginSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12661	^ supportsMarginSetting.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12662
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12663	"Created: / 10-10-2006 / 18:35:33 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12664	"Modified: / 08-03-2007 / 23:02:54 / cg"
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12665	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12666
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12667	supportsPageFormatSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12668	^ supportsPageFormatSetting.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12669
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12670	"Created: / 10-10-2006 / 18:36:33 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12671	"Modified: / 08-03-2007 / 23:02:56 / cg"
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12672	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12673
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12674	topMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12675	^ topMargin.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12676
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12677	"Modified: / 07-08-2006 / 15:21:50 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12678	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12679
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12680	unitList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12681	^ unitList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12682	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12683
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12684	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12685
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12686	printerTypeSelectionChanged
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12687	\| p hasPageSize hasMargins\|
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12688
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	12689	self printerType selectionIndex ~~ 0 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12690	p := self possiblePrinters at:(self printerType selectionIndex).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12691	hasPageSize := p supportsPageSizes.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12692	hasMargins := p supportsMargins.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12693	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12694	hasPageSize := false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12695	hasMargins := false.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12696	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12697	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12698
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12699	printerTypeSelectionOrUnitListChanged
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12700	\| p hasPageSize hasMargins unit printerSupportsPostscript\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12701
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12702	self printerTypeSelection value ~~ 0 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12703	p := self possiblePrinters at:(self printerTypeSelection value).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12704	hasPageSize := p supportsPageSizes.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12705	hasMargins := p supportsMargins.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12706	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12707	hasPageSize := false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12708	hasMargins := false.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12709	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12710	self enablelandscape value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12711	self enableFormat value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12712	hasPageSize ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12713	self pageFormat value:(p pageFormat).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12714	self landscape value:(p landscape).
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12715	] ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12716	self landscape value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12717	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12718	hasMargins ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12719	self selectedUnit value == 2 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12720	unit := #mm
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12721	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12722	unit := #inch
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12723	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12724
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	12725	self topMargin value:(UnitConverter convert:p topMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	12726	self leftMargin value:(UnitConverter convert:p leftMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	12727	self rightMargin value:(UnitConverter convert:p rightMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	12728	self bottomMargin value:(UnitConverter convert:p bottomMargin from:#inch to:unit).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12729
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12730	] ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12731	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12732	self enableMargins value:hasMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12733
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12734	p notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12735	\| newCommandList \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12736	newCommandList := p defaultCommands.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12737	newCommandList notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12738	self printCommandList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12739	contents:(newCommandList asList);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12740	changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12741	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12742	self printCommand value:(p printCommand).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12743	self printFilename value:(p printFilename ? '').
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12744	].
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12745	printerSupportsPostscript := p notNil and:[p supportsPostscript].
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12746	self enableColorBox value:printerSupportsPostscript.
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12747	printerSupportsPostscript ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12748	self supportsColor value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12749	] ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12750	self supportsColor value:(Printer supportsColor).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12751	]
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12752
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12753	"Modified: / 07-08-2006 / 15:24:06 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12754	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12755
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12756	unitListChanged
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12757	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12758
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12759	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12760	(changedObject == self selectedUnit or:[changedObject == self printerTypeSelection]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12761	self printerTypeSelectionOrUnitListChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12762	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12763	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12764
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12765	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12766	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12767
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12768	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12769
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12770	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12771	^ 'Launcher/printerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12772	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12773
19506 a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12774	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'initialization'!
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12775
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12776	initialize
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12777	\| index printerIndex \|
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12778
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12779	super initialize.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12780
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12781	possiblePrinters := PrinterStream withAllSubclasses asArray.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12782
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12783	unitList := #('inch' 'mm') asList.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12784
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12785	enableColorBox := true asValue.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12786	enableFormat := true asValue.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12787	enableMargins := true asValue.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12788	enablelandscape := true asValue.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12789
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12790	landscape := (Printer isNil ifTrue:[ false ] ifFalse:[ Printer landscape]) asValue.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12791	landscape onChangeSend:#updateModifiedChannel to:self.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12792
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12793	bottomMargin := Printer bottomMargin asValue.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12794	bottomMargin onChangeSend:#updateModifiedChannel to:self.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12795
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12796	topMargin := (Printer isNil ifTrue:[ 0 ] ifFalse:[ Printer topMargin ]) asValue.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12797	topMargin onChangeSend:#updateModifiedChannel to:self.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12798
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12799	leftMargin := Printer leftMargin asValue.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12800	leftMargin onChangeSend:#updateModifiedChannel to:self.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12801
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12802	rightMargin := Printer rightMargin asValue.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12803	rightMargin onChangeSend:#updateModifiedChannel to:self.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12804
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12805	pageFormatList := (Printer isNil ifTrue:[ #() ] ifFalse: [Printer defaultPageFormats]) asList.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12806	pageFormatList notEmpty ifTrue:[
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12807	(index := pageFormatList indexOf:#a4) ~~ 0 ifTrue:[
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12808	pageFormat := index asValue.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12809	] ifFalse:[
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12810	pageFormat := 1 asValue.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12811	]
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12812	].
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12813	pageFormat onChangeSend:#updateModifiedChannel to:self.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12814
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12815	printerIndex := possiblePrinters identityIndexOf:Printer.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12816	printerIndex == 0 ifTrue:[
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12817	possiblePrinters isEmptyOrNil ifTrue:[self error:'no printer'].
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12818	printerIndex := 1.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12819	].
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12820	printerTypeSelection := printerIndex asValue.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12821	printerTypeSelection addDependent:self.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12822
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12823	printCommand := Printer printCommand asValue.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12824	printCommand onChangeSend:#updateModifiedChannel to:self.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12825
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12826	printCommandList := self commandList asList.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12827
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12828	printFilename := (Printer isNil ifTrue:[''] ifFalse:[Printer printFilename ? '']) asValue.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12829	printFilename onChangeSend:#updateModifiedChannel to:self.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12830
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12831	printerType := (possiblePrinters collect:[:cls \| cls printerTypeName]) asList.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12832	printerType onChangeSend:#updateModifiedChannel to:self.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12833
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12834	printerSupportsPrintingToFile := BlockValue
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12835	with:[:m \| (possiblePrinters at:m) supportsPrintingToFile ]
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12836	argument:printerTypeSelection.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12837
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12838	printerIsDrivenByCommand := BlockValue
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12839	with:[:m \|
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12840	\|printer\|
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12841
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12842	printer := possiblePrinters at:m value ifAbsent:nil.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12843	printer notNil ifTrue:[
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12844	printer isDrivenByCommand
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12845	] ifFalse:[
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12846	self breakPoint:#expecco.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12847	false
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12848	]
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12849	]
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12850	argument:printerTypeSelection.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12851
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12852	supportsPageFormatSetting := BlockValue
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12853	with:[:m \| (possiblePrinters at:m) supportsPageSizes ]
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12854	argument:printerTypeSelection.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12855
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12856	supportsColor := (Printer notNil and:[Printer supportsColor]) asValue.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12857	supportsColor onChangeSend:#updateModifiedChannel to:self.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12858
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12859	supportsMarginSetting := BlockValue
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12860	with:[:m \| (possiblePrinters at:m) supportsMargins ]
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12861	argument:printerTypeSelection.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12862
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12863	supportsColorSetting := BlockValue
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12864	with:[:m \| (possiblePrinters at:m) supportsColor ]
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12865	argument:printerTypeSelection.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12866	"/ enforce enablement update
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12867	printerTypeSelection changed.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12868	printerTypeSelection onChangeSend:#updateModifiedChannel to:self.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12869
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12870	selectedUnit := 1 asValue.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12871	selectedUnit addDependent:self.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12872	selectedUnit changed.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12873	selectedUnit onChangeSend:#updateModifiedChannel to:self.
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12874	! !
a80af9b22272 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19505 diff changeset	12875
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12876	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12877
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12878	commandList
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12879	commandList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12880	commandList := resources string:'PRINT_COMMANDS' default:nil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12881	commandList isNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12882	commandList := PrinterStream defaultCommands.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12883	commandList isNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12884	commandList := #('lpr' 'lp').
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12885	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12886	(commandList includes:self printCommand value) ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12887	commandList := commandList copyWith:self printCommand value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12888	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12889	].
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12890	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12891	^ commandList
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12892	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12893
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12894	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12895	\| printer unit\|
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12896
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12897	Printer isNil ifTrue:[^ false].
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12898
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12899	self selectedUnit value == 2 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12900	unit := #mm
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12901	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12902	unit := #inch
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12903	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12904	printer := self possiblePrinters at:(self printerTypeSelection value).
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12905
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12906	printer ~= Printer ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12907
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12908	Printer printCommand ~= self printCommand value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12909	(Printer printFilename ? '') ~= (self printFilename value ? '') ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12910
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12911	Printer supportsPageSizes ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12912	Printer pageFormat ~= self pageFormat value ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12913	Printer landscape ~= (self landscape value) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12914	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12915	Printer supportsMargins ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12916	Printer topMargin ~= ((UnitConverter convert:(self topMargin value asFloat) from:unit to:#inch) asFloat) ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12917	Printer leftMargin ~= ((UnitConverter convert:(self leftMargin value asFloat) from:unit to:#inch) asFloat) ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12918	Printer rightMargin ~= ((UnitConverter convert:(self rightMargin value asFloat) from:unit to:#inch) asFloat) ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12919	Printer bottomMargin ~= ((UnitConverter convert:(self bottomMargin value asFloat) from:unit to:#inch) asFloat) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12920	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12921	Printer supportsPostscript ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12922	Printer supportsColor ~= self supportsColor value ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12923	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12924	^ false
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12925
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12926	"Modified: / 07-08-2006 / 15:25:47 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12927	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12928
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12929	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'help specs'!
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12930
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	12931	helpSpec
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12932	"This resource specification was automatically generated
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12933	by the UIHelpTool of ST/X."
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12934
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12935	"Do not manually edit this!! If it is corrupted,
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12936	the UIHelpTool may not be able to read the specification."
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12937
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12938	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12939	UIHelpTool openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12940	"
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12941
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12942	<resource: #help>
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12943
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	12944	^ super helpSpec addPairsFrom:#(
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12945
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12946	#dynamicPriorities
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12947	'If checked, the scheduler uses an adaptive dynamic priority scheme, where low priority background processes are guaranteed to make progress,\even if higher priority processes are constantly executing.\The algorithm is similar to the UNIX scheduler''s, where the dynamic priority of a long waiting process is increased slowly,\until it gets a chance to run. This is very useful for background tasks, such as print jobs'
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12948
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12949	#preemptiveScheduling
16992 01cd10d0a65a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16989 diff changeset	12950	'If checked, processes are preempted (suspended) in regular short intervals, if another process with the same priority is ready to run.\Thus the processor is timeslicing among processes.\If off, processes use the CPU until they go into a wait or explicitly yield the CPU to another process.\\Non-preemptive is the default in most other Smalltalk implementations,\as it allows for sloppy coding of all accesses to global shared state (such as the dependency collections or the Transcript window).\However, it results in a very bad user experience, as long running actions will freeze the UI.\\Therefore, preemptive scheduling is the default in ST/X'
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12951
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12952	)
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12953	! !
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12954
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12955	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12956
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12957	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12958	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12959	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12960
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12961	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12962	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12963
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12964	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12965	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12966	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12967	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12968	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12969
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12970	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12971
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12972	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	12973	constantNamed:'AbstractSettingsApplication::ProcessorSchedulerSettingsAppl defaultIcon'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	12974	ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12975	@@@@@@@@@@@@@@@@@@@@ADQ@@@@@@@@@@DQBL2QD@@@@@@@DH"D3D"I@@@@@@DHQDSLQDRP@@@@DHQDQDQDQD$@@@DHQDQDQDQDQI@@@P!!DQDQDQDQD$@@AB
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12976	DQDQDQLQDRP@ABDQDQDQLQDQD$@DHQDQDSLQDQDRP@P!!DQDQL1DQDQI@ABDQDQDQLQDQD$@@P!!DQDQDSDQD$@@ABDQDQDQD1DRP@@DHQDQDQDQLQI@@@ABDQ
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	12977	DQDQDQI@@@@@P!!DQDQDQI@@@@@@DH"DQD"I@@@@@@@ADP"H$Q@@@@@@@@@@DQD@@@@@@@@@@@@@@@@@@@@@b')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	12978	colorMapFromArray:#[0 0 0 255 255 255 128 128 128 0 128 128 192 192 192]
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	12979	mask:((ImageMask width:22 height:22) 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	12980	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12981
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12982	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12983
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12984	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12985	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12986	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12987
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12988	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12989	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12990
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12991	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12992	UIPainter new openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12993	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12994	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12995	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12996
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12997	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12998
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12999	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	13000	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	13001	name: windowSpec
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13002	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	13003	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13004	label: 'Processor and Scheduler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13005	name: 'Processor and Scheduler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13006	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13007	bounds: (Rectangle 0 0 600 320)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13008	)
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13009	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	13010	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13011	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13012	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13013	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13014	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13015	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13016	verticalLayout: topSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13017	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13018	verticalSpace: 5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13019	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13020	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13021	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13022	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13023	label: 'Preemptive Scheduling'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13024	name: 'CheckBox11'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13025	activeHelpKey: preemptiveScheduling
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13026	model: preemptive
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13027	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13028	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13029	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13030	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13031	name: 'Box2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13032	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13033	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13034	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13035	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13036	label: 'Dynamic Priorities'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13037	name: 'CheckBox12'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13038	layout: (LayoutFrame 30 0.0 0 0 0 1.0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13039	activeHelpKey: dynamicPriorities
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13040	enableChannel: preemptive
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13041	model: dynamicPrios
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13042	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13043	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13044	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13045
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13046	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13047	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13048	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13049	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13050
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13051	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13052	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13053	)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13054
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	13055	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	13056	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13057	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13058
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13059	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13060
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13061	basicReadSettings
19507 e7213639d5eb #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19506 diff changeset	13062	preemptive value:Processor isTimeSlicing.
e7213639d5eb #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19506 diff changeset	13063	dynamicPrios value:Processor supportDynamicPriorities.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13064	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13065
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13066	basicSaveSettings
19507 e7213639d5eb #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19506 diff changeset	13067	\|nowPreemptive nowDynamic\|
e7213639d5eb #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19506 diff changeset	13068
e7213639d5eb #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19506 diff changeset	13069	Processor isTimeSlicing ~~ (nowPreemptive := preemptive value) ifTrue:[
e7213639d5eb #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19506 diff changeset	13070	nowPreemptive ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13071	Processor startTimeSlicing
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13072	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13073	Processor stopTimeSlicing
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13074	]
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13075	].
19507 e7213639d5eb #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19506 diff changeset	13076	Processor supportDynamicPriorities ~~ (nowDynamic := dynamicPrios value) ifTrue:[
e7213639d5eb #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19506 diff changeset	13077	Processor supportDynamicPriorities:nowDynamic value
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13078	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13079	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13080
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13081	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13082
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13083	dynamicPrios
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13084	^ dynamicPrios.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13085	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13086
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13087	preemptive
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13088	^ preemptive.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13089	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13090
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13091	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13092
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13093	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13094	^ 'Launcher/miscSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13095	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13096
19507 e7213639d5eb #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19506 diff changeset	13097	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'initialization'!
e7213639d5eb #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19506 diff changeset	13098
e7213639d5eb #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19506 diff changeset	13099	initialize
e7213639d5eb #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19506 diff changeset	13100	super initialize.
e7213639d5eb #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19506 diff changeset	13101
e7213639d5eb #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19506 diff changeset	13102	dynamicPrios := true asValue.
e7213639d5eb #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19506 diff changeset	13103	dynamicPrios onChangeSend:#updateModifiedChannel to:self.
e7213639d5eb #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19506 diff changeset	13104
e7213639d5eb #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19506 diff changeset	13105	preemptive := true asValue.
e7213639d5eb #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19506 diff changeset	13106	preemptive onChangeSend:#updateModifiedChannel to:self.
e7213639d5eb #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19506 diff changeset	13107	! !
e7213639d5eb #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19506 diff changeset	13108
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13109	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13110
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13111	hasUnsavedChanges
19507 e7213639d5eb #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19506 diff changeset	13112	preemptive value ~= Processor isTimeSlicing ifTrue:[^ true].
e7213639d5eb #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19506 diff changeset	13113	dynamicPrios value ~= Processor supportDynamicPriorities ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	13114	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13115	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13116
16161 6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13117	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'help specs'!
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13118
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13119	helpSpec
16161 6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13120	"This resource specification was automatically generated
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13121	by the UIHelpTool of ST/X."
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13122
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13123	"Do not manually edit this!! If it is corrupted,
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13124	the UIHelpTool may not be able to read the specification."
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13125
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13126	"
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13127	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13128	"
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13129
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13130	<resource: #help>
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13131
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13132	^ super helpSpec addPairsFrom:#(
16161 6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13133
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13134	#rdoitDisabled
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13135	'RDoit setup disabled, because the "stx:goodies/rdoit" package is not loaded.\To load, open the package load dialog via the Launcher''s "File"-"Load Package" menu item.\\Press the ''Help'' button for a description of what this does'
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13136
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13137	#rdoitSettings
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13138	'RDoit setup. Press the ''Help'' button for a description of what this does'
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13139
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13140	#scriptingDisabled
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13141	'Scripting service setup disabled, because the "stx:goodies/simpleServices" package is not loaded.\To load, open the package load dialog via the Launcher''s "File"-"Load Package" menu item.\\Press the ''Help'' button for a description of what this does'
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13142
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13143	#scriptingSettings
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13144	'Scripting service setup. Press the ''Help'' button for a description of what this does'
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13145	)
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13146	! !
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13147
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13148	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13149
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13150	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13151	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13152	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13153
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13154	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13155	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13156
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13157	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13158	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13159	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13160	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13161	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13162
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13163	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13164
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13165	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	13166	constantNamed:'AbstractSettingsApplication::RDoItServerSettingsAppl defaultIcon'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	13167	ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	13168	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&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	13169	''#L3L38Q6,1P@@&[L3L8 @]7''E@@BYE3NH (@@_LT@@I$WNBBDAH L1P@@&Q]8P$IB"@3E@@BY4W $ B$@CLT@@L3L $!!H@$"@1P@@3L2DJB DJHCE@@@@UV
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	13170	!!B D @A%T@@@@@BBP$IH @@@@@@@@HPHHB"@@@@@@@@@@@!!H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	13171	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]
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	13172	mask:((ImageMask width:22 height:22) 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	13173	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13174
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13175	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13176
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13177	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13178	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13179	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13180
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13181	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13182	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13183
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13184	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13185	UIPainter new openOnClass:AbstractSettingsApplication::RDoItServerSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13186	AbstractSettingsApplication::RDoItServerSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13187	AbstractSettingsApplication::RDoItServerSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13188	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13189
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13190	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13191
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13192	^
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	13193	#(FullSpec
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	13194	name: windowSpec
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13195	window:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	13196	(WindowSpec
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13197	label: 'RDoIt Server Settings'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13198	name: 'RDoIt Server Settings'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13199	flags: 1
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13200	min: (Point 10 10)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13201	bounds: (Rectangle 0 0 601 535)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13202	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13203	component:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	13204	(SpecCollection
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13205	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13206	(FramedBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13207	label: 'RDoIt'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13208	name: 'RDoItFramedBox'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13209	layout: (LayoutFrame 0 0 0 0 0 1 232 0)
16162 c59b8f5ba4ae #FEATURE Claus Gittinger <cg@exept.de> parents: 16161 diff changeset	13210	activeHelpKey: rdoitSettings
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13211	labelPosition: topLeft
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13212	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13213	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13214	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13215	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13216	(VerticalPanelViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13217	name: 'VerticalPanel2'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13218	layout: (LayoutFrame 0 0.0 5 0.0 0 1.0 0 1.0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13219	horizontalLayout: fit
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13220	verticalLayout: top
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13221	horizontalSpace: 0
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13222	verticalSpace: 0
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13223	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13224	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13225	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13226	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13227	name: 'Box1'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13228	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13229	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13230	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13231	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13232	label: 'Remote doits enabled'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13233	name: 'CheckBox1'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13234	layout: (LayoutFrame 0 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13235	enableChannel: hasRDoitServerClass
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13236	model: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13237	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13238	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13239	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13240
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13241	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13242	extent: (Point 567 25)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13243	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13244	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13245	name: 'Box2'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13246	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13247	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13248	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13249	(LabelSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13250	label: 'Port/Path:'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13251	name: 'Label2'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13252	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13253	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13254	adjust: right
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13255	enableDisableColorChannel: rDoitsEnabled
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13256	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13257	(InputFieldSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13258	name: 'EntryField1'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13259	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13260	enableChannel: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13261	model: rDoitServerPortOrPath
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13262	acceptOnReturn: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13263	acceptOnTab: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13264	acceptOnLostFocus: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13265	acceptOnPointerLeave: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13266	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13267	(LabelSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13268	label: 'Port# for Tcp Socket; Path for Unix Domain Socket (Unix only).'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13269	name: 'Label3'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13270	layout: (LayoutFrame 150 0 28 0 596 0 50 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13271	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13272	adjust: left
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13273	enableDisableColorChannel: rDoitsEnabled
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13274	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13275	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13276
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13277	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13278	extent: (Point 567 60)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13279	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13280	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13281	name: 'Box13'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13282	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13283	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13284	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13285	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13286	label: 'Local Connections Only'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13287	name: 'CheckBox10'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13288	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13289	enableChannel: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13290	model: rDoitEnabledOnlyViaLocalConnection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13291	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13292	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13293	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13294
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13295	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13296	extent: (Point 567 25)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13297	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13298	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13299	name: 'Box3'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13300	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13301	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13302	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13303	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13304	label: 'Log errors'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13305	name: 'CheckBox2'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13306	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13307	enableChannel: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13308	model: rDoitErrorLogging
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13309	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13310	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13311	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13312
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13313	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13314	extent: (Point 567 25)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13315	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13316	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13317	name: 'Box4'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13318	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13319	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13320	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13321	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13322	label: 'Log requests'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13323	name: 'CheckBox3'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13324	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13325	enableChannel: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13326	model: rDoitLogging
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13327	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13328	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13329	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13330
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13331	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13332	extent: (Point 567 24)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13333	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13334	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13335	name: 'Box5'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13336	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13337	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13338	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13339	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13340	label: 'Debug errors'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13341	name: 'CheckBox4'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13342	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13343	enableChannel: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13344	model: rDoitErrorDebugging
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13345	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13346	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13347	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13348
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13349	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13350	extent: (Point 567 23)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13351	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13352	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13353
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13354	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13355	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13356	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13357
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13358	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13359	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13360	(FramedBoxSpec
16161 6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13361	label: 'JavaScript/Smalltalk-Scripting via Telnet'
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13362	name: 'ScriptingFramedBox'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13363	layout: (LayoutFrame 0 0 224 0 0 1 460 0)
16162 c59b8f5ba4ae #FEATURE Claus Gittinger <cg@exept.de> parents: 16161 diff changeset	13364	activeHelpKey: scriptingSettings
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13365	labelPosition: topLeft
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13366	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13367	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13368	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13369	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13370	(VerticalPanelViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13371	name: 'VerticalPanel3'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13372	layout: (LayoutFrame 0 0.0 5 0.0 0 1.0 0 1.0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13373	horizontalLayout: fit
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13374	verticalLayout: top
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13375	horizontalSpace: 0
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13376	verticalSpace: 0
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13377	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13378	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13379	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13380	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13381	name: 'Box6'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13382	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13383	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13384	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13385	(CheckBoxSpec
16162 c59b8f5ba4ae #FEATURE Claus Gittinger <cg@exept.de> parents: 16161 diff changeset	13386	label: 'Telnet Scripting enabled'
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13387	name: 'CheckBox5'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13388	layout: (LayoutFrame 0 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13389	enableChannel: hasScriptingServerClass
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13390	model: scriptingEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13391	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13392	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13393	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13394
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13395	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13396	extent: (Point 567 25)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13397	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13398	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13399	name: 'Box12'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13400	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13401	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13402	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13403	(LabelSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13404	label: 'Port:'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13405	name: 'Label4'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13406	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13407	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13408	adjust: right
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13409	enableDisableColorChannel: scriptingEnabled
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13410	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13411	(InputFieldSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13412	name: 'EntryField2'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13413	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13414	enableChannel: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13415	model: scriptingServerPortOrPath
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13416	isReadOnly: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13417	acceptOnReturn: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13418	acceptOnTab: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13419	acceptOnLostFocus: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13420	acceptOnPointerLeave: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13421	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13422	(LabelSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13423	label: 'Port# for Tcp Socket; Path for Unix Domain Socket (Unix only).'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13424	name: 'Label5'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13425	layout: (LayoutFrame 150 0 28 0 596 0 50 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13426	initiallyInvisible: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13427	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13428	adjust: left
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13429	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13430	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13431
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13432	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13433	extent: (Point 567 60)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13434	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13435	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13436	name: 'Box11'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13437	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13438	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13439	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13440	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13441	label: 'Local Connections Only'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13442	name: 'CheckBox9'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13443	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13444	enableChannel: scriptingEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13445	model: scriptingEnabledOnlyViaLocalConnection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13446	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13447	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13448	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13449
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13450	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13451	extent: (Point 567 25)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13452	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13453	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13454	name: 'Box8'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13455	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13456	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13457	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13458	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13459	label: 'Log errors'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13460	name: 'CheckBox6'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13461	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13462	enableChannel: scriptingEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13463	model: scriptingErrorLogging
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13464	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13465	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13466	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13467
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13468	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13469	extent: (Point 567 25)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13470	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13471	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13472	name: 'Box9'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13473	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13474	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13475	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13476	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13477	label: 'Log requests'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13478	name: 'CheckBox7'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13479	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13480	enableChannel: scriptingEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13481	model: scriptingLogging
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13482	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13483	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13484	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13485
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13486	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13487	extent: (Point 567 24)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13488	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13489	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13490	name: 'Box10'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13491	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13492	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13493	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13494	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13495	label: 'Debug errors'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13496	name: 'CheckBox8'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13497	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13498	enableChannel: scriptingEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13499	model: scriptingErrorDebugging
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13500	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13501	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13502	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13503
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13504	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13505	extent: (Point 567 23)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13506	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13507	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13508
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13509	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13510	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13511	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13512
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13513	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13514	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13515	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13516
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	13517	)
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	13518	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13519	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13520
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13521	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13522
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13523	basicReadSettings
19508 2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13524	\|rDoitsEnabledNew rDoitLoggingNew rDoitErrorLoggingNew rDoitErrorDebuggingNew rDoitServerPortOrPathNew
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13525	rDoitEnabledOnlyViaLocalConnectionNew
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13526	scriptingEnabledNew scriptingEnabledOnlyViaLocalConnectionNew scriptingLoggingNew
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13527	scriptingErrorLoggingNew scriptingErrorDebuggingNew\|
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13528
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13529	rDoitsEnabledNew := false.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13530	rDoitLoggingNew := false.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13531	rDoitErrorLoggingNew := false.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13532	rDoitErrorDebuggingNew := false.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13533	rDoitServerPortOrPathNew := ''.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13534	rDoitEnabledOnlyViaLocalConnectionNew := true.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13535
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13536	scriptingEnabledNew := false.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13537	scriptingEnabledOnlyViaLocalConnectionNew := true.
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13538
19434 26040954e73a #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19429 diff changeset	13539	(self hasRDoitServer) ifTrue:[
19508 2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13540	rDoitsEnabledNew := RDoItServer serverRunning.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13541	rDoitEnabledOnlyViaLocalConnectionNew := RDoItServer localConnectionsOnly.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13542	rDoitLoggingNew := RDoItServer isLogging.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13543	rDoitErrorLoggingNew := RDoItServer isErrorLogging.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13544	rDoitErrorDebuggingNew := RDoItServer isErrorCatching not.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13545	rDoitServerPortOrPathNew := RDoItServer defaultPortNumberOrPath asString.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13546	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13547
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13548	(STXScriptingServer notNil
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13549	and:[ STXScriptingServer isLoaded ]) ifTrue:[
19508 2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13550	scriptingEnabledNew := STXScriptingServer serverRunning.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13551	scriptingEnabledOnlyViaLocalConnectionNew := STXScriptingServer localConnectionsOnly.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13552	scriptingLoggingNew := STXScriptingServer isLogging.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13553	scriptingErrorLoggingNew := STXScriptingServer isErrorLogging.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13554	scriptingErrorDebuggingNew := STXScriptingServer isErrorDebugging.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13555	].
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13556
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13557	rDoitsEnabled value:rDoitsEnabledNew.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13558	rDoitLogging value:rDoitLoggingNew.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13559	rDoitErrorLogging value:rDoitErrorLoggingNew.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13560	rDoitErrorDebugging value:rDoitErrorDebuggingNew.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13561	rDoitServerPortOrPath value:rDoitServerPortOrPathNew.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13562	rDoitOnlyViaLocalConnection value:rDoitEnabledOnlyViaLocalConnectionNew.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13563
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13564	scriptingEnabled value:scriptingEnabledNew.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13565	scriptingEnabledOnlyViaLocalConnection value:scriptingEnabledOnlyViaLocalConnectionNew.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13566	scriptingLogging value:scriptingLoggingNew.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13567	scriptingErrorLogging value:scriptingErrorLoggingNew.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13568	scriptingErrorDebugging value:scriptingErrorDebuggingNew.
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13569
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13570	"Modified: / 20-05-2010 / 14:49:50 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13571	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13572
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13573	basicSaveSettings
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	13574	\|shouldRun portOrPath\|
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	13575
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13576	portOrPath := self getPortNumberOrPath.
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	13577
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13578	self hasRDoitServerClass ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13579	RDoItServer defaultPortNumberOrPath:portOrPath.
19508 2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13580	RDoItServer logging:rDoitLogging value.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13581	RDoItServer errorLogging:rDoitErrorLogging value.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13582	RDoItServer errorCatching:(rDoitErrorDebugging value not).
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13583	RDoItServer localConnectionsOnly:(rDoitEnabledOnlyViaLocalConnection value).
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13584	shouldRun := rDoitsEnabled value.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13585	shouldRun ~~ RDoItServer serverRunning ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13586	shouldRun ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13587	RDoItServer stop
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13588	] ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13589	RDoItServer start.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13590	"/ must wait a bit; give it a chance to
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13591	"/ really start (before checking)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13592	Delay waitForSeconds:1.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13593	RDoItServer serverRunning ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13594	self warn:'RDoit startup failed (see stderr).'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13595	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13596	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13597	].
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13598	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13599
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13600	self hasScriptingServerClass ifTrue:[
19508 2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13601	STXScriptingServer logging:scriptingLogging value.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13602	STXScriptingServer errorLogging:scriptingErrorLogging value.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13603	STXScriptingServer errorDebugging:(scriptingErrorDebugging value).
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13604	STXScriptingServer localConnectionsOnly:(scriptingEnabledOnlyViaLocalConnection value).
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13605	shouldRun := scriptingEnabled value.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13606	shouldRun ~~ STXScriptingServer serverRunning ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13607	shouldRun ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13608	STXScriptingServer stop
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13609	] ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13610	STXScriptingServer start.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13611	"/ must wait a bit; give it a chance to
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13612	"/ really start (before checking)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13613	Delay waitForSeconds:1.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13614	STXScriptingServer serverRunning ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13615	self warn:'STXScripting startup failed (see stderr).'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13616	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13617	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13618	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13619	].
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13620
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13621	"Modified: / 20-05-2010 / 14:50:44 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13622	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13623
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13624	getPortNumberOrPath
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13625	\|portOrPath nrOrNil\|
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13626
19508 2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13627	portOrPath := rDoitServerPortOrPath value.
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13628	portOrPath isNumber ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13629	"a numeric string means it is a TCP port number"
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13630	nrOrNil := Integer readFrom:portOrPath onError:nil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13631	nrOrNil notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13632	portOrPath := nrOrNil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13633	]
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13634	].
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13635	^ portOrPath
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13636	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13637
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13638	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13639
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13640	rDoitEnabledOnlyViaLocalConnection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13641	^ rDoitEnabledOnlyViaLocalConnection.
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13642
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13643	"Created: / 20-05-2010 / 12:15:12 / cg"
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13644	!
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13645
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13646	rDoitErrorDebugging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13647	^ rDoitErrorDebugging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13648	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13649
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13650	rDoitErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13651	^ rDoitErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13652	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13653
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13654	rDoitLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13655	^ rDoitLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13656	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13657
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13658	rDoitOnlyViaLocalConnection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13659	^ rDoitOnlyViaLocalConnection.
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13660
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13661	"Created: / 20-05-2010 / 12:14:50 / cg"
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13662	!
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13663
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	13664	rDoitServerPortOrPath
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	13665	^ rDoitServerPortOrPath.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13666	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13667
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13668	rDoitsEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13669	^ rDoitsEnabled.
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13670	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13671
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13672	scriptingEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13673	^ scriptingEnabled.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13674	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13675
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13676	scriptingEnabledOnlyViaLocalConnection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13677	^ scriptingEnabledOnlyViaLocalConnection.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13678	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13679
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13680	scriptingErrorDebugging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13681	^ scriptingErrorDebugging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13682	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13683
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13684	scriptingErrorLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13685	^ scriptingErrorLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13686	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13687
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13688	scriptingLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13689	^ scriptingLogging.
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13690	!
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13691
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13692	scriptingServerPortOrPath
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13693	^ scriptingServerPortOrPath.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13694	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13695
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13696	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13697
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13698	rDoitsEnabledChanged
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13699	self updateModifiedChannel.
19508 2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13700	rDoitsEnabled value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13701	RDoItServer autoload.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13702	rDoitServerPortOrPath value isEmptyOrNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13703	rDoitServerPortOrPath value:(RDoItServer defaultPortNumberOrPath asString)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13704	]
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13705	]
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13706	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13707
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13708	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13709
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13710	helpFilename
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13711	^ 'Launcher/communicationsSettings.html'
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13712	!
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13713
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13714	helpTextForKey:aKey
16161 6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13715	\|usedKey\|
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13716
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13717	usedKey := aKey.
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13718	usedKey == #rdoitSettings ifTrue:[
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13719	self hasRDoitServerClass ifFalse:[
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13720	usedKey := #rdoitDisabled
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13721	].
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13722	].
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13723	usedKey == #scriptingSettings ifTrue:[
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13724	self hasScriptingServerClass ifFalse:[
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13725	usedKey := #scriptingDisabled
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13726	].
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13727	].
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13728	^ super helpTextForKey:usedKey.
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13729	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13730
19508 2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13731	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'initialization'!
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13732
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13733	initialize
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13734	super initialize.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13735
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13736	rDoitEnabledOnlyViaLocalConnection := true asValue.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13737	rDoitEnabledOnlyViaLocalConnection onChangeSend:#updateModifiedChannel to:self.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13738
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13739	rDoitErrorDebugging := true asValue.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13740	rDoitErrorDebugging onChangeSend:#updateModifiedChannel to:self.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13741
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13742	rDoitErrorLogging := true asValue.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13743	rDoitErrorLogging onChangeSend:#updateModifiedChannel to:self.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13744
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13745	rDoitLogging := true asValue.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13746	rDoitLogging onChangeSend:#updateModifiedChannel to:self.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13747
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13748	rDoitOnlyViaLocalConnection := true asValue.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13749	rDoitOnlyViaLocalConnection onChangeSend:#updateModifiedChannel to:self.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13750
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13751	rDoitServerPortOrPath := nil asValue.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13752	rDoitServerPortOrPath onChangeSend:#updateModifiedChannel to:self.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13753
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13754	rDoitsEnabled := true asValue.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13755	rDoitsEnabled onChangeSend:#rDoitsEnabledChanged to:self.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13756
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13757	scriptingEnabled := false asValue.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13758	scriptingEnabled onChangeSend:#updateModifiedChannel to:self.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13759
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13760	scriptingEnabledOnlyViaLocalConnection := true asValue.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13761	scriptingEnabledOnlyViaLocalConnection onChangeSend:#updateModifiedChannel to:self.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13762
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13763	scriptingErrorDebugging := true asValue.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13764	scriptingErrorDebugging onChangeSend:#updateModifiedChannel to:self.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13765
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13766	scriptingErrorLogging := true asValue.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13767	scriptingErrorLogging onChangeSend:#updateModifiedChannel to:self.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13768
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13769	scriptingLogging := true asValue.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13770	scriptingLogging onChangeSend:#updateModifiedChannel to:self.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13771
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13772	STXScriptingServer notNil ifTrue:[
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13773	scriptingServerPortOrPath := STXScriptingServer defaultPortNumber asValue.
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13774	].
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13775	! !
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13776
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13777	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13778
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13779	hasRDoitServer
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13780	^ RDoItServer notNil and:[RDoItServer isLoaded]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13781	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13782
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13783	hasRDoitServerClass
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	13784	^ RDoItServer notNil
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	13785	!
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	13786
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13787	hasScriptingServer
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13788	^ STXScriptingServer notNil and:[STXScriptingServer isLoaded]
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13789	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13790
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13791	hasScriptingServerClass
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13792	^ STXScriptingServer notNil
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13793	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13794
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13795	hasUnsavedChanges
19434 26040954e73a #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19429 diff changeset	13796	(self hasRDoitServer) ifTrue:[
19508 2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13797	rDoitsEnabled value ~= RDoItServer serverRunning ifTrue:[^ true].
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13798	RDoItServer serverRunning ifTrue:[
19508 2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13799	rDoitLogging value ~= RDoItServer isLogging ifTrue:[^ true].
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13800	rDoitErrorLogging value ~= RDoItServer isErrorLogging ifTrue:[^ true].
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13801	rDoitErrorDebugging value ~= RDoItServer isErrorCatching not ifTrue:[^ true].
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13802	self getPortNumberOrPath ~= RDoItServer defaultPortNumberOrPath ifTrue:[^ true].
19508 2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13803	rDoitEnabledOnlyViaLocalConnection value ~= RDoItServer localConnectionsOnly ifTrue:[^ true].
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13804	]
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13805	].
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13806	(self hasScriptingServer and:[STXScriptingServer isLoaded]) ifTrue:[
19508 2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13807	scriptingEnabled value ~= STXScriptingServer serverRunning ifTrue:[^ true].
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13808	STXScriptingServer serverRunning ifTrue:[
19508 2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13809	scriptingLogging value ~= STXScriptingServer isLogging ifTrue:[^ true].
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13810	scriptingErrorLogging value ~= STXScriptingServer isErrorLogging ifTrue:[^ true].
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13811	scriptingErrorDebugging value ~= STXScriptingServer isErrorDebugging ifTrue:[^ true].
2490ab8b3297 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19507 diff changeset	13812	scriptingEnabledOnlyViaLocalConnection value ~= STXScriptingServer localConnectionsOnly ifTrue:[^ true].
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13813	]
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13814	].
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13815	^ false
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13816
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13817	"Modified: / 20-05-2010 / 14:48:52 / cg"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13818	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13819
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13820	!AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'help specs'!
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13821
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13822	helpSpec
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13823	"This resource specification was automatically generated
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13824	by the UIHelpTool of ST/X."
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13825
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13826	"Do not manually edit this!! If it is corrupted,
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13827	the UIHelpTool may not be able to read the specification."
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13828
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13829	"
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13830	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13831	"
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13832
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13833	<resource: #help>
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13834
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13835	^ super helpSpec addPairsFrom:#(
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13836
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13837	#sqlServer
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13838	'The sql server is a pure Smalltalk application which implements the mySQL wire protocol,\and allows for a smalltalk application to simulate database tables.\One particular application presents classes and methods as tables.\\The SQL server is a non-free ST/X addon.'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13839
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13840	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13841	! !
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13842
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13843	!AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'image specs'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13844
8594 f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13845	dbIcon1
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13846	"This resource specification was automatically generated
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13847	by the ImageEditor of ST/X."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13848
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13849	"Do not manually edit this!! If it is corrupted,
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13850	the ImageEditor may not be able to read the specification."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13851
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13852	"
8594 f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13853	self dbIcon1 inspect
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13854	ImageEditor openOnClass:self andSelector:#dbIcon1
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13855	Icon flushCachedIcons
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13856	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13857
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13858	<resource: #image>
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13859
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13860	^Icon
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13861	constantNamed:#'AbstractSettingsApplication::SQLServerSettingsAppl class dbIcon1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13862	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13863	H"H"H @@@@@@@@@@@@@@@@@@@@@"H"H"@@@@@@@@@@@@@@@@@@@@@@@@@@@"H"H"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH"@@@@@@@@@@@@J"(J"(@@@@
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13864	@@@@@BH"@@@@@@@@J"(@@@@@@@@J"(@@@@H"H"@@@@@B(@@@@@@@@@@@@@@@@J"("H"H"@@@@J @@@@@@@@@@@@@@@@@@@@@H"H"@BH@H"(*@@@@@@@@
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13865	@@@@@@@@J"("H"H"@BH(H" $J"(J @@@@@J"(H"H"H"H"@BH(H" $ABTJIB(J"("H"H"H"H"H"H"@BH(H" $ABT%IBP(JBH"H"H"H"H"H"H"@@@(J" $
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13866	A@PDIBP(JBH"H"H"H"HH"H"@BH@H"(IBP$IBP(JBH"H"H"J"("H"H"@BH(H" $J"(J"P(JBHJ"(H"H"H"H"@BH(H" $ABTJIB(J"("H"H"H"H"H"H"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13867	@BH(H" $ABT%IBP(JBH"H"H"H"H"H"H"@@@(J" $A@PDIBP(JBH"H"H"H"HH"H"@@@@@B(IBP$IBP(JBH"H"H"J"(@H"H"H"H"H"H"J"(IBP(JBH"J"(
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13868	H"H"H"H"H"H"H"H"@@@@J"(J"(@@@@@@@@@BH"H"H"H"H"@@@@@@@@@@@@@@@@@@@@@BH"H"H"H"H"@@@@@@@@@@@@@@@@@@@@@BH"H"H"H"H"@@@@@@@@
14389 fddd5fbbb8f4 Change images to use ImageMask instances instead of Depth1Image instances as Stefan Vogel <sv@exept.de> parents: 14380 diff changeset	13869	@@@@@@@@@@@@@BH"H"H"H"H"@@@@@@@@@@@@@@@@@@@@@BH"') ; colorMapFromArray:#[224 189 75 255 253 212 114 169 125 244 219 172 224 180 55 105 195 48 255 253 194 253 210 112 27 163 14 139 188 141 254 253 153 67 140 42 245 230 190 245 250 242 238 222 158 240 212 96 254 253 228 249 239 209 254 233 132 135 224 88 62 138 68 241 209 144 254 198 97 148 180 81 255 227 154 39 125 38 61 166 37 216 172 46 46 153 24 113 206 71 25 131 15 240 198 86 79 187 37 254 243 141 102 77 2 69 123 9 205 154 5 249 235 113 225 193 100 218 179 65 130 98 3 10 113 5 0 0 0]; mask:((ImageMask new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@G8@@??@C??0G??8G??8G??8G??8G??8G??8G??8G??8G??8G??8G??8C??0@??@@G8@@@@@@@@@@@@@@@@@') ; yourself); yourself]
8594 f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13870	!
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13871
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13872	dbIcon2
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13873	"This resource specification was automatically generated
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13874	by the ImageEditor of ST/X."
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13875
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13876	"Do not manually edit this!! If it is corrupted,
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13877	the ImageEditor may not be able to read the specification."
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13878
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13879	"
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13880	self dbIcon2 inspect
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13881	ImageEditor openOnClass:self andSelector:#dbIcon2
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13882	Icon flushCachedIcons
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13883	"
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13884
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13885	<resource: #image>
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13886
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13887	^Icon
17690 9a1a80e2cc0c #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17653 diff changeset	13888	constantNamed:'AbstractSettingsApplication::SQLServerSettingsAppl class dbIcon2'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13889	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
8594 f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13890	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13891	@@@@@@@@@@@@@@@@@@@@!!!!"O_@T>@@@@@@@@@@@@@@@@@@@@@E8=X(!!#T!!0-X@D@@@@@@@@@@@@@@@@@NVTLL@.HK%MTZQEH@@@@@@@@@@@@@@@@V2<LCC@K
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13892	"GTIT15UV @@@@@@@@@@@@@@R"$<F&P0B8]ONGECQ @@@@@@@@@@@@@@I!!,_]"2ARPH%J&!!8V@@@@@@@@@@@@@@@_1-EI61''PFFC!!F!!&V@@@@@@@@@@@@@@@
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13893	Z7QEI61''PFFC!!H.IV@@@@@@@@@@@@@@@\#Q3CRI''PB-.ICD:Q @@@@@@@@@@@@@@@EDH!!T4P^'',3EBA9# @@@@@@@@@@@@@@[Q-EI61''PFFC!!F!!VZ @@@@@@
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13894	@@@@@@@@M1-EI61''PFFC!!F ^V@@@@@@@@@@@@@@@_S=EI61''PFFC!!DQBV@@@@@@@@@@@@@@@B <GL%%''PA%]D 9P# @@@@@@@@@@@@@@@D\FM#VJ]84#S$EW
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13895	W@@@@@@@@@@@@@@@@@B@_$X!!#H0!!Q'':@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
14389 fddd5fbbb8f4 Change images to use ImageMask instances instead of Depth1Image instances as Stefan Vogel <sv@exept.de> parents: 14380 diff changeset	13896	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[219 185 65 198 168 74 219 190 79 243 243 243 247 247 247 212 188 103 224 198 109 222 200 122 234 215 144 254 223 141 240 223 165 253 234 173 253 237 183 241 231 193 188 151 42 211 174 48 191 161 59 254 242 210 208 176 66 242 239 229 220 189 76 242 242 242 245 245 245 255 255 255 222 198 111 244 220 117 237 216 141 255 233 149 254 227 155 250 228 170 196 152 26 252 239 190 253 238 192 212 212 212 249 242 210 207 171 55 211 178 65 225 194 72 230 197 74 255 251 236 250 248 244 231 203 98 246 219 105 245 221 117 227 210 143 241 216 146 253 228 154 249 232 171 253 237 182 174 139 37 239 228 192 202 168 50 209 174 52 210 173 51 214 179 60 222 188 68 210 174 70 224 193 81 208 180 89 254 254 254 225 200 105 232 208 118 220 202 138 252 229 143 252 235 160 205 200 181 186 147 30 202 156 27 251 235 189 255 244 201 216 216 216 233 228 211 193 161 65 207 177 72 230 197 73 252 249 237 252 251 244 208 183 100 213 188 101 231 202 112 206 189 131 252 230 145 254 225 148 254 228 160 254 233 176 187 149 35 198 153 27 211 211 211 215 215 215 248 241 209 225 225 225 223 192 70 231 231 231 231 201 81 225 195 86 253 253 253 219 192 114 251 228 125 243 221 145 253 226 149 247 229 168 252 236 180 201 155 26 253 243 195 255 240 196 255 239 199 217 217 217 220 185 61 254 249 224 223 188 69 232 203 81 244 244 244 252 252 252 211 183 100 236 208 111 227 205 125 252 230 144 253 226 148 236 222 171 197 156 25 202 156 26 190 149 32 187 154 48 197 165 54 203 172 59 215 179 59 224 224 224 228 196 72 236 236 236 210 184 89 249 249 249 250 223 100 251 225 111 217 194 122 233 215 148 246 222 149 253 230 161 186 145 25 200 158 27 251 236 189 209 209 209 205 168 48 218 218 218 208 177 64]; mask:((ImageMask new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@G8@@_>@@??@@?? @?? @?? @?? @?? @?? @?? @?? @?? @?? @?? @_? @O?@@@@@@@@@@@@@@@@@') ; yourself); yourself]
17690 9a1a80e2cc0c #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17653 diff changeset	13897
9a1a80e2cc0c #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17653 diff changeset	13898	"Modified: / 13-09-2017 / 18:34:43 / cg"
8594 f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13899	!
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13900
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13901	defaultIcon
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13902	<resource: #programImage>
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13903
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13904	"/ ^ self dbIcon1.
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13905	^ self dbIcon2.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13906	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13907
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13908	!AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'interface specs'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13909
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13910	windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13911	"This resource specification was automatically generated
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13912	by the UIPainter of ST/X."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13913
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13914	"Do not manually edit this!! If it is corrupted,
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13915	the UIPainter may not be able to read the specification."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13916
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13917	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13918	UIPainter new openOnClass:AbstractSettingsApplication::SQLServerSettingsAppl andSelector:#windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13919	AbstractSettingsApplication::SQLServerSettingsAppl new openInterface:#windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13920	AbstractSettingsApplication::SQLServerSettingsAppl open
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13921	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13922
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13923	<resource: #canvas>
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13924
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13925	^
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13926	#(FullSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13927	name: windowSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13928	window:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13929	(WindowSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13930	label: 'SQL Server Settings'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13931	name: 'SQL Server Settings'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13932	min: (Point 10 10)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13933	bounds: (Rectangle 0 0 600 550)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13934	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13935	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13936	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13937	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13938	(VerticalPanelViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13939	activeHelpKey: #sqlServer
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13940	name: 'VerticalPanel2'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13941	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13942	horizontalLayout: fit
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13943	verticalLayout: top
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13944	horizontalSpace: 3
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13945	verticalSpace: 3
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13946	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13947	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13948	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13949	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13950	name: 'EnableBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13951	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13952	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13953	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13954	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13955	label: 'SQL Server Enabled'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13956	name: 'EnableCheckBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13957	layout: (LayoutFrame 5 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13958	enableChannel: hasSQLServerClass
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13959	model: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13960	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13961	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13962	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13963
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13964	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13965	extent: (Point 600 25)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13966	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13967	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13968	name: 'PortBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13969	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13970	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13971	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13972	(LabelSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13973	label: 'MySQL Port:'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13974	name: 'Label2'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13975	layout: (LayoutFrame 5 0 0 0 150 0 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13976	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13977	adjust: right
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13978	enableDisableColorChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13979	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13980	(InputFieldSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13981	name: 'EntryField1'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13982	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13983	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13984	model: sqlServerPort
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13985	acceptOnReturn: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13986	acceptOnTab: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13987	acceptOnLostFocus: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13988	acceptOnPointerLeave: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13989	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13990	(LabelSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13991	label: 'MySQL Port-Number (ODBC)'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13992	name: 'Label3'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13993	layout: (LayoutFrame 150 0 28 0 596 0 50 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13994	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13995	adjust: left
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13996	enableDisableColorChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13997	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13998	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13999
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14000	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14001	extent: (Point 600 72)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14002	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14003	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14004	name: 'LogErrorsBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14005	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14006	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14007	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14008	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14009	label: 'Log Errors'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14010	name: 'ErrorLoggingCheckBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14011	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14012	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14013	model: sqlErrorLogging
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14014	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14015	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14016	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14017
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14018	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14019	extent: (Point 600 25)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14020	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14021	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14022	name: 'LogDataBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14023	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14024	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14025	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14026	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14027	label: 'Log Data'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14028	name: 'LogDataCheckBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14029	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14030	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14031	model: sqlDataLogging
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14032	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14033	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14034	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14035
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14036	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14037	extent: (Point 600 23)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14038	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14039	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14040	name: 'LogRequestsBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14041	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14042	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14043	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14044	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14045	label: 'Log Requests'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14046	name: 'LogRequestsCheckBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14047	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14048	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14049	model: sqlLogging
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14050	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14051	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14052	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14053
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14054	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14055	extent: (Point 600 24)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14056	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14057	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14058	name: 'LogSQLBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14059	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14060	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14061	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14062	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14063	label: 'Log SQL'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14064	name: 'CheckBox1'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14065	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14066	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14067	model: sqlStatementLogging
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14068	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14069	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14070	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14071
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14072	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14073	extent: (Point 600 24)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14074	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14075	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14076	name: 'DebugErrorsBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14077	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14078	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14079	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14080	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14081	label: 'Debug Errors'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14082	name: 'DebugErrorsCheckBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14083	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14084	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14085	model: sqlErrorDebugging
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14086	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14087	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14088	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14089
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14090	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14091	extent: (Point 600 23)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14092	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14093	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14094	name: 'Box1'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14095	extent: (Point 600 10)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14096	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14097	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14098	name: 'EnableSmalltalkBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14099	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14100	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14101	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14102	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14103	label: 'Virtual Smalltalk Tables Enabled'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14104	name: 'EnableSmalltalkCheckBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14105	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14106	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14107	model: sqlSmalltalkServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14108	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14109	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14110	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14111
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14112	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14113	extent: (Point 600 24)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14114	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14115	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14116
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14117	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14118	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14119	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14120
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14121	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14122	)
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14123	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14124
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14125	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'actions'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14126
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14127	basicReadSettings
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14128	\|sqlServerClass\|
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14129
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14130	sqlServerClass := self sqlServerClass.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14131	(sqlServerClass notNil and:[sqlServerClass isLoaded]) ifTrue:[
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14132	sqlServerEnabled value:sqlServerClass serverRunning.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14133	sqlSmalltalkServerEnabled value:sqlServerClass isSmalltalkServerEnabled.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14134	sqlLogging value:sqlServerClass isLogging.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14135	sqlStatementLogging value:sqlServerClass isSQLLogging.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14136	sqlErrorLogging value:sqlServerClass isErrorLogging.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14137	sqlDataLogging value:sqlServerClass isDataLogging.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14138	sqlErrorDebugging value:sqlServerClass isErrorCatching not.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14139	sqlServerPort value:sqlServerClass defaultPort
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14140	] ifFalse:[
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14141	sqlServerEnabled value:false.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14142	sqlSmalltalkServerEnabled value:false.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14143	sqlLogging value:false.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14144	sqlStatementLogging value:false.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14145	sqlErrorLogging value:false.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14146	sqlDataLogging value:false.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14147	sqlErrorDebugging value:false.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14148	sqlServerPort value:nil
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14149	].
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14150
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14151	"Modified: / 25-01-2007 / 17:40:53 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14152	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14153
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14154	basicSaveSettings
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14155	\|sqlServerClass shouldRun port\|
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14156
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14157	sqlServerClass := self sqlServerClass.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14158
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14159	port := sqlServerPort value.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14160	port isNumber ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14161	port := port asInteger.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14162	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14163
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14164	sqlServerClass defaultPort:port.
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14165	sqlServerClass logging: sqlLogging value.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14166	sqlServerClass sqlLogging: sqlStatementLogging value.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14167	sqlServerClass errorLogging: sqlErrorLogging value.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14168	sqlServerClass dataLogging: sqlDataLogging value.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14169	sqlServerClass errorCatching:( sqlErrorDebugging value not).
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14170	sqlServerClass smalltalkServerEnabled:( sqlSmalltalkServerEnabled value).
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14171
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14172	shouldRun := sqlServerEnabled value.
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14173	shouldRun ~~ sqlServerClass serverRunning ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14174	shouldRun ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14175	sqlServerClass stop
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14176	] ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14177	sqlServerClass start.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14178	"/ must wait a bit; give it a chance to
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14179	"/ really start (before checking)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14180	Delay waitForSeconds:1.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14181	sqlServerClass serverRunning ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14182	self warn:'SQLServer startup failed (see stderr).'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14183	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14184	]
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14185	].
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14186
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14187	"Modified: / 25-01-2007 / 17:41:20 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14188	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14189
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14190	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'aspects'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14191
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	14192	sqlDataLogging
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	14193	^ sqlDataLogging.
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	14194	!
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	14195
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14196	sqlErrorDebugging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14197	^ sqlErrorDebugging.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14198	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14199
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14200	sqlErrorLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14201	^ sqlErrorLogging.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14202	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14203
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14204	sqlLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14205	^ sqlLogging.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14206	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14207
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14208	sqlServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14209	^ sqlServerEnabled.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14210	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14211
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14212	sqlServerPort
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14213	^ sqlServerPort.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14214	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14215
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14216	sqlSmalltalkServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14217	^ sqlSmalltalkServerEnabled.
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	14218	!
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	14219
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	14220	sqlStatementLogging
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	14221	^ sqlStatementLogging.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14222	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14223
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14224	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'change & update'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14225
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14226	sqlServerEnabledChanged
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14227	self updateModifiedChannel.
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14228	sqlServerEnabled value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14229	sqlServerPort value isEmptyOrNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14230	sqlServerPort value:(self sqlServerClass defaultPort)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14231	]
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14232	]
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14233
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14234	"Modified: / 25-01-2007 / 17:46:07 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14235	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14236
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14237	sqlSmalltalkServerEnabledChanged
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14238	self updateModifiedChannel.
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14239	sqlSmalltalkServerEnabled value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14240	sqlServerPort value isEmptyOrNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14241	sqlServerPort value:(self sqlServerClass defaultPort)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14242	]
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14243	]
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14244
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14245	"Modified: / 25-01-2007 / 17:40:03 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14246	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14247
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14248	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14249
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14250	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14251	^ 'Launcher/communicationsSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14252	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14253
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14254	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'initialization'!
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14255
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14256	initialize
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14257	super initialize.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14258
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14259	sqlDataLogging := true asValue.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14260	sqlDataLogging onChangeSend:#updateModifiedChannel to:self.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14261
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14262	sqlErrorDebugging := true asValue.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14263	sqlErrorDebugging onChangeSend:#updateModifiedChannel to:self.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14264
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14265	sqlErrorLogging := true asValue.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14266	sqlErrorLogging onChangeSend:#updateModifiedChannel to:self.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14267
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14268	sqlLogging := true asValue.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14269	sqlLogging onChangeSend:#updateModifiedChannel to:self.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14270
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14271	sqlServerEnabled := true asValue.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14272	sqlServerEnabled onChangeSend:#sqlServerEnabledChanged to:self.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14273
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14274	sqlServerPort := ValueHolder new.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14275	sqlServerPort onChangeSend:#updateModifiedChannel to:self.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14276
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14277	sqlSmalltalkServerEnabled := true asValue.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14278	sqlSmalltalkServerEnabled onChangeSend:#sqlSmalltalkServerEnabledChanged to:self.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14279
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14280	sqlStatementLogging := true asValue.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14281	sqlStatementLogging onChangeSend:#updateModifiedChannel to:self.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14282	! !
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14283
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14284	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'queries'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14285
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14286	hasSQLServerClass
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14287	^ self sqlServerClass notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14288
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14289	"Created: / 25-01-2007 / 17:45:54 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14290	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14291
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14292	hasUnsavedChanges
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14293	\|sqlServerClass\|
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14294
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14295	sqlServerClass := self sqlServerClass.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14296	(sqlServerClass notNil and:[sqlServerClass isLoaded]) ifFalse:[^ false ].
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14297
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14298	sqlServerEnabled value ~= sqlServerClass serverRunning ifTrue:[^ true].
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14299	sqlServerClass serverRunning ifTrue:[
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14300	sqlSmalltalkServerEnabled value ~= sqlServerClass isSmalltalkServerEnabled ifTrue:[^ true].
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14301	sqlLogging value ~= sqlServerClass isLogging ifTrue:[^ true].
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14302	sqlStatementLogging value ~= sqlServerClass isSQLLogging ifTrue:[^ true].
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14303	sqlErrorLogging value ~= sqlServerClass isErrorLogging ifTrue:[^ true].
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14304	sqlDataLogging value ~= sqlServerClass isDataLogging ifTrue:[^ true].
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14305	sqlErrorDebugging value ~= sqlServerClass isErrorCatching not ifTrue:[^ true].
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	14306	sqlServerPort value ~= sqlServerClass defaultPort ifTrue:[^ true].
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14307	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14308	^ false
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14309
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14310	"Modified: / 25-01-2007 / 17:47:32 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14311	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14312
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14313	sqlServerClass
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14314	^ SQLServer::SQLServer
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14315
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14316	"Created: / 25-01-2007 / 17:29:59 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14317	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14318
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14319	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14320
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14321	stcCompilationOptions
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	14322	^ #(default never)
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	14323	!
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	14324
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	14325	stcCompilationStrings
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	14326
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	14327	^ #('primitive code only' 'never')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14328	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14329
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14330	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'help specs'!
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14331
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14332	helpSpec
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14333	"This resource specification was automatically generated
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14334	by the UIHelpTool of ST/X."
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14335
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14336	"Do not manually edit this!! If it is corrupted,
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14337	the UIHelpTool may not be able to read the specification."
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14338
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14339	"
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14340	UIHelpTool openOnClass:AbstractSettingsApplication::STCCompilerSettingsAppl
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14341	"
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14342
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14343	<resource: #help>
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14344
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14345	^ super helpSpec addPairsFrom:#(
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14346
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14347	#stcCommand
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14348	'Path to the stc compiler (compiles Smalltalk to C-code)'
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14349	#stcCommandOptions
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14350	'Options to the stc compiler (see stc man-page)'
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14351	#stcKeepCIntermediate
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14352	'Keep the intermediate C-file (for st/x developers)'
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14353	#stcIncluedDirectories
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14354	'Include directories (for stc and cc)'
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14355	#ccCommand
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14356	'Path to the c compiler (compiles C-code to machine code)'
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14357	#ccCommandOptions
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14358	'Options to the c compiler'
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14359
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14360	)
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14361
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14362	"Modified: / 22-04-2019 / 10:23:35 / Claus Gittinger"
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14363	! !
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14364
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14365	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14366
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14367	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	14368	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	14369
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14370	^ self defaultIcon4
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	14371
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	14372	"Modified: / 17-09-2007 / 11:35:12 / cg"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14373	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14374
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14375	defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14376	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14377	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14378
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14379	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14380	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14381
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14382	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14383	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14384	ImageEditor openOnClass:self andSelector:#defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14385	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14386	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14387
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14388	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14389
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14390	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	14391	constantNamed:'AbstractSettingsApplication::STCCompilerSettingsAppl defaultIcon1'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	14392	ifAbsentPut:[(Depth2Image width:22 height:22) bits:(ByteArray fromPackedString:'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	14393	@@@@@@@@C??????@CUUUUUW@CZ(J@B''@CZ""(''CCZ"(''@CV(J(WKCV"(W@CU""()WJCU(J()W@CUZ%W@CUZ%WACUV(JUW@CUV""UWDCUU")UWI
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	14394	CUU")UWICUUR%UWJCUUR!!UWACUUTEUW@CUUUUUW@C??????@@@@@@@@B')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	14395	colorMapFromArray:#[0 0 0 255 255 255 255 189 23 127 127 127]
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	14396	mask:((ImageMask width:22 height:22) bits:(ByteArray fromPackedString:'@@@@O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8O??8@@@@'); yourself); yourself]
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14397	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14398
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14399	defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14400	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14401	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14402
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14403	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14404	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14405
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14406	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14407	self defaultIcon2 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14408	ImageEditor openOnClass:self andSelector:#defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14409	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14410	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14411
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14412	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14413
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14414	^Icon
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14415	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14416	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14417	A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD@0LDA@PDA@PDA@PDA@PDA@PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14418	A@PDA@LCA PCA@P@@@@@@@@@@@@@@@@@@@@D@0PFA PCA@PC@0@@@@@@@@@@@@@C@0@D@0PFAPTD@0LDA L@@@@@@@@@@@LFA@LCA@TEAPTEA@PE@PL@@@@@
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14419	@@@@@@LAAPPDAPTEAPTEAPTF@0@@@@@@@@@@@@@CA TEAPTEA DFAPTD@0@@@@@@@@@@@@@CA@TEA DF@0LAA TEA@LC@@@@@@@@@0LDAPTF@PLC@ HC@PTE
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14420	APPD@0@@@@@CA@PEAPTA@0HB@ HCA TEAPDA@0@@@@@C@PDEAPTF@0HB@0LDAPTFA LC@@@@@@@@@0LFA TEA@LCA@PEAPTF@0PD@@@@@@@@@@PCA TEAPPD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14421	APTEAPTD@0PDA@@@@@@@A@PCA@TEAPTEAPTEA DEA@LDA@@@@@@@A@LDAPDFAPTEAPTD@0LAA LDA@P@@@@DA@LF@PLCA@TE@PPCA@PC@0PDA@P@@@@DA@PC
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14422	@0PD@0PA@PPCA@PDA@PDA@PD@@PDA@PDA@PD@0PA@0LDA@PDA@PDA@PDA@PDA@PDA@PDA@LCA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14423	A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD') ; colorMapFromArray:#[255 189 23 127 127 127 236 233 216 0 0 0 255 255 255 194 194 194 161 161 165]; yourself]
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14424	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14425
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14426	defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14427	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14428	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14429
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14430	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14431	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14432
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14433	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14434	self defaultIcon3 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14435	ImageEditor openOnClass:self andSelector:#defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14436	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14437	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14438
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14439	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14440
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14441	^Icon
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14442	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14443	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14444	A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PC@0PDA@PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14445	A@PDA@PDA@PDA@PDA@PDA@LDA LDA@PDA@PDA@PDA@PDA@PD@0LDA@LDA LDA@LCA@PDA@PDA@PDA@PCA PC@0PEAPPC@0PF@0PDA@PDA@PDA@PC@PTDA@TE
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14446	APTDA@TA@0PDA@PDA@PDA@PD@0XEAPTEAPTEAPXCA@PDA@PDA@PDA@PD@0PEAPXAA XEAPPCA@PDA@PDA@PDA@LCA@TEA DC@0DFAPTD@0LDA@PDA@PD@0PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14447	APTE@PLB@ LAAPTEA@PCA@P@A@PD@0DAAPTEA LB@ LFAPTE@PDCA@P@A@PDA@LCA XEAPPC@0PEAPXF@0LDA@PDA@PDA@PD@0XEAPTDA@TEAPXCA@PDA@PD
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14448	A@PDA@PD@0PEAPTEAPTEAPPCA@PDA@PDA@PDA@PCA@TAA TEAPTF@PTD@0PDA@PDA@PDA@PCA DC@0PEAPPC@0DF@0PDA@PDA@PDA@PD@0LDA@LD@PLDA@LC
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14449	A@PDA@PDA@PDA@PDA@PDA@LD@PLDA@PDA@PDA@PDA@PDA@PDA@PDA@PC@0PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD
14389 fddd5fbbb8f4 Change images to use ImageMask instances instead of Depth1Image instances as Stefan Vogel <sv@exept.de> parents: 14380 diff changeset	14450	A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PD') ; colorMapFromArray:#[255 189 23 127 127 127 236 233 216 0 0 0 255 255 255 194 194 194 161 161 165]; mask:((ImageMask new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@A @@C0@@33@A?? A?? @??@@??@C??0G??8G??8C??0@??@@??@A?? A?? @33@@C0@@A @@@@@@@@@@@@@') ; yourself); yourself]
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14451	!
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14452
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14453	defaultIcon4
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14454	"This resource specification was automatically generated
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14455	by the ImageEditor of ST/X."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14456
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14457	"Do not manually edit this!! If it is corrupted,
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14458	the ImageEditor may not be able to read the specification."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14459
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14460	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14461	self defaultIcon4 inspect
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14462	ImageEditor openOnClass:self andSelector:#defaultIcon4
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14463	Icon flushCachedIcons
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14464	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14465
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14466	<resource: #image>
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14467
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14468	^Icon
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14469	constantNamed:'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14470	ifAbsentPut:[(Depth8Image new) width: 24; height: 24; photometric:(#palette); bitsPerSample:(#[8]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14471	A@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PC@0PDA@PD
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14472	A@PDA@PDA@PDA@PDA@PDA@LDA LDA@PDA@PDA@PDA@PDA@PD@0LDA@LDA LDA@LCA@PDA@PDA@PDA@PCA PC@0PEAPPC@0PF@0PDA@PDA@PDA@PC@PTDA@TE
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14473	APTDA@TA@0PDA@PDA@PDA@PD@0XEAPTEAPTEAPXCA@PDA@PDA@PDA@PD@0PEAPXAA XEAPPCA@PDA@PDA@PDA@LCA@TEA DC@0DFAPTD@0LDA@PDA@PD@0PD
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14474	APTE@PLB@ LAAPTEA@PCA@P@A@PD@0DAAPTEA LB@ LFAPTE@PDCA@P@A@PDA@LCA XEAPPC@0PEAPXF@0LDA@PDA@PDA@PD@0XEAPTDA@TEAPXCA@PDA@PD
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14475	A@PDA@PD@0PEAPTEAPTEAPPCA@PDA@PDA@PDA@PCA@TAA TEAPTF@PTD@0PDA@PDA@PDA@PCA DC@0PEAPPC@0DF@0PDA@PDA@PD@@PD@0LDA@LD@PLDA@LC
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14476	A@PDA@PDA@PC@0PDA@PDA@LD@PLDA@PDA@PC@0PDA@PCA@PDA@PDA@PC@0PDA@PDA@PD@0PDA@LDA@PDA@PDA@PDA@PDA@PDA@PDA@LDA@PCA@PD@0LD@0LD
14389 fddd5fbbb8f4 Change images to use ImageMask instances instead of Depth1Image instances as Stefan Vogel <sv@exept.de> parents: 14380 diff changeset	14477	@@LC@@LCA@PD@0PDA@PC@0PDA@PDA@PDA@PDA@PDA@PC@0PD') ; colorMapFromArray:#[255 189 23 127 127 127 236 233 216 0 0 0 255 255 255 194 194 194 161 161 165]; mask:((ImageMask new) width: 24; height: 24; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@A @@C0@@33@A?? A?? @??@@??@C??0G??8G??8C??0@??@@??@A?? A?? @33@LC0LHA DP@@BH6[DL@@L') ; yourself); yourself]
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14478	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14479
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14480	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14481
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14482	windowSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14483	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14484	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14485
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14486	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14487	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14488
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14489	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14490	UIPainter new openOnClass:AbstractSettingsApplication::STCCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14491	AbstractSettingsApplication::STCCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14492	AbstractSettingsApplication::STCCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14493	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14494
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14495	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14496
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14497	^
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	14498	#(FullSpec
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	14499	name: windowSpec
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14500	window:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	14501	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14502	label: 'STC Compiler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14503	name: 'STC Compiler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14504	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14505	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14506	bounds: (Rectangle 0 0 600 602)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14507	)
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14508	component:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	14509	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14510	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14511	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14512	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14513	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14514	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14515	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14516	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14517	verticalSpace: 0
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14518	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14519	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14520	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14521	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14522	name: 'SeparatingBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14523	extent: (Point 600 4)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14524	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14525	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14526	name: 'InfoTextBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14527	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14528	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14529	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14530	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14531	name: 'Label14'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14532	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14533	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14534	labelChannel: helpText
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14535	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14536	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14537	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14538
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14539	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14540	extent: (Point 600 90)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14541	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14542	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14543	name: 'STCCompilationBox11'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14544	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14545	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14546	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14547	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14548	label: 'STC Compilation to Machine Code:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14549	name: 'Label11'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14550	layout: (LayoutFrame 0 0 0 0 240 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14551	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14552	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14553	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14554	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14555	label: 'PopUp List'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14556	name: 'StcCompilation'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14557	layout: (LayoutFrame 241 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14558	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14559	model: stcCompilationSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14560	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14561	menu: stcCompilationList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14562	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14563	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14564	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14565
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14566	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14567	extent: (Point 600 29)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14568	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14569	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14570	name: 'STCCommandBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14571	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14572	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14573	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14574	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14575	label: 'STC Command:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14576	name: 'Label1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14577	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14578	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14579	adjust: right
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14580	activeHelpKey: stcCommand
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14581	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14582	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14583	name: 'EntryField1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14584	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14585	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14586	model: stc
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14587	activeHelpKey: stcCommand
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14588	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14589	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14590	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14591	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14592	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14593	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14594	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14595
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14596	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14597	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14598	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14599	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14600	name: 'STCOptionsBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14601	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14602	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14603	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14604	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14605	label: 'STC Options:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14606	name: 'Label2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14607	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14608	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14609	adjust: right
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14610	activeHelpKey: stcCommandOptions
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14611	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14612	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14613	name: 'EntryField2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14614	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14615	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14616	model: stcOptions
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14617	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14618	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14619	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14620	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14621	acceptOnPointerLeave: true
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14622	activeHelpKey: stcCommandOptions
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14623	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14624	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14625
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14626	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14627	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14628	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14629	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14630	name: 'KeepCIntermediateBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14631	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14632	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14633	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14634	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14635	label: 'Keep Intermediate C File:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14636	name: 'Label15'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14637	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14638	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14639	adjust: right
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14640	activeHelpKey: stcKeepCIntermediate
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14641	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14642	(CheckToggleSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14643	name: 'CheckToggle1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14644	layout: (LayoutOrigin 203 0 4 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14645	model: stcKeepCIntermediate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14646	isTriggerOnDown: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14647	showLamp: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14648	lampColor: (Color 100.0 100.0 0.0)
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14649	activeHelpKey: stcKeepCIntermediate
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14650	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14651	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14652
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14653	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14654	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14655	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14656	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14657	name: 'CCCommandBox3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14658	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14659	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14660	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14661	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14662	label: 'CC Command:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14663	name: 'Label3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14664	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14665	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14666	adjust: right
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14667	activeHelpKey: ccCommand
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14668	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14669	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14670	name: 'EntryField3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14671	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14672	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14673	model: cc
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14674	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14675	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14676	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14677	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14678	acceptOnPointerLeave: true
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14679	activeHelpKey: ccCommand
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14680	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14681	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14682
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14683	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14684	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14685	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14686	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14687	name: 'CCOptionsBox4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14688	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14689	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14690	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14691	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14692	label: 'CC Options:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14693	name: 'Label4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14694	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14695	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14696	adjust: right
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14697	activeHelpKey: ccCommandOptions
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14698	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14699	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14700	name: 'EntryField4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14701	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14702	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14703	model: ccOptions
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14704	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14705	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14706	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14707	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14708	acceptOnPointerLeave: true
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14709	activeHelpKey: ccCommandOptions
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14710	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14711	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14712
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14713	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14714	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14715	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14716	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14717	name: 'IncludeDirectoriesBox5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14718	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14719	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14720	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14721	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14722	label: 'Include Directories:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14723	name: 'Label5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14724	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14725	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14726	adjust: right
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14727	activeHelpKey: stcIncluedDirectories
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14728	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14729	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14730	name: 'EntryField5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14731	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14732	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14733	model: stcIncludes
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14734	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14735	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14736	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14737	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14738	acceptOnPointerLeave: true
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14739	activeHelpKey: stcIncluedDirectories
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14740	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14741	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14742
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14743	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14744	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14745	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14746	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14747	name: 'STCDefinesBox6'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14748	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14749	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14750	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14751	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14752	label: 'Defines:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14753	name: 'Label6'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14754	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14755	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14756	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14757	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14758	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14759	name: 'EntryField6'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14760	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14761	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14762	model: stcDefines
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14763	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14764	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14765	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14766	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14767	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14768	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14769	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14770
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14771	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14772	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14773	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14774	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14775	name: 'LinkCommandBox7'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14776	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14777	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14778	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14779	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14780	label: 'Link Command:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14781	name: 'Label7'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14782	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14783	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14784	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14785	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14786	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14787	name: 'EntryField7'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14788	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14789	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14790	model: linkCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14791	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14792	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14793	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14794	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14795	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14796	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14797	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14798
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14799	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14800	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14801	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14802	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14803	name: 'LinkArgumentsBox8'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14804	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14805	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14806	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14807	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14808	label: 'Link Arguments:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14809	name: 'Label8'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14810	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14811	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14812	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14813	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14814	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14815	name: 'EntryField8'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14816	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14817	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14818	model: linkArgs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14819	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14820	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14821	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14822	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14823	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14824	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14825	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14826
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14827	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14828	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14829	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14830	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14831	name: 'LinkSharedArgumentsBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14832	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14833	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14834	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14835	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14836	label: 'Link Shared Arguments:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14837	name: 'Label12'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14838	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14839	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14840	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14841	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14842	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14843	name: 'EntryField11'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14844	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14845	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14846	model: linkSharedArgs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14847	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14848	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14849	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14850	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14851	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14852	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14853	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14854
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14855	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14856	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14857	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14858	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14859	name: 'CLibrariesBox9'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14860	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14861	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14862	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14863	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14864	label: 'C-Libraries:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14865	name: 'Label9'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14866	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14867	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14868	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14869	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14870	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14871	name: 'EntryField9'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14872	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14873	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14874	model: stcLibraries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14875	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14876	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14877	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14878	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14879	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14880	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14881	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14882
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14883	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14884	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14885	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14886	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14887	name: 'STCLibraryPathBox10'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14888	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14889	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14890	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14891	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14892	label: 'STC Library Path:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14893	name: 'Label10'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14894	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14895	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14896	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14897	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14898	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14899	name: 'EntryField10'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14900	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14901	enableChannel: enableStcLibraryPath
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14902	model: stcLibraryPath
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14903	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14904	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14905	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14906	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14907	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14908	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14909	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14910
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14911	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14912	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14913	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14914	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14915	name: 'MakeCommandBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14916	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14917	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14918	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14919	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14920	label: 'Make Command:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14921	name: 'Label13'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14922	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14923	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14924	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14925	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14926	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14927	name: 'EntryField12'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14928	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14929	model: makeCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14930	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14931	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14932	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14933	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14934	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14935	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14936	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14937
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14938	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14939	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14940	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14941	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14942	name: 'SeparatingBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14943	extent: (Point 600 12)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14944	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14945	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14946	name: 'SetupForBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14947	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14948	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14949	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14950	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14951	label: 'Set above Options for:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14952	name: 'Label16'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14953	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14954	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14955	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14956	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14957	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14958	name: 'PopUpList1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14959	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14960	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14961	model: supportedCCompilerSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14962	menu: supportedCCompilerList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14963	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14964	stateChangeCallBackSelector: supportedCCompilerSelectionChanged
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14965	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14966	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14967
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14968	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14969	extent: (Point 600 29)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14970	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14971	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14972	name: 'Box1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14973	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14974	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14975	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14976	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14977	label: 'Verbose (Trace Commands):'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14978	name: 'Label17'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14979	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14980	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14981	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14982	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14983	(CheckToggleSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14984	name: 'CheckToggle2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14985	layout: (LayoutOrigin 203 0 4 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14986	model: verbose
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14987	isTriggerOnDown: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14988	showLamp: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14989	lampColor: (Color 100.0 100.0 0.0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14990	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14991	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14992
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14993	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14994	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14995	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14996	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14997
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14998	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14999	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15000	)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15001
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	15002	)
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	15003	)
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	15004
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	15005	"Modified: / 22-04-2019 / 10:23:13 / Claus Gittinger"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15006	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15007
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15008	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15009
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15010	basicReadSettings
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15011	\|t\|
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15012
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15013	canLoadBinaries
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15014	value:(ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]).
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15015
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15016	verbose value:(STCCompilerInterface verbose ? false).
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15017
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15018	stcIncludes value:ParserFlags stcCompilationIncludes.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15019	stcDefines value:ParserFlags stcCompilationDefines.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15020	stcOptions value:ParserFlags stcCompilationOptions.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15021	stcKeepCIntermediate value:ParserFlags stcKeepCIntermediate.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15022	ccOptions value:ParserFlags ccCompilationOptions.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15023	cc value:ParserFlags ccPath.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15024	stc value:ParserFlags stcPath.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15025	makeCommand value:ParserFlags makeCommand.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15026
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15027	linkCommand value:ParserFlags linkCommand.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15028	linkArgs value:ParserFlags linkArgs.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15029	linkSharedArgs value:ParserFlags linkSharedArgs.
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15030
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15031	(t := ParserFlags searchedLibraries) notNil ifTrue:[
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15032	stcLibraries value:(String fromStringCollection:t separatedBy:' ')
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15033	].
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15034	(t := ParserFlags libPath) notNil ifTrue:[
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15035	stcLibraryPath value:t
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15036	].
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15037
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15038	stcCompilationSelection value:(self class stcCompilationOptions
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15039	indexOf:(ParserFlags stcCompilation)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15040	ifAbsent:1).
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	15041
ec908ed4b944 make command fm parents: 6860 diff changeset	15042	"Modified: / 09-08-2006 / 18:49:38 / fm"
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15043	"Modified: / 16-09-2011 / 18:45:15 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15044	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15045
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15046	basicSaveSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15047
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15048	STCCompilerInterface verbose:verbose value.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15049
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15050	ParserFlags stcCompilation:(self class stcCompilationOptions at:stcCompilationSelection value).
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15051	ParserFlags stcCompilationIncludes: stcIncludes value.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15052	ParserFlags stcCompilationDefines: stcDefines value.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15053	ParserFlags stcCompilationOptions: stcOptions value.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15054	ParserFlags stcKeepCIntermediate: stcKeepCIntermediate value.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15055	ParserFlags ccCompilationOptions: ccOptions value.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15056	ParserFlags ccPath: cc value.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15057	ParserFlags makeCommand: makeCommand value.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15058
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15059	stc value ~= ParserFlags stcPath ifTrue:[
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15060	ParserFlags stcPath: stc value
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15061	].
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15062	ParserFlags linkCommand: linkCommand value.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15063	ParserFlags linkArgs: linkArgs value.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15064	ParserFlags linkSharedArgs: linkSharedArgs value.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15065	stcLibraries value notNil ifTrue:[
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15066	ParserFlags searchedLibraries:(stcLibraries value asCollectionOfWords).
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15067	].
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15068	stcLibraryPath notNil ifTrue:[
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15069	ParserFlags libPath:(stcLibraryPath value).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15070	].
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	15071
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	15072	"Modified: / 09-08-2006 / 19:33:10 / fm"
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15073	"Modified: / 16-09-2011 / 18:45:28 / cg"
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15074	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15075
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15076	setupForBCC
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15077	"set values for using borland C (windows)"
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15078
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15079	\|bccDir\|
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15080
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15081	bccDir := 'c:\borland\bcc55'.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15082
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15083	bccDir asFilename exists ifFalse:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15084	Dialog warn:'No Borland folder found. Please check bcc-(bcc32.exe) and link-commands (ilink32.exe)'.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15085	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15086
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15087	cc value:(bccDir,'\bin\bcc32').
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15088	ccOptions value:'-w-'.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15089	stcIncludes value:('-I..\..\include -I',bccDir,'\Include').
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15090	linkCommand value:(bccDir,'\bin\ilink32').
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15091	linkArgs value:('-L..\..\lib\bc -L',bccDir,'\Lib -L',bccDir,'\Lib\PSDK -r -c -ap -Tpd -Gi -w-dup').
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15092	stcLibraries value:'import32.lib odbc32.lib glu32.lib opengl32.lib'.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15093	makeCommand value:'bmake'.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15094
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15095	self updateModifiedChannel.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15096	self supportedCCompilerSelection value:0
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15097
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15098	"Modified: / 14-06-2017 / 11:04:00 / cg"
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15099	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15100
16820 8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15101	setupForCLANG
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15102	"set values for using CLANG"
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15103
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15104	\|cpuType ccOptionsNew linkArgsNew linkSharedArgsNew\|
16820 8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15105
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15106	cc value:'clang'.
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15107	cpuType := OperatingSystem getCPUType.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15108
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15109	ccOptionsNew := '-O3 -arch ',cpuType.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15110	linkArgsNew := '-arch ',cpuType.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15111	linkSharedArgsNew := '-shared -arch ',cpuType.
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15112
16820 8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15113	OperatingSystem isOSXlike ifTrue:[
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15114	ccOptionsNew := ccOptionsNew , ' -mmacosx-version-min=10.3'.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15115	linkSharedArgsNew := linkSharedArgsNew , ' -mmacosx-version-min=10.3 librun.so'
16820 8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15116	].
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15117
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15118	ccOptions value:ccOptionsNew.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15119	linkArgs value:linkArgsNew.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15120	linkSharedArgs value:linkSharedArgsNew.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15121	stcIncludes value:'-I../../include -I/usr/include/freetype2'.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15122	linkCommand value:'clang'.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15123	stcLibraries value:''.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15124	makeCommand value:'make'.
16820 8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15125
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15126	self updateModifiedChannel.
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15127	supportedCCompilerSelection value:0
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15128
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15129	"Modified (comment): / 14-06-2017 / 10:48:34 / cg"
16820 8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15130	!
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15131
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15132	setupForGCC
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15133	"set values for using gcc (linux/unix)"
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15134
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15135	cc value:'gcc'.
18108 cf744b854f74 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18075 diff changeset	15136	ExternalBytes sizeofPointer == 4 ifTrue:[
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15137	ccOptions value:'-m32'.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15138	linkArgs value:'-m32'.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15139	linkSharedArgs value:'-shared -m32'.
15744 6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	15140	] ifFalse:[
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15141	ccOptions value:'-m64 -fPIC'.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15142	linkArgs value:'-m64'.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15143	linkSharedArgs value:'-shared -m64'.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15144	].
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15145	stcIncludes value:'-I../../include -I/usr/include/freetype2'.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15146	linkCommand value:'gcc'.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15147	stcLibraries value:''.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15148	makeCommand value:'make'.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15149
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15150	self updateModifiedChannel.
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15151	supportedCCompilerSelection value:0
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15152
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15153	"Modified: / 14-06-2017 / 11:09:07 / cg"
17693 ea835103d495 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 17690 diff changeset	15154	"Modified: / 20-09-2017 / 19:48:10 / stefan"
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15155	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15156
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15157	setupForMINGW
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15158	"set values for using mingw (windows)"
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15159
19350 9ad0afacc657 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19328 diff changeset	15160	\|programFiles programFilesX86 mingw mingwFolder\|
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15161
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15162	programFiles := OperatingSystem getEnvironment:'ProgramFiles'.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15163	programFiles isEmptyOrNil ifTrue:[ programFiles := 'C:\Program Files' ].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15164	programFilesX86 := OperatingSystem getEnvironment:'ProgramFiles(x86)'.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15165	programFilesX86 isEmptyOrNil ifTrue:[ programFilesX86 := 'C:\Program Files (x86)' ].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15166
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15167	"/ where to search
18108 cf744b854f74 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18075 diff changeset	15168	ExternalBytes sizeofPointer == 4 ifTrue:[
19350 9ad0afacc657 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19328 diff changeset	15169	mingw := 'mingw32'.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15170	] ifFalse:[
19350 9ad0afacc657 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19328 diff changeset	15171	mingw := 'mingw64'.
9ad0afacc657 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19328 diff changeset	15172	].
9ad0afacc657 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19328 diff changeset	15173
9ad0afacc657 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19328 diff changeset	15174	mingwFolder := 'C:\',mingw.
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15175
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15176	{ programFilesX86 . programFiles . 'C:\' . 'C:\mingw' } do:[:triedFolder \|
19350 9ad0afacc657 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19328 diff changeset	15177	(triedFolder asFilename / mingw) exists ifTrue:[
9ad0afacc657 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19328 diff changeset	15178	mingwFolder := triedFolder asFilename constructString: mingw
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15179	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15180	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15181
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15182	cc value:(mingwFolder,'\bin\gcc').
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15183	linkArgs value:('-L..\..\lib\mingw -L',mingwFolder,'\lib').
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15184	ccOptions value:''.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15185	stcIncludes value:'-I..\..\include'.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15186	linkCommand value:(cc value).
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15187	stcLibraries value:'-lkernel32 -luser32 -lgdi32 -lodbc32 -lglu32 -lopengl32 -luuid -liphlpapi -lws2_32 -lwsock32 -lversion -lwinmm'.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15188	makeCommand value:'mingwmake'.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15189
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15190	self updateModifiedChannel.
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15191	supportedCCompilerSelection value:0
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15192
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15193	"Modified: / 14-06-2017 / 11:08:33 / cg"
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15194	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15195
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15196	setupForMSVC
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15197	"set values for using msvc (windows)"
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15198
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15199	\|programFiles programFilesX86 nothingFound found\|
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15200
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15201	programFiles := OperatingSystem getEnvironment:'ProgramFiles'.
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15202	programFiles isEmptyOrNil ifTrue:[ programFiles := 'C:\Program Files' ].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15203	programFilesX86 := OperatingSystem getEnvironment:'ProgramFiles(x86)'.
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15204	programFilesX86 isEmptyOrNil ifTrue:[ programFilesX86 := 'C:\Program Files (x86)' ].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15205
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15206	cc value:('cl.exe').
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15207	linkCommand value:('ilink32.exe').
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15208	ccOptions value:'/O1'.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15209	stcIncludes value:'-I..\..\include'.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15210	linkArgs value:'-L..\..\lib\vc'.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15211	stcLibraries value:'import32.lib odbc32.lib glu32.lib opengl32.lib'.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15212	makeCommand value:'vcmake'.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15213
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15214	"/ no try to find cl and ilink32
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15215	nothingFound := false.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15216
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15217	programFilesX86 asFilename exists ifFalse:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15218	programFiles asFilename exists ifFalse:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15219	nothingFound := true.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15220	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15221	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15222	nothingFound ifFalse:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15223	#('13.0' '12.0' '11.0' '10.0') do:[:triedVersion \|
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15224	{ programFilesX86 . programFiles } do:[:triedFolder \|
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15225	\|each\|
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15226
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15227	found ifFalse:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15228	each := triedFolder,'\Microsoft Visual Studio ',triedVersion,'\VC\bin'.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15229	each asFilename exists ifTrue:[
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15230	cc value:(each,'\cl.exe').
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15231	linkCommand value:(each,'\ilink32.exe').
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15232	found := true.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15233	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15234	]
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15235	]
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15236	]
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15237	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15238
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15239	self updateModifiedChannel.
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15240	supportedCCompilerSelection value:0.
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15241
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15242	nothingFound ifTrue:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15243	Dialog warn:'No Microsoft Visual Studio folder found. Please check cc- (cl.exe) and link-commands (ilink32.exe)'.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15244	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15245
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15246	"Modified: / 14-06-2017 / 11:04:11 / cg"
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15247	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15248
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15249	supportedCCompilerSelectionChanged
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15250	\|idx spec compiler\|
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15251
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15252	idx := supportedCCompilerSelection value.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15253	idx == 0 ifTrue:[^ self].
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15254
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15255	spec := self supportedCCompilerListSpec at:idx ifAbsent:[^ self].
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15256	compiler := spec second.
16820 8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15257	compiler == #clang ifTrue:[
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15258	self setupForCLANG.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15259	^ self.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15260	].
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15261	compiler == #gcc ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15262	self setupForGCC.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15263	^ self.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15264	].
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15265	compiler == #bcc ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15266	self setupForBCC.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15267	^ self.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15268	].
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15269	compiler == #msvc ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15270	self setupForMSVC.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15271	^ self.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15272	].
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15273	compiler == #mingw ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15274	self setupForMINGW.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15275	^ self.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15276	].
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15277	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15278
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15279	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15280
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15281	canLoadBinaries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15282	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15283	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15284
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15285	cc
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15286	^ cc.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15287	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15288
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15289	ccOptions
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15290	^ ccOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15291	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15292
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15293	enableStcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15294
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15295	^ (ObjectFileLoader libPath notNil and:[canLoadBinaries value])
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15296	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15297
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15298	linkArgs
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15299	^ linkArgs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15300	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15301
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15302	linkCommand
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15303	^ linkCommand.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15304	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15305
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15306	linkSharedArgs
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15307	^ linkSharedArgs.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15308	!
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15309
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	15310	makeCommand
ec908ed4b944 make command fm parents: 6860 diff changeset	15311	^ makeCommand.
ec908ed4b944 make command fm parents: 6860 diff changeset	15312
ec908ed4b944 make command fm parents: 6860 diff changeset	15313	"Created: / 09-08-2006 / 18:49:52 / fm"
ec908ed4b944 make command fm parents: 6860 diff changeset	15314	!
ec908ed4b944 make command fm parents: 6860 diff changeset	15315
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15316	stc
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15317	^ stc.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15318	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15319
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15320	stcCompilationList
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15321	^ stcCompilationList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15322	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15323
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15324	stcCompilationSelection
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15325	^ stcCompilationSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15326	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15327
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15328	stcDefines
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15329	^ stcDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15330	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15331
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15332	stcIncludes
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15333	^ stcIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15334	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15335
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15336	stcKeepCIntermediate
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15337	^ stcKeepCIntermediate.
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15338
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15339	"Created: / 16-09-2011 / 18:42:10 / cg"
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15340	!
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15341
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15342	stcLibraries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15343	^ stcLibraries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15344	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15345
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15346	stcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15347	^ stcLibraryPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15348	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15349
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15350	stcOptions
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15351	^ stcOptions.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15352	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15353
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15354	supportedCCompilerList
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15355	^ self supportedCCompilerListSpec collect:[:s \| s first].
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15356	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15357
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15358	supportedCCompilerListSpec
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15359	OperatingSystem isMSWINDOWSlike ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15360	^ #(
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15361	('Borland CC v5.5 (bcc)' #bcc)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15362	('Microsoft Visual C (cl)' #msvc)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15363	('Mingw (gcc)' #mingw)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15364	).
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15365	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15366
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15367	^ #(
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15368	('GNU gcc' #gcc)
16820 8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15369	('clang' #clang)
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15370	).
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15371	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15372
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15373	supportedCCompilerSelection
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15374	^ supportedCCompilerSelection.
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15375	!
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15376
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15377	verbose
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15378	^ verbose.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15379	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15380
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15381	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15382
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15383	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15384	^ 'Launcher/compilerSettings.html'
10707 25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15385	!
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15386
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15387	helpText
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15388	^ 'These settings are only relevant if methods are to be compiled directly to
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15389	machine code (i.e. using the external stc, not the builtin bytecode compiler).
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15390	Stc-compilation is mandatory for methods which contain inline-C code,
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	15391	for plain Smalltalk code, it is not needed.'
10707 25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15392
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15393	"Created: / 16-09-2011 / 18:18:32 / cg"
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	15394	"Modified: / 22-04-2019 / 10:14:16 / Claus Gittinger"
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15395	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15396
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15397	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'initialization'!
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15398
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15399	initialize
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15400	super initialize.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15401
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15402	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15403
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15404	cc := ValueHolder new.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15405	cc onChangeSend:#updateModifiedChannel to:self.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15406
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15407	ccOptions := ValueHolder new.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15408	ccOptions onChangeSend:#updateModifiedChannel to:self.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15409
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15410	linkArgs := ValueHolder new.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15411	linkArgs onChangeSend:#updateModifiedChannel to:self.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15412
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15413	linkCommand := ValueHolder new.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15414	linkCommand onChangeSend:#updateModifiedChannel to:self.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15415
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15416	linkSharedArgs := ValueHolder new.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15417	linkSharedArgs onChangeSend:#updateModifiedChannel to:self.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15418
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15419	makeCommand := ValueHolder new.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15420	makeCommand onChangeSend:#updateModifiedChannel to:self.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15421
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15422	stc := ValueHolder new.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15423	stc onChangeSend:#updateModifiedChannel to:self.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15424
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15425	stcCompilationList := (resources array:(self class stcCompilationStrings)) asList.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15426
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15427	stcCompilationSelection := (self class stcCompilationOptions indexOf:(ParserFlags stcCompilation) ifAbsent:1) asValue.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15428	stcCompilationSelection onChangeSend:#updateModifiedChannel to:self.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15429
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15430	stcDefines := ValueHolder new.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15431	stcDefines onChangeSend:#updateModifiedChannel to:self.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15432
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15433	stcIncludes := ValueHolder new.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15434	stcIncludes onChangeSend:#updateModifiedChannel to:self.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15435
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15436	stcKeepCIntermediate := false asValue.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15437	stcKeepCIntermediate onChangeSend:#updateModifiedChannel to:self.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15438
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15439	stcLibraries := ValueHolder new.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15440	stcLibraries onChangeSend:#updateModifiedChannel to:self.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15441
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15442	stcLibraryPath := ValueHolder new.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15443	stcLibraryPath onChangeSend:#updateModifiedChannel to:self.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15444
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15445	stcOptions := ValueHolder new.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15446	stcOptions onChangeSend:#updateModifiedChannel to:self.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15447
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15448	supportedCCompilerSelection := ValueHolder new.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15449
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15450	verbose := false asValue.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15451	verbose onChangeSend:#updateModifiedChannel to:self.
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15452
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15453	! !
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15454
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15455	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15456
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15457	hasUnsavedChanges
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15458	\| searchedLibs \|
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15459
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15460	((ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) ~= canLoadBinaries value ) ifTrue:[^ true].
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15461
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15462	((STCCompilerInterface verbose) ~= (verbose value)) ifTrue:[^ true].
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15463
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15464	((ParserFlags stcCompilation ? #default) ~= (self class stcCompilationOptions at:stcCompilationSelection value)) ifTrue:[^ true].
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15465	((ParserFlags stcCompilationIncludes) ~= stcIncludes value) ifTrue:[^ true].
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15466	((ParserFlags stcCompilationDefines) ~= stcDefines value) ifTrue:[^ true].
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15467	((ParserFlags stcCompilationOptions) ~= stcOptions value) ifTrue:[^ true].
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15468	((ParserFlags stcKeepCIntermediate) ~= stcKeepCIntermediate value) ifTrue:[^ true].
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15469	((ParserFlags ccCompilationOptions) ~= ccOptions value) ifTrue:[^ true].
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15470	((ParserFlags ccPath) ~= cc value) ifTrue:[^ true].
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15471	((ParserFlags stcPath) ~= stc value) ifTrue:[^ true].
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15472	((ParserFlags makeCommand) ~= makeCommand value) ifTrue:[^ true].
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15473	((ParserFlags linkCommand) ~= linkCommand value) ifTrue:[^ true].
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15474	((ParserFlags linkArgs) ~= linkArgs value) ifTrue:[^ true].
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15475	((ParserFlags linkSharedArgs) ~= linkSharedArgs value) ifTrue:[^ true].
1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15476	(ParserFlags libPath ~= stcLibraryPath value) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15477
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15478	searchedLibs := ParserFlags searchedLibraries.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15479	searchedLibs notNil ifTrue:[
19509 1d06f6d24022 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19508 diff changeset	15480	(String fromStringCollection:searchedLibs separatedBy:' ') ~= stcLibraries value ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15481	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15482	^ false.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	15483
ec908ed4b944 make command fm parents: 6860 diff changeset	15484	"Modified: / 09-08-2006 / 18:50:36 / fm"
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15485	"Modified: / 16-09-2011 / 18:42:00 / cg"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15486	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15487
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15488	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15489
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15490	exampleText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15491
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15492	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15493	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15494	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15495
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15496	\|index\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15497
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15498	"/ another comment ...
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15499	self at:index+1. "/ a message
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15500	self at:index put:methodArg. "/ a two arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15501	self from:1 to:index put:methodArg. "/ a three arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15502	methodArg ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15503	Transcript showCR:''hello''. "/ condition
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15504	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15505	methodArg ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15506	Transcript showCR:''hello''. "/ condition
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15507	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15508	Transcript showCR:''world''.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15509	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15510	[methodArg] whileTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15511	Transcript showCR:''hello''. "/ looping
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15512	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15513	[self aVeryLongConditionBlock and:[self toMakeBlockLonger]] whileTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15514	Transcript showCR:''hello''. "/ long blocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15515	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15516	methodArg do:[:element \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15517	Transcript showCR:''hello''. "/ looping
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15518	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15519	1 to:methodArg size do:[:index \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15520	Transcript showCR:''hello''. "/ looping
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15521	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15522	methodArg keysAndValuesDo:[:index \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15523	Transcript showCR:''hello''. "/ looping
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15524	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15525	Object errorSignal handle:[:ex \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15526	ex return
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15527	] do:[ "/ exception handling
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15528	self someAction "/ blocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15529	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15530	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15531	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15532	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15533
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15534	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15535
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15536	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15537	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15538	by the ImageEditor of ST/X."
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15539
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15540	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15541	the ImageEditor may not be able to read the specification."
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15542
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15543	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15544	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15545	ImageEditor openOnClass:self andSelector:#defaultIcon
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15546	Icon flushCachedIcons
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15547	"
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15548
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15549	<resource: #image>
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15550
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15551	^Icon
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15552	constantNamed:'AbstractSettingsApplication::SourceCodeFormatSettingsAppl defaultIcon'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15553	ifAbsentPut:[(Depth4Image new) width:22; height:22; bits:(ByteArray fromPackedString:'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15554	@@@@@@@@@@@@@@@CL3L3L3L3L3LP@@L4QDQDQDQDQAL@@3P"IDQDQDQDD0@CMBQDQDQDQDPS@@L4IDQDQDQDQAL@@3P"IDQDQDQDD0@CMDQDP"H"H$PS@@L4
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15555	QDQDQDQDQAL@@3QDQDH"H"IDD0@CMDQDQDQDQDPS@@L4QDQBH"H"QAL@@3QDQDQDQDQD@0@CMDQDP"H"H$PC@@L4QDQDQDQDQ@L@@3P"IDQDQDQD@0@CMDP$
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15556	QDQDQDPC@@L4QBQDQDQDQ@L@@3P"IDQDQDQD@0@CMDQDQDQDQDPC@@LP@@@@@@@@@@L@@CL3L3L3L3L3L0@b') ; colorMapFromArray:#[0 0 0 48 48 48 160 160 160 208 208 208 240 240 240]; mask:((ImageMask new) width:22; height:22; bits:(ByteArray fromPackedString:'@@@@_?? _??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0_??0O??0') ; yourself); yourself]
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15557	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15558
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15559	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15560
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15561	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15562	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15563	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15564
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15565	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15566	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15567
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15568	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15569	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeFormatSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15570	AbstractSettingsApplication::SourceCodeFormatSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15571	AbstractSettingsApplication::SourceCodeFormatSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15572	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15573
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15574	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15575
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15576	^
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	15577	#(FullSpec
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	15578	name: windowSpec
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15579	window:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	15580	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15581	label: 'Code Format Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15582	name: 'Code Format Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15583	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15584	bounds: (Rectangle 0 0 613 685)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15585	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15586	component:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	15587	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15588	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15589	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15590	name: 'VerticalPanel3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15591	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -30 1.0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15592	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15593	verticalLayout: topSpaceFit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15594	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15595	verticalSpace: 3
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15596	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15597	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15598	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15599	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15600	name: 'VerticalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15601	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15602	verticalLayout: bottom
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15603	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15604	verticalSpace: 3
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15605	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15606	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15607	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15608	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15609	name: 'Box1'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15610	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15611	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15612	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15613	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15614	label: 'Space around Temporaries'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15615	name: 'CheckBox3'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15616	layout: (LayoutFrame 0 0 0 0 270 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15617	model: spaceAroundTemporaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15618	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15619	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15620	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15621	label: 'Blank line after local Var Declaration'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15622	name: 'CheckBox4'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15623	layout: (LayoutFrame 270 0 0 0 0 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15624	model: emptyLineAfterTemporaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15625	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15626	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15627	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15628
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15629	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15630	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15631	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15632	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15633	name: 'Box11'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15634	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15635	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15636	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15637	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15638	label: 'Space after ''^'''
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15639	name: 'CheckBox5'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15640	layout: (LayoutFrame 0 0 0 0 270 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15641	model: spaceAfterReturnToken
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15642	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15643	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15644	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15645	label: 'Space after '':'' in Keywords'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15646	name: 'CheckBox6'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15647	layout: (LayoutFrame 270 0 0 0 -5 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15648	model: spaceAfterKeywordSelector
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15649	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15650	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15651	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15652
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15653	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15654	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15655	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15656	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15657	name: 'Box15'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15658	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15659	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15660	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15661	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15662	label: 'Space after ''['''
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15663	name: 'CheckBox9'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15664	layout: (LayoutFrame 0 0 0 0 270 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15665	model: spaceAfterBlockStart
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15666	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15667	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15668	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15669	label: 'Space before '']'''
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15670	name: 'CheckBox10'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15671	layout: (LayoutFrame 270 0 0 0 -5 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15672	model: spaceBeforeBlockEnd
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15673	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15674	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15675	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15676
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15677	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15678	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15679	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15680	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15681	name: 'Box12'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15682	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15683	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15684	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15685	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15686	label: 'C-Style Blocks'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15687	name: 'CheckBox8'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15688	layout: (LayoutFrame 0 0 0 0 270 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15689	model: cStyleBlocks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15690	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15691	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15692	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15693	label: 'Block Args on new Line'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15694	name: 'CheckBox7'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15695	layout: (LayoutFrame 270 0 0 0 -5 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15696	model: blockArgumentsOnNewLine
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15697	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15698	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15699	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15700
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15701	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15702	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15703	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15704	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15705	name: 'Box13'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15706	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15707	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15708	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15709	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15710	label: 'Indent:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15711	name: 'Label1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15712	layout: (LayoutFrame 0 0 0 0 327 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15713	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15714	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15715	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15716	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15717	name: 'EntryField1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15718	layout: (LayoutFrame 334 0 0 0 381 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15719	model: tabIndent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15720	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15721	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15722	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15723	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15724	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15725	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15726	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15727
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15728	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15729	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15730	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15731	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15732	name: 'Box16'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15733	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15734	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15735	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15736	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15737	label: 'Max Length for Single Line Blocks:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15738	name: 'Label5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15739	layout: (LayoutFrame 0 0 0 0 327 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15740	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15741	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15742	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15743	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15744	name: 'EntryField4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15745	layout: (LayoutFrame 334 0 0 0 381 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15746	model: maxLengthForSingleLineBlocks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15747	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15748	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15749	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15750	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15751	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15752	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15753	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15754
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15755	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15756	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15757	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15758	(HorizontalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15759	name: 'HorizontalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15760	horizontalLayout: fitSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15761	verticalLayout: bottom
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15762	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15763	verticalSpace: 3
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15764	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15765	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15766	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15767	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15768	label: 'Reset to ST/X Default'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15769	name: 'Button1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15770	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15771	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15772	model: resetToStxDefault
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15773	extent: (Point 300 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15774	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15775	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15776	label: 'Reset to RefactoryBrowser Default'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15777	name: 'Button2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15778	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15779	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15780	model: resetToRBDefault
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15781	extent: (Point 301 22)
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15782	)
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15783	)
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15784
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15785	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15786	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15787	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15788	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15789
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15790	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15791	extent: (Point 613 180)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15792	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15793	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15794	name: 'SpacingBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15795	extent: (Point 613 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15796	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15797	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15798	name: 'Box14'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15799	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15800	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15801	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15802	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15803	label: 'Sample Output:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15804	name: 'Label3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15805	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15806	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15807	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15808	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15809	(TextEditorSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15810	name: 'TextEditor3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15811	layout: (LayoutFrame 0 0 30 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15812	model: editorText
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15813	hasHorizontalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15814	hasVerticalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15815	isReadOnly: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15816	hasKeyboardFocusInitially: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15817	postBuildCallback: postBuildTextEditor:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15818	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15819	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15820
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15821	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15822	extent: (Point 613 453)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15823	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15824	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15825
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15826	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15827	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15828	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15829	label: 'Auto Format'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15830	name: 'CheckBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15831	layout: (LayoutFrame 3 0 -30 1 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15832	model: autoFormat
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15833	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15834	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15835	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15836
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	15837	)
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	15838	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15839	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15840
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15841	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15842
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15843	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15844	reformatLocked := true.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15845
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15846	self
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15847	readAspects:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15848	#(
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15849	tabIndent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15850	spaceAroundTemporaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15851	emptyLineAfterTemporaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15852	spaceAfterReturnToken
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15853	spaceAfterKeywordSelector
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15854	spaceAfterBlockStart
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15855	spaceBeforeBlockEnd
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15856	cStyleBlocks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15857	blockArgumentsOnNewLine
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15858	maxLengthForSingleLineBlocks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15859	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15860	from:RBFormatter.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15861
19510 148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15862	autoFormat value:currentUserPrefs autoFormatting.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15863	self updateModifiedChannel.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15864	reformatLocked := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15865	self reformat.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15866	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15867
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15868	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15869
19510 148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15870	currentUserPrefs autoFormatting: autoFormat value.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15871	currentUserPrefs at:#'formatter.tabIndent' put: tabIndent value.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15872	currentUserPrefs at:#'formatter.spaceAroundTemporaries' put: spaceAroundTemporaries value.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15873	currentUserPrefs at:#'formatter.emptyLineAfterTemporaries' put: emptyLineAfterTemporaries value.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15874	currentUserPrefs at:#'formatter.spaceAfterReturnToken' put: spaceAfterReturnToken value.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15875	currentUserPrefs at:#'formatter.spaceAfterKeywordSelector' put: spaceAfterKeywordSelector value.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15876	currentUserPrefs at:#'formatter.spaceAfterBlockStart' put: spaceAfterBlockStart value.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15877	currentUserPrefs at:#'formatter.spaceBeforeBlockEnd' put: spaceBeforeBlockEnd value.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15878	currentUserPrefs at:#'formatter.cStyleBlocks' put: cStyleBlocks value.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15879	currentUserPrefs at:#'formatter.blockArgumentsOnNewLine' put: blockArgumentsOnNewLine value.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15880	currentUserPrefs at:#'formatter.maxLengthForSingleLineBlocks' put: maxLengthForSingleLineBlocks value.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15881	RBFormatter
19510 148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15882	tabIndent: tabIndent value;
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15883	spaceAroundTemporaries: spaceAroundTemporaries value;
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15884	emptyLineAfterTemporaries: emptyLineAfterTemporaries value;
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15885	spaceAfterReturnToken: spaceAfterReturnToken value;
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15886	spaceAfterKeywordSelector: spaceAfterKeywordSelector value;
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15887	spaceAfterBlockStart: spaceAfterBlockStart value;
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15888	spaceBeforeBlockEnd: spaceBeforeBlockEnd value;
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15889	cStyleBlocks: cStyleBlocks value;
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15890	blockArgumentsOnNewLine: blockArgumentsOnNewLine value;
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15891	maxLengthForSingleLineBlocks: maxLengthForSingleLineBlocks value asInteger.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15892	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15893
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15894	reformat
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15895
19510 148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15896	\|"tree" s_tabIndent s_spaceAroundTemporaries s_emptyLineAfterTemporaries
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15897	s_spaceAfterReturnToken s_spaceAfterKeywordSelector s_cStyleBlocks
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15898	s_maxLengthForSingleLineBlocks s_blockArgumentsOnNewLine
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15899	s_spaceAfterBlockStart s_spaceBeforeBlockEnd\|
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15900
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15901	reformatLocked ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15902	"/
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15903	"/ temporary change the RBFormatters settings ...
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15904	"/
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15905	s_tabIndent := RBFormatter tabIndent.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15906	s_spaceAroundTemporaries := RBFormatter spaceAroundTemporaries.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15907	s_emptyLineAfterTemporaries := RBFormatter emptyLineAfterTemporaries.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15908	s_spaceAfterReturnToken := RBFormatter spaceAfterReturnToken.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15909	s_spaceAfterKeywordSelector := RBFormatter spaceAfterKeywordSelector.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15910	s_spaceAfterBlockStart := RBFormatter spaceAfterBlockStart.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15911	s_spaceBeforeBlockEnd := RBFormatter spaceBeforeBlockEnd.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15912	s_cStyleBlocks := RBFormatter cStyleBlocks.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15913	s_blockArgumentsOnNewLine := RBFormatter blockArgumentsOnNewLine.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15914	s_maxLengthForSingleLineBlocks := RBFormatter maxLengthForSingleLineBlocks.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15915
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15916	RBFormatter
19510 148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15917	tabIndent: tabIndent value;
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15918	spaceAroundTemporaries: spaceAroundTemporaries value;
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15919	emptyLineAfterTemporaries: emptyLineAfterTemporaries value;
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15920	spaceAfterReturnToken: spaceAfterReturnToken value;
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15921	spaceAfterKeywordSelector: spaceAfterKeywordSelector value;
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15922	spaceAfterBlockStart: spaceAfterBlockStart value;
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15923	spaceBeforeBlockEnd: spaceBeforeBlockEnd value;
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15924	cStyleBlocks: cStyleBlocks value;
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15925	blockArgumentsOnNewLine: blockArgumentsOnNewLine value;
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15926	maxLengthForSingleLineBlocks: maxLengthForSingleLineBlocks value.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15927
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15928	"/ tree := RBParser
5076 c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	15929	"/ parseMethod:self class exampleText
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	15930	"/ onError: [:aString :position \| nil].
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	15931	"/ tree do:[:node \|
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	15932	"/ (node ~~ tree and:[node parent isNil]) ifTrue:[
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	15933	"/ self error:'No parent for node'.
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	15934	"/ ]
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	15935	"/ ].
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	15936	"/ self editorText value:tree printString.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15937	self editorText value:(RBFormatter format:(self class exampleText)).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15938
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15939	RBFormatter
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15940	tabIndent:s_tabIndent;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15941	spaceAroundTemporaries:s_spaceAroundTemporaries;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15942	emptyLineAfterTemporaries:s_emptyLineAfterTemporaries;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15943	spaceAfterReturnToken:s_spaceAfterReturnToken;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15944	spaceAfterKeywordSelector:s_spaceAfterKeywordSelector;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15945	spaceAfterBlockStart:s_spaceAfterBlockStart;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15946	spaceBeforeBlockEnd:s_spaceBeforeBlockEnd;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15947	cStyleBlocks:s_cStyleBlocks;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15948	blockArgumentsOnNewLine:s_blockArgumentsOnNewLine;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15949	maxLengthForSingleLineBlocks:s_maxLengthForSingleLineBlocks.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15950	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15951	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15952
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15953	resetToRBDefault
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15954
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15955	reformatLocked := true.
19510 148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15956	tabIndent value: 8.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15957	spaceAfterReturnToken value:false.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15958	spaceAfterKeywordSelector value:true.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15959	spaceAroundTemporaries value:true.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15960	spaceAfterBlockStart value:true.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15961	spaceBeforeBlockEnd value:true.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15962	emptyLineAfterTemporaries value:false.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15963	cStyleBlocks value:false.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15964	blockArgumentsOnNewLine value:false.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15965	maxLengthForSingleLineBlocks value: 20.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15966	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15967	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15968	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15969
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15970	resetToStxDefault
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15971
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15972	reformatLocked := true.
19510 148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15973	tabIndent value: 4.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15974	spaceAfterReturnToken value: true.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15975	spaceAfterKeywordSelector value: false.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15976	spaceAroundTemporaries value: false.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15977	spaceAfterBlockStart value:false.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15978	spaceBeforeBlockEnd value:false.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15979	emptyLineAfterTemporaries value: true.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15980	cStyleBlocks value: true.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15981	blockArgumentsOnNewLine value:false.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	15982	maxLengthForSingleLineBlocks value: 20.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15983	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15984	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15985	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15986
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15987	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15988
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15989	autoFormat
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15990	^ autoFormat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15991	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15992
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15993	blockArgumentsOnNewLine
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15994	^ blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15995	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15996
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15997	cStyleBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15998	^ cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15999	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16000
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16001	editorText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16002	^ editorText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16003	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16004
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16005	emptyLineAfterTemporaries
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16006	^ emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16007	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16008
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16009	maxLengthForSingleLineBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16010	^ maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16011	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16012
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16013	spaceAfterBlockStart
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16014	^ spaceAfterBlockStart.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16015	!
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16016
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16017	spaceAfterKeywordSelector
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16018	^ spaceAfterKeywordSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16019	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16020
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16021	spaceAfterReturnToken
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16022	^ spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16023	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16024
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16025	spaceAroundTemporaries
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16026	^ spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16027	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16028
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16029	spaceBeforeBlockEnd
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16030	^ spaceBeforeBlockEnd.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16031	!
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16032
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16033	tabIndent
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16034	^ tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16035	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16036
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16037	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16038
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16039	update:something with:aParameter from:changedObject
19510 148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16040	(changedObject == blockArgumentsOnNewLine
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16041	or:[ changedObject == cStyleBlocks
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16042	or:[ changedObject == emptyLineAfterTemporaries
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16043	or:[ changedObject == maxLengthForSingleLineBlocks
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16044	or:[ changedObject == spaceAfterKeywordSelector
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16045	or:[ changedObject == spaceAfterReturnToken
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16046	or:[ changedObject == spaceAfterBlockStart
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16047	or:[ changedObject == spaceBeforeBlockEnd
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16048	or:[ changedObject == spaceAroundTemporaries
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16049	or:[ changedObject == tabIndent]]]]]]]]])
8502 b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	16050	ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16051	self updateModifiedChannel.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16052	self reformat.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16053	^ self
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16054	].
19510 148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16055	super update:something with:aParameter from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16056	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16057
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16058	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16059
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16060	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16061	^ 'Launcher/sourceFormatSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16062	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16063
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16064	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16065
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16066	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	16067	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	16068
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16069	super initialize.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16070	RBFormatter isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16071	^ self warn:'Sorry, no RBFormatter class'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16072	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16073	RBFormatter isLoaded ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16074	WindowGroup activeGroup withWaitCursorDo:[RBFormatter autoload]
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16075	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16076	reformatLocked := false.
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	16077
19510 148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16078	autoFormat := currentUserPrefs autoFormatting asValue.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16079	autoFormat onChangeSend:#updateModifiedChannel to:self.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16080
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16081	blockArgumentsOnNewLine := true asValue.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16082	blockArgumentsOnNewLine addDependent:self.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16083
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16084	cStyleBlocks := true asValue.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16085	cStyleBlocks addDependent:self.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16086
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16087	editorText := ValueHolder new.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16088
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16089	emptyLineAfterTemporaries := true asValue.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16090	emptyLineAfterTemporaries addDependent:self.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16091
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16092	maxLengthForSingleLineBlocks := ValueHolder new.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16093	maxLengthForSingleLineBlocks addDependent:self.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16094
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16095	spaceAfterBlockStart := true asValue.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16096	spaceAfterBlockStart addDependent:self.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16097
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16098	spaceAfterKeywordSelector := true asValue.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16099	spaceAfterKeywordSelector addDependent:self.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16100
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16101	spaceAfterReturnToken := true asValue.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16102	spaceAfterReturnToken addDependent:self.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16103
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16104	spaceAroundTemporaries := true asValue.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16105	spaceAroundTemporaries addDependent:self.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16106
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16107	spaceBeforeBlockEnd := true asValue.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16108	spaceBeforeBlockEnd addDependent:self.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16109
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16110	tabIndent := ValueHolder new.
148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16111	tabIndent addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16112	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16113
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16114	postBuildTextEditor:aWidget
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16115
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16116	aWidget cursorMovementWhenUpdating:nil;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16117	scrollWhenUpdating:nil.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16118	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16119
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16120	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16121
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16122	hasUnsavedChanges
19510 148064ba350a #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19509 diff changeset	16123	autoFormat value ~= currentUserPrefs autoFormatting ? false ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16124
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16125	(self
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16126	hasChangedAspectIn:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16127	#(
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16128	tabIndent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16129	spaceAroundTemporaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16130	emptyLineAfterTemporaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16131	spaceAfterReturnToken
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16132	spaceAfterKeywordSelector
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16133	spaceAfterBlockStart
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16134	spaceBeforeBlockEnd
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16135	cStyleBlocks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16136	blockArgumentsOnNewLine
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16137	maxLengthForSingleLineBlocks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16138	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16139	asComparedTo:RBFormatter) ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16140
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	16141	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16142	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16143
11325 0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16144	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'documentation'!
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16145
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16146	documentation
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16147	"
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16148	this is the old (now obsolete) settings app, which was used until multiple
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16149	managers were supported (i.e. when only the CVSSourceCodeManager was available).
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16150	It has been split into a generic part (manager-to-module assignment),
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16151	and per-manager subapplications.
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16152	"
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16153	! !
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16154
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16155	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'help specs'!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16156
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16157	helpSpec
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16158	"This resource specification was automatically generated
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16159	by the UIHelpTool of ST/X."
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16160
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16161	"Do not manually edit this!! If it is corrupted,
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16162	the UIHelpTool may not be able to read the specification."
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16163
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16164	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16165	UIHelpTool openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16166	"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16167
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16168	<resource: #help>
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16169
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16170	^ super helpSpec addPairsFrom:#(
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16171
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16172	#addPerPackageManager
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16173	'Add a new per-package manager definition'
9835 b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	16174
10738 9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	16175	#browseSourceCache
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	16176	'Open a file browser on the source cache directory'
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	16177
11005 449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16178	#checkClassesWhenCheckingIn
17453 67a6373fd536 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	16179	'Before checking into the repository, check classes for leftover halt/breakpoint code.\This also cares for any possible problems which might be encountered with stc-compilation\(which is less forgiving in some situations).\It makes checkin a bit slow, but is worth the little delay.'
11005 449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16180
449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16181	#checkPerPackageManager
11732 67c6691a705a help texts Claus Gittinger <cg@exept.de> parents: 11711 diff changeset	16182	'Open a window to show which scm-manager is responsible for which package'
11005 449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16183
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16184	#condenseSourceCache
10978 d9418bcfdc4d help specs Claus Gittinger <cg@exept.de> parents: 10951 diff changeset	16185	'Cleanup old cached versions from the source cache.\Will keep only the current (newest) version in the cache.\Access to older code versions will be slowed down (compare with old version browser function)'
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16186
11005 449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16187	#defaultManagerType
449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16188	'The default repository type.\This is used for packages for which no entry matches in the list below'
449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16189
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16190	#editPerPackageManager
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16191	'Modify the selected per-package manager definition'
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16192
12872 2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16193	#fillSourceCache
2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16194	'Fill the cache (by fetching all source files) in a low-prio background process'
2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16195
10738 9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	16196	#flushSourceCache
10978 d9418bcfdc4d help specs Claus Gittinger <cg@exept.de> parents: 10951 diff changeset	16197	'Remove all files from the source cache.\Access to source code will temporarily be slowed down,\until sources have been refetched from the repository'
9835 b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	16198
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16199	#keepMethodSourceInImage
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16200	'After first file access, keep the method sources in the image itself.\All following text search operations will be much faster.\Grows the image over time (but who cares, these days)'
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16201
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16202	#moveManagerDown
11732 67c6691a705a help texts Claus Gittinger <cg@exept.de> parents: 11711 diff changeset	16203	'Move the selected entry down in the list.\(The first matching definition is used to determine which repository type is used)'
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16204
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16205	#moveManagerUp
11732 67c6691a705a help texts Claus Gittinger <cg@exept.de> parents: 11711 diff changeset	16206	'Move the selected entry up in the list.\(The first matching definition is used to determine which repository type is used)'
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16207
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16208	#perPackageConfiguration
11732 67c6691a705a help texts Claus Gittinger <cg@exept.de> parents: 11711 diff changeset	16209	'Define per-package repository types here.\For any non-matching package-id, the default repository type is used'
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16210
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16211	#removePerPackageManager
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16212	'Remove the selected per-package manager definition'
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16213
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16214	#sourceCache
10978 d9418bcfdc4d help specs Claus Gittinger <cg@exept.de> parents: 10951 diff changeset	16215	'After checkout, keep the sourcefile in a local file (to avoid repeated checkout of the same file)'
9835 b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	16216
b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	16217	#useLocalSources
13222 e5ff6ff1acb5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13220 diff changeset	16218	'If present, use the local source files (from the development system''s tree),\making source access much faster if you have a slow repository access.\If checked, you should NOT check out new sources on the shell level into those sourcefiles,\otherwise, the browser may show corrupt source text.\\If checkout fails, these will always be tried as second chance.'
9835 b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	16219
11005 449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16220	#useManager
449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16221	'Enable source code management.\If off, all queries for sourcecode are resolved by local files (offline operation)'
10978 d9418bcfdc4d help specs Claus Gittinger <cg@exept.de> parents: 10951 diff changeset	16222
d9418bcfdc4d help specs Claus Gittinger <cg@exept.de> parents: 10951 diff changeset	16223	#verboseSourceCodeAccess
d9418bcfdc4d help specs Claus Gittinger <cg@exept.de> parents: 10951 diff changeset	16224	'Output debugging messages on the Transcript\(mostly traces of the underlying scm mechanism, such as cvs commands)'
11005 449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16225
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16226	)
17453 67a6373fd536 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	16227
67a6373fd536 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	16228	"Modified: / 01-03-2017 / 16:08:40 / cg"
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16229	! !
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16230
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16231	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16232
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16233	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16234	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16235	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16236
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16237	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16238	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16239
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16240	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16241	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16242	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16243	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16244	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16245
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16246	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16247
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16248	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	16249	constantNamed:'AbstractSettingsApplication::SourceCodeManagementSettingsAppl defaultIcon'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	16250	ifAbsentPut:[(Depth8Image width:22 height:22) bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	16251	@@@@@@@@@@@A@PHB@0P@@@@@@@@@@@@@@@@@@@HEA \HA $JB0HD@@@@@@@@@@@@@@HLA04NC0HD@@L@@ P@@@@@@@@@@@@ED@ NDP@@@@@@@@@D@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	16252	@@@BA \FAPP@@@@@@@@@@@P@@@@@@@@@AQ@RC0@@@@@@@@@@@@@@@@@@@@@@@@TGA!!DD@@@@@@@@@@@@@@@@@@@D@PDIA08OA@@@@@@@@@@@@@@@@@@@AP S
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	16253	A0XIBPXGC0P@@@@@@@@@@@@@@@@ECAPLBPXOAP@@@@@@EQX@@@@@@@@@@@TIE@XOAP@@@@@@EQ\XE @@@@@@@@@@AP$OAP@@@@@@FQ\ZE!! V@@@@@@@@@@@E
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	16254	F0@@@@@@EQ\ZF!!(VFAX@@@@@@@@@@@@@@@@ZEQ\VE!!(ZF!!XWF @@@@@@@@@@@@@@@@@@@A\ZE!!(@@@@@@@@@@@@@@@@@@@@@@@@XE!!XZ@@@@@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	16255	@@@@@@@@EQ(V@@@@@@@@@@@@@@@@@@@@@@@@EQ\VE @@@@@@@@@@@@@@@@@@@@@@EQ VE @@@@@@@@@@@@@@F @@@@@WEQ VE!!(@@@@@@@@@@@@@@@@@E!!\W
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	16256	EQXVE @@@@@@@@@@@@@@@@@@@@@@@A(Z@@@@@@@@@@@@@@@a')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	16257	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]
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	16258	mask:((ImageMask width:22 height:22) 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	16259	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16260
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16261	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16262
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16263	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16264	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16265	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16266
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16267	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16268	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16269
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16270	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16271	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16272	AbstractSettingsApplication::SourceCodeManagementSettingsAppl new openInterface:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16273	AbstractSettingsApplication::SourceCodeManagementSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16274	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16275
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16276	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16277
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16278	^
13189 895b7f28de37 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13163 diff changeset	16279	#(FullSpec
895b7f28de37 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13163 diff changeset	16280	name: windowSpec
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16281	window:
13189 895b7f28de37 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13163 diff changeset	16282	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16283	label: 'Source Code Manager Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16284	name: 'Source Code Manager Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16285	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16286	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16287	bounds: (Rectangle 0 0 660 639)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16288	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16289	component:
13189 895b7f28de37 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13163 diff changeset	16290	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16291	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16292	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16293	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16294	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16295	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16296	verticalLayout: topSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16297	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16298	verticalSpace: 20
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16299	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16300	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16301	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16302	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16303	name: 'VerticalPanel3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16304	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16305	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16306	horizontalSpace: 3
17453 67a6373fd536 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	16307	verticalSpace: 2
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16308	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16309	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16310	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16311	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16312	name: 'Box3'
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16313	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16314	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16315	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16316	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16317	label: 'Sourcecode Management'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16318	name: 'SourcecodeManagementCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16319	layout: (LayoutFrame 5 0 0 0.0 332 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16320	activeHelpKey: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16321	model: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16322	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16323	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16324	(ComboListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16325	name: 'ComboList1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16326	layout: (LayoutFrame -151 1 0 0 -5 1 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16327	activeHelpKey: defaultManagerType
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16328	visibilityChannel: moreThanOneManagerTypesAvailable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16329	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16330	model: selectedManagerTypeIndexHolder
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16331	comboList: availableManagerTypeNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16332	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16333	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16334	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16335	label: 'Default Repository Type:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16336	name: 'Label14'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16337	layout: (AlignmentOrigin -154 1 16 0 1 0.5)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16338	activeHelpKey: defaultManagerType
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16339	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16340	resizeForLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16341	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16342	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16343	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16344
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16345	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16346	extent: (Point 660 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16347	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16348	(FramedBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16349	label: 'Per Package Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16350	name: 'PerPackageConfiguration'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16351	activeHelpKey: perPackageConfiguration
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16352	labelPosition: topLeft
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16353	translateLabel: true
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16354	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16355	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16356	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16357	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16358	name: 'RepositoryConfigurations'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16359	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16360	activeHelpKey: perPackageConfiguration
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16361	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16362	verticalLayout: bottomFit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16363	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16364	verticalSpace: 3
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16365	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16366	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16367	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16368	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16369	name: 'RepositoryConfigurationListBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16370	activeHelpKey: perPackageConfiguration
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16371	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16372	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16373	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16374	(DataSetSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16375	name: 'RepositoryConfigurationList'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16376	layout: (LayoutFrame 0 0 0 0 -122 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16377	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16378	model: selectedManagerPerMatchingModuleHolder
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16379	hasHorizontalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16380	hasVerticalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16381	dataList: managerPerMatchingModule
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16382	columnHolder: managerPerMatchingModuleColumns
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16383	beDependentOfRows: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16384	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16385	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16386	name: 'Buttons1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16387	layout: (LayoutFrame -121 1 0 0 0 1 -22 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16388	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16389	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16390	horizontalSpace: 5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16391	verticalSpace: 3
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16392	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16393	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16394	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16395	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16396	label: 'Add...'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16397	name: 'ButtonAdd'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16398	activeHelpKey: addPerPackageManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16399	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16400	model: actionAdd
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16401	extent: (Point 119 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16402	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16403	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16404	label: 'Edit...'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16405	name: 'ButtonEdit'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16406	activeHelpKey: editPerPackageManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16407	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16408	model: actionEdit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16409	enableChannel: canRemoveManagerPerPackageEntry
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16410	extent: (Point 119 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16411	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16412	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16413	label: 'Move Up'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16414	name: 'ButtonModeUp'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16415	activeHelpKey: moveManagerUp
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16416	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16417	model: actionMoveUp
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16418	enableChannel: canMoveUp
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16419	extent: (Point 119 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16420	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16421	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16422	label: 'Move Down'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16423	name: 'ButtonModeDown'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16424	activeHelpKey: moveManagerDown
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16425	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16426	model: actionMoveDown
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16427	enableChannel: canMoveDown
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16428	extent: (Point 119 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16429	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16430	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16431	name: 'SpacingLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16432	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16433	extent: (Point 121 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16434	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16435	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16436	label: 'Remove'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16437	name: 'ButtonRemove'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16438	activeHelpKey: removePerPackageManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16439	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16440	model: actionRemove
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16441	enableChannel: canRemoveManagerPerPackageEntry
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16442	extent: (Point 119 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16443	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16444	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16445
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16446	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16447	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16448	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16449	label: 'Test'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16450	name: 'Button2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16451	layout: (LayoutFrame -90 1 -30 1 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16452	activeHelpKey: checkPerPackageManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16453	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16454	model: actionTest
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16455	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16456	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16457
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16458	)
17453 67a6373fd536 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	16459	extent: (Point 618 258)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16460	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16461	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16462
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16463	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16464	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16465	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16466
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16467	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16468	extent: (Point 660 300)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16469	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16470	(FramedBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16471	label: 'Source Cache'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16472	name: 'SourceCacheBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16473	activeHelpKey: sourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16474	labelPosition: topLeft
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16475	translateLabel: true
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16476	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16477	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16478	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16479	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16480	name: 'SourceCacheDirBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16481	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16482	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16483	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16484	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16485	(FilenameInputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16486	name: 'FilenameEntryField1'
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16487	layout: (LayoutFrame 64 0.25 0 0 -2 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16488	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16489	model: sourceCacheDir
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16490	immediateAccept: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16491	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16492	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16493	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16494	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16495	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16496	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16497	label: 'Source Cache Dir:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16498	name: 'SourceCacheDirLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16499	layout: (LayoutFrame 0 0.0 0 0 60 0.25 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16500	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16501	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16502	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16503	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16504
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16505	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16506	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16507	(HorizontalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16508	name: 'CacheActionsHorizontalPanel1'
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16509	layout: (LayoutFrame 0 0 37 0 -1 1 67 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16510	horizontalLayout: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16511	verticalLayout: center
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16512	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16513	verticalSpace: 3
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16514	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16515	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16516	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16517	(ActionButtonSpec
16673 72965741529d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16644 diff changeset	16518	label: 'Fill Cache'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16519	name: 'FillCacheInBackgroundButton'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16520	activeHelpKey: fillSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16521	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16522	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16523	model: fillSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16524	enableChannel: useManager
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16525	extent: (Point 150 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16526	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16527	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16528
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16529	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16530	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16531	(HorizontalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16532	name: 'CacheActionsHorizontalPanel2'
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16533	layout: (LayoutFrame 0 0 70 0 -1 1 100 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16534	horizontalLayout: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16535	verticalLayout: center
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16536	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16537	verticalSpace: 3
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16538	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16539	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16540	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16541	(ActionButtonSpec
16673 72965741529d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16644 diff changeset	16542	label: 'Browse'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16543	name: 'Button3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16544	activeHelpKey: browseSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16545	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16546	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16547	model: browseSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16548	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16549	extent: (Point 171 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16550	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16551	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16552	name: 'Box5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16553	extent: (Point 20 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16554	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16555	(ActionButtonSpec
16673 72965741529d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16644 diff changeset	16556	label: 'Flush'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16557	name: 'Button4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16558	activeHelpKey: flushSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16559	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16560	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16561	model: flushSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16562	enableChannel: useManager
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16563	extent: (Point 150 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16564	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16565	(ActionButtonSpec
16673 72965741529d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16644 diff changeset	16566	label: 'Condense'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16567	name: 'Button5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16568	activeHelpKey: condenseSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16569	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16570	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16571	model: condenseSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16572	enableChannel: useManager
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16573	extent: (Point 150 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16574	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16575	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16576
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16577	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16578	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16579	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16580
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16581	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16582	extent: (Point 660 136)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16583	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16584	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16585	name: 'UseLocalSourceBox'
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16586	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16587	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16588	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16589	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16590	label: 'If Present, Use Local Source (Suppress Checkout)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16591	name: 'CheckBox4'
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16592	layout: (LayoutFrame 30 0 1 0 -5 1 29 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16593	activeHelpKey: useLocalSources
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16594	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16595	model: localSourceFirst
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16596	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16597	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16598	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16599
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16600	)
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16601	extent: (Point 660 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16602	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16603	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16604	name: 'KeepMethodSourceBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16605	activeHelpKey: keepMethodSourceInImage
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16606	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16607	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16608	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16609	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16610	label: 'Keep Method Source (In Image)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16611	name: 'CheckBox7'
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16612	layout: (LayoutFrame 30 0 1 0 -5 1 29 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16613	activeHelpKey: keepMethodSourceInImage
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16614	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16615	model: keepMethodSource
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16616	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16617	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16618	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16619
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16620	)
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16621	extent: (Point 660 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16622	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16623	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16624	name: 'CheckForHaltSendsBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16625	activeHelpKey: checkClassesWhenCheckingIn
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16626	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16627	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16628	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16629	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16630	label: 'Check for halt/error-Sends when Checking in'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16631	name: 'CheckBox5'
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16632	layout: (LayoutFrame 30 0 1 0 -5 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16633	activeHelpKey: checkClassesWhenCheckingIn
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16634	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16635	model: checkClassesWhenCheckingIn
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16636	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16637	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16638	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16639
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16640	)
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16641	extent: (Point 660 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16642	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16643	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16644	name: 'VerboseBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16645	activeHelpKey: verboseSourceCodeAccess
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16646	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16647	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16648	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16649	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16650	label: 'Verbose (Trace Operations on Transcript)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16651	name: 'CheckBox6'
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16652	layout: (LayoutFrame 30 0 1 0 -5 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16653	activeHelpKey: verboseSourceCodeAccess
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16654	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16655	model: verboseSourceCodeAccess
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16656	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16657	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16658	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16659
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16660	)
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16661	extent: (Point 660 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16662	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16663	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16664
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16665	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16666	extent: (Point 660 768)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16667	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16668	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16669
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16670	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16671	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16672	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16673
13189 895b7f28de37 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13163 diff changeset	16674	)
895b7f28de37 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13163 diff changeset	16675	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16676	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16677
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16678	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'tableColumns specs'!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16679
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16680	managerPerMatchingModuleColumns
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16681	"This resource specification was automatically generated
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16682	by the DataSetBuilder of ST/X."
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16683
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16684	"Do not manually edit this!! If it is corrupted,
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16685	the DataSetBuilder may not be able to read the specification."
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16686
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16687	"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16688	DataSetBuilder new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#managerPerMatchingModuleColumns
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16689	"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16690
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16691	<resource: #tableColumns>
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16692
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16693	^#(
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16694	(DataSetColumnSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16695	label: 'Module (PackageID Match)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16696	labelButtonType: Button
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16697	width: 0.5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16698	model: displayStringForPackage
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16699	menuFromApplication: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16700	writeSelector: package:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16701	canSelect: false
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16702	)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16703	(DataSetColumnSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16704	label: 'Repository Type'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16705	labelButtonType: Button
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16706	width: 0.5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16707	model: displayStringForManagerTypeName
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16708	menuFromApplication: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16709	writeSelector: manager:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16710	canSelect: false
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16711	)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16712	)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16713
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16714	! !
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16715
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16716	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'accessing'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16717
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16718	manager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16719
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16720	^ Smalltalk at:#SourceCodeManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16721	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16722
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16723	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16724
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16725	actionAdd
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16726	\|dlg package mgr oldEntry idx\|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16727
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16728	dlg := PerModuleManagerSettingDialog new.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16729	dlg open ifFalse:[ ^ self ].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16730	package := dlg package.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16731	mgr := dlg manager.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16732	oldEntry := managerPerMatchingModule
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16733	detect:[:entry \| entry package = package and:[ entry manager = mgr ] ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16734	ifNone:nil.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16735	oldEntry notNil
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16736	ifTrue:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16737	[ oldEntry manager:mgr.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16738	managerPerMatchingModule changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16739	idx := managerPerMatchingModule indexOf:oldEntry. ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16740	ifFalse:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16741	[ managerPerMatchingModule
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16742	add:(AbstractSourceCodeManager::PackageAndManager package:package manager:mgr).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16743	idx := managerPerMatchingModule size. ].
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16744	selectedManagerPerMatchingModuleHolder value:idx.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16745
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16746	"Created: / 18-04-2011 / 19:30:46 / cg"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16747	"Modified: / 18-04-2011 / 21:24:52 / cg"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16748	"Modified: / 09-07-2011 / 14:07:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16749	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16750
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16751	actionEdit
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16752	<resource: #uiCallback>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16753
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16754	\| entry dlg \|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16755	entry := managerPerMatchingModule at: selectedManagerPerMatchingModuleHolder value.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	16756	dlg := PerModuleManagerSettingDialog new.
10301 1ec2ef0050ca Fix vrany parents: 10299 diff changeset	16757	dlg package: entry package.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16758	dlg manager: entry manager.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16759	dlg open ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16760	entry package: dlg package.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16761	entry manager: dlg manager.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16762	entry changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16763	self updateModifiedChannel.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16764	]
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16765
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	16766	"Modified: / 29-03-2012 / 11:53:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16767	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16768
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16769	actionMoveDown
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16770	<resource: #uiCallback>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16771
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16772	\| idx \|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16773	idx := selectedManagerPerMatchingModuleHolder value.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16774	idx == managerPerMatchingModule size ifTrue:[^self].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16775	managerPerMatchingModule swap: idx with: idx + 1.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16776	selectedManagerPerMatchingModuleHolder value: idx + 1
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16777
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16778	"Modified: / 09-07-2011 / 13:23:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16779	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16780
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16781	actionMoveUp
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16782	<resource: #uiCallback>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16783
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16784	\| idx \|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16785	idx := selectedManagerPerMatchingModuleHolder value.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16786	idx == 1 ifTrue:[^self].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16787	managerPerMatchingModule swap: idx - 1 with: idx.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16788	selectedManagerPerMatchingModuleHolder value: idx - 1
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16789
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16790	"Modified: / 09-07-2011 / 13:23:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16791	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16792
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16793	actionRemove
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16794	\|idx\|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16795
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16796	idx := self selectedManagerPerMatchingModuleHolder value.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16797	managerPerMatchingModule removeIndex:idx.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16798	managerPerMatchingModule size >= idx
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16799	ifTrue:[ selectedManagerPerMatchingModuleHolder value:idx. ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16800	ifFalse:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16801	[ managerPerMatchingModule size >= (idx - 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16802	ifTrue:[ selectedManagerPerMatchingModuleHolder value:idx - 1. ]. ].
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16803
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16804	"Created: / 18-04-2011 / 20:56:46 / cg"
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16805	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16806
10796 2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	16807	actionTest
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	16808	<resource: #uiCallback>
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	16809
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	16810	Tools::SourceCodeManagerConfigurationTestTool open
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	16811
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	16812	"Modified: / 11-10-2011 / 08:52:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	16813	!
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	16814
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16815	addModule:module withData:data
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16816	(self listOfModules includes:module) ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16817	self listOfModules add:module; sort.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16818	].
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16819	rootsPerModule at:module put:data.
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16820
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16821	self updateModifiedChannel.
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16822
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16823	"Created: / 08-11-2006 / 19:25:21 / cg"
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16824	!
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16825
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16826	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16827	self initialize.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16828
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	16829	self verboseSourceCodeAccess value:(AbstractSourceCodeManager verboseSourceCodeAccess).
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	16830	self keepMethodSource value:(currentUserPrefs keepMethodSourceCode).
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	16831
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16832	self hasManager ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16833	self useManager value:(manager := Smalltalk at:#SourceCodeManager) notNil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16834	self localSourceFirst value:Class tryLocalSourceFirst.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16835	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16836
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16837	manager notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16838	manager forgetDisabledModules.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16839	].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16840	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16841	self useManager value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16842	self localSourceFirst value:false.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16843	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16844
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16845	self managerPerMatchingModule removeAll.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16846	AbstractSourceCodeManager managerPerMatchingModuleDefinitions do:[:each \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16847	self managerPerMatchingModule add: each copy
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16848	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16849
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16850	self availableManagers do:[:eachManager \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16851	\|infoPerModule\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16852
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16853	infoPerModule := eachManager repositoryInfoPerModule.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16854	infoPerModule keysAndValuesDo:[:module :info \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16855	rootsPerModule at:module put:(Array with:eachManager with:info).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16856	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16857	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16858
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	16859	self updateSelectedManager.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	16860
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16861	self checkClassesWhenCheckingIn value:(currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16862
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16863	rootsPerModule notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16864	self listOfModules removeAll.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16865	listOfModules addAll:rootsPerModule keys asList.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16866	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16867	"/ self selectedPerModuleRootChanged.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16868
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16869	"Modified: / 09-07-2011 / 14:00:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	16870	"Modified (format): / 27-07-2012 / 12:36:19 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16871	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16872
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16873	basicSaveSettings
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16874	\|modules\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16875
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	16876	AbstractSourceCodeManager verboseSourceCodeAccess:(self verboseSourceCodeAccess value).
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16877	currentUserPrefs at:#checkClassesWhenCheckingIn put:self checkClassesWhenCheckingIn value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16878	Class tryLocalSourceFirst:self localSourceFirst value.
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	16879	currentUserPrefs keepMethodSourceCode:(self keepMethodSource value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16880
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16881	(self hasManager and:[self useManager value]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16882	manager ~~ self selectedManager ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16883	manager := nil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16884	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16885
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16886	manager isNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16887	manager := self selectedManager.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16888	manager isNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16889	manager := self availableManagers first.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16890	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16891	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16892	Smalltalk at:#SourceCodeManager put:manager.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16893
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16894	manager notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16895	\| nm fn\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16896
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16897	nm := self sourceCacheDir value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16898	nm notEmptyOrNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16899	(fn := nm asFilename) exists ifFalse:[
19041 7e56f18cb39e #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 18957 diff changeset	16900	(self confirm:(c'CVS cache directory "%1" does not exist\ncreate ?' bindWith:nm)) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16901	fn recursiveMakeDirectory;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16902	makeReadableForAll;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16903	makeWritableForAll;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16904	makeExecutableForAll.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16905	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16906	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16907	(fn isWritableDirectory and:[fn isReadable]) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16908	AbstractSourceCodeManager cacheDirectoryName:nm.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16909	] ifFalse:[
19041 7e56f18cb39e #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 18957 diff changeset	16910	self warn:'Invalid sourceCache directory (not a read/writable directory).'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16911	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16912	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16913	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16914
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16915	AbstractSourceCodeManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16916	managerPerMatchingModuleDefinitions:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16917	managerPerMatchingModule asOrderedCollection.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16918
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16919	self availableManagers do:[:eachManager \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16920	\|infoPerModule\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16921
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16922	modules := rootsPerModule select:[:entry \| entry first == eachManager].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16923	infoPerModule := Dictionary new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16924	modules keysAndValuesDo:[:module :entry \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16925	entry first == eachManager ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16926	infoPerModule at:module put:(entry second).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16927	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16928	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16929	eachManager repositoryInfoPerModule:infoPerModule.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16930	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16931
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16932	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16933
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16934	DebugView newDebugger. "/ ???
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16935	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16936	Smalltalk at:#SourceCodeManager put:nil
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16937	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16938
7494 6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	16939	self acceptChannel value.
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	16940
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16941	"Modified: / 09-07-2011 / 14:02:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	16942	"Modified: / 27-07-2012 / 12:36:44 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16943	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16944
10811 2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	16945	browseSourceCache
2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	16946	<resource: #uiCallback>
2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	16947
16387 f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16948	\|cacheDir\|
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16949
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16950	cacheDir := self sourceCacheDir value.
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16951	cacheDir isNil ifTrue:[
16629 940c80b32393 #OTHER by mawalch mawalch parents: 16625 diff changeset	16952	AbstractSourceCodeManager cachingSources ifTrue:[
16387 f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16953	AbstractSourceCodeManager initCacheDirPath.
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16954	cacheDir := self sourceCacheDir value.
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16955	cacheDir isNil ifTrue:[
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16956	Dialog information:'Failed to setup a default cache directory. Please enter manually'.
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16957	^ self.
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16958	].
16629 940c80b32393 #OTHER by mawalch mawalch parents: 16625 diff changeset	16959	] ifFalse:[
940c80b32393 #OTHER by mawalch mawalch parents: 16625 diff changeset	16960	(Dialog confirm:'No cache directory defined. Setup now?') ifTrue:[
940c80b32393 #OTHER by mawalch mawalch parents: 16625 diff changeset	16961	AbstractSourceCodeManager cachingSources:true.
940c80b32393 #OTHER by mawalch mawalch parents: 16625 diff changeset	16962	self browseSourceCache
940c80b32393 #OTHER by mawalch mawalch parents: 16625 diff changeset	16963	].
16387 f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16964	].
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16965	].
17653 091a927c9578 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17644 diff changeset	16966	FileBrowser default openOn:cacheDir
091a927c9578 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17644 diff changeset	16967
10811 2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	16968	"Modified: / 12-10-2011 / 11:11:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
17653 091a927c9578 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17644 diff changeset	16969	"Modified: / 01-09-2017 / 14:03:40 / cg"
10811 2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	16970	!
2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	16971
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16972	condenseSourceCache
7549 68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	16973	self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ].
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	16974	Method flushSourceStreamCache.
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	16975
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	16976	"Modified: / 28-11-2006 / 12:21:33 / cg"
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16977	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16978
12872 2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16979	fillSourceCache
2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16980	\|p\|
2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16981
2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16982	FillCacheProcess notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16983	FillCacheProcess terminate
12872 2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16984	].
2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16985	FillCacheProcess := p :=
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16986	[
17536 37d42dd27be8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 17532 diff changeset	16987	Transcript showCR:'Fill cache background process started...'.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16988	[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16989	Smalltalk allClasses do:[:eachClass \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16990	eachClass source
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16991	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16992	] ensure:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16993	(FillCacheProcess == p) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16994	FillCacheProcess := nil
17536 37d42dd27be8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 17532 diff changeset	16995	].
37d42dd27be8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 17532 diff changeset	16996	Transcript showCR:'Fill cache background process finished.'.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16997	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16998	] forkAt:(Processor systemBackgroundPriority)
17536 37d42dd27be8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 17532 diff changeset	16999
37d42dd27be8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 17532 diff changeset	17000	"Modified: / 19-06-2017 / 17:26:29 / cg"
12872 2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	17001	!
2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	17002
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17003	flushSourceCache
7549 68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	17004	self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ].
10738 9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	17005
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	17006	"Modified: / 30-09-2011 / 13:34:01 / cg"
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17007	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17008
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17009	removePerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17010
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17011	\|module\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17012
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17013	acceptChannel value:true.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17014	module := self perModuleRootModule value.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	17015	self listOfModules remove:module ifAbsent:nil.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17016	rootsPerModule removeKey:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17017	self perModuleRootModule value:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17018	self perModuleRoot value:nil.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	17019	self updateModifiedChannel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17020	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17021
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17022	setupSourceCodeManager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17023
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17024	AbstractLauncherApplication::LauncherDialogs cvsConfigurationDialog.
18722 be7f278206d9 #DOCUMENTATION by stefan Stefan Vogel <sv@exept.de> parents: 18720 diff changeset	17025	manager := Smalltalk at:#SourceCodeManager.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17026	manager notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17027	repositoryHolder value: manager repositoryName.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17028	sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17029	].
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17030
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17031	"Modified: / 16-08-2006 / 11:07:51 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	17032	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	17033
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	17034	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17035
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17036	acceptChannel
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17037
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17038	acceptChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17039	acceptChannel := TriggerValue new.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17040	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17041	^ acceptChannel.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17042	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17043
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17044	availableManagerTypeNames
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17045	^ self availableManagers collect:[:cls \| cls managerTypeName].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17046
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17047	"Created: / 16-08-2006 / 11:16:25 / cg"
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17048	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17049
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17050	availableManagers
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17051	availableManagers isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17052	availableManagers := AbstractSourceCodeManager availableManagers copy.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17053	availableManagers := availableManagers sort:[:a :b \| a managerTypeName asLowercase < b managerTypeName asLowercase].
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17054	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17055	^ availableManagers.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17056
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17057	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17058	self basicNew availableManagers
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17059	"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17060
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17061	"Created: / 16-08-2006 / 11:01:10 / cg"
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17062	"Modified: / 18-04-2011 / 19:05:47 / cg"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17063	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17064
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17065	canMoveDown
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17066	^ BlockValue
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17067	with:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17068	[:sel \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17069	sel notNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17070	and:[sel ~~ 0
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17071	and:[sel ~~ managerPerMatchingModule size]]]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17072	argument:(self selectedManagerPerMatchingModuleHolder)
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17073
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17074	"Created: / 18-04-2011 / 20:52:48 / cg"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17075	"Created: / 09-07-2011 / 14:18:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17076	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17077
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17078	canMoveUp
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17079	^ BlockValue
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17080	with:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17081	[:sel \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17082	sel notNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17083	and:[sel > 1]]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17084	argument:(self selectedManagerPerMatchingModuleHolder)
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17085
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17086	"Created: / 18-04-2011 / 20:52:48 / cg"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17087	"Created: / 09-07-2011 / 14:18:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17088	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17089
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17090	canRemoveManagerPerPackageEntry
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17091	^ BlockValue
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17092	with:[:sel :use \| sel notNil and:[sel ~~ 0 and:[use]] ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17093	argument:(self selectedManagerPerMatchingModuleHolder)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17094	argument:(self useManager)
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17095
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17096	"Created: / 18-04-2011 / 20:52:48 / cg"
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17097	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17098
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17099	checkClassesWhenCheckingIn
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17100
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17101	checkClassesWhenCheckingIn isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17102	checkClassesWhenCheckingIn := (currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17103	checkClassesWhenCheckingIn onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17104	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17105	^ checkClassesWhenCheckingIn.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17106	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17107
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17108	keepMethodSource
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17109
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17110	keepMethodSource isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17111	keepMethodSource := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17112	keepMethodSource onChangeSend:#updateModifiedChannel to:self
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17113	].
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17114	^ keepMethodSource.
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17115	!
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17116
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17117	listOfModules
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17118
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17119	listOfModules isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17120	rootsPerModule notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17121	listOfModules := rootsPerModule keys asList.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17122	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17123	listOfModules sort.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17124	listOfModules onChangeSend:#updateModifiedChannel to:self
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17125	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17126	^ listOfModules.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17127	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17128
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17129	localSourceFirst
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17130
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17131	localSourceFirst isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17132	localSourceFirst := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17133	localSourceFirst onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17134	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17135	^ localSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17136	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17137
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17138	managerIsCVSSourceCodeManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17139	managerIsCVSSourceCodeManager isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17140	managerIsCVSSourceCodeManager := (SourceCodeManager notNil and:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17141	[SourceCodeManager isCVS]) asValue.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17142	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17143	^ managerIsCVSSourceCodeManager.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17144
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17145	"Created: / 16-08-2006 / 10:56:38 / cg"
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17146	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17147
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17148	managerIsSmallTeamSourceCodeManager
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17149	managerIsSmallTeamSourceCodeManager isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17150	managerIsSmallTeamSourceCodeManager := (SourceCodeManager notNil and:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17151	[SourceCodeManager isSmallTeam]) asValue.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17152	].
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17153	^ managerIsSmallTeamSourceCodeManager.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17154
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17155	"Created: / 09-11-2006 / 14:33:53 / cg"
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17156	!
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17157
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17158	managerIsStoreSourceCodeManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17159	managerIsStoreSourceCodeManager isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17160	managerIsStoreSourceCodeManager := (SourceCodeManager notNil and:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17161	[SourceCodeManager isStore]) asValue.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17162	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17163	^ managerIsStoreSourceCodeManager.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17164
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17165	"Created: / 16-08-2006 / 10:57:13 / cg"
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17166	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17167
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17168	managerPerMatchingModule
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17169	managerPerMatchingModule isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17170	managerPerMatchingModule := List new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17171	managerPerMatchingModule onChangeSend:#updateModifiedChannel to:self
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17172	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17173	^ managerPerMatchingModule.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17174
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17175	"Created: / 18-04-2011 / 20:44:54 / cg"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17176	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17177
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17178	managerTypeIndexToAddHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17179	managerTypeIndexToAddHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17180	managerTypeIndexToAddHolder := ValueHolder new.
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17181	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17182	^ managerTypeIndexToAddHolder.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17183
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17184	"Created: / 18-04-2011 / 19:32:30 / cg"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17185	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17186
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17187	managerTypeToAddHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17188	managerTypeToAddHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17189	managerTypeToAddHolder := ValueHolder new.
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17190	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17191	^ managerTypeToAddHolder.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17192
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17193	"Created: / 18-04-2011 / 19:34:11 / cg"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17194	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17195
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17196	moreThanOneManagerTypesAvailable
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17197	^ self availableManagers size > 1
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17198
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17199	"Created: / 16-08-2006 / 11:22:03 / cg"
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17200	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17201
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17202	packageToAddHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17203	packageToAddHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17204	packageToAddHolder := ValueHolder new.
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17205	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17206	^ packageToAddHolder.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17207
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17208	"Created: / 18-04-2011 / 19:32:39 / cg"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17209	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17210
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17211	perModuleFieldsEnableHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17212
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17213	perModuleFieldsEnableHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17214	perModuleFieldsEnableHolder := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17215	perModuleFieldsEnableHolder addDependent:self.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17216	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17217	^ perModuleFieldsEnableHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17218	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17219
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17220	perModuleRoot
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	17221	perModuleRoot isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17222	perModuleRoot := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17223	perModuleRoot addDependent:self.
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	17224	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17225	^ perModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17226	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17227
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17228	perModuleRootModule
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	17229	perModuleRootModule isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17230	perModuleRootModule := ValueHolder new.
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	17231	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17232	^ perModuleRootModule.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17233	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17234
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17235	removeEnabled
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17236
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17237	removeEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17238	removeEnabled := false asValue.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17239	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17240	^ removeEnabled.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17241	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17242
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17243	selectedManager
13580 5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17244	\|idx availableManagers\|
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17245
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17246	availableManagers := self availableManagers.
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17247	availableManagers size == 1 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17248	^ availableManagers anElement
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	17249	].
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	17250
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17251	idx := self selectedManagerTypeIndexHolder value.
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	17252	(idx == 0 or:[idx isNil]) ifTrue:[ ^ nil].
13580 5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17253	^ availableManagers at:idx
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17254
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17255	"Modified: / 16-08-2006 / 11:18:50 / cg"
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17256	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17257
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17258	selectedManagerPerMatchingModuleHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17259	selectedManagerPerMatchingModuleHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17260	selectedManagerPerMatchingModuleHolder := nil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17261	selectedManagerPerMatchingModuleHolder addDependent:self.
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17262	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17263	^ selectedManagerPerMatchingModuleHolder.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17264
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17265	"Created: / 18-04-2011 / 20:49:17 / cg"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17266	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17267
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17268	selectedManagerTypeIndexHolder
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17269	\|selectedManager\|
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17270
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17271	selectedManagerTypeIndexHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17272	selectedManagerTypeIndexHolder := nil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17273	selectedManagerTypeIndexHolder onChangeEvaluate:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17274	selectedManager := self selectedManager.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17275	self managerIsCVSSourceCodeManager value:( selectedManager notNil and:[ selectedManager isCVS] ).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17276	self managerIsStoreSourceCodeManager value:( selectedManager notNil and:[ selectedManager isStore] ).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17277	self managerIsSmallTeamSourceCodeManager value:( selectedManager notNil and:[ selectedManager isSmallTeam] ).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17278	self updateModifiedChannel
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17279	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17280
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17281	self updateSelectedManager.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17282	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17283	^ selectedManagerTypeIndexHolder.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17284
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17285	"Created: / 16-08-2006 / 11:17:20 / cg"
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17286	"Modified: / 09-11-2006 / 14:34:54 / cg"
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17287	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17288
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17289	selectedPerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17290	selectedPerModuleRoot isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17291	selectedPerModuleRoot := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17292	selectedPerModuleRoot addDependent:self.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17293	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17294	^ selectedPerModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17295	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17296
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17297	sourceCacheDir
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	17298	sourceCacheDir isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17299	sourceCacheDir := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17300	sourceCacheDir onChangeSend:#updateModifiedChannel to:self
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	17301	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17302	^ sourceCacheDir.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17303	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17304
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17305	useManager
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	17306	useManager isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17307	useManager := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17308	useManager onChangeSend:#updateModifiedChannel to:self
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	17309	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17310	^ useManager.
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	17311	!
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	17312
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	17313	verboseSourceCodeAccess
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	17314	verboseSourceCodeAccess isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17315	verboseSourceCodeAccess := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17316	verboseSourceCodeAccess onChangeSend:#updateModifiedChannel to:self
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	17317	].
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	17318	^ verboseSourceCodeAccess.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17319	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17320
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	17321	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17322
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17323	selectedPerModuleRootChanged
16584 6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17324	\|module entry firstEntry
18925 15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17325	newRemoveEnabled newPerModuleRootModule newPerModuleRoot\|
16584 6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17326
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17327	self acceptChannel value:true.
18925 15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17328
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17329	newRemoveEnabled := false.
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17330	newPerModuleRootModule := ' '.
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17331	newPerModuleRoot := ''.
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17332
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17333	module := self selectedPerModuleRoot value.
18925 15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17334	module notNil ifTrue:[
16584 6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17335	entry := rootsPerModule at:module ifAbsent:#().
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17336	firstEntry := entry first.
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17337	(firstEntry = CVSSourceCodeManager) ifTrue:[
18925 15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17338	newRemoveEnabled := true.
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17339	newPerModuleRootModule := module.
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17340	newPerModuleRoot := (entry at:2).
16584 6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17341	] ifFalse:[
18925 15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17342	newPerModuleRootModule := module, ' ',('<< use ',firstEntry managerTypeName,' >>') allBold.
16584 6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17343	].
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17344	].
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17345
18925 15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17346	self removeEnabled value:newRemoveEnabled.
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17347	self perModuleRootModule value:newPerModuleRootModule.
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17348	self perModuleRoot value:newPerModuleRoot.
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17349
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17350	"Modified: / 16-07-2019 / 14:46:11 / Claus Gittinger"
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17351	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17352
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17353	sourceDirChanged
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17354	\|nm fn previousDir\|
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17355
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17356	manager isNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17357
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17358	previousDir := AbstractSourceCodeManager cacheDirectoryName.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17359
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17360	nm := self sourceCacheDir value.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17361	nm isEmptyOrNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17362
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17363	(fn := nm asFilename) exists ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17364	(self confirm:(resources
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17365	stringWithCRs:'SourceCache directory "%1" does not exist.\Create ?'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17366	with:nm)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17367	) ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17368	self sourceCacheDir value:previousDir.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17369	^ self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17370	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17371	fn
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17372	recursiveMakeDirectory;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17373	makeReadableForAll;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17374	makeWritableForAll;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17375	makeExecutableForAll.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17376	^ self.
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17377	].
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17378
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17379	(fn isDirectory) ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17380	self warn:(resources
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17381	stringWithCRs:'Not a directory: "%1"'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17382	with:nm).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17383	self sourceCacheDir value:previousDir.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17384	^ self.
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17385	].
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17386
13243 6184dc32e5cb Use #isWritableDirectory Stefan Vogel <sv@exept.de> parents: 13224 diff changeset	17387	(fn isWritableDirectory and:[fn isReadable]) ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17388	(self confirm:(resources
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17389	stringWithCRs:'SourceCache directory "%1" is not both readable and writable.\Change ?'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17390	with:nm)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17391	) ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17392	self sourceCacheDir value:previousDir.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17393	^ self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17394	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17395	fn
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17396	makeReadableForAll;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17397	makeWritableForAll;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17398	makeExecutableForAll.
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17399	].
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17400	"/ (fn isReadableForAll and:[fn isWritableForAll]) ifFalse:[
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17401	"/ (self confirm:(resources
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17402	"/ stringWithCRs:'SourceCache directory "%1" is not both readable and writable for other users.\Change ?'
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17403	"/ with:nm)
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17404	"/ ) ifTrue:[
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17405	"/ fn
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17406	"/ makeReadableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17407	"/ makeWritableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17408	"/ makeExecutableForAll.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17409	"/ ]
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17410	"/ ].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17411	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17412
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17413	update:something with:aParameter from:changedObject
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17414	\|idx entry\|
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17415
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17416	changedObject == sourceCacheDir ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17417	self sourceDirChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17418	self updateModifiedChannel.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17419	^ self
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17420	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17421
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17422	changedObject == selectedManagerPerMatchingModuleHolder ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17423	idx := changedObject value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17424	(idx notNil and:[idx ~~ 0]) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17425	entry := self managerPerMatchingModule at:idx.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17426	self packageToAddHolder value:(entry package).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17427	self managerTypeToAddHolder value:(entry managerTypeName).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17428	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17429	^ self.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17430	].
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17431
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17432	super update:something with:aParameter from:changedObject
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17433
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17434	"Modified: / 18-04-2011 / 21:23:08 / cg"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17435	"Modified: / 09-07-2011 / 14:07:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17436	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17437
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17438	updateSelectedManager
13580 5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17439	\|selectedManagerTypeIndex availableManagers\|
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17440
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17441	availableManagers := self availableManagers.
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17442
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17443	selectedManagerTypeIndex := availableManagers indexOf:SourceCodeManager.
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17444	selectedManagerTypeIndex == 0 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17445	availableManagers size == 1 ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17446	selectedManagerTypeIndex := 1.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17447	].
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17448	].
7178 1f33a61499e6 * empty log message * ca parents: 7175 diff changeset	17449	self selectedManagerTypeIndexHolder value:selectedManagerTypeIndex.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17450	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17451
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	17452	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	17453
14252 0a96c65c7c90 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14242 diff changeset	17454	editorHelpRelativeWikiURL
0a96c65c7c90 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14242 diff changeset	17455	"the relative URL of the dialog-description in the Wiki"
0a96c65c7c90 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14242 diff changeset	17456
0a96c65c7c90 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14242 diff changeset	17457	^ 'Settings_SourceCodeManagerSettings'
0a96c65c7c90 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14242 diff changeset	17458	!
0a96c65c7c90 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14242 diff changeset	17459
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	17460	helpFilename
10125 8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	17461	^ 'Launcher/sourceRepositorySetup.html'
8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	17462
8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	17463	"Modified: / 04-07-2011 / 17:22:39 / cg"
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	17464	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	17465
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	17466	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17467
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17468	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	17469	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	17470
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17471	(AbstractSourceCodeManager notNil) ifTrue:[ AbstractSourceCodeManager autoload ].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17472
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17473	managerTypePerModule := Dictionary new.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17474
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17475	useManager := false asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	17476	useManager onChangeSend:#updateModifiedChannel to:self.
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17477
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17478	sourceCacheDir := nil asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17479	sourceCacheDir addDependent:self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17480
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17481	repositoryHolder := '' asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17482	rootsPerModule := Dictionary new.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17483
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17484	self availableManagers do:[:eachManager \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17485	eachManager repositoryInfoPerModule
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17486	keysAndValuesDo:[:module :info \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17487	module withoutSeparators ~= module ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17488	self halt:'should not happen any longer'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17489	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17490	rootsPerModule at:module put:(Array with:eachManager with:info)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17491	].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17492	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17493
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	17494	super initialize.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17495
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	17496	"Modified: / 08-02-2017 / 00:30:14 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17497	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17498
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	17499	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17500
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17501	cvsRootFromCVSRootFileOrNil
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17502	\|cvsDir cvsRootFile cvsRoot\|
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17503
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17504	cvsDir := 'CVS' asFilename.
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17505	cvsDir isDirectory ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17506	cvsRootFile := cvsDir construct:'Root'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17507	cvsRootFile isReadable ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17508	cvsRoot := cvsRootFile contents firstIfEmpty:nil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17509	].
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17510	].
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17511	^ cvsRoot
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17512	!
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17513
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17514	hasManager
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17515	"true if ANY source code management class is available"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17516
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17517	^ AbstractSourceCodeManager notNil and:[AbstractSourceCodeManager isLoaded]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17518	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17519
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17520	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	17521	(self useManager value ~= ((Smalltalk at:#SourceCodeManager) notNil)) ifTrue:[^ true].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17522	(Smalltalk at:#SourceCodeManager) ~~ self selectedManager ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	17523	(self hasManager and:[self useManager value]) ifFalse:[^ false].
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	17524
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17525	(Class tryLocalSourceFirst ~= self localSourceFirst value) ifTrue:[^ true].
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17526	((self selectedManager cacheDirectoryName ? '') ~= (self sourceCacheDir value ? '')) ifTrue:[^ true].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17527
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17528	((currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) ~= self checkClassesWhenCheckingIn value)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17529	ifTrue:[^ true].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17530
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17531	((currentUserPrefs keepMethodSourceCode) ~= self keepMethodSource value)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17532	ifTrue:[^ true].
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17533
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17534	((AbstractSourceCodeManager managerPerMatchingModuleDefinitions)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17535	~= (self managerPerMatchingModule asOrderedCollection)) ifTrue:[^ true].
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	17536
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	17537	(AbstractSourceCodeManager verboseSourceCodeAccess
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17538	~= self verboseSourceCodeAccess value) ifTrue:[^ true].
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17539
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17540	self availableManagers do:[:mgr \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17541	\|modules\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17542
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17543	modules := rootsPerModule select:[:entry \| entry first == mgr].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17544
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17545	mgr repositoryInfoPerModule keysAndValuesDo:[:module :info \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17546	((modules includesKey:module) and:[info = (modules at:module) second])
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17547	ifFalse:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17548	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17549	modules keysAndValuesDo:[:module :info\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17550	((mgr repositoryInfoPerModule includesKey:module) and:[(mgr repositoryInfoPerModule at:module) = info second])
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17551	ifFalse:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17552	].
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17553	].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17554
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17555	^ false
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	17556
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17557	"Modified: / 09-07-2011 / 14:09:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	17558	"Modified: / 27-07-2012 / 12:35:40 / cg"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17559	! !
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17560
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17561	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog class methodsFor:'help specs'!
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17562
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	17563	helpSpec
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17564	"This resource specification was automatically generated
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17565	by the UIHelpTool of ST/X."
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17566
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17567	"Do not manually edit this!! If it is corrupted,
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17568	the UIHelpTool may not be able to read the specification."
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17569
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17570	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17571	UIHelpTool openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17572	"
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17573
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17574	<resource: #help>
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17575
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	17576	^ super helpSpec addPairsFrom:#(
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17577
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17578	#manager
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17579	'Specify the source code manager which will be used for packages matching the above pattern'
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17580
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17581	#packageMatchPattern
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17582	'Specify a matchpattern. Packages matching this pattern will be managed by the source code manager below'
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17583
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17584	)
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17585
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17586	"Created: / 01-12-2011 / 19:52:19 / cg"
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17587	! !
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17588
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17589	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog class methodsFor:'interface specs'!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17590
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17591	windowSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17592	"This resource specification was automatically generated
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17593	by the UIPainter of ST/X."
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17594
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17595	"Do not manually edit this!! If it is corrupted,
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17596	the UIPainter may not be able to read the specification."
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17597
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17598	"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17599	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog andSelector:#windowSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17600	AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog new openInterface:#windowSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17601	AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog open
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17602	"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17603
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17604	<resource: #canvas>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17605
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17606	^
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17607	#(FullSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17608	name: windowSpec
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17609	uuid: '60fff4f4-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17610	window:
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17611	(WindowSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17612	label: 'Per Module Source Code Manager'
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17613	name: 'Per Module Source Code Manager'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17614	uuid: '60fff846-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17615	min: (Point 10 10)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17616	bounds: (Rectangle 0 0 581 98)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17617	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17618	component:
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17619	(SpecCollection
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17620	collection: (
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17621	(ViewSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17622	name: 'Content'
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17623	layout: (LayoutFrame 0 0 0 0 0 1 -30 1)
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17624	uuid: '60fffab2-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17625	component:
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17626	(SpecCollection
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17627	collection: (
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17628	(LabelSpec
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17629	label: 'Package ID (Matchpattern):'
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17630	name: 'Label15'
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17631	layout: (LayoutFrame 2 0 9 0 250 0 31 0)
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17632	activeHelpKey: packageMatchPattern
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17633	uuid: '60fffc10-d9d9-11e7-a8cd-c42c033b4871'
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17634	translateLabel: true
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17635	adjust: left
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17636	)
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17637	(ComboBoxSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17638	name: 'ComboBox1'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17639	layout: (LayoutFrame 250 0 9 0 -2 1 31 0)
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17640	activeHelpKey: packageMatchPattern
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17641	uuid: '60fffdb4-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17642	enableChannel: useManager
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17643	model: packageHolder
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17644	comboList: samplePackageList
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17645	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17646	(LabelSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17647	label: 'Manager:'
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17648	name: 'Label16'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17649	layout: (LayoutFrame 2 0 37 0 250 0 59 0)
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17650	activeHelpKey: manager
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17651	uuid: '61000048-d9d9-11e7-a8cd-c42c033b4871'
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17652	translateLabel: true
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17653	adjust: left
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17654	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17655	(ComboListSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17656	name: 'ComboList2'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17657	layout: (LayoutFrame 250 0 39 0 -2 1 61 0)
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17658	activeHelpKey: manager
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17659	uuid: '61000188-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17660	model: managerNameHolder
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17661	comboList: availableManagerTypeNames
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17662	useIndex: false
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17663	hidePullDownMenuButton: true
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17664	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17665	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17666
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17667	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17668	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17669	(HorizontalPanelViewSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17670	name: 'Buttons'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17671	layout: (LayoutFrame 0 0 -30 1 -16 1 0 1)
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17672	uuid: '61000336-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17673	horizontalLayout: fit
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17674	verticalLayout: center
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17675	horizontalSpace: 3
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17676	verticalSpace: 3
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17677	reverseOrderIfOKAtLeft: true
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17678	component:
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17679	(SpecCollection
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17680	collection: (
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17681	(ActionButtonSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17682	label: 'Cancel'
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17683	name: 'Button2'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17684	uuid: '610004e4-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17685	translateLabel: true
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17686	model: doCancel
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17687	extent: (Point 279 28)
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17688	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17689	(ActionButtonSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17690	label: 'OK'
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17691	name: 'Button1'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17692	uuid: '610006c4-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17693	translateLabel: true
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17694	model: doAccept
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17695	enableChannel: doAcceptEnabled
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17696	extent: (Point 280 28)
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17697	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17698	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17699
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17700	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17701	keepSpaceForOSXResizeHandleH: true
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17702	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17703	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17704
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17705	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17706	)
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17707	! !
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17708
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17709	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog methodsFor:'accessing'!
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17710
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17711	manager
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17712
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17713	\| m mn\|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17714	mn := self managerNameHolder value.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17715	m := self availableManagers detect:[:mgr \| mgr managerTypeName = mn] ifNone:nil.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17716	^m
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17717
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17718	"Created: / 09-07-2011 / 13:07:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17719	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17720
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17721	manager: aSourceCodeManager
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17722
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17723	self managerNameHolder value: aSourceCodeManager managerTypeName
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17724
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17725	"Created: / 09-07-2011 / 13:02:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17726	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17727
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17728	package
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17729
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17730	^self packageHolder value
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17731
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17732	"Created: / 09-07-2011 / 13:06:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17733	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17734
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17735	package: aString
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17736
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17737	self packageHolder value: aString
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17738
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17739	"Created: / 09-07-2011 / 13:02:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17740	! !
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17741
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17742	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog methodsFor:'aspects'!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17743
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17744	availableManagerTypeNames
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17745	^ self availableManagers collect:[:cls \| cls managerTypeName].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17746
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17747	"Created: / 16-08-2006 / 11:16:25 / cg"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17748	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17749
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17750	availableManagers
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17751	availableManagers isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17752	availableManagers := AbstractSourceCodeManager availableManagers copy.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17753	availableManagers := availableManagers sort:[:a :b \| a managerTypeName asLowercase < b managerTypeName asLowercase].
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17754	].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17755	^ availableManagers.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17756
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17757	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17758	self basicNew availableManagers
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17759	"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17760
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17761	"Created: / 16-08-2006 / 11:01:10 / cg"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17762	"Modified: / 18-04-2011 / 19:05:47 / cg"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17763	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17764
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17765	doAcceptEnabled
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17766	<resource: #uiAspect>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17767
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17768	\|holder\|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17769
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17770	(holder := builder bindingAt:#doAcceptEnabled) isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17771	holder := BlockValue
18763 6a3d3a6ac24e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18744 diff changeset	17772	with:[:package :manager\|
6a3d3a6ac24e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18744 diff changeset	17773	package notEmptyOrNil and:[manager notNil]]
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17774	argument: self packageHolder
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17775	argument: self managerHolder.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17776
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17777	builder aspectAt:#doAcceptEnabled put:holder.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17778	].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17779	^ holder.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17780
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17781	"Modified: / 09-07-2011 / 13:00:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
18763 6a3d3a6ac24e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18744 diff changeset	17782	"Modified: / 17-05-2019 / 15:30:00 / Stefan Vogel"
6a3d3a6ac24e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18744 diff changeset	17783	"Modified (format): / 17-05-2019 / 16:49:27 / Stefan Vogel"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17784	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17785
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17786	managerHolder
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17787	<resource: #uiAspect>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17788
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17789	managerNameHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17790	managerNameHolder := ValueHolder new.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17791	].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17792	^ managerNameHolder.
10951 a160d08cac9a comment/format in: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 10944 diff changeset	17793
a160d08cac9a comment/format in: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 10944 diff changeset	17794	"Modified (comment): / 03-12-2011 / 11:30:58 / cg"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17795	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17796
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17797	managerNameHolder
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17798	<resource: #uiAspect>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17799
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17800	managerNameHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17801	managerNameHolder := ValueHolder new.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17802	].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17803	^ managerNameHolder.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17804
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17805	"Created: / 09-07-2011 / 13:05:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10951 a160d08cac9a comment/format in: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 10944 diff changeset	17806	"Modified (comment): / 03-12-2011 / 11:30:45 / cg"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17807	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17808
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17809	packageHolder
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17810	<resource: #uiAspect>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17811
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17812	packageHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17813	packageHolder := ValueHolder new.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17814	].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17815	^ packageHolder.
10951 a160d08cac9a comment/format in: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 10944 diff changeset	17816
a160d08cac9a comment/format in: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 10944 diff changeset	17817	"Modified (comment): / 03-12-2011 / 11:30:51 / cg"
11415 36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17818	!
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17819
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17820	samplePackageList
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17821	<resource: #uiAspect>
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17822
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17823	\|modules\|
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17824
16210 58264c7da774 #REFACTORING Claus Gittinger <cg@exept.de> parents: 16200 diff changeset	17825	modules := Smalltalk allPackageIDs
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17826	collect:[:packageId \| packageId asPackageId module ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17827	as:Set.
11415 36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17828
11420 7b46a38ae2c6 Fix in #sampleProjectList (__NoProject__ may not be present) vrany parents: 11415 diff changeset	17829	modules remove:(PackageId noProjectID) ifAbsent:[].
11415 36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17830	modules := modules collect:[:packageId \| packageId , ':*' ].
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17831	^ modules asSortedCollection
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17832
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17833	"Created: / 12-03-2012 / 11:35:40 / cg"
11420 7b46a38ae2c6 Fix in #sampleProjectList (__NoProject__ may not be present) vrany parents: 11415 diff changeset	17834	"Modified: / 13-03-2012 / 13:12:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17835	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17836
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17837	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17838
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17839	standardStyles
15885 db029287dbf3 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15876 diff changeset	17840	"only those are presented initially"
db029287dbf3 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15876 diff changeset	17841
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17842	^ #(
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17843	'adwaita'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17844	"/ 'decWindows'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17845	'iris'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17846	'macosx'
15885 db029287dbf3 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15876 diff changeset	17847	'macosx_yosemite'
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17848	'motif'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17849	'mswindows8'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17850	'mswindows95'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17851	'mswindowsXP'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17852	'mswindowsxp'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17853	'mswindowsVista'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17854	'mswindowsvista'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17855	'napkin'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17856	"/ 'next'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17857	"/ 'normal'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17858	"/ 'os2'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17859	'sgmotif'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17860	"/ 'st80'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17861	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17862	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17863
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	17864	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	17865
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	17866	closePreviewButtonImage
18285 a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	17867	<resource: #programImage>
a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	17868	^ ToolbarIconLibrary removeTabIcon
a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	17869
a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	17870	"Modified: / 28-07-2018 / 09:59:43 / Claus Gittinger"
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	17871	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	17872
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17873	defaultIcon
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17874	"This resource specification was automatically generated
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17875	by the ImageEditor of ST/X."
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17876
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17877	"Do not manually edit this!! If it is corrupted,
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17878	the ImageEditor may not be able to read the specification."
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17879
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17880	"
15083 f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	17881	self defaultIcon inspect
f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	17882	ImageEditor openOnClass:self andSelector:#defaultIcon
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17883	Icon flushCachedIcons
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17884	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17885
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17886	<resource: #image>
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17887
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17888	^Icon
15083 f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	17889	constantNamed:'AbstractSettingsApplication::StyleSettingsAppl defaultIcon'
f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	17890	ifAbsentPut:[(Depth8Image new) width:22; height:22; bits:(ByteArray fromPackedString:'
f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	17891	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DB@ D@@@@@@@@@@@@@@@@@@@@@@@DB@ HB@P@@@@@@@@@@@@@@@@@@@@DCA@HB@ DA@@@@@@@@@@@@
f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	17892	@@@@@@TC@0LD@ XF@PD@@@@@@@@@@@@@@@TC@0LC@0PFA PD@P@@@@@@@@@@@@TC@0LC@0LCA@XGA@PA@@@@@@@@@@TC@0LC@0LC@0LHA@PHB@D@@@@@@@TC
f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	17893	@0LC@0LC@0LC@0 HB@HC@P@@@@@@APLC@0LC@0LC@0LCB@HC@0LI@@@JB (JB (JB (JB (JB (HB0LE@@@@B 0CCP4NC1@PDQHL@0LJ@0 E@@@@@@(L@04M
f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	17894	C <PDADRC@LCB LE@@@@@@@JD1LSD1LTEAPUEQTUEP(E@@@@@@@@AP0LC@0LC@0LC@0VE!!XE@@@@@@@@@@TLC@0LC@0LC@0LE!!XVAP@@@@@@@@@EC@0LC@0L
f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	17895	C@0LE!!XVE T@@@@@@@@@AP0LC@0LC@0LCAXVE!!XE@@@@@@@@@@TLC@0LC@0LC@0VE!!XVAP@@@@@@@@@EC@0LC@0LC@0LE!!XVE T@@@@@@@@@AP0LC@0LC@0L
f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	17896	E!!XVE!!XE@@@@@@@@@@TEAPTEAPTEAPTEAPTEAP@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 76 76 80 120 118 120 192 192 190 76 78 80 80 80 80 92 94 90 104 102 100 68 66 70 88 86 90 0 80 130 128 128 130 240 240 240 16 144 190 16 128 180 16 128 160 0 112 160 0 112 140 0 96 140 16 112 140 0 96 130 0 80 110 224 224 220]; mask:((ImageMask new) width:22; height:22; bits:(ByteArray fromPackedString:'@C@@@G @@O0@@_8@@?<@A?>@C??@G?? O??0G??8_??0_?? _??@_?>@_?<@_?<@_?<@_?<@_?<@_?<@_?<@_?<@') ; yourself); yourself]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	17897	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	17898
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17899	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17900
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17901	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17902	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17903	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17904
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17905	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17906	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17907
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17908	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	17909	UIPainter new openOnClass:AbstractSettingsApplication::StyleSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	17910	AbstractSettingsApplication::StyleSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	17911	AbstractSettingsApplication::StyleSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17912	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17913
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17914	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17915
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17916	^
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	17917	#(FullSpec
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	17918	name: windowSpec
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17919	window:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	17920	(WindowSpec
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17921	label: 'ViewStyle Selection'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17922	name: 'ViewStyle Selection'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17923	min: (Point 10 10)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17924	bounds: (Rectangle 0 0 562 661)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17925	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17926	component:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	17927	(SpecCollection
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17928	collection: (
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17929	(VariableVerticalPanelSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17930	name: 'VariableVerticalPanel1'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17931	layout: (LayoutFrame 0 0.0 0 0 0 1.0 -65 1)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17932	component:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17933	(SpecCollection
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17934	collection: (
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17935	(ViewSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17936	name: 'Box1'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17937	component:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17938	(SpecCollection
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17939	collection: (
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17940	(TextEditorSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17941	name: 'TextEditor1'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17942	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17943	style: (FontDescription arial medium roman 9)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17944	model: noticeLabelHolder
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17945	hasHorizontalScrollBar: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17946	hasVerticalScrollBar: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17947	isReadOnly: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17948	hasKeyboardFocusInitially: false
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17949	postBuildCallback: postBuildHelpLabel:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17950	viewClassName: 'TextView'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17951	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17952	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17953
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17954	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17955	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17956	(ViewSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17957	name: 'Box2'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17958	component:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17959	(SpecCollection
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17960	collection: (
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17961	(VerticalPanelViewSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17962	name: 'VerticalPanel1'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17963	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17964	horizontalLayout: fit
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17965	verticalLayout: topFit
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17966	horizontalSpace: 3
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17967	verticalSpace: 3
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17968	component:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17969	(SpecCollection
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17970	collection: (
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17971	(ViewSpec
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17972	name: 'Box4'
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17973	component:
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17974	(SpecCollection
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17975	collection: (
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17976	(CheckBoxSpec
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17977	label: 'standard styles only'
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17978	name: 'CheckBox1'
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17979	layout: (LayoutFrame 0 0 0 0 -150 1 0 1)
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17980	model: showStandardStylesOnly
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17981	translateLabel: true
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17982	)
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17983	(CheckBoxSpec
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17984	label: 'Preview'
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17985	name: 'CheckBox2'
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17986	layout: (AlignmentOrigin 0 1 17 0 1 0.5)
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17987	model: previewVisibleHolder
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17988	translateLabel: true
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17989	)
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17990	)
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17991
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	17992	)
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17993	extent: (Point 562 35)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17994	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17995	(SequenceViewSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17996	name: 'StyleList'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17997	model: selectedStyle
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17998	hasHorizontalScrollBar: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17999	hasVerticalScrollBar: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18000	doubleClickSelector: doubleClickAt:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18001	useIndex: false
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18002	sequenceList: styleList
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18003	extent: (Point 562 334)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18004	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18005	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18006
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18007	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18008	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18009	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18010
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18011	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18012	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18013	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18014
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18015	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18016	handles: (Any 0.37 1.0)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18017	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18018	(ViewSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18019	name: 'Box3'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18020	layout: (LayoutFrame 0 0 -65 1 0 1 0 1)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18021	component:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18022	(SpecCollection
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18023	collection: (
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18024	(LabelSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18025	label: 'Label'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18026	name: 'Label1'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18027	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18028	translateLabel: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18029	labelChannel: infoLabelHolder
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18030	resizeForLabel: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18031	adjust: left
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18032	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18033	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18034
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18035	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18036	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18037	(LabelSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18038	label: 'Preview'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18039	name: 'PreviewLabel'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18040	layout: (LayoutFrame 29 0 39 0 129 0 61 0)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18041	level: 0
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18042	borderWidth: 1
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18043	visibilityChannel: previewVisibleHolder
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18044	backgroundColor: (Color 87.0 87.0 87.0)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18045	translateLabel: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18046	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18047	(NonScrollableArbitraryComponentSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18048	name: 'Preview'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18049	layout: (LayoutFrame 27 0 63 0 444 0 240 0)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18050	level: 1
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18051	visibilityChannel: previewVisibleHolder
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18052	hasBorder: false
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18053	component: ImageView
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18054	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18055	(ActionButtonSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18056	label: 'closePreviewButtonImage'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18057	name: 'ClosePreviewButton'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18058	layout: (LayoutFrame 423 0 41 0 443 0 63 0)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18059	visibilityChannel: previewVisibleHolder
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18060	hasCharacterOrientedLabel: false
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18061	translateLabel: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18062	model: closePreview
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18063	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18064	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18065
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	18066	)
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	18067	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18068	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18069
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18070	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18071
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18072	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18073	"nothing done here"
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18074	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18075
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18076	basicSaveSettings
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	18077	\|newStyle\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18078
17104 616d379392a9 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17073 diff changeset	18079	newStyle := self selectedStyle value asSymbol.
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	18080
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18081	self withWaitCursorDo:[
15899 ea88da97ae6c #BUGFIX Claus Gittinger <cg@exept.de> parents: 15888 diff changeset	18082	Transcript showCR:'Change style to ' , newStyle , ' ...'.
17104 616d379392a9 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17073 diff changeset	18083	View defaultStyle:newStyle.
616d379392a9 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17073 diff changeset	18084	currentUserPrefs viewStyle:newStyle.
15899 ea88da97ae6c #BUGFIX Claus Gittinger <cg@exept.de> parents: 15888 diff changeset	18085	currentUserPrefs fontPreferencesChanged. "/ force into class defaults
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18086	].
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	18087	self reopenToolsAfterChangedViewStyleSetting.
17104 616d379392a9 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17073 diff changeset	18088
616d379392a9 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17073 diff changeset	18089	"Modified: / 24-11-2016 / 18:02:04 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18090	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18091
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18092	closePreview
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18093	self previewVisibleHolder value:false.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18094	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18095
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18096	doubleClickAt:aLine
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18097
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18098	self saveSettings.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18099	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18100
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18101	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18102
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18103	infoLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18104
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18105	infoLabelHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18106	infoLabelHolder := '' asValue.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18107	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18108	^ infoLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18109	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18110
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18111	noticeLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18112
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18113	noticeLabelHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18114	noticeLabelHolder := '' asValue.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18115	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18116	^ noticeLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18117	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18118
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18119	previewVisibleHolder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18120
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18121	previewVisibleHolder isNil ifTrue:[
16924 b1a7600d559b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16923 diff changeset	18122	previewVisibleHolder := false asValue.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18123	previewVisibleHolder onChangeSend:#changeInfoLabel to:self.
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18124	].
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18125	^ previewVisibleHolder.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18126	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18127
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18128	selectedStyle
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18129
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18130	selectedStyle isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18131	selectedStyle := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18132	selectedStyle addDependent:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18133	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18134	^ selectedStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18135	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18136
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18137	showStandardStylesOnly
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18138
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18139	showStandardStylesOnly isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18140	showStandardStylesOnly := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18141	showStandardStylesOnly addDependent:self.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18142	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18143	^ showStandardStylesOnly.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18144	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18145
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18146	styleList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18147
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18148	styleList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18149	styleList := List new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18150	styleList addDependent:self.
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18151	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18152	^ styleList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18153	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18154
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18155	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18156
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18157	changeInfoLabel
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18158	\|nm sheet comment previewFile previewImage imgView labelView\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18159
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18160	comment := ''.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18161	nm := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18162	nm notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18163	sheet := ViewStyle fromFile:(nm , '.style').
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18164	comment := (sheet at:#comment ifAbsent:'') withoutSeparators.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18165	previewFile := sheet at:#previewFileName ifAbsent:nil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18166	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18167	comment := comment withCRs asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18168	comment size == 1 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18169	comment := comment first
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18170	].
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18171	self infoLabelHolder value:comment.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18172
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18173	self previewVisibleHolder value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18174	self builder notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18175	labelView := self componentAt:#PreviewLabel.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18176	imgView := (self componentAt:#Preview).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18177
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18178	previewFile notEmptyOrNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18179	previewImage := Image fromFile:'../../doc/online/pictures' asFilename / previewFile.
16923 20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18180	].
20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18181	previewImage notNil ifTrue:[
20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18182	labelView label:'Preview'.
20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18183	imgView adjust:#fitBig; image:previewImage.
20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18184	] ifFalse:[
20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18185	labelView label:'Sorry - no preview available'.
20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18186	imgView image:nil.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18187	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18188	labelView forceResizeHorizontally.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18189	]
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18190	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18191	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18192
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18193	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18194	changedObject == self showStandardStylesOnly ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18195	self updateList.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18196	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18197	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18198	changedObject == self selectedStyle ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18199	self changeInfoLabel.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18200	self updateModifiedChannel.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18201	^ self
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18202	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18203	super
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18204	update:something
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18205	with:aParameter
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18206	from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18207	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18208
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18209	updateList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18210
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18211	\|listOfStyles lastSelection\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18212
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18213	lastSelection := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18214	listOfStyles := styleDirectoryContents select:[:aFileName \| aFileName asFilename hasSuffix:'style'].
7485 041323d3ca7b use nameWithoutSuffix Claus Gittinger <cg@exept.de> parents: 7440 diff changeset	18215	listOfStyles := listOfStyles collect:[:aFileName \| aFileName asFilename nameWithoutSuffix].
13912 75ca3cc82521 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13902 diff changeset	18216	"/ Filename isCaseSensitive ifFalse:[
75ca3cc82521 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13902 diff changeset	18217	"/ listOfStyles := listOfStyles collect:[:aStyleName \| aStyleName asLowercase].
75ca3cc82521 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13902 diff changeset	18218	"/ ].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18219	listOfStyles remove:'generic' ifAbsent:nil; remove:'mswindows3' ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18220	self showStandardStylesOnly value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18221	listOfStyles := listOfStyles select:[:aStyleName \| self class standardStyles includes:aStyleName asLowercase].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18222	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18223
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18224	listOfStyles sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18225	self styleList contents:listOfStyles.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18226	self selectedStyle value:lastSelection.
7485 041323d3ca7b use nameWithoutSuffix Claus Gittinger <cg@exept.de> parents: 7440 diff changeset	18227
13912 75ca3cc82521 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13902 diff changeset	18228	"Modified: / 06-02-2014 / 14:58:34 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18229	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18230
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18231	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18232
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18233	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18234	^ 'Launcher/styleSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18235	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18236
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18237	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18238
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18239	commonPostBuild
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18240	super commonPostBuild.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18241	self changeInfoLabel
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18242	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18243
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18244	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18245
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18246	\|someRsrcFile resourceDir\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18247
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	18248	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	18249
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18250	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18251
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18252	someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18253	someRsrcFile isNil ifTrue:[
16090 3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18254	someRsrcFile := Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'.
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18255	someRsrcFile isNil ifTrue:[
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18256	someRsrcFile := Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'.
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18257	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18258	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18259	someRsrcFile notNil ifTrue:[
16090 3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18260	resourceDir := someRsrcFile asFilename directoryName
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18261	] ifFalse:[
16090 3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18262	resourceDir := Smalltalk getSystemFileName:'resources'.
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18263	resourceDir isNil ifTrue:[
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18264	self warn:'no styles found (missing ''resources'' directory)'.
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18265	^ self
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18266	].
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	18267	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	18268
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	18269	[
16090 3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18270	styleDirectoryContents := resourceDir asFilename directoryContents.
19397 e75452c4feb6 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19366 diff changeset	18271	] on:OpenError do:[:ex\|
16090 3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18272	self warn:'no styles found (unaccessible ''resources'' directory)'.
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18273	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18274	].
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	18275
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18276	self updateList.
6086 1d3d8652e87d * empty log message * Claus Gittinger <cg@exept.de> parents: 6081 diff changeset	18277	(self class standardStyles includes:View defaultStyle asLowercase) ifFalse:[
16090 3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18278	self showStandardStylesOnly value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18279	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18280	self selectedStyle value:(View defaultStyle).
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18281	self noticeLabelHolder value:(resources at:'STYLE_MSG' default:'Select a Style') withCRs.
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	18282
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	18283	"Modified: / 08-02-2017 / 00:29:59 / cg"
5378 4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	18284	!
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	18285
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	18286	postBuildHelpLabel:aWidget
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	18287	aWidget level:0.
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	18288	aWidget scrolledView backgroundColor:self window viewBackground.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18289	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18290
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18291	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18292
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18293	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18294
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18295	^ (self selectedStyle value ~= View defaultStyle)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18296	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18297
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18298	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18299
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18300	emphasisList
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18301	^ self emphasisMappingList collect:#first
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18302	!
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18303
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18304	emphasisMappingList
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18305	"self emphasisMappingList"
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18306
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18307	^ {
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18308	#( #'normal' #normal ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18309	#( #'underline' #underline) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18310	{ 'red underline' . { #underline . (#underlineColor->Color red) } } .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18311	#( #'underwave' #underwave) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18312	{ 'red underwave' . { #underwave . (#underlineColor->Color red) } } .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18313	#( #'bold' #bold ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18314	#( 'bold + underline' #(bold underline) ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18315	{ 'bold + red underline' . { #bold . #underline . (#underlineColor->Color red) } } .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18316	#( 'bold + underwave' #(bold underwave) ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18317	{ 'bold + red underwave' . { #bold . #underwave . (#underlineColor->Color red) } } .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18318	#( #'italic' #italic ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18319	#( 'italic + underline' #(italic underline) ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18320	{ 'italic + red underline'. { #italic . #underline . (#underlineColor->Color red) } } .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18321	#( 'italic + underwave' #(italic underwave) ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18322	{ 'italic + red underwave'. { #italic . #underwave . (#underlineColor->Color red) } } .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18323	#( #'reverse' #reverse )
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18324	}
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18325	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18326
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18327	exampleText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18328
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18329	^ 'methodSelector:methodArg
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18330	"method comment: some stupid code to show the current settings"
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18331
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18332	\|methodVar\| "/ an end-of-line comment...
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18333
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18334	self at:methodArg. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18335	self fooBarBaz:methodVar. "/ a bad message
13220 1c20a49c7223 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13189 diff changeset	18336	self halt. "/ a debug message
1c20a49c7223 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13189 diff changeset	18337	Error raise. "/ an error
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18338	methodVar := Array new:1.
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18339	instVar := 1234. "/ side effect
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18340	ClassVar := instVar. "/ side effect
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18341	methodVar := ClassVar + instVar. "/ not a side effect
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18342	unknonVar := 1. "/ a bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18343	UnknonVar := 1. "/ another bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18344	"self bar:methodVar. detect commented code easily"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18345	1 to:5 do:[:i \| self at:i + 1].
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18346	[:blockArg \| blockArg + 1].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18347	Transcript showCR:''some string'' , #someSymbol.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18348	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18349	'.
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18350
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18351	"Modified: / 14-02-2012 / 10:18:48 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18352	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18353
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18354	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'help specs'!
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18355
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	18356	helpSpec
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18357	"This resource specification was automatically generated
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18358	by the UIHelpTool of ST/X."
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18359
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18360	"Do not manually edit this!! If it is corrupted,
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18361	the UIHelpTool may not be able to read the specification."
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18362
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18363	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18364	UIHelpTool openOnClass:AbstractSettingsApplication::SyntaxColorSettingsAppl
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18365	"
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18366
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18367	<resource: #help>
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18368
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	18369	^ super helpSpec addPairsFrom:#(
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18370
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18371	#colorSelection
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18372	'Choose a color for the selected element type'
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18373
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18374	#commonStyleSelection
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18375	'Choose a common style, then change by clicking on the "Reset To" button'
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18376
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18377	#elementSelection
15624 50d08ec562c5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15496 diff changeset	18378	'Select the element which you want to define/modify'
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18379
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18380	#emphasisSelection
15624 50d08ec562c5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15496 diff changeset	18381	'Choose a presentation style for the selected element type'
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18382
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18383	#immediateSelectorCheck
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18384	'If checked, the code is immediately checked for valid message selectors (on each key).\This may slow down editing a bit'
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18385
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18386	#resetToCommonStyle
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18387	'Press to reset to the selected common style'
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18388
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18389	#syntaxColoringEnabled
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18390	'If checked, syntax coloring is enabled'
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18391
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18392	#individualStyleSetting
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18393	'Personal style configuration'
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18394
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18395	#commonStyleSetting
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18396	'Choose a common style'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18397
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18398	#sampleOutput
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18399	'Shows a piece of code emphasized as specified in color/emphasis settings'
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18400
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18401	)
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18402
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18403	"Created: / 14-02-2012 / 10:44:21 / cg"
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18404	! !
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18405
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18406	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18407
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18408	defaultIcon
14411 858d91fea116 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14389 diff changeset	18409	<resource: #image>
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18410	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18411	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18412	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18413	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18414	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18415	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18416	ImageEditor openOnClass:self andSelector:#defaultIcon
14411 858d91fea116 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14389 diff changeset	18417	Icon flushCachedIcons"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18418
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18419	^ Icon
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18420	constantNamed:#'AbstractSettingsApplication::SyntaxColorSettingsAppl class defaultIcon'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18421	ifAbsentPut:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18422	(Depth4Image new)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18423	width:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18424	height:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18425	photometric:(#palette);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18426	bitsPerSample:(#( 4 ));
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18427	samplesPerPixel:(1);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18428	bits:(ByteArray
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18429	fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	18430	DQDQDQDQDQDQDQDTQDQDQDQDQDQDPQQ@QDADQBP$QDP!!E@QDQ@QDIBQDP$DTADQDADQDQDQBPQPDQDPDQDQDQBQAE@QDQ@QDQDQDIDDTADQDADQDQDIDPQPD
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	18431	QDPDQDQDP$QAEDADPDQDQDP$QDDTQDQDQDQDQDQDPQQDADQDQDQDQDQAEDADQDQDQDQDQDDTPDQ@QDADQDQDPQP@A@PDA@Q@QDQAEDADA@PDADQDQDDTPDPD
14411 858d91fea116 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14389 diff changeset	18432	A@PDQDQDPQQ@QDADPDQ@QDQAEDQDQDQDQDQDQDDTMCP4MCP4QDQDPQQCP4MCP4MDQDQADQDQDQDQDQDQDQDb');
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18433	colorMapFromArray:#[ 0 0 0 88 88 88 0 0 255 255 0 0 255 255 255 ];
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18434	mask:((ImageMask new)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18435	width:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18436	height:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18437	bits:(ByteArray
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18438	fromPackedString:'???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<');
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18439	yourself);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18440	yourself
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18441	]
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18442	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18443
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18444	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18445
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18446	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18447	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18448	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18449
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18450	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18451	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18452
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18453	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18454	UIPainter new openOnClass:AbstractSettingsApplication::SyntaxColorSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18455	AbstractSettingsApplication::SyntaxColorSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18456	AbstractSettingsApplication::SyntaxColorSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18457	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18458
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18459	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18460
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18461	^
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18462	#(FullSpec
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18463	name: windowSpec
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18464	window:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18465	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18466	label: 'Syntax Color Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18467	name: 'Syntax Color Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18468	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18469	bounds: (Rectangle 0 0 695 609)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18470	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18471	component:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18472	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18473	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18474	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18475	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18476	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18477	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18478	verticalLayout: topSpaceFit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18479	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18480	verticalSpace: 3
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18481	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18482	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18483	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18484	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18485	label: 'Syntax Coloring'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18486	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18487	activeHelpKey: syntaxColoringEnabled
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18488	model: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18489	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18490	extent: (Point 695 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18491	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18492	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18493	label: 'Immediate Selector Check'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18494	name: 'ImmediateSelectorCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18495	activeHelpKey: immediateSelectorCheck
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18496	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18497	model: fullSelectorCheck
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18498	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18499	extent: (Point 695 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18500	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18501	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18502	name: 'SpacingBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18503	extent: (Point 695 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18504	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18505	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18506	label: 'Style:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18507	name: 'Label5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18508	activeHelpKey: individualStyleSetting
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18509	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18510	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18511	extent: (Point 695 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18512	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18513	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18514	name: 'ElementSelectionBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18515	activeHelpKey: elementSelection
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18516	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18517	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18518	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18519	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18520	label: 'Element:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18521	name: 'Label4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18522	layout: (LayoutFrame 4 0 0 0 140 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18523	activeHelpKey: elementSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18524	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18525	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18526	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18527	(ComboListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18528	name: 'ComboList3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18529	layout: (LayoutFrame 140 0 0 0 0 1 30 0)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18530	activeHelpKey: elementSelection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18531	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18532	model: syntaxElementSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18533	comboList: syntaxElementList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18534	useIndex: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18535	hidePullDownMenuButton: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18536	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18537	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18538
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18539	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18540	extent: (Point 695 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18541	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18542	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18543	name: 'ColorBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18544	activeHelpKey: colorSelection
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18545	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18546	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18547	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18548	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18549	label: 'Color:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18550	name: 'Label2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18551	layout: (LayoutFrame 4 0 0 0 140 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18552	activeHelpKey: colorSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18553	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18554	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18555	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18556	(ColorMenuSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18557	name: 'ColorMenu2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18558	layout: (LayoutFrame 140 0 0 0 0 1 30 0)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18559	activeHelpKey: colorSelection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18560	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18561	model: syntaxColor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18562	labelsAreColored: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18563	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18564	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18565
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18566	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18567	extent: (Point 695 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18568	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18569	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18570	name: 'EmphasisBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18571	activeHelpKey: emphasisSelection
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18572	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18573	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18574	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18575	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18576	label: 'Emphasis:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18577	name: 'Label1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18578	layout: (LayoutFrame 4 0 0 0 140 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18579	activeHelpKey: emphasisSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18580	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18581	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18582	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18583	(ComboListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18584	name: 'ComboList5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18585	layout: (LayoutFrame 140 0 0 0 0 1 30 0)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18586	activeHelpKey: emphasisSelection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18587	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18588	model: syntaxEmphasisSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18589	comboList: syntaxEmphasisList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18590	useIndex: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18591	hidePullDownMenuButton: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18592	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18593	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18594
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18595	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18596	extent: (Point 695 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18597	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18598	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18599	name: 'ResetBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18600	activeHelpKey: resetToCommonStyle
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18601	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18602	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18603	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18604	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18605	label: 'Reset To:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18606	name: 'Button2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18607	layout: (LayoutFrame 0 0 -36 1 150 0 -6 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18608	activeHelpKey: resetToCommonStyle
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18609	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18610	model: resetToColorScheme
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18611	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18612	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18613	(ComboListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18614	name: 'ComboList4'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18615	layout: (LayoutFrame 152 0 -36 1 0 1 -6 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18616	activeHelpKey: commonStyleSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18617	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18618	model: resetListSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18619	comboList: resetList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18620	useIndex: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18621	hidePullDownMenuButton: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18622	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18623	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18624
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18625	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18626	extent: (Point 695 40)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18627	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18628	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18629	name: 'SpacingBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18630	extent: (Point 695 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18631	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18632	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18633	label: 'Sample Output:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18634	name: 'SampleLabel3'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18635	activeHelpKey: sampleOutput
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18636	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18637	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18638	extent: (Point 695 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18639	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18640	(TextEditorSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18641	name: 'TextEditor2'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18642	activeHelpKey: sampleOutput
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18643	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18644	model: coloredText
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18645	hasHorizontalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18646	hasVerticalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18647	isReadOnly: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18648	hasKeyboardFocusInitially: false
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18649	extent: (Point 695 291)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18650	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18651	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18652
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18653	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18654	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18655	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18656
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18657	)
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18658	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18659	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18660
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18661	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18662
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18663	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18664	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18665	syntaxColoring
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18666	fullSelectorCheck
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18667	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18668	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18669
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18670	basicReadSettings
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18671	\|elementColorList elementList resetListLoc\|
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18672
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18673	oldUserPreferences notNil ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18674	(UserPreferences reset; current) addAll:oldUserPreferences
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18675	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18676
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18677	super basicReadSettings.
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	18678
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18679	oldUserPreferences := currentUserPrefs copy.
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18680	elementColorList := UserPreferences syntaxColorNames.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18681	elementList := elementColorList
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18682	collect:[:each \|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18683	(each endsWith:' Color')
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18684	ifTrue:[ each copyButLast:' Color' size ]
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18685	ifFalse:[each]].
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18686
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18687	resetListLoc := currentUserPrefs listOfPredefinedSyntaxColoringSchemes
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18688	collect:[:entry \| entry second].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18689	self resetList value:resetListLoc.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18690	self resetListSelection value:resetListLoc first.
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18691	self syntaxElementList value:elementList.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18692	self syntaxElementSelection value:(elementList at:1).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18693	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18694
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18695	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18696
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18697	oldUserPreferences := currentUserPrefs copy.
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18698	super basicSaveSettings.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18699	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18700
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18701	discardChangesAndReadSettings
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18702	\|prefs\|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18703
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18704	"/ UserPreferences reset.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18705	prefs := currentUserPrefs. "/ UserPreferences current.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18706	changedSettings keysAndValuesDo:[:k :v \|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18707	prefs at:k put:v
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18708	].
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18709	changedSettings := Dictionary new.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18710	"/ self flyByHelpSettingChanged. "/ reinstall
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18711	self recolor.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18712	super discardChangesAndReadSettings.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18713	!
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18714
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18715	recolor
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18716	\|text dummyClass\|
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18717
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18718	self syntaxColoring value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18719	Class withoutUpdatingChangesDo:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18720	dummyClass := Object
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18721	subclass:#DummyClass
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18722	instanceVariableNames:'instVar'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18723	classVariableNames:'ClassVar'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18724	poolDictionaries:''
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18725	category:''
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18726	inEnvironment:nil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18727	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18728	text := SyntaxHighlighter
18048 ff4443f3cba5 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18035 diff changeset	18729	formatMethodSource:self class exampleText
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18730	in:dummyClass
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18731	using:currentUserPrefs.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18732	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18733	text := self class exampleText.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18734	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18735	self coloredText value:text
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18736
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18737	"Modified: / 14-02-2012 / 10:13:56 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18738	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18739
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18740	resetToColorScheme
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18741	\|resetSelector\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18742
11428 2b0f4aec1c3b x Claus Gittinger <cg@exept.de> parents: 11420 diff changeset	18743	resetSelector := resetListDictionary keyAtValue:(self resetListSelection value).
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	18744	currentUserPrefs perform:resetSelector.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18745	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	18746	self updateModifiedChannel
11428 2b0f4aec1c3b x Claus Gittinger <cg@exept.de> parents: 11420 diff changeset	18747
2b0f4aec1c3b x Claus Gittinger <cg@exept.de> parents: 11420 diff changeset	18748	"Modified (format): / 16-03-2012 / 10:32:02 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18749	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18750
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18751	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18752
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18753	coloredText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18754
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18755	coloredText isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18756	coloredText := ValueHolder new.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18757	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18758	^ coloredText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18759	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18760
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18761	fullSelectorCheck
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18762
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18763	fullSelectorCheck isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18764	fullSelectorCheck := currentUserPrefs fullSelectorCheck asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18765	fullSelectorCheck onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18766	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18767	^ fullSelectorCheck.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18768	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18769
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18770	resetList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18771
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18772	resetList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18773	resetList := ValueHolder new.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18774	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18775	^ resetList.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	18776
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	18777	"Modified: / 08-09-2006 / 16:00:58 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18778	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18779
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18780	resetListSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18781
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18782	resetListSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18783	resetListSelection := ValueHolder new.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18784	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18785	^ resetListSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18786	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18787
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18788	syntaxColor
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18789
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18790	syntaxColor isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18791	syntaxColor := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18792	syntaxColor addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18793	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18794	^ syntaxColor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18795	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18796
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18797	syntaxColoring
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18798
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18799	syntaxColoring isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18800	syntaxColoring := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18801	syntaxColoring addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18802	syntaxColoring onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18803	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18804	^ syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18805	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18806
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18807	syntaxElementList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18808	syntaxElementList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18809	syntaxElementList := ValueHolder new.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18810	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18811	^ syntaxElementList.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	18812
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	18813	"Modified: / 08-09-2006 / 16:01:05 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18814	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18815
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18816	syntaxElementSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18817
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18818	syntaxElementSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18819	syntaxElementSelection := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18820	syntaxElementSelection addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18821	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18822	^ syntaxElementSelection.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	18823
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	18824	"Modified: / 08-09-2006 / 16:01:08 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18825	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18826
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18827	syntaxEmphasisList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18828	syntaxEmphasisList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18829	syntaxEmphasisList := ValueHolder new.
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18830	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18831	^ syntaxEmphasisList.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	18832
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	18833	"Modified: / 08-09-2006 / 16:01:13 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18834	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18835
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18836	syntaxEmphasisSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18837
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18838	syntaxEmphasisSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18839	syntaxEmphasisSelection := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18840	syntaxEmphasisSelection addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18841	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18842	^ syntaxEmphasisSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18843	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18844
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18845	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18846
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18847	getEmphasis:anEmphasisOrSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18848	" return emphasis Symbol for emphasis or emphasis for emphasis symbol "
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18849
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18850	^ emphasisDictionary at:anEmphasisOrSymbol ifAbsent:[nil]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18851	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18852
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18853	syntaxColorChanged
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18854	\|prefKey\|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18855
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18856	prefKey := self syntaxColorSelector.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18857	(changedSettings includesKey:prefKey) ifFalse:[
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18858	"/ remember previous value
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18859	changedSettings at:prefKey put:(currentUserPrefs at:prefKey ifAbsent:nil).
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18860	].
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18861	currentUserPrefs at:prefKey put:(self syntaxColor value).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18862	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	18863	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18864	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18865
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18866	syntaxElementSelectionChanged
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18867	\| syntaxEmphasisValue \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18868
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	18869	self syntaxColor value:(currentUserPrefs perform:(self syntaxColorSelector)).
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	18870	syntaxEmphasisValue := (currentUserPrefs perform:(self syntaxEmphasisSelector)).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18871	self syntaxEmphasisSelection value:(self getEmphasis:syntaxEmphasisValue).
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18872	"/ self recolor.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18873	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18874
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18875	syntaxEmphasisSelectionChanged
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18876	\|em prefKey\|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18877
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18878	prefKey := self syntaxEmphasisSelector.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18879	(changedSettings includesKey:prefKey) ifFalse:[
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18880	"/ remember previous value
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18881	changedSettings at:prefKey put:(currentUserPrefs at:prefKey ifAbsent:nil).
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18882	].
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18883	em := self getEmphasis:(self syntaxEmphasisSelection value ? 'normal') string.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18884	currentUserPrefs at:prefKey put:em.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18885
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18886	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	18887	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18888	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18889
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18890	update:something with:aParameter from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18891	changedObject == self syntaxElementSelection ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18892	self syntaxElementSelectionChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18893	^ self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18894	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18895	changedObject == self syntaxColor ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18896	self syntaxColorChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18897	^ self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18898	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18899	changedObject == self syntaxEmphasisSelection ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18900	self syntaxEmphasisSelectionChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18901	^ self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18902	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18903	changedObject == self syntaxColoring ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18904	self recolor.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18905	^ self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18906	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18907
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18908	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18909	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18910
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18911	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18912
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18913	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18914	^ 'Launcher/sourceSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18915	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18916
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18917	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18918
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18919	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	18920	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	18921
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18922	self initializeEmphasisDictionary.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18923	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18924
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18925	self syntaxEmphasisList
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18926	value:(self class emphasisList
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18927	collect:[:lbl \|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18928	lbl emphasizeAllWith:( self getEmphasis:lbl )
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18929	]).
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18930
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18931	changedSettings := Dictionary new.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18932	resetListDictionary := Dictionary new.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18933	currentUserPrefs listOfPredefinedSyntaxColoringSchemes do:[:entry \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18934	resetListDictionary at:(entry at:1) put:(entry at:2)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18935	].
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	18936
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	18937	"Modified: / 08-02-2017 / 00:30:23 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18938	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18939
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18940	initializeEmphasisDictionary
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18941
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18942	emphasisDictionary := Dictionary new.
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18943	self class emphasisMappingList do:[ :mapping \|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18944	\|name emphasis\|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18945
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18946	name := mapping first.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18947	emphasis := mapping second.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18948	emphasisDictionary at:name put:emphasis.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18949	emphasisDictionary at:emphasis put:name.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18950	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18951	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18952
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18953	release
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18954
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18955	oldUserPreferences notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18956	(UserPreferences reset; current)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18957	addAll:oldUserPreferences;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18958	flyByHelpSettingChanged. "/ reinstall
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18959	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18960	super release
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18961
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18962	"Modified: / 14-02-2012 / 11:01:49 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18963	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18964
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18965	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18966
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18967	hasUnsavedChanges
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18968	\|colorList colorPerformer emphasisPerformer\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18969
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	18970	oldUserPreferences isNil ifTrue:[^ false].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	18971
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18972	colorList := UserPreferences syntaxColorNames.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18973	colorList do:[:syntaxElement \|
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18974	colorPerformer := (self syntaxColorSelectorForElement:syntaxElement).
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18975	emphasisPerformer := (self syntaxEmphasisSelectorForElement:syntaxElement).
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18976	((oldUserPreferences perform:colorPerformer) ~= (currentUserPrefs perform:colorPerformer)) ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18977	^ true
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18978	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18979	((oldUserPreferences perform:emphasisPerformer) ~= (currentUserPrefs perform:emphasisPerformer)) ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18980	^ true
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18981	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18982	syntaxElement
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18983	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18984
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18985	(super hasUnsavedChanges) ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	18986
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18987	^ false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18988	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18989
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18990	syntaxColorSelector
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18991	\|elementName key\|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18992
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18993	elementName := key := self syntaxElementSelection value.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18994	(elementName endsWith:' Color') ifFalse:[
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18995	key := elementName,' Color'.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18996	].
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18997	^ (self syntaxColorSelectorForElement:key)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18998	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18999
15166 eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	19000	syntaxColorSelectorForElement:aSyntaxElementsName
eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	19001	"/ old code - error prone
eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	19002	^ (UserPreferences syntaxColorNamesAndKeys detect:[:el \| el first = aSyntaxElementsName]) second
eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	19003	"/ ^ (aSyntaxElementsName replChar:$ withString: '') asLowercaseFirst asSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19004	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19005
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	19006	syntaxEmphasisSelector
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19007	\|elementName key\|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19008
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19009	elementName := self syntaxElementSelection value.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19010	key := elementName,' Color'.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19011	^ self syntaxEmphasisSelectorForElement:key
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	19012	!
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	19013
15166 eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	19014	syntaxEmphasisSelectorForElement:aSyntaxElementsName
eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	19015	^ (UserPreferences syntaxColorNamesAndKeys detect:[:el \| el first = aSyntaxElementsName]) third
eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	19016	"/ ^ (((self syntaxColorSelectorForElement:anEmElement) upToAll: 'Color'), 'Emphasis')
eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	19017	"/ asLowercaseFirst asSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19018	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19019
12478 6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19020	!AbstractSettingsApplication::SystemBrowserSettingsAppl class methodsFor:'help specs'!
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19021
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19022	helpSpec
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19023	"This resource specification was automatically generated
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19024	by the UIHelpTool of ST/X."
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19025
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19026	"Do not manually edit this!! If it is corrupted,
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19027	the UIHelpTool may not be able to read the specification."
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19028
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19029	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	19030	UIHelpTool openOnClass:AbstractSettingsApplication::SystemBrowserSettingsAppl
12478 6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19031	"
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19032
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19033	<resource: #help>
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19034
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19035	^ super helpSpec addPairsFrom:#(
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19036
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19037	#compactSCMLayout
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19038	'Arrange source code manager menu items in a compact layout'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19039
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19040	#inPlaceSearch
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19041	'In-place search to browser lists'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19042
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19043	#inlineSCMLayout
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19044	'Arrange source code manager menu items in a falt inline layout'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19045
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19046	#oldSCMMenuLayout
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19047	'Arrange source code manager menu items in the old, traditional layout'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19048
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19049	#searchBarInBrowser
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19050	'Add a search bar to the browser (like in web browsers)'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19051
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19052	#showBookmarksBar
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19053	'Show the bookmarks bar'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19054
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19055	#showGlobalHistory
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19056	'Show a toolbar button to navigate the global visited classes history'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19057
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19058	#showLocalHistory
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19059	'Show a toolbar button to navigate the local (per browser) visited classes history'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19060
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19061	#showMarqueeInfo
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19062	'Scroll multipline info texts in the low info area.\If off, multiline infos are suppressed and no automatic scrolling is done (better for VM/remote desktops)'
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19063
12478 6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19064	#showMethodTemplate
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19065	'Show a method code template when no method is selected'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19066
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19067	#sortAndIndentClassesByInheritance
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19068	'Sort and indent classes by inheritance within a category (as opposed to sorting by name)'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19069
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19070	#useEmbeddedTestRunner
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19071	'Show a panel to start sUnit tests, whenever a testcase class is selected'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19072
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19073	#webBrowserLikeLayout
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19074	'Use a layout similar to web browsers'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19075
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19076	)
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19077	! !
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19078
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19079	!AbstractSettingsApplication::SystemBrowserSettingsAppl class methodsFor:'image specs'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19080
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19081	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	19082	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	19083
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19084	^ ToolbarIconLibrary systemBrowser24x24Icon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	19085
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	19086	"Modified: / 17-09-2007 / 11:35:15 / cg"
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19087	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19088
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19089	!AbstractSettingsApplication::SystemBrowserSettingsAppl class methodsFor:'interface specs'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19090
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19091	windowSpec
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19092	"This resource specification was automatically generated
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19093	by the UIPainter of ST/X."
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19094
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19095	"Do not manually edit this!! If it is corrupted,
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19096	the UIPainter may not be able to read the specification."
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19097
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19098	"
8203 3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	19099	UIPainter new openOnClass:AbstractSettingsApplication::SystemBrowserSettingsAppl andSelector:#windowSpec
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	19100	AbstractSettingsApplication::SystemBrowserSettingsAppl new openInterface:#windowSpec
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	19101	AbstractSettingsApplication::SystemBrowserSettingsAppl open
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19102	"
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19103
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19104	<resource: #canvas>
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19105
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19106	^
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	19107	#(FullSpec
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	19108	name: windowSpec
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19109	window:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	19110	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19111	label: 'System Browser Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19112	name: 'System Browser Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19113	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19114	min: (Point 10 10)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19115	bounds: (Rectangle 0 0 569 590)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19116	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19117	component:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	19118	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19119	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19120	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19121	name: 'SettingsPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19122	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19123	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19124	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19125	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19126	verticalSpace: 3
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19127	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19128	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19129	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19130	(FramedBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19131	label: 'Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19132	name: 'ToolsSettingsPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19133	labelPosition: topLeft
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19134	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19135	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19136	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19137	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19138	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19139	name: 'ToolSettingsVPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19140	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19141	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19142	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19143	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19144	verticalSpace: 3
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19145	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19146	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19147	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19148	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19149	label: 'Use the Embedded Test Runner'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19150	name: 'UseEmbeddedTestRunner'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19151	activeHelpKey: useEmbeddedTestRunner
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19152	model: showEmbeddedTestRunnerInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19153	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19154	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19155	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19156	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19157	label: 'Web Browser Like Layout (Toolbars are Part of the Tab - experimental)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19158	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19159	activeHelpKey: webBrowserLikeLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19160	initiallyInvisible: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19161	model: webBrowserLikeLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19162	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19163	extent: (Point 607 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19164	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19165	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19166	label: 'Show Bookmarks Bar'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19167	name: 'ShowBookmarksBar'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19168	activeHelpKey: showBookmarksBar
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19169	model: showBookmarkBar
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19170	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19171	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19172	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19173	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19174	label: 'Sort and Indent Classes by Inheritance'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19175	name: 'SortAndIndentClassesByInheritance'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19176	activeHelpKey: sortAndIndentClassesByInheritance
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19177	model: sortAndIndentClassesByInheritance
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19178	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19179	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19180	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19181	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19182	label: 'Show Local Navigation History (Separate History per Browser Tab)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19183	name: 'CheckBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19184	activeHelpKey: showLocalHistory
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19185	model: showLocalHistory
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19186	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19187	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19188	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19189	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19190	label: 'Show Global Navigation History (Global History for all Browsers)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19191	name: 'CheckBox3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19192	activeHelpKey: showGlobalHistory
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19193	model: showGlobalHistory
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19194	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19195	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19196	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19197	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19198	label: 'Show Search Bar in Browser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19199	name: 'ShowSearchBarInBrowser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19200	activeHelpKey: searchBarInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19201	model: useSearchBarInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19202	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19203	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19204	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19205	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19206	label: 'Use in-place Search in Browser Lists (experimental)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19207	name: 'CheckBox4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19208	activeHelpKey: inPlaceSearch
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19209	model: useInPlaceSearchInBrowserLists
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19210	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19211	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19212	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19213	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19214	label: 'Show Method Template'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19215	name: 'MethodTemplate'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19216	activeHelpKey: showMethodTemplate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19217	model: showMethodTemplate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19218	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19219	extent: (Point 533 30)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19220	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19221	(CheckBoxSpec
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19222	label: 'Marquee Info'
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19223	name: 'CheckBox5'
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19224	activeHelpKey: showMarqueeInfo
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19225	model: showMarqueeInfo
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19226	translateLabel: true
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19227	extent: (Point 533 30)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19228	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19229	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19230
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19231	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19232	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19233	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19234
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19235	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19236	extent: (Point 569 333)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19237	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19238	(FramedBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19239	label: 'Sourcecode Management Menu Layout'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19240	name: 'MenuLayoutPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19241	labelPosition: topLeft
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19242	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19243	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19244	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19245	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19246	(VerticalPanelViewSpec
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19247	name: 'MenuLayoutVPanel'
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19248	layout: (LayoutFrame 0 0 5 0 0 1 0 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19249	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19250	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19251	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19252	verticalSpace: 3
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19253	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19254	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19255	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19256	(RadioButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19257	label: 'Old'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19258	name: 'SCMMenuLayoutOld'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19259	activeHelpKey: oldSCMMenuLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19260	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19261	model: sourceCodeManagementMenuLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19262	isTriggerOnDown: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19263	select: 'old'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19264	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19265	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19266	(RadioButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19267	label: 'Inline'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19268	name: 'SCMMenuLayoutInline'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19269	activeHelpKey: inlineSCMLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19270	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19271	model: sourceCodeManagementMenuLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19272	isTriggerOnDown: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19273	select: 'inline'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19274	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19275	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19276	(RadioButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19277	label: 'Compact'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19278	name: 'SCMMenuLayoutCompact'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19279	activeHelpKey: compactSCMLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19280	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19281	model: sourceCodeManagementMenuLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19282	isTriggerOnDown: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19283	select: 'compact'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19284	extent: (Point 533 30)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19285	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19286	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19287
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19288	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19289	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19290	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19291
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19292	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19293	extent: (Point 569 135)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19294	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19295	(FramedBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19296	label: 'Static Analysis (Lint)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19297	name: 'LintPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19298	labelPosition: topLeft
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19299	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19300	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19301	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19302	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19303	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19304	name: 'LintPanelContent'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19305	layout: (LayoutFrame 0 0 0 0 0 1 53 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19306	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19307	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19308	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19309	verticalSpace: 3
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19310	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19311	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19312	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19313	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19314	name: 'DefaultRulesetBox'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19315	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19316	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19317	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19318	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19319	label: 'Default Rules:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19320	name: 'DefaultRulesetLabel'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19321	layout: (LayoutFrame 0 0 0 0 138 0 0 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19322	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19323	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19324	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19325	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19326	name: 'DefaultRuleset'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19327	layout: (LayoutFrame 144 0 0 0 -100 1 0 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19328	model: smallLintRulesetDefault
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19329	isReadOnly: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19330	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19331	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19332	converter: smallLintRulesetDefaultAdaptor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19333	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19334	emptyFieldReplacementText: 'Default'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19335	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19336	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19337	label: 'Select'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19338	name: 'DefaultRulesetSelectButton'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19339	layout: (LayoutFrame -100 1 0 0 0 1 0 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19340	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19341	model: doSelectDefaultRuleset
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19342	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19343	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19344
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19345	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19346	extent: (Point 533 25)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19347	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19348	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19349	name: 'Box1'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19350	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19351	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19352	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19353	(LinkButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19354	label: 'Configure Rule Sets...'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19355	name: 'Button1'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19356	layout: (LayoutFrame -200 1 -20 1 0 1 0 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19357	foregroundColor: (Color 0.0 0.0 100.0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19358	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19359	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19360	model: doConfigureRulesets
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19361	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19362	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19363
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19364	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19365	extent: (Point 533 25)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19366	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19367	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19368
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19369	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19370	useDynamicPreferredHeight: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19371	usePreferredHeight: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19372	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19373	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19374
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19375	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19376	extent: (Point 569 92)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19377	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19378	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19379
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19380	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19381	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19382	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19383
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	19384	)
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	19385	)
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19386	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19387
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19388	!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'actions'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19389
14759 47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19390	accept
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19391	self saveSettings.
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19392	self closeRequest.
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19393
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19394	"Created: / 14-10-2014 / 09:18:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19395	!
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19396
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19397	doConfigureRulesets
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19398	Tools::LintRuleSettingsApplication open
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19399
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19400	"Modified: / 14-10-2014 / 09:28:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19401	!
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19402
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19403	doSelectDefaultRuleset
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19404	<resource: #uiCallback>
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19405
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19406	\| dialog \|
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19407
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19408	dialog := Tools::LintRuleSelectionDialog new.
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19409	dialog open.
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19410	dialog accepted ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19411	smallLintRulesetDefault value: dialog selectionAsRule.
14759 47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19412	]
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19413
14771 65840e41c10f UI tweaks in browser settings application, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14759 diff changeset	19414	"Modified: / 14-10-2014 / 22:12:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19415	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19416
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19417	!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'aspects'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19418
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19419	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19420	^ #(
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19421	"/ showAcceptCancelBarInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19422	useSearchBarInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19423	showMethodTemplate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19424	"/ useCodeView2InTools
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19425	showEmbeddedTestRunnerInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19426	showBookmarkBar
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19427	webBrowserLikeLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19428	sortAndIndentClassesByInheritance
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19429	showGlobalHistory
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19430	showLocalHistory
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19431	useInPlaceSearchInBrowserLists
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19432	sourceCodeManagementMenuLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19433	confirmRefactorings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19434	smallLintRulesetDefault
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19435	showMarqueeInfo
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19436	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19437
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19438	"Created: / 25-11-2011 / 15:09:28 / cg"
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19439	"Modified: / 14-10-2014 / 08:19:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19440	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19441
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19442	confirmRefactorings
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19443
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19444	confirmRefactorings isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19445	confirmRefactorings := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19446	confirmRefactorings onChangeSend:#updateModifiedChannel to:self
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19447	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19448	^ confirmRefactorings.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19449
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19450	"Created: / 07-06-2011 / 14:34:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19451	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19452
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19453	showAcceptCancelBarInBrowser
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19454	showAcceptCancelBarInBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19455	showAcceptCancelBarInBrowser := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19456	showAcceptCancelBarInBrowser onChangeSend:#updateModifiedChannel to:self
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19457	].
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19458	^ showAcceptCancelBarInBrowser.
8203 3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	19459	!
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	19460
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19461	showBookmarkBar
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19462	"return/create the 'showMethodTemplate' value holder (automatically generated)"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19463
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19464	showBookmarkBar isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19465	showBookmarkBar := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19466	showBookmarkBar onChangeSend:#updateModifiedChannel to:self
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19467
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19468	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19469	^ showBookmarkBar
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19470
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19471	"Created: / 18-05-2011 / 16:51:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19472	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19473
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19474	showEmbeddedTestRunnerInBrowser
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19475	"return/create the 'showEmbeddedTestRunnerInBrowser' value holder (automatically generated)"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19476
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19477	showEmbeddedTestRunnerInBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19478	showEmbeddedTestRunnerInBrowser := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19479	showEmbeddedTestRunnerInBrowser onChangeSend:#updateModifiedChannel to:self
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19480	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19481	^ showEmbeddedTestRunnerInBrowser
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19482
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19483	"Modified: / 11-03-2010 / 10:12:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19484	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19485
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19486	showGlobalHistory
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19487
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19488	showGlobalHistory isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19489	showGlobalHistory := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19490	showGlobalHistory onChangeSend:#updateModifiedChannel to:self
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19491	].
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19492	^ showGlobalHistory.
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19493
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19494	"Created: / 07-07-2011 / 00:05:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19495	!
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19496
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19497	showLocalHistory
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19498
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19499	showLocalHistory isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19500	showLocalHistory := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19501	showLocalHistory onChangeSend:#updateModifiedChannel to:self
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19502	].
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19503	^ showLocalHistory.
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19504
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19505	"Created: / 07-07-2011 / 00:05:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19506	!
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19507
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19508	showMarqueeInfo
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19509	showMarqueeInfo isNil ifTrue:[
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19510	showMarqueeInfo := true asValue.
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19511	showMarqueeInfo onChangeSend:#updateModifiedChannel to:self
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19512	].
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19513	^ showMarqueeInfo.
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19514	!
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19515
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19516	showMethodTemplate
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19517	"return/create the 'showMethodTemplate' value holder (automatically generated)"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19518
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19519	showMethodTemplate isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19520	showMethodTemplate := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19521	showMethodTemplate onChangeSend:#updateModifiedChannel to:self
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19522
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19523	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19524	^ showMethodTemplate
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19525
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19526	"Modified: / 11-03-2010 / 10:08:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19527	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19528
14759 47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19529	smallLintRulesetDefault
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19530	<resource: #uiAspect>
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19531
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19532	smallLintRulesetDefault isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19533	smallLintRulesetDefault := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19534	smallLintRulesetDefault onChangeSend:#updateModifiedChannel to:self.
14759 47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19535	].
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19536	^ smallLintRulesetDefault.
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19537
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19538	"Created: / 14-10-2014 / 08:19:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
14771 65840e41c10f UI tweaks in browser settings application, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14759 diff changeset	19539	"Modified: / 14-10-2014 / 18:23:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
65840e41c10f UI tweaks in browser settings application, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14759 diff changeset	19540	!
65840e41c10f UI tweaks in browser settings application, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14759 diff changeset	19541
65840e41c10f UI tweaks in browser settings application, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14759 diff changeset	19542	smallLintRulesetDefaultAdaptor
65840e41c10f UI tweaks in browser settings application, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14759 diff changeset	19543	^ PluggableAdaptor new
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19544	getter:[ :model \| model value isNil ifTrue:[nil] ifFalse:[model value name]]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19545	setter:[ :model :value \| ]
14771 65840e41c10f UI tweaks in browser settings application, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14759 diff changeset	19546
65840e41c10f UI tweaks in browser settings application, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14759 diff changeset	19547	"Created: / 14-10-2014 / 22:11:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
14759 47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19548	!
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	19549
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19550	sortAndIndentClassesByInheritance
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19551
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19552	sortAndIndentClassesByInheritance isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19553	sortAndIndentClassesByInheritance := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19554	sortAndIndentClassesByInheritance onChangeSend:#updateModifiedChannel to:self
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19555	].
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19556	^ sortAndIndentClassesByInheritance.
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19557
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19558	"Created: / 06-07-2011 / 23:50:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19559	!
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19560
10778 c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19561	sourceCodeManagementMenuLayout
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19562	sourceCodeManagementMenuLayout isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19563	sourceCodeManagementMenuLayout := #inline "#old" asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19564	sourceCodeManagementMenuLayout onChangeSend:#updateModifiedChannel to:self
10778 c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19565	].
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19566	^ sourceCodeManagementMenuLayout.
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19567
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19568	"Created: / 06-10-2011 / 18:57:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19569	!
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19570
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19571	useCodeView2InTools
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19572	"return/create the 'useCodeView2InTools' value holder (automatically generated)"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19573
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19574	useCodeView2InTools isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19575	useCodeView2InTools := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19576	useCodeView2InTools onChangeSend:#updateModifiedChannel to:self
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19577
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19578	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19579	^ useCodeView2InTools
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19580
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19581	"Modified: / 11-03-2010 / 10:09:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19582	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19583
10418 d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19584	useInPlaceSearchInBrowserLists
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19585	useInPlaceSearchInBrowserLists isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19586	useInPlaceSearchInBrowserLists := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19587	useInPlaceSearchInBrowserLists onChangeSend:#updateModifiedChannel to:self
10418 d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19588	].
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19589	^ useInPlaceSearchInBrowserLists.
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19590
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19591	"Created: / 28-07-2011 / 09:36:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19592	!
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19593
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	19594	useSearchBarInBrowser
8325 1a34a35f4eec * empty log message * Claus Gittinger <cg@exept.de> parents: 8296 diff changeset	19595	"true, if the search-entry fields are shown in the browser itself
1a34a35f4eec * empty log message * Claus Gittinger <cg@exept.de> parents: 8296 diff changeset	19596	(like in firefox). False if a dialog is to be opened."
1a34a35f4eec * empty log message * Claus Gittinger <cg@exept.de> parents: 8296 diff changeset	19597
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	19598	useSearchBarInBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19599	useSearchBarInBrowser := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19600	useSearchBarInBrowser onChangeSend:#updateModifiedChannel to:self
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	19601	].
1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	19602	^ useSearchBarInBrowser.
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19603	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19604
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19605	webBrowserLikeLayout
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19606	"true, if the search-entry fields are shown in the browser itself
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19607	(like in firefox). False if a dialog is to be opened."
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19608
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19609	webBrowserLikeLayout isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19610	webBrowserLikeLayout := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19611	webBrowserLikeLayout onChangeSend:#updateModifiedChannel to:self
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19612	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19613	^ webBrowserLikeLayout.
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19614
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19615	"Created: / 07-06-2011 / 14:34:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19616	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19617
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19618	!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19619
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19620	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19621	^ 'Launcher/browserSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19622	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19623
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19624	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'documentation'!
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19625
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19626	documentation
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19627	"
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19628	documentation to be added.
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19629
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19630	class:
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19631	<a short class summary here, describing what instances represent>
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19632
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19633	responsibilities:
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19634	<describing what my main role is>
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19635
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19636	collaborators:
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19637	<describing with whom and how I talk to>
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19638
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19639	API:
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19640	<public api and main messages>
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19641
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19642	example:
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19643	<a one-line examples on how to use - can also be in a separate example method>
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19644
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19645	implementation:
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19646	<implementation points>
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19647
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19648	[author:]
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19649	exept MBP
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19650
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19651	[instance variables:]
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19652
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19653	[class variables:]
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19654
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19655	[see also:]
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19656
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19657	"
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19658	!
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19659
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19660	examples
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19661	"
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19662	Notice that everything between [exBegin] and [exEnd] is extracted by the html-doc generator
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19663	to create nicely formatted and clickable executable examples in the generated html-doc.
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19664	(see the browser's class-documentation menu items for more)
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19665
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19666	opening the application:
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19667	[exBegin]
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19668	AbstractSettingsApplication::SystemMessageSettingsAppl open
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19669	[exEnd]
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19670
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19671	opening the application on some model:
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19672	[exBegin]
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19673	AbstractSettingsApplication::SystemMessageSettingsAppl openOn:aModel
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19674	[exEnd]
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19675	"
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19676	! !
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19677
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19678	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'help specs'!
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19679
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	19680	helpSpec
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19681	"This resource specification was automatically generated
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19682	by the UIHelpTool of ST/X."
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19683
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19684	"Do not manually edit this!! If it is corrupted,
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19685	the UIHelpTool may not be able to read the specification."
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19686
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19687	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	19688	UIHelpTool openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19689	"
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19690
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19691	<resource: #help>
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19692
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	19693	^ super helpSpec addPairsFrom:#(
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19694
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19695	#beepEnabled
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19696	'Enable/disable audible beeps altogether'
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19697
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19698	#beepForErrorDialog
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19699	'Enable/disable audible beeps when an error dialog is opened'
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19700
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19701	#beepForInfoDialog
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19702	'Enable/disable audible beeps when an info dialog is opened'
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19703
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19704	#beepForWarningDialog
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19705	'Enable/disable audible beeps when a warning dialog is opened'
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19706
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19707	#beepInEditor
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19708	'Enable/disable audible beeps from the editor (search found nothing, etc.)'
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19709
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19710	#classInfos
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19711	'Enable/disable messages from the class library'
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19712
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19713	#debugIfLogGenerated
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19714	'Breakpoint and open a debugger whenever a log is generated'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19715
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19716	#displayErrors
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19717	'Enable/disable error messages from the display (X or Windows screen connection)'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19718
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19719	#flyByHelpActive
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19720	'Enable/disable tooltips'
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19721
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19722	#loggerLevel
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19723	'Logging level.\Logger only logs messages with this or a higher severity'
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19724
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19725	#onlyShowTooltipsForActiveWindow
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19726	'Show tooltips only for the active window. Not for any passive windows underneath'
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19727
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19728	#sendMessagesAlsoToTranscript
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19729	'If on, messages are sent to both Stderr and the Transcript.\If off, they are sent to Stderr only.\The default is on.'
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19730
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19731	#showToolTips
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19732	'Show tooltips (fly-by help)'
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19733
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19734	#toolTipAutoHideDelay
14373 61a21c44e7f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14330 diff changeset	19735	'Autohide tooltips after that time (seconds by default). 0 to not autohide.'
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19736
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19737	#vmErrors
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19738	'Enable/disable error messages from the Virtual Machine (VM)'
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19739
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19740	#vmInfo
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19741	'Enable/disable information messages from the Virtual Machine (VM)'
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19742
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19743	)
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19744	! !
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19745
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19746	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19747
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19748	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19749	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19750	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19751
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19752	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19753	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19754
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19755	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19756	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19757	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19758	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19759	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19760
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19761	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19762
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19763	^Icon
18653 590ea11e403e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18624 diff changeset	19764	constantNamed:'AbstractSettingsApplication::SystemMessageSettingsAppl class defaultIcon'
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	19765	ifAbsentPut:[(Depth8Image width:22 height:22) bits:(ByteArray fromPackedString:'
18653 590ea11e403e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18624 diff changeset	19766	@@@@@@@@@@@@@PDAA @@@@@@@@@@@@@@@@@@@@@@@PHB@0D@@@@@@@@@@@@@@@@@@@@@@PHDAPLC@P@@@@@@@@@@@@@@@@@@@@DBA PGA0 @@@@@@@@@@@@@
590ea11e403e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18624 diff changeset	19767	@@@@@@@A@ XDA0\H@@@@@@@@@@@@@@@@@@@@@PHIA@(J@@@@@@@@@@@@@@@@@@@@@@@AB00MCP@@@@@@@@@@@@@@@@@@@@@@@@DN@@@@@@@@@@@@@@@@@@@@
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	19768	@@@@@@@AC @@@@@@@@@@@@@@@@@@@@@@@@@@@P8@@@@@@@@@@@@@@@@@@@@@@@<OC0PNDA@@DQD@@@@@@@@@@@@@@@<RD1LTEQXVE1 XDP@@@@@@@@@@@@@O
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	19769	D!!LSEATVE!!\XFAD@@@@@@@@@@@@@C1HSD1$UEAPZF1,\@@@@@@@@@@@@@@<RGQ4YF!!PTEAXVG@@@@@@@@@@@@@@OD!!4]FQ(TEAPVE!!0@@@@@@@@@@@@@C1H]
18653 590ea11e403e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18624 diff changeset	19770	GQ$TEAPTE1\@@@@@@@@@@@@@@@<RGQ4YF!!(ZF!!TU@@@@@@@@@@@@@@<^D1LSG2@UER@ HBD"@@@@@@@@@@@OG!!LSD1< EQT HB@!!H @@@@@@@@@@C2DSD1L_
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	19771	F!!(ZF!!(ZF@@@@@@@@@@@@@@ODQ0\H"H"H @@@@@@@@@@@@@a')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	19772	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]
18653 590ea11e403e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18624 diff changeset	19773	mask:((ImageMask width:22 height:22) bits:(ByteArray fromPackedString:'@G @@O @@_0@@_0@@_0@@_0@@O0@@G @@G @@G @@?<@A?>@A?>@A?>@A?>@A?>@A?>@A?>@C??@C??@C??@A?>@'); yourself); yourself]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19774	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19775
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19776	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19777
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19778	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19779	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19780	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19781
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19782	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19783	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19784
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19785	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	19786	UIPainter new openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	19787	AbstractSettingsApplication::SystemMessageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	19788	AbstractSettingsApplication::SystemMessageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19789	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19790
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19791	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19792
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19793	^
13694 8a0442b537f7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13692 diff changeset	19794	#(FullSpec
8a0442b537f7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13692 diff changeset	19795	name: windowSpec
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19796	uuid: 'c034684c-58da-11ea-93e3-10ddb1cc5928'
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19797	window:
13694 8a0442b537f7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13692 diff changeset	19798	(WindowSpec
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19799	label: 'Messages Settings'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19800	name: 'Messages Settings'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19801	flags: 1
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19802	uuid: '1915f084-55a2-11ea-ac19-10ddb1cc5928'
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19803	min: (Point 10 10) bounds: (Rectangle 0 0 574 602)
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19804	) component:
13694 8a0442b537f7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13692 diff changeset	19805	(SpecCollection
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19806	collection: (
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19807	(VerticalPanelViewSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19808	name: 'VerticalPanel2'
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19809	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) uuid: '1915f476-55a2-11ea-ac19-10ddb1cc5928'
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19810	horizontalLayout: fitSpace
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19811	verticalLayout: topSpace
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19812	horizontalSpace: 5
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19813	verticalSpace: 5
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19814	component:
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19815	(SpecCollection
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19816	collection: (
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19817	(FramedBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19818	label: 'Info & Error Messages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19819	name: 'FramedBox1'
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19820	uuid: '1915f778-55a2-11ea-ac19-10ddb1cc5928'
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19821	labelPosition: topLeft
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19822	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19823	component:
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19824	(SpecCollection
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19825	collection: (
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19826	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19827	label: 'VM Info Messages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19828	name: 'VMInfoMessages'
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19829	layout: (LayoutFrame 5 0 5 0 -5 1 35 0) activeHelpKey: vmInfo
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19830	uuid: '1915f9d0-55a2-11ea-ac19-10ddb1cc5928'
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19831	model: vmInfo
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19832	translateLabel: true
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19833	)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19834	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19835	label: 'VM Error Messages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19836	name: 'VMErrorMessages'
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19837	layout: (LayoutFrame 5 0 35 0 -5 1 65 0) activeHelpKey: vmErrors
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19838	uuid: '1915fcf0-55a2-11ea-ac19-10ddb1cc5928'
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19839	model: vmErrors
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19840	translateLabel: true
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19841	)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19842	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19843	label: 'Display Error Messages (Xlib, Xtlib, WinAPI ...)'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19844	name: 'DisplayErrorMessages'
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19845	layout: (LayoutFrame 5 0 65 0 -5 1 95 0) activeHelpKey: displayErrors
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19846	uuid: '1915ff70-55a2-11ea-ac19-10ddb1cc5928'
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19847	model: displayErrors
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19848	translateLabel: true
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19849	)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19850	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19851	label: 'Other Info Messages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19852	name: 'OtherInfoMessages'
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19853	layout: (LayoutFrame 5 0 95 0 -5 1 125 0) activeHelpKey: classInfos
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19854	uuid: '19160164-55a2-11ea-ac19-10ddb1cc5928'
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19855	model: classInfos
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19856	translateLabel: true
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19857	)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19858	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19859	label: 'Send also to Transcript (in addition to Stderr)'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19860	name: 'CheckBox8'
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19861	layout: (LayoutFrame 5 0 149 0 -5 1 179 0) activeHelpKey: sendMessagesAlsoToTranscript
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19862	uuid: '1916036c-55a2-11ea-ac19-10ddb1cc5928'
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19863	model: sendMessagesAlsoToTranscript
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19864	translateLabel: true
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19865	)
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19866	(LabelSpec
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19867	label: 'Logger Level:'
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19868	name: 'Label3'
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19869	layout: (LayoutFrame 32 0 125 0 -304 1 147 0) activeHelpKey: loggerLevel
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19870	uuid: '19160556-55a2-11ea-ac19-10ddb1cc5928'
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19871	translateLabel: true
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19872	adjust: left
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19873	)
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19874	(ComboListSpec
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19875	name: 'LogLevelComboList'
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19876	layout: (LayoutFrame -296 1 125 0 -163 1 145 0) activeHelpKey: loggerLevel
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19877	uuid: '19160876-55a2-11ea-ac19-10ddb1cc5928'
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19878	model: logLevelIndex
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19879	comboList: possibleLogLevelNames
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19880	useIndex: true
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19881	)
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19882	(CheckBoxSpec
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19883	label: 'Debug if Generated'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19884	name: 'CheckBox10'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19885	layout: (LayoutFrame 377 0 125 0 513 0 147 0) activeHelpKey: debugIfLogGenerated
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19886	uuid: 'c03490e2-58da-11ea-93e3-10ddb1cc5928'
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19887	model: debugIfLogGenerated
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19888	translateLabel: true
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	19889	)
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19890	)
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19891	) extent: (Point 564 213)
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19892	)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19893	(FramedBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19894	label: 'Audible Bell'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19895	name: 'FramedBox3'
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19896	uuid: '19160b78-55a2-11ea-ac19-10ddb1cc5928'
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19897	labelPosition: topLeft
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19898	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19899	component:
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19900	(SpecCollection
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19901	collection: (
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19902	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19903	label: 'Beep Generally Enabled'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19904	name: 'beepEnabled'
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19905	layout: (LayoutFrame 5 0 10 0 0 1 40 0) activeHelpKey: beepEnabled
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19906	uuid: '19160d44-55a2-11ea-ac19-10ddb1cc5928'
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19907	model: beepEnabled
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19908	translateLabel: true
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19909	)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19910	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19911	label: 'Beep in Editor'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19912	name: 'CheckBox7'
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19913	layout: (LayoutFrame 40 0 35 0 0 1 65 0) activeHelpKey: beepInEditor
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19914	uuid: '19160f42-55a2-11ea-ac19-10ddb1cc5928'
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19915	enableChannel: beepEnabled
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19916	model: beepInEditor
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19917	translateLabel: true
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19918	)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19919	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19920	label: 'Beep for Info Dialogs'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19921	name: 'CheckBox3'
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19922	layout: (LayoutFrame 40 0 60 0 0 1 90 0) activeHelpKey: beepForInfoDialog
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19923	uuid: '19161136-55a2-11ea-ac19-10ddb1cc5928'
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19924	enableChannel: beepEnabled
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19925	model: beepForInfoDialog
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19926	translateLabel: true
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19927	)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19928	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19929	label: 'Beep for Warning Dialogs'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19930	name: 'CheckBox4'
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19931	layout: (LayoutFrame 40 0 85 0 0 1 115 0) activeHelpKey: beepForWarningDialog
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19932	uuid: '19161320-55a2-11ea-ac19-10ddb1cc5928'
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19933	enableChannel: beepEnabled
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19934	model: beepForWarningDialog
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19935	translateLabel: true
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19936	)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19937	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19938	label: 'Beep for Error Dialogs'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19939	name: 'CheckBox5'
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19940	layout: (LayoutFrame 40 0 111 0 0 1 141 0) activeHelpKey: beepForErrorDialog
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19941	uuid: '1916150a-55a2-11ea-ac19-10ddb1cc5928'
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19942	enableChannel: beepEnabled
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19943	model: beepForErrorDialog
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19944	translateLabel: true
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19945	)
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19946	)
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19947	) extent: (Point 564 178)
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19948	)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19949	(FramedBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19950	label: 'Help'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19951	name: 'FramedBox4'
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19952	uuid: '19161712-55a2-11ea-ac19-10ddb1cc5928'
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19953	labelPosition: topLeft
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19954	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19955	component:
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19956	(SpecCollection
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19957	collection: (
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19958	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19959	label: 'Tooltips (FlyBy Help)'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19960	name: 'CheckBox6'
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19961	layout: (LayoutFrame 5 0 7 0 -5 1 37 0) activeHelpKey: flyByHelpActive
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19962	uuid: '191618ca-55a2-11ea-ac19-10ddb1cc5928'
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19963	model: flyByHelpActive
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19964	translateLabel: true
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19965	)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19966	(InputFieldSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19967	name: 'EntryField1'
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19968	layout: (LayoutFrame -90 1 5 0 -34 1 35 0) activeHelpKey: toolTipAutoHideDelay
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19969	uuid: '19161ab4-55a2-11ea-ac19-10ddb1cc5928'
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19970	enableChannel: flyByHelpActive
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19971	model: toolTipAutoHideDelay
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19972	type: timeDurationOrNil
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19973	acceptOnReturn: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19974	acceptOnTab: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19975	acceptOnPointerLeave: true
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19976	)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19977	(LabelSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19978	label: 'Autohide after:'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19979	name: 'Label1'
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19980	layout: (AlignmentOrigin -94 1 21 0 1 0.5) activeHelpKey: toolTipAutoHideDelay
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19981	uuid: '19161e60-55a2-11ea-ac19-10ddb1cc5928'
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19982	translateLabel: true
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19983	adjust: right
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19984	)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19985	(LabelSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19986	label: '(s)'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19987	name: 'Label2'
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19988	layout: (LayoutFrame -31 1 6 0 0 1 36 0) activeHelpKey: toolTipAutoHideDelay
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19989	uuid: '19162072-55a2-11ea-ac19-10ddb1cc5928'
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19990	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19991	adjust: left
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19992	)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19993	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19994	label: 'Only Show Tooltips for Active Window'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19995	name: 'CheckBox9'
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19996	layout: (LayoutFrame 40 0 42 0 0 1 72 0) activeHelpKey: onlyShowTooltipsForActiveWindow
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	19997	uuid: '19162266-55a2-11ea-ac19-10ddb1cc5928'
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19998	enableChannel: flyByHelpActive
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19999	model: onlyShowTooltipsForActiveWindow
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20000	translateLabel: true
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20001	)
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20002	)
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20003	) extent: (Point 564 108)
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20004	)
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20005	)
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20006	)
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20007	)
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20008	)
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20009	)
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20010	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20011	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20012
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20013	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20014
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20015	basicReadSettings
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20016
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20017	super basicReadSettings.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	20018
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20019	vmInfo value:ObjectMemory infoPrinting.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20020	vmErrors value:ObjectMemory debugPrinting.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20021	classInfos value:Object infoPrinting.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20022	displayErrors value:DeviceWorkstation errorPrinting.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20023
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20024	Logger isNil ifTrue:[
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	20025	logLevelIndex value:1.
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	20026	debugIfLogGenerated value:false.
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20027	] ifFalse:[
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20028	logLevelIndex value:(self possibleLogLevels indexOf:Logger loggingThreshold).
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	20029	debugIfLogGenerated value:Logger debugIfLogGenerated.
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	20030	].
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20031
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20032	"Modified: / 10-11-2010 / 12:08:03 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	20033	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	20034
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20035	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	20036
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20037	ObjectMemory infoPrinting:vmInfo value.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20038	ObjectMemory debugPrinting:vmErrors value.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20039	Object infoPrinting:classInfos value.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20040	DeviceWorkstation errorPrinting:displayErrors value.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20041
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20042	Logger notNil ifTrue:[
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	20043	Logger loggingThreshold:(self possibleLogLevels at:logLevelIndex value).
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	20044	Logger debugIfLogGenerated:debugIfLogGenerated value.
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20045	].
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20046
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20047	super basicSaveSettings.
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20048
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20049	"Modified: / 10-11-2010 / 12:08:14 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20050	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20051
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20052	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20053
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20054	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20055	^ #(
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20056	beepEnabled
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20057	beepInEditor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20058	beepForInfoDialog
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20059	beepForWarningDialog
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20060	beepForErrorDialog
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20061	flyByHelpActive
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20062	toolTipAutoHideDelay
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20063	sendMessagesAlsoToTranscript
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20064	onlyShowTooltipsForActiveWindow
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20065	)
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20066
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20067	"Created: / 10-11-2010 / 12:07:42 / cg"
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20068	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20069
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	20070	beepEnabled
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	20071	^ beepEnabled.
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	20072	!
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	20073
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20074	beepForErrorDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20075	^ beepForErrorDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20076	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20077
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20078	beepForInfoDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20079	^ beepForInfoDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20080	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20081
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20082	beepForWarningDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20083	^ beepForWarningDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20084	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20085
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	20086	beepInEditor
17943 b2efb0175eab #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17939 diff changeset	20087	"the aspect hodler which controls if some error/not found conditions in an editor
b2efb0175eab #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17939 diff changeset	20088	should beep or not."
b2efb0175eab #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17939 diff changeset	20089
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	20090	^ beepInEditor.
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	20091	!
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	20092
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20093	classInfos
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20094	^ classInfos.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20095	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20096
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	20097	debugIfLogGenerated
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	20098	^ debugIfLogGenerated.
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	20099	!
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	20100
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20101	displayErrors
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20102	^ displayErrors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20103	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20104
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	20105	flyByHelpActive
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	20106	^ flyByHelp.
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	20107	!
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	20108
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20109	logDoits
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	20110	^ logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	20111	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	20112
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20113	logLevelIndex
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20114	^ logLevelIndex.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20115	!
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20116
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20117	noLoggerLabel
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20118	^ 'Disabled (No Logger)'
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20119	!
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20120
14515 14584fa647c7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14514 diff changeset	20121	onlyShowTooltipsForActiveWindow
14584fa647c7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14514 diff changeset	20122	^ onlyShowTooltipsForActiveWindow.
14584fa647c7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14514 diff changeset	20123	!
14584fa647c7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14514 diff changeset	20124
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20125	possibleLogLevelNames
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20126	^ self possibleLogLevels collect:#name
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20127
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20128	"
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20129	self basicNew possibleLogLevelNames
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20130	"
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20131	!
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20132
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20133	possibleLogLevels
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20134	^ (Logger severities
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20135	sortBySelector:#value)
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20136	reverse
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20137	!
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20138
14278 bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	20139	sendMessagesAlsoToTranscript
bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	20140	^ sendMessagesAlsoToTranscript.
bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	20141	!
bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	20142
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20143	toolTipAutoHideDelay
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20144	^ toolTipAutoHideDelay.
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20145
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20146	"Created: / 10-11-2010 / 12:07:10 / cg"
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20147	!
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20148
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20149	updChanges
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20150	^ updChanges.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20151	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20152
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20153	vmErrors
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	20154	^ vmErrors.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	20155	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	20156
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20157	vmInfo
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20158	^ vmInfo.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20159	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20160
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	20161	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	20162
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	20163	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	20164	^ 'Launcher/messageSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	20165	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	20166
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20167	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'initialization'!
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20168
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20169	initialize
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20170
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20171	super initialize.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20172
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20173	beepEnabled := true asValue.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20174	beepEnabled onChangeSend:#updateModifiedChannel to:self.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20175
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20176	beepForErrorDialog := currentUserPrefs beepForErrorDialog asValue.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20177	beepForErrorDialog onChangeSend:#updateModifiedChannel to:self.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20178
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20179	beepForInfoDialog := currentUserPrefs beepForInfoDialog asValue.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20180	beepForInfoDialog onChangeSend:#updateModifiedChannel to:self.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20181
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20182	beepForWarningDialog := currentUserPrefs beepForWarningDialog asValue.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20183	beepForWarningDialog onChangeSend:#updateModifiedChannel to:self.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20184
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20185	beepInEditor := true asValue.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20186	beepInEditor onChangeSend:#updateModifiedChannel to:self.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20187
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20188	classInfos := Object infoPrinting asValue.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20189	classInfos onChangeSend:#updateModifiedChannel to:self.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20190
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20191	displayErrors := DeviceWorkstation errorPrinting asValue.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20192	displayErrors onChangeSend:#updateModifiedChannel to:self.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20193
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20194	flyByHelp := currentUserPrefs flyByHelpActive asValue.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20195	flyByHelp onChangeSend:#updateModifiedChannel to:self.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20196
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20197	logDoits := Smalltalk logDoits asValue.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20198	logDoits onChangeSend:#updateModifiedChannel to:self.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20199
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20200	onlyShowTooltipsForActiveWindow := true asValue.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20201	onlyShowTooltipsForActiveWindow onChangeSend:#updateModifiedChannel to:self.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20202
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20203	sendMessagesAlsoToTranscript := true asValue.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20204	sendMessagesAlsoToTranscript onChangeSend:#updateModifiedChannel to:self.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20205
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20206	toolTipAutoHideDelay := 10 seconds asValue.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20207	toolTipAutoHideDelay onChangeSend:#updateModifiedChannel to:self.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20208
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20209	updChanges := Class updatingChanges asValue.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20210	updChanges onChangeSend:#updateModifiedChannel to:self.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20211
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20212	vmErrors := ObjectMemory debugPrinting asValue.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20213	vmErrors onChangeSend:#updateModifiedChannel to:self.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20214
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20215	vmInfo := ObjectMemory infoPrinting asValue.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20216	vmInfo onChangeSend:#updateModifiedChannel to:self.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20217
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20218	logLevelIndex := 1 asValue.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20219	logLevelIndex onChangeSend:#updateModifiedChannel to:self.
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	20220
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	20221	debugIfLogGenerated := false asValue.
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	20222	debugIfLogGenerated onChangeSend:#updateModifiedChannel to:self.
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20223	! !
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20224
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20225	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20226
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20227	hasUnsavedChanges
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20228	\|idx logLevel\|
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20229
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20230	(super hasUnsavedChanges) ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	20231
19514 a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20232	vmInfo value ~= ObjectMemory infoPrinting ifTrue:[^ true].
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20233	vmErrors value ~= ObjectMemory debugPrinting ifTrue:[^ true].
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20234	classInfos value ~= Object infoPrinting ifTrue:[^ true].
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20235	displayErrors value ~= DeviceWorkstation errorPrinting ifTrue:[^ true].
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20236
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20237	idx := logLevelIndex value.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20238	logLevel := self possibleLogLevels at:idx.
a8a5cf46253c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19510 diff changeset	20239	logLevel ~= Logger loggingThreshold ifTrue:[^ true].
19531 b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	20240
b3fa4eeb9f1c #FEATURE by exept Claus Gittinger <cg@exept.de> parents: 19530 diff changeset	20241	debugIfLogGenerated value ~~ Logger debugIfLogGenerated ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	20242	^ false
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	20243
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20244	"Modified: / 10-11-2010 / 12:08:25 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20245	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20246
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20247	!AbstractSettingsApplication::TerminalViewSettingsAppl class methodsFor:'help specs'!
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20248
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	20249	helpSpec
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20250	"This resource specification was automatically generated
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20251	by the UIHelpTool of ST/X."
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20252
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20253	"Do not manually edit this!! If it is corrupted,
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20254	the UIHelpTool may not be able to read the specification."
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20255
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20256	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	20257	UIHelpTool openOnClass:AbstractSettingsApplication::FontSettingsAppl
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20258	"
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20259
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20260	<resource: #help>
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20261
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	20262	^ super helpSpec addPairsFrom:#(
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20263
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20264	#terminalOutputIsUTF8
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20265	'The shell''s (or command) output is UTF8 encoded (as opposed to Ascii/Latin-1).\Enable this on OSX and some modern Linux systems'
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20266
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20267	#terminalInputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20268	'The shell (or command) accepts UTF8 encoded input (as opposed to Ascii/Latin-1).\Enable this on OSX and some modern Linux systems'
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20269
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20270	)
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20271	! !
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20272
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20273	!AbstractSettingsApplication::TerminalViewSettingsAppl class methodsFor:'image specs'!
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20274
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20275	defaultIcon
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20276	<resource: #programImage>
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20277
16953 9ad8c3d47cf2 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16951 diff changeset	20278	OperatingSystem isUNIXlike ifTrue:[
9ad8c3d47cf2 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16951 diff changeset	20279	^ ToolbarIconLibrary unixShellTerminal22x22Icon
9ad8c3d47cf2 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16951 diff changeset	20280	].
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20281	^ ToolbarIconLibrary terminal16x16Icon
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20282	! !
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20283
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20284	!AbstractSettingsApplication::TerminalViewSettingsAppl class methodsFor:'interface specs'!
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20285
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20286	windowSpec
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20287	"This resource specification was automatically generated
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20288	by the UIPainter of ST/X."
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20289
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20290	"Do not manually edit this!! If it is corrupted,
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20291	the UIPainter may not be able to read the specification."
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20292
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20293	"
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20294	UIPainter new openOnClass:AbstractSettingsApplication::TerminalViewSettingsAppl andSelector:#windowSpec
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20295	AbstractSettingsApplication::TerminalViewSettingsAppl new openInterface:#windowSpec
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20296	AbstractSettingsApplication::TerminalViewSettingsAppl open
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20297	"
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20298
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20299	<resource: #canvas>
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20300
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20301	^
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20302	#(FullSpec
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20303	name: windowSpec
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20304	window:
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20305	(WindowSpec
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	20306	label: 'Terminalview Settings'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	20307	name: 'Terminalview Settings'
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20308	flags: 1
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20309	min: (Point 10 10)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20310	bounds: (Rectangle 0 0 658 543)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20311	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20312	component:
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20313	(SpecCollection
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20314	collection: (
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20315	(VerticalPanelViewSpec
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20316	name: 'VerticalPanel1'
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20317	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20318	horizontalLayout: fit
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20319	verticalLayout: top
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20320	horizontalSpace: 3
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20321	verticalSpace: 3
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20322	component:
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20323	(SpecCollection
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20324	collection: (
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20325	(CheckBoxSpec
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20326	label: 'Shell / Command Output is UTF8 encoded'
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20327	name: 'UserCodeView2'
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20328	activeHelpKey: terminalOutputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20329	model: terminalOutputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20330	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	20331	extent: (Point 658 30)
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20332	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20333	(CheckBoxSpec
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20334	label: 'Shell / Command Input is UTF8 encoded'
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20335	name: 'CheckBox1'
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20336	activeHelpKey: terminalInputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20337	model: terminalInputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20338	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	20339	extent: (Point 658 30)
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20340	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20341	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20342
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20343	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20344	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20345	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20346
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20347	)
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20348	)
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20349	! !
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20350
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20351	!AbstractSettingsApplication::TerminalViewSettingsAppl methodsFor:'aspects'!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20352
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20353	aspects
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	20354	^ #(
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20355	#terminalOutputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20356	#terminalInputIsUTF8
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20357	)
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20358	!
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20359
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20360	terminalInputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20361	terminalInputIsUTF8 isNil ifTrue:[
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20362	terminalInputIsUTF8 := false asValue.
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20363	terminalInputIsUTF8 onChangeSend:#updateModifiedChannel to:self.
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20364	].
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20365	^ terminalInputIsUTF8.
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20366	!
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20367
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20368	terminalOutputIsUTF8
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20369	terminalOutputIsUTF8 isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20370	terminalOutputIsUTF8 := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20371	terminalOutputIsUTF8 onChangeSend:#updateModifiedChannel to:self.
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20372	].
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20373	^ terminalOutputIsUTF8.
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20374	! !
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20375
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20376	!AbstractSettingsApplication::TerminalViewSettingsAppl methodsFor:'help'!
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20377
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20378	helpFilename
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20379	^ 'Launcher/terminalSettings.html'
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20380	! !
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20381
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20382	!AbstractSettingsApplication::ToolboxSettingsAppl class methodsFor:'image specs'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20383
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20384	defaultIcon
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20385	"This resource specification was automatically generated
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20386	by the ImageEditor of ST/X."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20387
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20388	"Do not manually edit this!! If it is corrupted,
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20389	the ImageEditor may not be able to read the specification."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20390
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20391	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20392	self defaultIcon inspect
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20393	ImageEditor openOnClass:self andSelector:#defaultIcon
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20394	Icon flushCachedIcons
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20395	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20396
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20397	<resource: #image>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20398
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20399	^Icon
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	20400	constantNamed:'AbstractSettingsApplication::ToolboxSettingsAppl defaultIcon'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	20401	ifAbsentPut:[(Depth4Image new) width:24; height:24; bits:(ByteArray fromPackedString:'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	20402	H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"JH!!"H"H"H"H"H"H"Y'']6 "H"H"H"H"H"Y6Y''^BH"H"H"H"H"I6DV^BH"H"H""H"H&QFH H"HH"H(UUUUT3
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	20403	L3L3L3 "H(UUUUT3L3"CL3 "H(UUUUT3L6]9L3 "H(UUUUT3L6]1L3 "H(UUUUT3L6]9L3 "H(UUUUT3L3!!CL3 "H(UUUUT3L3L3L3 "H(UUUUT3L3L3L3 "
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	20404	H(UUUUT3L3L3L3 "H(UUUUT3L3L3L3 "H(UUUUT3L3L3NYH"H")UUUT3L3NZ&RH"H"JUUL3&)$2H"H"H"H%**YL"H"H"H"H"H"H"H"H"H"H"H"H"H"H"H"
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	20405	H"H"H"H"H"H"H"H"H"H"H"H"') ; colorMapFromArray:#[73 74 74 98 53 53 107 107 107 254 102 102 180 180 180 255 0 0 128 128 128 253 252 252 46 49 49 171 80 80 155 25 25]; mask:((ImageMask new) width:24; height:24; bits:(ByteArray fromPackedString:'@@@@@@@@@C0@@G<@@G>@@GN@G??8O??<O??<O??<O??<O??<O??<O??<O??<O??<O??<O??8G??0C?>@A? @@@@@@@@@@@@@') ; yourself); yourself]
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20406	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20407
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20408	!AbstractSettingsApplication::ToolboxSettingsAppl class methodsFor:'interface specs'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20409
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20410	developmentToolsSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20411	"This resource specification was automatically generated
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20412	by the UIPainter of ST/X."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20413
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20414	"Do not manually edit this!! If it is corrupted,
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20415	the UIPainter may not be able to read the specification."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20416
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20417	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20418	UIPainter new openOnClass:AbstractSettingsApplication::ToolboxSettingsAppl andSelector:#developmentToolsSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20419	AbstractSettingsApplication::ToolboxSettingsAppl new openInterface:#developmentToolsSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20420	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20421
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20422	<resource: #canvas>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20423
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20424	^
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20425	#(FullSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20426	name: developmentToolsSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20427	window:
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20428	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20429	label: 'Development'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20430	name: 'Development'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20431	bounds: (Rectangle 0 0 674 614)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20432	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20433	component:
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20434	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20435	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20436	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20437	name: 'DevToolsPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20438	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20439	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20440	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20441	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20442	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20443	postBuildCallback: developmentToolSettingsInto:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20444	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20445	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20446
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20447	)
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20448	)
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20449
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20450	"Modified: / 03-04-2012 / 10:51:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20451	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20452
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20453	miscToolsSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20454	"This resource specification was automatically generated
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20455	by the UIPainter of ST/X."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20456
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20457	"Do not manually edit this!! If it is corrupted,
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20458	the UIPainter may not be able to read the specification."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20459
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20460	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20461	UIPainter new openOnClass:AbstractSettingsApplication::ToolboxSettingsAppl andSelector:#developmentToolsSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20462	AbstractSettingsApplication::ToolboxSettingsAppl new openInterface:#developmentToolsSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20463	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20464
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20465	<resource: #canvas>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20466
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20467	^
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20468	#(FullSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20469	name: miscToolsSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20470	window:
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20471	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20472	label: 'Other'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20473	name: 'Other'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20474	bounds: (Rectangle 0 0 674 614)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20475	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20476	component:
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20477	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20478	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20479	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20480	name: 'DevToolsPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20481	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20482	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20483	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20484	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20485	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20486	postBuildCallback: miscToolSettingsInto:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20487	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20488	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20489
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20490	)
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20491	)
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20492
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20493	"Created: / 03-04-2012 / 10:51:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20494	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20495
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20496	windowSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20497	"This resource specification was automatically generated
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20498	by the UIPainter of ST/X."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20499
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20500	"Do not manually edit this!! If it is corrupted,
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20501	the UIPainter may not be able to read the specification."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20502
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20503	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20504	UIPainter new openOnClass:AbstractSettingsApplication::ToolboxSettingsAppl andSelector:#windowSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20505	AbstractSettingsApplication::ToolboxSettingsAppl new openInterface:#windowSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20506	AbstractSettingsApplication::ToolboxSettingsAppl open
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20507	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20508
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20509	<resource: #canvas>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20510
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20511	^
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20512	#(FullSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20513	name: windowSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20514	window:
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20515	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20516	label: 'Toolbox Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20517	name: 'Toolbox Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20518	bounds: (Rectangle 0 0 551 561)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20519	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20520	component:
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20521	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20522	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20523	(NoteBookViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20524	name: 'NoteBook'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20525	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20526	menu: notebookTabList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20527	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20528	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20529
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20530	)
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20531	)
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20532	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20533
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20534	!AbstractSettingsApplication::ToolboxSettingsAppl class methodsFor:'list specs'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20535
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20536	notebookTabList
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20537	"This resource specification was automatically generated
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20538	by the TabListEditor of ST/X."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20539
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20540	"Do not manually edit this!! If it is corrupted,
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20541	the TabListEditor may not be able to read the specification."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20542
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20543	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20544	TabListEditor new openOnClass: self andSelector:#notebookTabList
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20545	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20546
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20547	<resource: #tabList>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20548
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20549	^ #(
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20550	(TabItem
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20551	label: 'Development'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20552	minorKey: developmentToolsSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20553	createNewBuilder: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20554	)
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20555	(TabItem
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20556	label: 'Miscellaneous'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20557	minorKey: miscToolsSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20558	createNewBuilder: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20559	)
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20560
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20561	)
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20562
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20563	collect:[:aTab\| TabItem new fromLiteralArrayEncoding:aTab ]
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20564
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20565	"Modified: / 03-04-2012 / 10:52:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20566	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20567
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20568	!AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'aspects'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20569
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20570	aspects
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20571
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20572	^#(
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20573	"Development"
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20574	changesBrowserClassName
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20575
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20576	"Misc"
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20577	fileBrowserClassName
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20578	)
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20579
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20580	"Created: / 14-02-2012 / 18:36:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20581	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20582
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20583	changesBrowserClassName
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20584	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20585
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20586	changesBrowserClassName isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20587	changesBrowserClassName := ValueHolder new.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20588	changesBrowserClassName onChangeSend:#updateModifiedChannel to:self.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20589	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20590	^ changesBrowserClassName.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20591
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20592	"Modified: / 14-02-2012 / 18:58:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20593	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20594
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20595	fileBrowserClassName
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20596	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20597
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20598	fileBrowserClassName isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20599	fileBrowserClassName := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20600	fileBrowserClassName onChangeSend:#updateModifiedChannel to:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20601	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20602	^ fileBrowserClassName.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20603
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20604	"Modified: / 14-02-2012 / 18:58:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20605	"Created: / 03-04-2012 / 10:54:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20606	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20607
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20608	notebookTabList
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20609	"Generated by the TabListEditor"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20610
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20611	\|list\|
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20612
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20613	(list := builder bindingAt:#notebookTabList) isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20614	builder aspectAt:#notebookTabList put:(list := self class notebookTabList).
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20615	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20616	^ list
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20617	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20618
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20619	!AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'hooks'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20620
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20621	developmentToolSettingsInto:panel
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20622
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20623	(self addClassToolSettingTo: panel)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20624	label: 'Changes Browser';
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20625	classes:#( #ChangesBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20626	#NewChangesBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20627	#Tools::ChangeSetBrowser2 );
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20628	labels: #( 'ChangesBrowser - default'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20629	'NewChangesBrowser - experimental, not maintained'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20630	'Tools::ChangeSetBrowser2 - experimental' );
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20631	model: self changesBrowserClassName
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20632
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20633	"Created: / 14-02-2012 / 16:20:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20634	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20635
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20636	miscToolSettingsInto:panel
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20637
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20638	(self addClassToolSettingTo: panel)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20639	label: 'File Browser';
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20640	classes:#( #FileBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20641	#FileBrowserV2
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20642	#FileBrowserV3 );
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20643	labels: #( 'FileBrowser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20644	'FileBrowserV2 - default'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20645	'FileBrowserV3 - experimental' );
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20646	model: self fileBrowserClassName
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20647
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20648	"Created: / 03-04-2012 / 10:54:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20649	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20650
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20651	!AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'private'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20652
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20653	addClassToolSettingTo: panel
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20654
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20655	\| model setting canvas \|
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20656	canvas := ApplicationSubView new.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20657	setting := ClassToolSetting new.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20658	setting createBuilder.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20659	setting model: model.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20660	setting window: canvas.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20661	canvas client: setting.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20662	canvas height: 30.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20663	panel addSubView: canvas.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20664	^setting
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20665
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20666	"Created: / 14-02-2012 / 18:56:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20667	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20668
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20669	!AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'protocol'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20670
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20671	helpFilename
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20672	"subclasses must return the relative name of a helpFile
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20673	in the doc/online/<language>/help directory.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20674	Or nil, if no help is available."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20675
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20676	^ self shouldImplement
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20677	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20678
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20679	!AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting class methodsFor:'interface specs'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20680
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20681	windowSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20682	"This resource specification was automatically generated
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20683	by the UIPainter of ST/X."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20684
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20685	"Do not manually edit this!! If it is corrupted,
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20686	the UIPainter may not be able to read the specification."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20687
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20688	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20689	UIPainter new openOnClass:AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting andSelector:#windowSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20690	AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting new openInterface:#windowSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20691	AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting open
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20692	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20693
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20694	<resource: #canvas>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20695
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20696	^
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20697	#(FullSpec
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20698	name: windowSpec
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20699	window:
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20700	(WindowSpec
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20701	label: 'ToolSetting'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20702	name: 'ToolSetting'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20703	min: (Point 10 10)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20704	bounds: (Rectangle 0 0 431 60)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20705	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20706	component:
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20707	(SpecCollection
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20708	collection: (
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20709	(LabelSpec
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20710	label: 'Tool...'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20711	name: 'Label'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20712	layout: (LayoutFrame 0 0 0 0 250 0 30 0)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20713	translateLabel: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20714	labelChannel: optionLabelHolder
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20715	adjust: left
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20716	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20717	(PopUpListSpec
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20718	label: 'Please select...'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20719	name: 'OptionList'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20720	layout: (LayoutFrame 250 0 3 0 0 1 27 0)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20721	translateLabel: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20722	model: optionSelectionHolder
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20723	menu: optionLabelList
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20724	useIndex: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20725	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20726	(InputFieldSpec
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20727	name: 'EntryField1'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20728	layout: (LayoutFrame 250 0 33 0 0 1 56 0)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20729	visibilityChannel: optionCustomValueVisibleHolder
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20730	backgroundChannel: optionCustomValueBackgroundHolder
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20731	model: optionCustomValueHolder
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20732	type: string
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20733	immediateAccept: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20734	acceptOnReturn: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20735	acceptOnTab: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20736	acceptOnPointerLeave: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20737	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20738	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20739
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20740	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20741	)
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20742	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20743
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20744	!AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting methodsFor:'accessing'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20745
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20746	classes: aCollection
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20747
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20748	optionValueList := aCollection.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20749
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20750	"Created: / 14-02-2012 / 18:20:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20751	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20752
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20753	label: aString
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20754
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20755	self optionLabelHolder value: aString
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20756
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20757	"Created: / 14-02-2012 / 18:22:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20758	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20759
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20760	labels: aCollection
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20761
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20762	\| labels \|
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20763	labels := aCollection asOrderedCollection.
18692 a12a8ca6179e #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18653 diff changeset	20764	labels add: (self class resources at: 'Custom class') allItalic.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20765	self optionLabelList value: labels.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20766
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20767	"Created: / 14-02-2012 / 18:21:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
18692 a12a8ca6179e #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18653 diff changeset	20768	"Modified: / 13-03-2019 / 21:55:44 / Claus Gittinger"
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20769	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20770
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20771	model: aValueHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20772
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20773	self optionValueHolder: aValueHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20774
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20775	"Created: / 14-02-2012 / 18:22:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20776	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20777
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20778	!AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting methodsFor:'aspects'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20779
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20780	optionCustomValueBackgroundHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20781	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20782
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20783	optionCustomValueBackgroundHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20784	optionCustomValueBackgroundHolder := ValueHolder new.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20785	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20786	^ optionCustomValueBackgroundHolder.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20787	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20788
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20789	optionCustomValueBackgroundHolder:something
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20790	"set the 'optionCustomValueBackgroundHolder' value holder (automatically generated)"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20791
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20792	optionCustomValueBackgroundHolder := something.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20793	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20794
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20795	optionCustomValueHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20796	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20797
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20798	optionCustomValueHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20799	optionCustomValueHolder := ValueHolder new.
16189 0386621f56dc x Claus Gittinger <cg@exept.de> parents: 16173 diff changeset	20800	optionCustomValueHolder addDependent:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20801	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20802	^ optionCustomValueHolder.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20803
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20804	"Modified: / 14-02-2012 / 18:18:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20805	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20806
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20807	optionCustomValueVisibleHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20808	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20809
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20810	optionCustomValueVisibleHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20811	optionCustomValueVisibleHolder := false asValue.
16189 0386621f56dc x Claus Gittinger <cg@exept.de> parents: 16173 diff changeset	20812	optionCustomValueVisibleHolder addDependent:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20813	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20814	^ optionCustomValueVisibleHolder.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20815
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20816	"Modified: / 14-02-2012 / 18:27:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20817	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20818
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20819	optionLabelHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20820	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20821
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20822	optionLabelHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20823	optionLabelHolder := ValueHolder new.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20824	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20825	^ optionLabelHolder.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20826	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20827
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20828	optionLabelList
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20829	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20830
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20831	optionLabelList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20832	optionLabelList := ValueHolder new.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20833	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20834	^ optionLabelList.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20835	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20836
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20837	optionLabelList:something
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20838	"set the 'optionLabelList' value holder (automatically generated)"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20839
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20840	optionLabelList := something.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20841	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20842
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20843	optionSelectionHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20844	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20845
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20846	optionSelectionHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20847	optionSelectionHolder := ValueHolder new.
16189 0386621f56dc x Claus Gittinger <cg@exept.de> parents: 16173 diff changeset	20848	optionSelectionHolder addDependent:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20849	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20850	^ optionSelectionHolder.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20851
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20852	"Modified: / 14-02-2012 / 18:26:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20853	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20854
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20855	optionSelectionHolder:something
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20856	"set the 'optionSelectionHolder' value holder (automatically generated)"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20857
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20858	\|oldValue newValue\|
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20859
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20860	optionSelectionHolder notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20861	oldValue := optionSelectionHolder value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20862	optionSelectionHolder removeDependent:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20863	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20864	optionSelectionHolder := something.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20865	optionSelectionHolder notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20866	optionSelectionHolder addDependent:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20867	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20868	newValue := optionSelectionHolder value.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20869	oldValue ~~ newValue ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20870	self update:#value with:newValue from:optionSelectionHolder.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20871	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20872	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20873
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20874	optionValueHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20875	"return/create the 'optionValueHolder' value holder (automatically generated)"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20876
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20877	optionValueHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20878	optionValueHolder := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20879	optionValueHolder addDependent:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20880	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20881	^ optionValueHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20882	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20883
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20884	optionValueHolder:something
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20885	"set the 'optionValueHolder' value holder (automatically generated)"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20886
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20887	\|oldValue newValue\|
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20888
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20889	optionValueHolder notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20890	oldValue := optionValueHolder value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20891	optionValueHolder removeDependent:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20892	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20893	optionValueHolder := something.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20894	optionValueHolder notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20895	optionValueHolder addDependent:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20896	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20897	newValue := optionValueHolder value.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20898	oldValue ~~ newValue ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20899	self update:#value with:newValue from:optionValueHolder.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20900	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20901	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20902
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20903	!AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting methodsFor:'change & update'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20904
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20905	update:something with:aParameter from:changedObject
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20906	"Invoked when an object that I depend upon sends a change notification."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20907
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20908	"stub code automatically generated - please change as required"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20909
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20910	changedObject == optionSelectionHolder ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20911	\| idx \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20912
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20913	idx := self optionSelectionHolder value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20914	self optionCustomValueVisibleHolder value: (idx == optionLabelList value size).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20915	idx <= optionValueList size ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20916	self optionValueHolder value: (optionValueList at: idx)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20917	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20918	^ self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20919	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20920	changedObject == optionCustomValueVisibleHolder ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20921	self window notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20922	optionCustomValueVisibleHolder value ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20923	self window height: 60
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20924	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20925	self window height: 30
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20926	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20927	]
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20928	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20929
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20930	changedObject == optionValueHolder ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20931	\| idx \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20932
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20933	self optionSelectionHolder value: ((optionValueList ? #()) indexOf: optionValueHolder value ifAbsent:[optionLabelList value size]).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20934	self optionCustomValueHolder value: optionValueHolder value.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20935
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20936	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20937
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20938
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20939	super update:something with:aParameter from:changedObject
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20940
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20941	"Modified: / 14-02-2012 / 19:01:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20942	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20943
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20944	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'help specs'!
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20945
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	20946	helpSpec
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20947	"This resource specification was automatically generated
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20948	by the UIHelpTool of ST/X."
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20949
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20950	"Do not manually edit this!! If it is corrupted,
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20951	the UIHelpTool may not be able to read the specification."
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20952
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20953	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	20954	UIHelpTool openOnClass:AbstractSettingsApplication::ToolsSettingsAppl
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20955	"
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20956
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20957	<resource: #help>
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20958
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	20959	^ super helpSpec addPairsFrom:#(
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20960
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20961	#autoRaiseTranscript
11732 67c6691a705a help texts Claus Gittinger <cg@exept.de> parents: 11711 diff changeset	20962	'Autoraise the Transcript window when messages are added'
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20963
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20964	#useNewFileBrowser
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20965	'Use the new, improved FileBrowser (as opposed to the simpler, older version)'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20966
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20967	#useNewSystemBrowser
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20968	'Use the new, improved SystemBrowser (as opposed to the simpler, older version)'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20969
11293 65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20970	#useHierarchicalInspector
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20971	'Use the new, hierarchical inspector (unfinished, experimental)'
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20972
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20973	#showDidYouKnowTips
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20974	'Show the "Did you Know?" tip browser at startup'
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20975
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20976	#showClockInLauncher
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20977	'Show the current time in the Launcher'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20978
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20979	#transcriptBufferSize
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20980	'Number of lines that are remembered in the Transcript'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20981
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20982	#useSmalltalkDocumentView
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20983	'Use the builtIn HTML-Viewer, as opposed to the systems webBrowser (firefox, internet-explorer, etc.)'
11293 65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20984
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20985	#eclipseStyleMenus
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20986	'Use different menu layout in some tools, useful if you are used to the eclipse IDE'
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20987	)
11293 65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20988
11732 67c6691a705a help texts Claus Gittinger <cg@exept.de> parents: 11711 diff changeset	20989	"Modified: / 09-08-2012 / 09:34:41 / cg"
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20990	! !
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20991
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20992	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20993
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20994	defaultIcon
14411 858d91fea116 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14389 diff changeset	20995	<resource: #image>
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20996	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20997	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20998	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20999	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	21000	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	21001	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	21002	ImageEditor openOnClass:self andSelector:#defaultIcon
14411 858d91fea116 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14389 diff changeset	21003	Icon flushCachedIcons"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	21004
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	21005	^ Icon
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21006	constantNamed:#'AbstractSettingsApplication::ToolsSettingsAppl class defaultIcon'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21007	ifAbsentPut:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21008	(Depth4Image new)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21009	width:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21010	height:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21011	photometric:(#palette);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21012	bitsPerSample:(#( 4 ));
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21013	samplesPerPixel:(1);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21014	bits:(ByteArray
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21015	fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	21016	*****************************@@@@@@@@@@@@@J(@@@@@@@@@@@@@ @@@F(QD@@@@@B@@@@B((QD@@@@J(@@@@@@JLQ@@@@ @B$@@@)CD@@@B*@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	21017	IC$JSPP@@@J(@BH@4MCQADP@@ AR"HACQAFQD@B@@H""H"HEG$Q@J(@@@H"H("HP9$@ @@@@@"H""HI@B@@@@@@@@H""H@J(@@@@@@@@@H" @ @@@@
14411 858d91fea116 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14389 diff changeset	21018	@@@@@@H0B@@@@@@@@@@@@@J(@@@@@@@@@@@@@ @@@@@@@@@@@@B*****************************(b');
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21019	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 ];
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21020	mask:((ImageMask new)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21021	width:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21022	height:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21023	bits:(ByteArray
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21024	fromPackedString:'@@@@@@@@@@@@@?@@@?0@@_8@GO<@G3<@G?>@G??@G?? G?? C?? @?? @G? @@_ @@G @@A @@@@@@@@@@@@@@@@');
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21025	yourself);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21026	yourself
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21027	]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	21028	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	21029
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21030	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21031
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21032	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21033	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21034	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21035
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21036	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21037	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21038
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21039	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	21040	UIPainter new openOnClass:AbstractSettingsApplication::ToolsSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	21041	AbstractSettingsApplication::ToolsSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	21042	AbstractSettingsApplication::ToolsSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21043	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21044
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21045	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21046
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	21047	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	21048	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	21049	name: windowSpec
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	21050	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	21051	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21052	label: 'Tool Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21053	name: 'Tool Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21054	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21055	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21056	bounds: (Rectangle 0 0 594 584)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	21057	)
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	21058	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	21059	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21060	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21061	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21062	name: 'VerticalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21063	layout: (LayoutFrame 0 0.0 0 0 0 1.0 562 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21064	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21065	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21066	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21067	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21068	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21069	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21070	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21071	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21072	label: 'Use the New System Browser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21073	name: 'NewSystemBrowser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21074	activeHelpKey: useNewSystemBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21075	visibilityChannel: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21076	model: useNewSystemBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21077	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21078	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21079	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21080	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21081	label: 'Use the New File Browser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21082	name: 'NewFileBrowser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21083	activeHelpKey: useNewFileBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21084	visibilityChannel: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21085	model: useNewFileBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21086	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21087	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21088	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21089	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21090	label: 'Use the New VersionDiff Browser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21091	name: 'VersionDiffBrowser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21092	model: useNewVersionDiffBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21093	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21094	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21095	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21096	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21097	label: 'Use the New FileTree File Dialog'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21098	name: 'UseNewFileDialogCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21099	model: useNewFileDialog
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21100	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21101	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21102	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21103	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21104	label: 'Use the New Settings Dialog'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21105	name: 'UseNewSettinsApplicationCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21106	visibilityChannel: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21107	model: useNewSettingsApplication
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21108	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21109	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21110	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21111	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21112	label: 'Use the New Process Monitor'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21113	name: 'UseNewProcessMonitor'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21114	model: useProcessMonitorV2
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21115	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21116	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21117	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21118	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21119	label: 'Use the New TestRunner2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21120	name: 'CheckBox3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21121	model: useTestRunner2
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21122	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21123	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21124	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21125	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21126	label: 'Use the New Changes Browser for Changefiles (not yet recommended)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21127	name: 'ChangesBrowser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21128	model: useNewChangesBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21129	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21130	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21131	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21132	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21133	label: 'Use the New ChangeSet Browser for Internal ChangeSets'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21134	name: 'CheckBox5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21135	model: useNewChangeSetBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21136	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21137	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21138	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21139	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21140	label: 'Use Hierarchical Inspector (not yet recommended)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21141	name: 'HierarchicalInspector'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21142	activeHelpKey: useHierarchicalInspector
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21143	model: useNewInspector
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21144	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21145	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21146	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21147	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21148	label: 'Use the Smalltalk Document Viewer'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21149	name: 'UseSmalltalkDocumentViewer'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21150	activeHelpKey: useSmalltalkDocumentView
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21151	model: useSmalltalkDocumentViewer
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21152	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21153	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21154	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21155	(HorizontalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21156	name: 'HorizontalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21157	horizontalLayout: leftFit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21158	verticalLayout: center
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21159	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21160	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21161	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21162	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21163	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21164	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21165	label: 'External Diff Tool:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21166	name: 'Label3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21167	activeHelpKey: transcriptBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21168	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21169	resizeForLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21170	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21171	useDefaultExtent: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21172	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21173	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21174	name: 'EntryField1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21175	activeHelpKey: transcriptBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21176	model: externalDiffCommandTemplate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21177	type: string
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21178	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21179	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21180	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21181	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21182	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21183	extent: (Point 480 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21184	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21185	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21186
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21187	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21188	extent: (Point 594 35)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21189	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21190	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21191	name: 'Separator3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21192	extent: (Point 594 4)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21193	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21194	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21195	label: 'Show "Tip Of The Day" at Startup'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21196	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21197	activeHelpKey: showDidYouKnowTips
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21198	model: showTipOfTheDayAtStartup
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21199	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21200	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21201	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21202	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21203	label: 'Show Clock in Launcher'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21204	name: 'Clock'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21205	activeHelpKey: showClockInLauncher
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21206	model: showClockInLauncher
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21207	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21208	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21209	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21210	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21211	name: 'Separator2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21212	extent: (Point 594 4)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21213	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21214	(HorizontalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21215	name: 'HorizontalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21216	horizontalLayout: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21217	verticalLayout: center
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21218	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21219	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21220	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21221	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21222	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21223	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21224	name: 'Box4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21225	extent: (Point 20 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21226	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21227	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21228	label: 'Transcript''s Buffer Size:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21229	name: 'Label1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21230	activeHelpKey: transcriptBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21231	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21232	resizeForLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21233	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21234	useDefaultExtent: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21235	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21236	(InputFieldSpec
18403 779374848f98 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18335 diff changeset	21237	name: 'Transcript''s Buffer Size'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21238	activeHelpKey: transcriptBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21239	model: transcriptBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21240	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21241	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21242	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21243	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21244	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21245	numChars: 8
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21246	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21247	extent: (Point 78 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21248	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21249	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21250	label: '(Lines)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21251	name: 'Label2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21252	activeHelpKey: transcriptBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21253	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21254	resizeForLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21255	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21256	useDefaultExtent: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21257	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21258	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21259
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21260	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21261	extent: (Point 594 35)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21262	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21263	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21264	label: 'Autoraise Transcript'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21265	name: 'CheckBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21266	activeHelpKey: autoRaiseTranscript
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21267	model: autoRaiseTranscript
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21268	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21269	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21270	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21271	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21272	name: 'Separator1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21273	extent: (Point 594 4)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21274	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21275	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21276	label: 'Eclipse Style Menus (where implemented)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21277	name: 'CheckBox4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21278	activeHelpKey: eclipseStyleMenus
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21279	model: eclipseStyleMenus
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21280	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21281	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21282	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21283	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21284
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21285	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21286	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21287	)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	21288
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	21289	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	21290	)
18403 779374848f98 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18335 diff changeset	21291
779374848f98 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18335 diff changeset	21292	"Modified: / 21-09-2018 / 11:19:16 / Claus Gittinger"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21293	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21294
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21295	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21296
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	21297	basicReadSettings
15494 dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21298	\|transcript\|
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21299
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21300	super basicReadSettings.
15494 dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21301
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21302	transcript := Transcript current.
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21303	transcript isTextCollector ifTrue:[
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21304	self transcriptBufferSize value:transcript lineLimit.
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21305	"/ now already in userprefs
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21306	"/ self autoRaiseTranscript value:transcript autoRaise.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	21307	].
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21308
13399 589ada002149 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13372 diff changeset	21309	"Modified: / 29-08-2013 / 11:40:23 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	21310	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	21311
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21312	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	21313	\|showClock launcher reopenLauncher newSystemBrowserClass transcript\|
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	21314
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21315	reopenLauncher := false.
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21316
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	21317	newSystemBrowserClass := Tools::NewSystemBrowser ? NewSystemBrowser.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	21318
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21319	super basicSaveSettings.
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21320
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	21321	currentUserPrefs useNewSettingsApplication ~= self useNewSettingsApplication value ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21322	currentUserPrefs useNewSettingsApplication:self useNewSettingsApplication value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	21323	].
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	21324
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	21325	currentUserPrefs useNewSystemBrowser ~= self useNewSystemBrowser value ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21326	currentUserPrefs useNewSystemBrowser:self useNewSystemBrowser value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21327	(self useNewSystemBrowser value and:[newSystemBrowserClass isLoaded]) ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21328	newSystemBrowserClass installInLauncher.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21329	] ifFalse:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21330	newSystemBrowserClass removeFromLauncher.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21331	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21332	reopenLauncher := true.
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	21333	].
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	21334
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21335	(Smalltalk at:#FileBrowserV2) isBehavior ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21336	currentUserPrefs useNewFileBrowser ~= self useNewFileBrowser value ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21337	currentUserPrefs useNewFileBrowser:self useNewFileBrowser value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21338	(self useNewFileBrowser value and:[FileBrowserV2 isLoaded]) ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21339	FileBrowserV2 installInLauncher.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21340	] ifFalse:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21341	FileBrowserV2 removeFromLauncher.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21342	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21343	reopenLauncher := true.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21344	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21345	].
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21346
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21347	transcript := Transcript current.
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21348	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21349	transcript lineLimit:self transcriptBufferSize value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21350	"/ now already done by UserPreferences
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21351	"/ transcript autoRaise:self autoRaiseTranscript value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21352	launcher := transcript application.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21353	].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21354
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21355	showClock := self showClockInLauncher value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21356	currentUserPrefs showClockInLauncher ~= showClock ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21357	currentUserPrefs showClockInLauncher:showClock.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21358	launcher notNil ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21359	showClock ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21360	launcher startClock
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21361	] ifFalse:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21362	launcher stopClock
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21363	]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21364	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21365	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21366	Inspector := currentUserPrefs inspectorClassSetting.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21367
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	21368	reopenLauncher ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21369	launcher notNil ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21370	launcher reopenLauncher.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21371	]
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	21372	].
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21373
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21374	"Modified: / 27-07-2012 / 20:51:46 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21375	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21376
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21377	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21378
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21379	aspects
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21380	^ #(
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21381	#eclipseStyleMenus
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21382	#useTestRunner2
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21383	"/ #useCodeView2InTools
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21384	#useNewInspector
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21385	#useNewChangesBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21386	#useNewChangeSetBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21387	"/ #useNewSystemBrowser -- no longer an option
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21388	#useNewVersionDiffBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21389	"/ #useNewFileBrowser -- no longer an option
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21390	#useNewFileDialog
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21391	"/ #useNewSettingsApplication -- no longer an option
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21392	#useProcessMonitorV2
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21393	#useSmalltalkDocumentViewer
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21394	#showClockInLauncher
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21395	#showTipOfTheDayAtStartup
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21396	#externalDiffCommandTemplate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21397	#autoRaiseTranscript
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21398	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21399
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21400	"Created: / 27-07-2012 / 20:48:18 / cg"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21401	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21402
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21403	autoRaiseTranscript
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21404	autoRaiseTranscript isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21405	autoRaiseTranscript := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21406	autoRaiseTranscript onChangeSend:#updateModifiedChannel to:self
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21407	].
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21408	^ autoRaiseTranscript.
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21409
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21410	"Modified: / 21-09-2006 / 00:39:54 / cg"
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21411	!
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21412
10294 123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21413	eclipseStyleMenus
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21414	eclipseStyleMenus isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21415	eclipseStyleMenus := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21416	eclipseStyleMenus onChangeSend:#updateModifiedChannel to:self
10294 123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21417	].
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21418	^ eclipseStyleMenus.
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21419
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21420	"Modified: / 21-09-2006 / 00:39:54 / cg"
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21421	"Created: / 08-07-2011 / 13:42:13 / cg"
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21422	!
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21423
12359 1f12210b8551 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12352 diff changeset	21424	externalDiffCommandTemplate
1f12210b8551 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12352 diff changeset	21425	externalDiffCommandTemplate isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21426	externalDiffCommandTemplate := UserPreferences current externalDiffCommandTemplate asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21427	externalDiffCommandTemplate onChangeSend:#updateModifiedChannel to:self
12359 1f12210b8551 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12352 diff changeset	21428	].
1f12210b8551 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12352 diff changeset	21429	^ externalDiffCommandTemplate.
1f12210b8551 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12352 diff changeset	21430	!
1f12210b8551 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12352 diff changeset	21431
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21432	showClockInLauncher
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21433	showClockInLauncher isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21434	showClockInLauncher := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21435	showClockInLauncher onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21436	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21437	^ showClockInLauncher.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21438
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21439	"Modified: / 21-09-2006 / 00:39:54 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21440	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21441
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21442	showTipOfTheDayAtStartup
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21443	showTipOfTheDayAtStartup isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21444	showTipOfTheDayAtStartup := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21445	showTipOfTheDayAtStartup onChangeSend:#updateModifiedChannel to:self
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21446	].
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21447	^ showTipOfTheDayAtStartup.
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21448
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21449	"Modified: / 21-09-2006 / 00:39:54 / cg"
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21450	!
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21451
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21452	transcriptBufferSize
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21453	transcriptBufferSize isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21454	transcriptBufferSize := 600 asValue. "/ Transcript current lineLimit asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21455	transcriptBufferSize onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21456	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21457	^ transcriptBufferSize.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21458	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21459
11985 4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21460	useCodeView2InTools
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21461	useCodeView2InTools isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21462	useCodeView2InTools := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21463	useCodeView2InTools onChangeSend:#updateModifiedChannel to:self
11985 4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21464
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21465	].
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21466	^ useCodeView2InTools
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21467
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21468	"Modified: / 11-03-2010 / 10:09:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21469	!
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21470
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21471	useNewChangeSetBrowser
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21472	useNewChangeSetBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21473	useNewChangeSetBrowser := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21474	useNewChangeSetBrowser onChangeSend:#updateModifiedChannel to:self
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21475	].
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21476	^ useNewChangeSetBrowser.
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21477
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21478	"Modified: / 21-09-2006 / 00:39:37 / cg"
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21479	"Created: / 27-07-2012 / 20:45:41 / cg"
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21480	!
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21481
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21482	useNewChangesBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21483	useNewChangesBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21484	useNewChangesBrowser := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21485	useNewChangesBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21486	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21487	^ useNewChangesBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21488
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21489	"Modified: / 21-09-2006 / 00:39:37 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21490	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21491
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21492	useNewFileBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21493	useNewFileBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21494	useNewFileBrowser := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21495	useNewFileBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21496	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21497	^ useNewFileBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21498
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21499	"Modified: / 21-09-2006 / 00:39:19 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21500	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21501
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21502	useNewFileDialog
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21503	useNewFileDialog isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21504	useNewFileDialog := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21505	useNewFileDialog onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21506	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21507	^ useNewFileDialog.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21508	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21509
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21510	useNewInspector
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21511	useNewInspector isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21512	useNewInspector := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21513	useNewInspector onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21514	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21515	^ useNewInspector.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21516
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21517	"Modified: / 21-09-2006 / 00:38:41 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21518	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21519
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21520	useNewSettingsApplication
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21521	useNewSettingsApplication isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21522	useNewSettingsApplication := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21523	useNewSettingsApplication onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21524	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21525	^ useNewSettingsApplication.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21526	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21527
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21528	useNewSystemBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21529	useNewSystemBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21530	useNewSystemBrowser := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21531	useNewSystemBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21532	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21533	^ useNewSystemBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21534
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21535	"Modified: / 21-09-2006 / 00:39:02 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21536	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21537
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21538	useNewVersionDiffBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21539	useNewVersionDiffBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21540	useNewVersionDiffBrowser := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21541	useNewVersionDiffBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21542	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21543	^ useNewVersionDiffBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21544
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21545	"Modified: / 21-09-2006 / 00:38:56 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21546	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21547
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21548	useProcessMonitorV2
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21549	useProcessMonitorV2 isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21550	useProcessMonitorV2 := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21551	useProcessMonitorV2 onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21552	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21553	^ useProcessMonitorV2.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21554
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21555	"Modified: / 21-09-2006 / 00:38:50 / cg"
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21556	!
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21557
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21558	useSmalltalkDocumentViewer
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21559	useSmalltalkDocumentViewer isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21560	useSmalltalkDocumentViewer := nil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21561	useSmalltalkDocumentViewer onChangeSend:#updateModifiedChannel to:self
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21562	].
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21563	^ useSmalltalkDocumentViewer.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21564
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21565	"Modified: / 21-09-2006 / 00:03:13 / cg"
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21566	!
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21567
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21568	useTestRunner2
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21569	useTestRunner2 isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21570	useTestRunner2 := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21571	useTestRunner2 onChangeSend:#updateModifiedChannel to:self
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21572	].
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21573	^ useTestRunner2.
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21574
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21575	"Modified: / 21-09-2006 / 00:39:19 / cg"
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21576	"Created: / 06-07-2011 / 13:52:33 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21577	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21578
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	21579	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	21580
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	21581	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	21582	^ 'Launcher/toolSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	21583	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	21584
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21585	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21586
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21587	hasUnsavedChanges
15494 dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21588	\|transcript\|
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21589
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21590	super hasUnsavedChanges ifTrue:[^ true].
15494 dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21591
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21592	transcript := Transcript current.
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21593	transcript isTextCollector ifTrue:[
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21594	(self transcriptBufferSize value ~= transcript lineLimit) ifTrue:[^ true].
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21595	"/ now already in UserPreferences
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21596	"/ (self autoRaiseTranscript value ~= transcript autoRaise) ifTrue:[^ true].
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21597	].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21598	^ false.
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21599
13399 589ada002149 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13372 diff changeset	21600	"Modified: / 29-08-2013 / 11:40:55 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21601	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21602
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21603	!AbstractSettingsApplication::WorkspaceSettingsAppl class methodsFor:'help specs'!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21604
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	21605	helpSpec
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21606	"This resource specification was automatically generated
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21607	by the UIHelpTool of ST/X."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21608
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21609	"Do not manually edit this!! If it is corrupted,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21610	the UIHelpTool may not be able to read the specification."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21611
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21612	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21613	UIHelpTool openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21614	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21615
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21616	<resource: #help>
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21617
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	21618	^ super helpSpec addPairsFrom:#(
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21619
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21620	#usersModuleName
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	21621	'The name used as top-level module name (in the package-identifier) of your own classes and methods).\Will also be the top-level directory name inside the source code repository\and inside your workspace.'
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21622
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21623	#workspaceDirectory
17388 f835818f96c2 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17369 diff changeset	21624	'The workspace directory where files are created for building and deployment.\Also, the changefile and saved snapshot images are stored there'
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21625
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21626	)
17388 f835818f96c2 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17369 diff changeset	21627
f835818f96c2 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17369 diff changeset	21628	"Modified: / 11-02-2017 / 15:28:42 / cg"
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21629	! !
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21630
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21631	!AbstractSettingsApplication::WorkspaceSettingsAppl class methodsFor:'image specs'!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21632
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21633	defaultIcon
18285 a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	21634	<resource: #programImage>
a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	21635
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21636	^ self defaultIcon2
18285 a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	21637
a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	21638	"Modified: / 28-07-2018 / 09:59:55 / Claus Gittinger"
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21639	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21640
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21641	defaultIcon1
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21642	"This resource specification was automatically generated
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21643	by the ImageEditor of ST/X."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21644
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21645	"Do not manually edit this!! If it is corrupted,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21646	the ImageEditor may not be able to read the specification."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21647
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21648	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21649	self defaultIcon1 inspect
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21650	ImageEditor openOnClass:self andSelector:#defaultIcon1
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21651	Icon flushCachedIcons
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21652	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21653
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21654	<resource: #image>
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21655
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21656	^Icon
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21657	constantNamed:'AbstractSettingsApplication::WorkspaceSettingsAppl defaultIcon1'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21658	ifAbsentPut:[(Depth4Image width:24 height:24) bits:(ByteArray fromPackedString:'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21659	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@AH@@@@@@@@@@@HP@UTP@R@@@@@@@@MQEU
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21660	UQES@@@@@@@@@%UUUUT @@@@@@@@@UT#H%TP@@@@@@@@EUH0@2UQ@@@@@@@QUULDPCUUDP@@@@@3UUHDPBUUL0@@@@@@H%TP@UT"@@@@@@@@@%UQEUT @@@@
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21661	@@@@@UUUUUTP@@@@@@@@ESIUURMQ@@@@@@@@H0@UTP@2@@@@@@@@@@@AL@@@@@@@@@@@@@@AL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21662	@@@@@@@@@@@@@@@@@@@@@@@@') colorMapFromArray:#[0 0 0 255 255 255 161 161 165 127 127 127 236 233 216 194 194 194] mask:((ImageMask width:24 height:24) bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@A @@C0@@33@A?? A?? @??@@??@C??0G??8G??8C??0@??@@??@A?? A?? @33@@C0@@A @@@@@@@@@@@@@'); yourself); yourself]
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21663	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21664
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21665	defaultIcon2
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21666	"This resource specification was automatically generated
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21667	by the ImageEditor of ST/X."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21668
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21669	"Do not manually edit this!! If it is corrupted,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21670	the ImageEditor may not be able to read the specification."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21671
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21672	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21673	self defaultIcon2 inspect
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21674	ImageEditor openOnClass:self andSelector:#defaultIcon2
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21675	Icon flushCachedIcons
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21676	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21677
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21678	<resource: #image>
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21679
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21680	^Icon
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21681	constantNamed:'AbstractSettingsApplication::WorkspaceSettingsAppl defaultIcon2'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21682	ifAbsentPut:[(Depth8Image width:24 height:24) bits:(ByteArray fromPackedString:'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21683	@@]YVU%YA0@@@@@@@@@@@@@@@@@@@@@@@E%]WV!!]VP@@@@@@@@@@@@@@@@@@@@@@Q8X,BP$IU5]MSUUU[6=MH0@@@@@@@@@@\TZ (CT"%2^$!!C\]^JT6X @@
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21684	@@@@@@@@\U(TEB TUJEP&DM''S5!!\#0@@@@@@@@@@JWR@RR<LP1=E$GVYD @@^0@@@@@@@@@@%Q\;I!!=_\1%)F0-?@@DB@@@@@@@@@@@@BH,?X6L[B4,@@C1
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21685	@@DB@@@@@@@@@@@@IH0UX@9 L0@B@P@@@PTE@P@@@PH@@@@@RG80LE9^ @CAPDAAPTEAPDAAPL@@@@@^*M&&))=GA0@@ TEAPTEAPTE@ @@@@@@''%L-TVU,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21686	DRD@@PTE@ LB@ TE@P@@@@@@HEHVQA!!D@@@AAPTB@0@@@0HEAPD@@@@@LSH=OS4@@PDEAPTC@C4=@@LEAPTA@P@@\IQNPG\@@0LEAPTB@G]7@@HEAPTC@0@@
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21687	@@@@@@@@@@@B@ TE@P@@@PTE@ H@@@@@@@@@@@@@@@@@@ TEAPDAAPTE@ @@@@@@@@@@@@@@@@@@@PTEAPTEAPTE@P@@@@@@@@@@@@@@@@@AAPHBAPTEAPHC
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21688	APD@@@@@@@@@@@@@@@@B@ @@@PTE@P@@@0H@@@@@@@@@@@@@@@@@@@@@@@TB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DB@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21689	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') colorMapFromArray:#[0 0 0 255 255 255 161 161 165 127 127 127 236 233 216 194 194 194 162 194 216 161 179 191 110 142 163 154 183 200 109 140 160 170 200 219 182 208 224 191 196 201 163 195 217 136 178 205 197 202 208 132 176 205 171 200 219 157 192 214 193 214 229 164 195 217 131 171 195 176 208 227 128 171 196 174 203 222 196 203 209 171 200 220 143 183 209 194 219 234 131 171 196 178 205 223 102 137 158 134 176 205 210 229 242 132 159 177 108 141 161 142 182 208 179 205 223 204 225 238 193 214 227 114 144 163 150 188 211 135 179 206 153 182 200 134 178 204 165 200 224 183 209 224 154 190 212 102 135 156 87 124 149 162 195 216 134 179 206 209 228 240 190 216 236 194 221 235 142 182 206 128 169 196 190 195 200 178 205 222 164 197 217 87 125 149 160 194 216 172 200 219 195 201 206 106 140 161 167 198 218 180 207 223 129 171 196 176 205 223 209 229 243 133 160 177 107 140 161 183 208 224 130 171 196 168 200 218 148 189 216 111 144 166 198 203 209 176 204 221 188 210 224 133 178 205 126 173 205 132 179 214 191 212 228 112 144 166 150 188 212 111 144 165 174 201 219 119 151 171 194 216 232 170 200 218 175 203 225 165 197 218 153 190 212 177 205 223 163 195 216 188 193 198 112 144 163 172 201 220 195 200 205 131 178 205 143 184 208 179 205 222 164 197 218 175 202 221 187 192 197 159 193 215 133 179 205 140 185 213 192 197 202 113 144 166 199 207 214 114 146 165 100 137 159 176 205 222 181 207 228 173 203 221 128 175 205 193 198 203 191 217 233 139 182 208 102 138 159 112 143 163 168 200 224 144 183 209 153 191 217 169 200 219 181 208 224 166 198 218 152 189 212 189 194 200 200 222 237 188 194 199 109 143 165 186 191 196 153 194 221 132 179 205 142 183 208 173 204 227 158 197 224 136 179 206 149 188 211 111 144 163 174 204 220 158 193 214 156 192 213 162 197 221 201 206 211 112 143 164 101 137 158 208 226 242 185 208 225 173 202 220 144 184 209 156 192 214 129 169 196 133 182 214 101 137 159 111 142 163 209 228 242 187 210 224 108 142 162 140 186 214 204 224 237 189 215 232] mask:((ImageMask width:24 height:24) bits:(ByteArray fromPackedString:'_ @@_ @@??<@??<@??<@??<@??<@??<0???8???8???0???0???<???>???>@??<@O?0@O?0@_?8@_?8@L<0@@<@@@X@@@@@'); yourself); yourself]
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21690	! !
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21691
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21692	!AbstractSettingsApplication::WorkspaceSettingsAppl class methodsFor:'interface specs'!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21693
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21694	windowSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21695	"This resource specification was automatically generated
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21696	by the UIPainter of ST/X."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21697
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21698	"Do not manually edit this!! If it is corrupted,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21699	the UIPainter may not be able to read the specification."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21700
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21701	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21702	UIPainter new openOnClass:AbstractSettingsApplication::WorkspaceSettingsAppl andSelector:#windowSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21703	AbstractSettingsApplication::WorkspaceSettingsAppl new openInterface:#windowSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21704	AbstractSettingsApplication::WorkspaceSettingsAppl open
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21705	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21706
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21707	<resource: #canvas>
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21708
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21709	^
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21710	#(FullSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21711	name: windowSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21712	window:
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21713	(WindowSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21714	label: 'Workspace Settings'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21715	name: 'Workspace Settings'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21716	min: (Point 10 10)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21717	bounds: (Rectangle 0 0 600 320)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21718	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21719	component:
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21720	(SpecCollection
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21721	collection: (
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21722	(VerticalPanelViewSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21723	name: 'VerticalPanel2'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21724	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21725	horizontalLayout: fit
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21726	verticalLayout: topSpace
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21727	horizontalSpace: 3
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21728	verticalSpace: 5
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21729	component:
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21730	(SpecCollection
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21731	collection: (
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21732	(HorizontalPanelViewSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21733	name: 'HorizontalPanel1'
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21734	activeHelpKey: usersModuleName
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21735	horizontalLayout: leftSpaceFit
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21736	verticalLayout: center
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21737	horizontalSpace: 3
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21738	verticalSpace: 3
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21739	component:
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21740	(SpecCollection
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21741	collection: (
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21742	(LabelSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21743	label: 'Top Level Module ID:'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21744	name: 'Label1'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21745	translateLabel: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21746	adjust: left
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21747	extent: (Point 200 22)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21748	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21749	(InputFieldSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21750	name: 'EntryField1'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21751	model: usersModuleName
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21752	acceptOnReturn: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21753	acceptOnTab: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21754	acceptOnPointerLeave: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21755	useDefaultExtent: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21756	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21757	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21758
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21759	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21760	extent: (Point 600 35)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21761	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21762	(HorizontalPanelViewSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21763	name: 'HorizontalPanel2'
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21764	activeHelpKey: workspaceDirectory
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21765	horizontalLayout: leftSpaceFit
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21766	verticalLayout: center
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21767	horizontalSpace: 3
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21768	verticalSpace: 3
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21769	component:
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21770	(SpecCollection
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21771	collection: (
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21772	(LabelSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21773	label: 'Workspace Directory:'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21774	name: 'Label2'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21775	translateLabel: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21776	adjust: left
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21777	extent: (Point 200 22)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21778	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21779	(InputFieldSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21780	name: 'EntryField2'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21781	model: workspaceDirectory
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21782	acceptOnReturn: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21783	acceptOnTab: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21784	acceptOnPointerLeave: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21785	useDefaultExtent: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21786	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21787	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21788
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21789	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21790	extent: (Point 600 35)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21791	)
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21792	(HorizontalPanelViewSpec
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21793	name: 'HorizontalPanel3'
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21794	activeHelpKey: workspaceDirectory
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21795	horizontalLayout: rightSpace
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21796	verticalLayout: center
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21797	horizontalSpace: 3
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21798	verticalSpace: 3
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21799	component:
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21800	(SpecCollection
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21801	collection: (
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21802	(ActionButtonSpec
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21803	label: 'Create Workspace Directory'
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21804	name: 'Button1'
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21805	translateLabel: true
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21806	model: createWorkspaceDirectory
17389 6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21807	enableChannel: workspaceDirectoryDoesNotExist
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21808	useDefaultExtent: true
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21809	)
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21810	(ActionButtonSpec
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21811	label: 'Browse'
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21812	name: 'Button2'
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21813	translateLabel: true
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21814	model: browseWorkspaceDirectory
17389 6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21815	enableChannel: workspaceDirectoryDoesExist
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21816	useDefaultExtent: true
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21817	)
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21818	)
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21819
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21820	)
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21821	extent: (Point 600 35)
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21822	)
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21823	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21824
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21825	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21826	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21827	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21828
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21829	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21830	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21831	! !
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21832
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21833	!AbstractSettingsApplication::WorkspaceSettingsAppl methodsFor:'actions'!
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21834
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21835	browseWorkspaceDirectory
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21836	\|fn\|
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21837
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21838	(fn := workspaceDirectory value) notEmptyOrNil ifTrue:[
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21839	(fn := fn asFilename) exists ifFalse:[
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21840	Dialog warn:'Directory does not exist'.
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21841	] ifTrue:[
17644 6a159f066e9a #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17641 diff changeset	21842	FileBrowser default openOn:fn
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21843	]
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21844	]
17644 6a159f066e9a #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17641 diff changeset	21845
6a159f066e9a #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17641 diff changeset	21846	"Modified: / 01-09-2017 / 14:01:36 / cg"
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21847	!
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21848
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21849	createWorkspaceDirectory
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21850	\|fn\|
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21851
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21852	(fn := workspaceDirectory value) notEmptyOrNil ifTrue:[
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21853	(fn := fn asFilename) exists ifFalse:[
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21854	fn recursiveMakeDirectory
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21855	]
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21856	]
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21857	! !
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21858
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21859	!AbstractSettingsApplication::WorkspaceSettingsAppl methodsFor:'aspects'!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21860
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21861	aspects
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21862	^ #(
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21863	#usersModuleName
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21864	#workspaceDirectory
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21865	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21866	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21867
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21868	usersModuleName
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21869	usersModuleName isNil ifTrue:[
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21870	usersModuleName := '' asValue.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21871	usersModuleName onChangeSend:#updateModifiedChannel to:self.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21872	].
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21873	^ usersModuleName.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21874	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21875
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21876	workspaceDirectory
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21877	workspaceDirectory isNil ifTrue:[
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21878	workspaceDirectory := '~/.smalltalk/workspace' asValue.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21879	workspaceDirectory onChangeSend:#updateModifiedChannel to:self.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21880	].
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21881	^ workspaceDirectory.
17389 6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21882	!
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21883
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21884	workspaceDirectoryDoesExist
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21885	^ BlockValue
18763 6a3d3a6ac24e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18744 diff changeset	21886	with:[:workspaceDirectory \|
6a3d3a6ac24e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18744 diff changeset	21887	workspaceDirectory notEmptyOrNil
6a3d3a6ac24e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18744 diff changeset	21888	and:[workspaceDirectory asFilename exists]
17389 6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21889	]
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21890	argument:self workspaceDirectory
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21891
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21892	"Created: / 11-02-2017 / 15:43:59 / cg"
18763 6a3d3a6ac24e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18744 diff changeset	21893	"Modified: / 17-05-2019 / 15:33:01 / Stefan Vogel"
17389 6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21894	!
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21895
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21896	workspaceDirectoryDoesNotExist
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21897	^ BlockValue
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21898	with:[:entry \|
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21899	\|fn\|
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21900
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21901	((fn := entry) notEmptyOrNil)
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21902	and:[ entry asFilename exists not ].
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21903	]
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21904	argument:(self workspaceDirectory)
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21905
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21906	"Created: / 11-02-2017 / 15:42:02 / cg"
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21907	! !
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21908
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21909	!AbstractSettingsApplication::WorkspaceSettingsAppl methodsFor:'help'!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21910
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21911	helpFilename
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21912	^ 'Launcher/workspaceSettings.html'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21913	! !
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21914
4226 44e2f83cc526 initial checkin penk parents: diff changeset	21915	!AbstractSettingsApplication class methodsFor:'documentation'!
44e2f83cc526 initial checkin penk parents: diff changeset	21916
10295 7c7b9ba6a2c2 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10294 diff changeset	21917	version
15744 6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	21918	^ '$Header$'
10295 7c7b9ba6a2c2 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10294 diff changeset	21919	!
7c7b9ba6a2c2 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10294 diff changeset	21920
8846 a5a4031ee2cc Smalltalk language -> UserPreferences current language Claus Gittinger <cg@exept.de> parents: 8793 diff changeset	21921	version_CVS
15744 6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	21922	^ '$Header$'
6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	21923	! !
6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	21924

author	Claus Gittinger <cg@exept.de>
	Sat, 21 Mar 2020 11:42:38 +0100
changeset 19570	e8daa52b91b1
parent 19531	b3fa4eeb9f1c
child 19575	3c5283d9fa9e
permissions	-rw-r--r--