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

19133 c41dbe689ab6 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19074 diff changeset	1	"{ Encoding: utf8 }"
c41dbe689ab6 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19074 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
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	19	instanceVariableNames:'settingsString currentUserPrefs modifiedChannel settingsDialog
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	20	requestor didModifySettings acceptChannel'
17958 947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	21	classVariableNames:'AutoSaveChangedSettingsOnClose'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	22	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 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
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	27	instanceVariableNames:'buildDirectory localBuild selectedCompiler usedCompilerForBuild
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	28	selectedSettingHolder settingsList'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	29	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	30	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 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
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	35	instanceVariableNames:'possibleItemsLabelHolder listOfPossibleItems
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	36	selectedItemsLabelHolder packageChooser listOfSelectedItems'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	37	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	38	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 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
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	43	instanceVariableNames:'buildDirectory localBuild selectedCompiler usedCompilerForBuild'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	44	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	45	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 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
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	50	instanceVariableNames:'warnings warnSTX warnDollar warnOldStyle warnCommonMistakes
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	51	warnUnderscore warnCompatibility warnUnusedVars
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	52	warnAboutWrongVariableNames warnAboutBadComments
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	53	warnInconsistentReturnValues
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	54	warnAboutNonLowercaseLocalVariableNames allowQualifiedNames
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	55	allowDollar allowReservedWordsAsSelectors allowOldStyleAssignment
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	56	allowUnderscore allowDolphinExtensions allowSqueakExtensions
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	57	allowVisualAgeESSymbolLiterals allowVisualAgePrimitives
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	58	allowFixedPointLiterals justInTimeCompilation canLoadBinaries
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	59	constantFoldingSelection keepSource constantFolding
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	60	constantFoldingOptions fullDebugSupport immutableArrays
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	61	immutableStrings enableUnderscore enableDollar
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	62	allowEmptyStatements warnAboutPossibleSTCCompilationProblems
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	63	warnAboutReferenceToPrivateClass warnAboutShortLocalVariableNames
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	64	warnAboutPossiblyUnimplementedSelectors
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	65	allowExtendedBinarySelectors warnAboutMissingMethodComment
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	66	allowAssignmentToPoolVariable warnPlausibilityChecks
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	67	allowParagraph enableParagraph
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	68	warnAboutPossiblyUninitializedLocals'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	69	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	70	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 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
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	75	instanceVariableNames:'classInfos vmInfo vmErrors displayErrors logDoits updChanges
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	76	changeFileName beepForInfoDialog beepForWarningDialog
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	77	beepForErrorDialog flyByHelp beepEnabled beepInEditor'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	78	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	79	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 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
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	84	instanceVariableNames:'generateComments generateCommentsForGetters
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	85	generateCommentsForSetters'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	86	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	87	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 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
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	92	instanceVariableNames:'logHTTPRequests logSOAPRequests logExecutedOSCommands
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	93	logNetCommunications logSSLCommunications'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	94	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	95	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 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
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	100	instanceVariableNames:'showErrorNotifier verboseBacktraceInDebugger
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	101	allowSendMailFromDebugger useNewLayoutInDebugger
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	102	hideSupportCodeInDebugger'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	103	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	104	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 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
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	109	instanceVariableNames:'isColorMonitor useFixGrayPaletteLabel useFixPalette sizeY
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	110	clipEncodingListSelection sizeX monitorList ditherList
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	111	clipEncodingList ditherListSelection deepIcons monitorSelection
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	112	useFixPaletteLabel visualIsPseudoColor ditherSymsNotNil
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	113	useFixGrayPalette sizeInfos screen ditherStyles ditherSyms
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	114	screenDepthVisualLabelHolder maxCopyBufferSize usedWidth
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	115	usedHeight enableVMWareDrawingBugWorkaround'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	116	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	117	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 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
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	122	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	123	searchDialogIsModal startTextDragWithControl
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	124	extendedWordSelectMode whitespaceWordSelectMode
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	125	enforceContentsDropForFiles selectAllWhenClickingBeyondEnd
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	126	showAcceptCancelBarInBrowser useCodeView2InTools
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	127	autoIndentInCodeView immediateCodeCompletion
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	128	codeCompletionOnControlKey codeCompletionOnTabKey
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	129	selectionExtensionMode'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	130	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	131	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 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
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	136	instanceVariableNames:'st80EditingMode tabsIs4 st80DoubleClickSelectMode
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	137	searchDialogIsModal startTextDragWithControl catchClassRedefs
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	138	fullHistoryUpdate historyLines keepSourceSelection keepSource
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	139	hasHistoryManager canLoadBinaries loadBinaries catchMethodRedefs
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	140	userNameInHistoryHolder'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	141	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	142	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 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
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	147	instanceVariableNames:'portNumberChannel informationLabel hasNoCreatedServerChannel
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	148	hasCreatedServerChannel useFcgiHolder
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	149	hasWebServerClassesNotLoadedHolder'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	150	classVariableNames:'CreatedServers'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	151	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 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
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	156	instanceVariableNames:'selectedRawKey macroTextHolder selectedFunctionKey
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	157	labelTextHolder changeMapHolder currentKeyHolder functionKeyList
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	158	rawKeyList mappings'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	159	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	160	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 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
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	165	instanceVariableNames:'languageHolder languageIndexHolder languageList
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	166	languageListHolder listOfLanguages translatedLanguages
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	167	noticeLabelHolder currentFlagAndLanguageChannel
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	168	currentLanguageLabel perLanguageResources useSystemLanguageHolder'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	169	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	170	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 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
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	175	instanceVariableNames:'newSpaceSize maxOldSpace fastMoreLimit warningLabelHolder
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	176	codeTrigger codeLimit oldIncr compressLimit igcFreeLimit igcLimit
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	177	igcFreeAmount stackLimit supportsJustInTimeCompilation
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	178	methodCodeSizeLimit'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	179	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	180	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 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
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	185	instanceVariableNames:'smallTeamServerEnabled selectedSmallTeamHost listOfSmallTeamHosts
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	186	smallTeamHostEntry dotNetBridgeVerbose dotNetBridgeRunsInIDE
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	187	smalltalkBridgeEnabled smalltalkBridgeVerbose'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	188	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	189	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 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
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	194	instanceVariableNames:'smtpServerName'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	195	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	196	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 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
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	201	instanceVariableNames:'nativeWidgets nativeDialogs shadows opaqueVariablePanelResize
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	202	opaqueTableColumnResize lowerOnRightClickInTitle
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	203	lowerOnShiftClickInTitle displaySupportsNativeFileDialogs
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	204	nativeFileDialogs cartoonToolTipStyle'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	205	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	206	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	207	privateIn:AbstractSettingsApplication
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	208	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	209
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	210	AbstractSettingsApplication subclass:#MiscDisplaySettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	211	instanceVariableNames:'returnFocus focusFollowsMouse mouseWheelFocusFollowsMouse
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	212	beepEnabled takeFocus activateOnClick
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	213	formatHostNameinWindowLabels hostNameInLabelHolder
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	214	showAccelerators newWindowLabelFormat formatHostNameWindowLabel
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	215	selectOnRightClick popUpMenuOnRelease
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	216	showRightButtonMenuOnRelease formatHostNameWindowLabel1
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	217	formatHostNameWindowLabel2 allowMouseWheelZoom
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	218	forceWindowsIntoMonitorBounds button2WithAltKey
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	219	autoRaiseOnFocusIn menuPanelTakesFocusOnClick
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	220	shouldRememberLastExtentHolder'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	221	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	222	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	223	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	224	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	225
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	226	AbstractSettingsApplication subclass:#MiscSmalltalkCommunicationSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	227	instanceVariableNames:'remoteBrowsingEnabled windowMigrationEnabled
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	228	windowMigrationPassword windowMigrationAuthenticate
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	229	enablePasswordCheck smallTeamServerEnabled selectedSmallTeamHost
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	230	listOfSmallTeamHosts smallTeamHostEntry addHostEnabled
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	231	removeHostEnabled smalltalkBridgeEnabled smalltalkBridgeVerbose
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	232	smallTeamViaXMPPEnabled selectedXMPPSmallTeamUser
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	233	xmppSmallTeamUserEntry listOfXMPPSmallTeamUsers
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	234	smallteamXMPPServer smallteamXMPPUser smallteamXMPPPassword'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	235	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	236	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	237	privateIn:AbstractSettingsApplication
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	238	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	239
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	240	AbstractSettingsApplication subclass:#OsiSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	241	instanceVariableNames:'osiACSEConnectionLogging osiROSEErrorLogging osiCMISEErrorLogging
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	242	osiACSEErrorLogging osiROSEPresent osiCMISEPresent
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	243	osiCMISEMessageLogging osiACSEDataLogging
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	244	osiROSEInvokationLogging osiACSEPresent osiROSEResponseLogging'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	245	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	246	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	247	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	248	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	249
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	250	AbstractSettingsApplication subclass:#PackagePathSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	251	instanceVariableNames:'listOfFoldersInPath selectedFolder'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	252	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	253	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	254	privateIn:AbstractSettingsApplication
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	255	!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	256
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	257	AbstractSettingsApplication subclass:#PrinterSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	258	instanceVariableNames:'selectedUnit supportsColor topMargin rightMargin bottomMargin
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	259	landscape pageFormatList pageFormat unitList leftMargin
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	260	possiblePrinters printerType printerTypeSelection
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	261	printCommandList commandList printCommand printFilename
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	262	enableFormat enablelandscape enableMargins enableColorBox
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	263	printerIsDrivenByCommand printerSupportsPrintingToFile
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	264	supportsPageFormatSetting supportsMarginSetting
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	265	supportsColorSetting'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	266	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	267	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	268	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	269	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	270
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	271	AbstractSettingsApplication subclass:#ProcessorSchedulerSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	272	instanceVariableNames:'dynamicPrios preemptive'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	273	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	274	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	275	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	276	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	277
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	278	AbstractSettingsApplication subclass:#RDoItServerSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	279	instanceVariableNames:'rDoitLogging rDoitsEnabled rDoitErrorLogging hasRDoitServer
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	280	rDoitErrorDebugging rDoitServerPortOrPath
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	281	rDoitEnabledOnlyViaLocalConnection scriptingEnabled
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	282	scriptingEnabledOnlyViaLocalConnection scriptingErrorDebugging
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	283	scriptingErrorLogging scriptingLogging scriptingServerPortOrPath
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	284	rDoitOnlyViaLocalConnection'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	285	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	286	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	287	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	288	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	289
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	290	AbstractSettingsApplication subclass:#SQLServerSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	291	instanceVariableNames:'sqlServerEnabled sqlSmalltalkServerEnabled sqlLogging
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	292	sqlDataLogging sqlErrorLogging hasSQLServer sqlErrorDebugging
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	293	sqlServerPort sqlStatementLogging'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	294	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	295	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	296	privateIn:AbstractSettingsApplication
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	297	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	298
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	299	AbstractSettingsApplication subclass:#STCCompilerSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	300	instanceVariableNames:'cc ccOptions stcIncludes linkCommand stc linkArgs linkSharedArgs
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	301	canLoadBinaries stcDefines stcLibraries stcOptions stcLibraryPath
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	302	stcCompilationSelection stcCompilationList makeCommand
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	303	stcKeepCIntermediate supportedCCompilerSelection verbose'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	304	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	305	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	306	privateIn:AbstractSettingsApplication
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	307	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	308
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	309	AbstractSettingsApplication subclass:#SourceCodeFormatSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	310	instanceVariableNames:'spaceAfterKeywordSelector emptyLineAfterTemporaries tabIndent
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	311	autoFormat cStyleBlocks editorText maxLengthForSingleLineBlocks
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	312	blockArgumentsOnNewLine spaceAfterReturnToken
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	313	spaceAroundTemporaries spaceAfterBlockStart spaceBeforeBlockEnd
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	314	oldUserPreferences reformatLocked'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	315	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	316	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	317	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	318	!
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	AbstractSettingsApplication subclass:#SourceCodeManagementSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	321	instanceVariableNames:'sourceCacheDir useManager availableManagers condenseSourceCache
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	322	setupSourceCodeManager checkClassesWhenCheckingIn
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	323	formattingConfiguration flushSourceCache localSourceFirst
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	324	repositoryHolder manager repository listOfModules
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	325	managerTypePerModule addPerModuleRoot removeEnabled
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	326	perModuleRootModule removePerModuleRoot perModuleRoot
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	327	selectedPerModuleRoot rootsPerModule
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	328	selectedManagerTypeIndexHolder managerIsCVSSourceCodeManager
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	329	managerIsStoreSourceCodeManager perModuleFieldsEnableHolder
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	330	managerIsSmallTeamSourceCodeManager verboseSourceCodeAccess
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	331	keepMethodSource packageToAddHolder managerTypeIndexToAddHolder
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	332	managerTypeToAddHolder managerPerMatchingModule
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	333	selectedManagerPerMatchingModuleHolder'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	334	classVariableNames:'RecentlyUsedCVSRoots RecentlyUsedStoreHosts
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	335	RecentlyUsedSmallTeamHosts LastStoreHost LastStoreUser
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	336	LastStorePassword FillCacheProcess'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	337	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	338	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	339	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	340
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	341	SimpleDialog subclass:#PerModuleManagerSettingDialog
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	342	instanceVariableNames:'packageHolder managerNameHolder availableManagers'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	343	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	344	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	345	privateIn:AbstractSettingsApplication::SourceCodeManagementSettingsAppl
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	346	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	347
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	348	AbstractSettingsApplication subclass:#StyleSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	349	instanceVariableNames:'showStandardStylesOnly styleList selectedStyle
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	350	styleDirectoryContents infoLabelHolder noticeLabelHolder
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	351	previewVisibleHolder'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	352	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	353	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	354	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	355	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	356
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	357	AbstractSettingsApplication subclass:#SyntaxColorSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	358	instanceVariableNames:'coloredText syntaxColor syntaxColors resetList resetListSelection
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	359	fullSelectorCheck syntaxColoring oldUserPreferences
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	360	syntaxFontSelector syntaxFonts syntaxElementList
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	361	syntaxElementSelection syntaxEmphasisList syntaxEmphasisSelection
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	362	emphasisDictionary resetListDictionary changedSettings'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	363	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	364	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	365	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	366	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	367
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	368	AbstractSettingsApplication subclass:#SystemBrowserSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	369	instanceVariableNames:'showAcceptCancelBarInBrowser useSearchBarInBrowser
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	370	showMethodTemplate useCodeView2InTools
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	371	showEmbeddedTestRunnerInBrowser showBookmarkBar
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	372	webBrowserLikeLayout sortAndIndentClassesByInheritance
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	373	showLocalHistory showGlobalHistory useInPlaceSearchInBrowserLists
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	374	sourceCodeManagementMenuLayout confirmRefactorings
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	375	smallLintRulesetDefault showMarqueeInfo'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	376	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	377	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	378	privateIn:AbstractSettingsApplication
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	379	!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	380
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	381	AbstractSettingsApplication subclass:#SystemMessageSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	382	instanceVariableNames:'classInfos vmInfo vmErrors displayErrors logDoits updChanges
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	383	changeFileName beepForInfoDialog beepForWarningDialog
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	384	beepForErrorDialog flyByHelp beepEnabled beepInEditor
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	385	toolTipAutoHideDelay sendMessagesAlsoToTranscript
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	386	onlyShowTooltipsForActiveWindow'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	387	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	388	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	389	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	390	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	391
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	392	AbstractSettingsApplication subclass:#TerminalViewSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	393	instanceVariableNames:'terminalOutputIsUTF8 terminalInputIsUTF8'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	394	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	395	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	396	privateIn:AbstractSettingsApplication
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	397	!
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	398
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	399	AbstractSettingsApplication subclass:#ToolboxSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	400	instanceVariableNames:'changesBrowserClassName fileBrowserClassName'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	401	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	402	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	403	privateIn:AbstractSettingsApplication
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	404	!
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	ApplicationModel subclass:#ClassToolSetting
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	407	instanceVariableNames:'optionValueHolder optionValueList optionLabelHolder
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	408	optionSelectionHolder optionLabelList optionCustomValueHolder
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	409	optionCustomValueVisibleHolder optionCustomValueBackgroundHolder'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	410	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	411	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	412	privateIn:AbstractSettingsApplication::ToolboxSettingsAppl
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	413	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	414
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	415	AbstractSettingsApplication subclass:#ToolsSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	416	instanceVariableNames:'useNewVersionDiffBrowser transcriptBufferSize useNewInspector
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	417	showClockInLauncher useNewChangesBrowser useNewFileBrowser
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	418	useNewSystemBrowser useNewFileDialog useNewSettingsApplication
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	419	useProcessMonitorV2 useSmalltalkDocumentViewer useTestRunner2
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	420	showTipOfTheDayAtStartup autoRaiseTranscript eclipseStyleMenus
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	421	useNewChangeSetBrowser useCodeView2InTools
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	422	externalDiffCommandTemplate'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	423	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	424	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	425	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	426	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	427
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	428	AbstractSettingsApplication subclass:#WorkspaceSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	429	instanceVariableNames:'usersModuleName workspaceDirectory'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	430	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	431	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	432	privateIn:AbstractSettingsApplication
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	433	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	434
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	435	!AbstractSettingsApplication class methodsFor:'documentation'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	436
5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	437	copyright
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	438	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	439	COPYRIGHT (c) 2002 by eXept Software AG
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	440	All Rights Reserved
5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	441
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	442	This software is furnished under a license and may be used
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	443	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	444	inclusion of the above copyright notice. This software may not
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	445	be provided or otherwise made available to, or used by, any
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	446	other person. No title to or ownership of the software is
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	447	hereby transferred.
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	448	"
7557 c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	449	!
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	documentation
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	452	"
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	453	This is an abstract framework for settings applications.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	454	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	455	(as an example, see SettingsDialog)
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	456	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	457	(as an example, see SettingsDialog class>>defaultSettingsApplicationList)
7557 c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	458
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	459	typical use:
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	460
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	461	\|settingsList settingsApp\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	462
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	463	settingsList := NewLauncher settingsList.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	464
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	465	settingsApp := SettingsDialog new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	466	'settingsApp requestor:requestingApplication'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	467	settingsApp installSettingsEntries:settingsList.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	468	settingsApp allButOpen.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	469	settingsApp window label:('ST/X Settings').
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	470	settingsApp openWindow.
7557 c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	471
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	472	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	473	! !
4226 44e2f83cc526 initial checkin penk parents: diff changeset	474
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	475	!AbstractSettingsApplication class methodsFor:'defaults'!
68504047f229 * empty log message * penk parents: 4286 diff changeset	476
68504047f229 * empty log message * penk parents: 4286 diff changeset	477	classResources
15490 6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	478	self package == AbstractLauncherApplication package ifTrue:[
6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	479	^ AbstractLauncherApplication classResources
6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	480	].
6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	481	^ super classResources
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	482	!
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	resourcePackName
7872 d35c66ad7c8f comment Claus Gittinger <cg@exept.de> parents: 7846 diff changeset	485	"return the name which is used as the fileNameBase of my resource file.
d35c66ad7c8f comment Claus Gittinger <cg@exept.de> parents: 7846 diff changeset	486	Here, use the same resources as the Launcher"
d35c66ad7c8f comment Claus Gittinger <cg@exept.de> parents: 7846 diff changeset	487
15490 6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	488	self package == AbstractLauncherApplication package ifTrue:[
6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	489	^ AbstractLauncherApplication resourcePackName
6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	490	].
6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	491	^ super resourcePackName
9595 e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	492	!
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	subEntryRawSettingsList
10893 b90f27b8dfd4 changed: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 10811 diff changeset	495	"redefine if I have sub-settings entries"
b90f27b8dfd4 changed: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 10811 diff changeset	496
9595 e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	497	^ #()
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	"Created: / 25-10-2010 / 09:37:21 / cg"
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	500	! !
68504047f229 * empty log message * penk parents: 4286 diff changeset	501
5283 9264c15059e7 category change penk parents: 5280 diff changeset	502	!AbstractSettingsApplication class methodsFor:'interface specs'!
9264c15059e7 category change penk parents: 5280 diff changeset	503
9264c15059e7 category change penk parents: 5280 diff changeset	504	windowSpec
9264c15059e7 category change penk parents: 5280 diff changeset	505	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	506	!
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	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	509	"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	510	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	511
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	"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	513	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	514
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	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	517	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	518	"
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	<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	521
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	522	^
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	523	#(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	524	name: windowSpecForDialog
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	525	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	526	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	527	label: 'NewApplication'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	528	name: 'NewApplication'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	529	labelChannel: settingsString
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	530	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	531	bounds: (Rectangle 0 0 531 488)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	532	)
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	533	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	534	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	535	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	536	(SubCanvasSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	537	name: 'Content'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	538	layout: (LayoutFrame 7 0 0 0 -7 1 -40 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	539	level: 0
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	540	hasHorizontalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	541	hasVerticalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	542	minorKey: windowSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	543	createNewBuilder: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	544	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	545	(HorizontalPanelViewSpec
16593 6f7fc11a4ab4 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16585 diff changeset	546	name: 'ButtonPanel'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	547	layout: (LayoutFrame 5 0 -40 1 -7 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	548	horizontalLayout: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	549	verticalLayout: center
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	550	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	551	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	552	reverseOrderIfOKAtLeft: true
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	553	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	554	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	555	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	556	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	557	label: 'Cancel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	558	name: 'CancelButton'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	559	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	560	model: doCancel
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	561	extent: (Point 159 25)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	562	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	563	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	564	label: 'OK'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	565	name: 'OKButton'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	566	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	567	model: doAccept
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	568	enableChannel: modifiedChannel
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	569	isDefault: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	570	defaultable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	571	extent: (Point 159 25)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	572	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	573	)
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	574
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	575	)
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	576	keepSpaceForOSXResizeHandleH: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	577	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	578	)
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	579
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	580	)
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	)
5283 9264c15059e7 category change penk parents: 5280 diff changeset	582	! !
9264c15059e7 category change penk parents: 5280 diff changeset	583
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	584	!AbstractSettingsApplication class methodsFor:'queries'!
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	585
15947 4d3269f7b832 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 15921 diff changeset	586	isAbstract
4d3269f7b832 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 15921 diff changeset	587	^ (self == AbstractSettingsApplication)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	588	!
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	quickSearchStrings
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	591	"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	592	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	593	the widget names and label aspects are returned
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	594	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	595	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	596
18239 d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	597	\|words helpKeys resources withoutSpecialChars
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	598	addSingleWord addEachWord addEachWordXLated\|
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	599
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	600	"/ translate
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	601	resources := self classResources.
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	602
18239 d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	603	withoutSpecialChars :=
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	604	[:word \|
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	605	\|w\|
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	606
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	607	w := word.
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	608	[w startsWithAnyOf:'.,-'] whileTrue:[w := w copyButFirst].
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	609	[w endsWithAnyOf:'.,-'] whileTrue:[w := w copyButLast].
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	610	w
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	611	].
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	612
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	613	addSingleWord :=
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	614	[:word :origin\|
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	615	true "(w first isLetter)" ifTrue:[
18239 d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	616	words add:(withoutSpecialChars value:word asLowercase).
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	617	].
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
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	620	addEachWord :=
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	621	[:aString :origin\|
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	622	aString asCollectionOfWordsDo:[:w \|
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	623	addSingleWord value:w value:origin
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	624	].
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	625	].
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	626
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	627	addEachWordXLated :=
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	628	[:aString :origin \|
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	629	\|xlation\|
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	630
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	631	aString notNil ifTrue:[
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	632	addEachWord value:aString value:origin.
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	633	(xlation := resources string:aString) notNil ifTrue:[
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	634	xlation ~= aString ifTrue:[
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	635	addEachWord value:xlation value:origin.
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	636	].
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	words := Set new.
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	642	helpKeys := Set new.
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	643
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	644	self windowSpec decodeAsLiteralArray do:[:eachSpec \|
18239 d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	645	\|helpKey label name\|
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	646
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	647	label := eachSpec perform:#label ifNotUnderstood:nil.
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	648	label notNil ifTrue:[
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	649	addEachWordXLated value:label value:(#label->eachSpec).
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	650	].
18239 d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	651	name := eachSpec perform:#name ifNotUnderstood:nil.
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	652	name notNil ifTrue:[
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	653	addEachWordXLated value:name value:(#name->eachSpec).
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	654	].
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	655
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	656	(helpKey := eachSpec activeHelpKey) notNil ifTrue:[
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	657	helpKeys add:helpKey.
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	658	"/ words add:helpKey string asLowercase.
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	659	addSingleWord value:helpKey string value:(#helpKey->eachSpec)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	660	].
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	661	].
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	662	self helpSpec keys do:[:k \|
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	663	helpKeys add:k.
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	664	addSingleWord value:k value:#helpKeyTop
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	665	].
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	666
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	667	helpKeys do:[:eachKey \|
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	668	\|helpText\|
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	669
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	670	helpText := self helpSpec at:eachKey ifAbsent:nil.
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	671	addEachWordXLated value:helpText value:(#helpText->eachKey).
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	672	].
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	673	^ words
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	674
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	AbstractSettingsApplication::BuildSettingsAppl quickSearchStrings
18239 d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	677	Expecco::HotkeysSettingsApp quickSearchStrings
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	678	"
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	"Modified: / 25-06-2018 / 14:26:05 / Claus Gittinger"
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	681	! !
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	682
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	683	!AbstractSettingsApplication methodsFor:'accessing'!
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	684
15486 e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	685	clearDidModifySettings
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	686	"clear the flag that any settings was changed.
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	687	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	688	changes must be stored into the UserPreferences.
15486 e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	689	This one tells if any UserPreferences has been changed, and the userPrefs
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	690	should be saved back to the settings.rc file"
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	691
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	692	didModifySettings := false.
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	693	!
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	didModifySettings
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	696	"true, if any settings was changed.
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	697	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	698	changes must be stored into the UserPreferences.
15486 e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	699	This one tells if any UserPreferences has been changed, and the userPrefs
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	700	should be saved back to the settings.rc file"
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	701
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	702	^ didModifySettings
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	703	!
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	704
9484 206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	705	requestor:anotherApplication
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	706	requestor := anotherApplication.
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	707
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	708	"Modified: / 12-05-2010 / 17:16:37 / cg"
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	709	!
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	settingsDialog
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	!
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	714
9484 206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	715	settingsDialog:aSettingsDialog
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	716	settingsDialog := aSettingsDialog.
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	717
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	718	"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	719	!
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	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	722	^ settingsString
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	723	! !
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	724
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	725	!AbstractSettingsApplication methodsFor:'actions'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	726
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	727	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	728	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	729
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	"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	731	!
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
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	733	discardChangesAndReadSettings
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	734	self readSettings.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	735	!
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	736
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	737	evaluateModified
8553 0e83301fc922 Mark obsolete methods Stefan Vogel <sv@exept.de> parents: 8550 diff changeset	738	<resource: #obsolete>
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	739	self obsoleteMethodWarning.
c72e35116b13 instable state penk parents: 5040 diff changeset	740	^ self updateModifiedChannel.
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	741	!
330907eab7e0 * empty log message * penk parents: 4581 diff changeset	742
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	743	readSettings
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	744	self basicReadSettings.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	745
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	746	self modifiedChannel value:false.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	747	!
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	748
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	749	reopenToolsAfterChangedViewStyleSetting
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	750	\|app transcript\|
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	751
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	752	DebugView newDebugger.
15888 1d7798d909c8 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 15885 diff changeset	753
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	754	transcript := Transcript current.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	755	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
14967 e92d9ac3f138 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14954 diff changeset	756	app := transcript topView application.
e92d9ac3f138 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14954 diff changeset	757	app perform:#reopenLauncher ifNotUnderstood:[].
e92d9ac3f138 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14954 diff changeset	758	].
15888 1d7798d909c8 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 15885 diff changeset	759
14967 e92d9ac3f138 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14954 diff changeset	760	self window topView raise.
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	761	!
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	762
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	763	saveRequest
4944 fce7d52d36da * empty log message * Claus Gittinger <cg@exept.de> parents: 4941 diff changeset	764	^ self saveRequestAsking:self askForChangeOnRelease
4941 42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	765	!
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	saveRequestAsking:askForChangeOnRelease
17958 947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	768	\|result holder notAgainText\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	769
6383 62aec07a7f42 * empty log message * Claus Gittinger <cg@exept.de> parents: 6358 diff changeset	770	self hasUnsavedChanges ifTrue:[
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	771	"/ debugging
18189 1d48a832c7b8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18179 diff changeset	772	false ifTrue:[
1d48a832c7b8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18179 diff changeset	773	self whichUnsavedChangesInto:[:aspect \|
1d48a832c7b8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18179 diff changeset	774	Transcript show:'different: '; showCR:aspect.
1d48a832c7b8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18179 diff changeset	775	].
1d48a832c7b8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18179 diff changeset	776	].
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	777
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	778	askForChangeOnRelease ifTrue:[
17958 947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	779	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	780
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	781	Dialog
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	782	modifyingBoxWith:[:box \|
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	783	holder := false asValue.
18035 bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	784
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	785	"sr: bugfix: sorry but #confirmWithCancel:
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	786	does not support #noButton like #confirm: does.
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	787	Problem #noButton is always nil.
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	788	Seams like copy&paste code from #closeRequest but #confirm replaced by #confirmWithCancel.
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	789	I did a quick look, about how to support #noButton also for #confirmWithCancel:
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	790	but the effort and stability risks are too high for me for such a gimmick"
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	791	"/ holder onChangeEvaluate:[
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	792	"/ box noButton enabled:(holder value not)
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	793	"/ ].
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	794
17958 947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	795	box verticalPanel add:((CheckBox label:notAgainText) model:holder).
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	796	]
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	797	do:[
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	798	result := self confirmWithCancel:
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	799	(self resources
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	800	string:'Apply changes made in %1 ?'
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	801	with:(resources string:settingsString) allBold).
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	802	].
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	SettingsDialog autoSaveChangedSettingsOnClose:(holder value).
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	805	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	806	result := true.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	807	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	808
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	809	result isNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	810	^ false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	811	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	812	result ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	813	self saveSettings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	814	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	815	"/ reload current settings to show the right thing when re-entering.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	816	self readSettings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	817	]
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	818	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	819	^ true
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	820
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	821	"Modified: / 20-09-2006 / 23:56:25 / cg"
18035 bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	822	"Modified (comment): / 10-04-2018 / 16:55:30 / sr"
18189 1d48a832c7b8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18179 diff changeset	823	"Modified: / 09-06-2018 / 11:03:26 / Claus Gittinger"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	824	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	825
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	826	saveSettings
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	827	self basicSaveSettings.
15486 e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	828	didModifySettings := true.
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	829	self modifiedChannel value:false.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	830	!
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	831
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	832	saveSettingsIfUnsavedChangesArePresent
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	833	self hasUnsavedChanges ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	834	self saveSettings.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	835	self modifiedChannel value:false
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	836	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	837	!
c72e35116b13 instable state penk parents: 5040 diff changeset	838
c72e35116b13 instable state penk parents: 5040 diff changeset	839	updateModifiedChannel
c72e35116b13 instable state penk parents: 5040 diff changeset	840	self modifiedChannel value:self hasUnsavedChanges
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	841	! !
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	!AbstractSettingsApplication methodsFor:'aspects'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	844
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	845	aspects
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	846	"if redefined to return a non-nil list of preference-key aspects,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	847	you can then use the basicSaveSettings/basicReadSettings/hasUnsavedChanges
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	848	as inherited from here.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	849	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	850	you MUST redefine all of the 3 above mentioned methods."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	851
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	852	^ nil
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	853	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	854
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	855	modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	856
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	857	modifiedChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	858	modifiedChannel := false asValue.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	859	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	860	^ modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	861	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	862
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	863	!AbstractSettingsApplication methodsFor:'helpers'!
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	864
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	865	hasChangedAspectIn:aListOfAspects asComparedTo:anAspectProvider
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	866	"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	867	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	868	as ParserFlags.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	869	Using this, and a list of aspect selectors replaces code like:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	870	someone aspect1 ~= (self aspect1 value) ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	871	someone aspect2 ~= (self aspect2 value) ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	872	...
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	873	someone aspectN ~= (self aspectN value) ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	874	^ false
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	875	Prerequisite:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	876	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	877	"
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	878
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	879	aListOfAspects do:[:eachAspectSymbol \|
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	880	(self myAspectFor:eachAspectSymbol) value ~= (anAspectProvider perform:eachAspectSymbol) ifTrue:[
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	881	"/ to debug missing apply-enablements
18551 15acc9248294 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18425 diff changeset	882	"/ Smalltalk enableBreakPoint:#cg.
15acc9248294 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18425 diff changeset	883	"/ Smalltalk disableBreakPoint:#cg.
15acc9248294 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18425 diff changeset	884
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	885	self debuggingCodeFor:#cg is:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	886	Transcript showCR:'settings aspect is different: ',eachAspectSymbol.
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	887	Transcript showCR:' here: ',((self myAspectFor:eachAspectSymbol) value) printString.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	888	Transcript showCR:' there: ',((anAspectProvider perform:eachAspectSymbol) value) printString.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	889	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	890	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	891	].
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	892	].
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	893	^ false
9797 76995c67487f comment/format in: #hasChangedAspectIn:asComparedTo: Claus Gittinger <cg@exept.de> parents: 9792 diff changeset	894
76995c67487f comment/format in: #hasChangedAspectIn:asComparedTo: Claus Gittinger <cg@exept.de> parents: 9792 diff changeset	895	"Modified: / 23-03-2011 / 15:45:11 / cg"
18551 15acc9248294 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18425 diff changeset	896	"Modified (format): / 21-12-2018 / 14:57:12 / Claus Gittinger"
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	897	!
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	898
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	899	myAspectFor:aspectSymbol
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	900	"/ used to be (self perform:aspectSymbol),
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	901	"/ 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	902
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	903	^ self
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	904	perform:aspectSymbol
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	905	ifNotUnderstood:[
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	906	\|holder\|
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	907
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	908	self createBuilder.
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	909	(holder := builder bindingAt:aspectSymbol) isNil ifTrue:[
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	910	builder aspectAt:aspectSymbol put:(holder := nil asValue).
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	911	holder onChangeSend:#updateModifiedChannel to:self.
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	holder
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	914	].
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	915
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	916	"Created: / 04-06-2018 / 13:45:09 / Claus Gittinger"
14505 a45081b27fc3 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14485 diff changeset	917	!
a45081b27fc3 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14485 diff changeset	918
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	919	readAspects:aListOfAspects from:anAspectProvider
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	920	"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	921	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	922	as ParserFlags.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	923	Using this, and a list of aspect selectors replaces code like:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	924	self aspect1 value:(someone aspect1).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	925	self aspect2 value:(someone aspect2).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	926	...
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	927	self aspectN value:(someone aspectN).
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	928	Prerequisite:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	929	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	930	"
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	931
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	932	aListOfAspects do:[:eachAspectSymbol \|
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	933	(self myAspectFor:eachAspectSymbol)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	934	value:(anAspectProvider perform:eachAspectSymbol)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	935	withoutNotifying:self
9738 7dd722970a40 changed: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 9657 diff changeset	936	].
7dd722970a40 changed: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 9657 diff changeset	937
7dd722970a40 changed: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 9657 diff changeset	938	"Modified: / 08-02-2011 / 09:11:03 / cg"
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	939	"Modified: / 04-06-2018 / 13:45:55 / Claus Gittinger"
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	940	!
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	941
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	942	whichChangedAspectIn:aListOfAspects asComparedTo:anAspectProvider
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	943	"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	944	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	945	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	946	as ParserFlags.
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	947	Using this, and a list of aspect selectors replaces code like:
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	948	someone aspect1 ~= (self aspect1 value) ifTrue:[^ true].
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	949	someone aspect2 ~= (self aspect2 value) ifTrue:[^ true].
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	950	...
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	951	someone aspectN ~= (self aspectN value) ifTrue:[^ true].
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	952	^ false
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	953	Prerequisite:
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	954	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	955	"
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	^ aListOfAspects select:[:eachAspectSymbol \|
18176 96c61c107803 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18174 diff changeset	958	(self aspectFor:eachAspectSymbol) value ~= (anAspectProvider perform:eachAspectSymbol)
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	959	]
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	"Created: / 31-05-2018 / 12:53:05 / Claus Gittinger"
18176 96c61c107803 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18174 diff changeset	962	"Modified: / 02-06-2018 / 05:14:30 / Claus Gittinger"
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	963	!
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	964
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	965	whichChangedAspectIn:aListOfAspects asComparedTo:anAspectProvider into:aBlock
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	966	"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	967	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	968
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	969	^ aListOfAspects select:[:eachAspectSymbol \|
18176 96c61c107803 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18174 diff changeset	970	(self aspectFor:eachAspectSymbol) value ~= (anAspectProvider perform:eachAspectSymbol)
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	971	ifTrue:[ aBlock value:eachAspectSymbol ]
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	972	]
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	"Created: / 31-05-2018 / 12:57:19 / Claus Gittinger"
18176 96c61c107803 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18174 diff changeset	975	"Modified: / 02-06-2018 / 05:14:33 / Claus Gittinger"
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	976	!
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	977
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	978	writeAspects:aListOfAspects to:anAspectProvider
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	979	"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	980	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	981	as ParserFlags.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	982	Using this, and a list of aspect selectors replaces code like:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	983	someone aspect1:(self aspect1 value).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	984	someone aspect2:(self aspect2 value).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	985	...
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	986	someone aspectN:(self aspectN value).
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	987	Prerequisite:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	988	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	989	"
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	990
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	991	aListOfAspects do:[:eachAspectSymbol \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	992	anAspectProvider
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	993	perform:eachAspectSymbol asMutator
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	994	with:(self myAspectFor:eachAspectSymbol) value
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	995	].
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	996
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	997	"Modified: / 24-08-2010 / 16:52:42 / sr"
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	998	"Modified: / 04-06-2018 / 13:45:48 / Claus Gittinger"
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	999	! !
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1000
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	1001	!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	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	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	1004	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	1005
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	1006	"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	1007	! !
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	1008
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1009	!AbstractSettingsApplication methodsFor:'initialization'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1010
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1011	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	1012	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	1013
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1014	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1015	resources := self class classResources.
9484 206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	1016	currentUserPrefs isNil ifTrue:[ self initializeCurrentUserPreferences ].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1017	settingsString := (UISpecification from:(self class windowSpec)) window label.
15486 e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	1018	didModifySettings := false.
15483 7142c70e4a6b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15388 diff changeset	1019
4886 4fcb51786045 readSettings is no longer done in Claus Gittinger <cg@exept.de> parents: 4883 diff changeset	1020	"/ self readSettings.
9484 206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	1021
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	1022	"Modified: / 08-02-2017 / 00:29:53 / cg"
6125 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
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	1025	initializeCurrentUserPreferences
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	1026	currentUserPrefs := UserPreferences current.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1027	! !
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1028
5078 9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	1029	!AbstractSettingsApplication methodsFor:'menu'!
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	1030
5080 9c9736712295 middleButtonMenu fix penk parents: 5078 diff changeset	1031	settingsDialogPopUpMenu
5078 9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	1032	^ nil
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	1033	! !
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	1034
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	1035	!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	1036
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
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	"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	1039	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	1040
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	^ 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	1042
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	"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	1044	! !
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	1045
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	1046	!AbstractSettingsApplication methodsFor:'protocol'!
289972d3e455 * empty log message * penk parents: 4319 diff changeset	1047
4873 3ffb8a8812ec * empty log message * penk parents: 4851 diff changeset	1048	askForChangeOnRelease
17958 947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	1049	"shall we ask if changed settings should be saved, when closing?"
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	1050
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	1051	^ SettingsDialog autoSaveChangedSettingsOnClose not
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	1052	!
97ccd5a946f4 next step penk parents: 4813 diff changeset	1053
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1054	basicReadSettings
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1055	"utility to read aspects as listed in the aspects method.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1056	If that has not been redefined, an error will be reported,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1057	as you should then redefine this method in a subclass"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1058
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1059	\|aspects\|
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1060
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1061	(aspects := self aspects) notNil ifTrue:[
17964 45bb084eb341 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17958 diff changeset	1062	self readAspects: aspects from:currentUserPrefs.
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1063	^ self
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1064	].
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1065	^ self subclassResponsibility:'either basicReadSettings or aspects must be redefined'
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1066	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1067
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1068	basicSaveSettings
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1069	"utility to save aspects as listed in the aspects method.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1070	If that has not been redefined, an error will be reported,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1071	as you should then redefine this method in a subclass"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1072
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1073	\|aspects\|
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1074
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1075	(aspects := self aspects) notNil ifTrue:[
17964 45bb084eb341 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17958 diff changeset	1076	self writeAspects:aspects to:currentUserPrefs.
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1077	^ self
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1078	].
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1079	^ self subclassResponsibility
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1080	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1081
17792 c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1082	editorHelpRelativeWikiURL
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1083	"the relative URL of the dialog-description in the Wiki"
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1084
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1085	^ nil
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1086
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1087	"Created: / 25-11-2017 / 23:43:05 / cg"
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1088	!
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1089
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1090	hasUnsavedChanges
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1091	"utility to check for changed aspects as listed in the aspects method.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1092	If that has not been redefined, an error will be reported,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1093	as you should then redefine this method in a subclass"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1094
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1095	\|aspects\|
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1096
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1097	(aspects := self aspects) notNil ifTrue:[
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1098	^ (self
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1099	hasChangedAspectIn:(self aspects)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1100	asComparedTo:currentUserPrefs)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1101	].
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1102	^ self subclassResponsibility
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1103	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1104
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	1105	help
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1106	\|filename\|
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1107
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1108	filename := self helpFilename.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1109	filename isNil ifTrue:[
18335 a93c65ae395c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18329 diff changeset	1110	self warn:('Sorry - no Help available here.').
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1111	^ self.
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1112	].
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1113	self withWaitCursorDo:[
18075 0e328a880264 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18048 diff changeset	1114	Warning handle:[:ex \|
0e328a880264 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18048 diff changeset	1115	Dialog warn:ex description
0e328a880264 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18048 diff changeset	1116	] do:[
0e328a880264 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18048 diff changeset	1117	HTMLDocumentView openFullOnHelpFile:filename
0e328a880264 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18048 diff changeset	1118	].
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1119	].
18335 a93c65ae395c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18329 diff changeset	1120
a93c65ae395c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18329 diff changeset	1121	"Modified: / 09-08-2018 / 15:29:59 / Claus Gittinger"
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1122	!
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1123
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1124	helpFilename
15492 8a58c96052b4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15490 diff changeset	1125	"subclasses must return either the relative path of a helpFile
8a58c96052b4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15490 diff changeset	1126	in the doc/online/<language>/help directory,
8a58c96052b4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15490 diff changeset	1127	or an absolute path (typically in its packageDirectory).
8a58c96052b4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15490 diff changeset	1128	If an absolute filename is returned, the %(lang) sequence is replaced
8a58c96052b4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15490 diff changeset	1129	by the current user's language.
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1130	Or nil, if no help is available."
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1131
8031 ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	1132	Smalltalk isStandAloneApp ifFalse:[
15492 8a58c96052b4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15490 diff changeset	1133	self subclassResponsibility.
8031 ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	1134	].
ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	1135	^ nil.
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1136	!
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1137
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1138	whichUnsavedChangesInto:aBlock
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1139	"utility to return a list of changed aspects through aBlock.
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1140	(for info only, in a confirmer)"
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1141
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1142	\|aspects\|
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1143
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1144	(aspects := self aspects) notNil ifTrue:[
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1145	self
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1146	whichChangedAspectIn:(self aspects)
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1147	asComparedTo:currentUserPrefs
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1148	into:aBlock.
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1149	^ self
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1150	].
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1151	^ self subclassResponsibility
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1152
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1153	"Created: / 31-05-2018 / 12:56:53 / Claus Gittinger"
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1154	!
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1155
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1156	widgetsWithChangedSettingsDo:aBlock
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1157	"/ to be redefined in subclasses...
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1158
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1159	\|mySpec\|
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1160
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1161	self hasValuesDifferentFromDefault ifTrue:[
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1162	mySpec := self class windowSpec decodeAsLiteralArray.
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1163	(self aspects ? #()) do:[:aspect \|
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1164	\|subSpec widget\|
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1165
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1166	(UserPreferences default perform:aspect) ~= (currentUserPrefs perform:aspect) ifTrue:[
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1167	subSpec := mySpec findSpecForWhich:[:spec \| spec model = aspect].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1168	widget := self window
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1169	allSubViewsDetect:[:w \| w name = subSpec name]
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1170	ifNone:nil.
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1171	aBlock value:widget.
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1172	].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1173	].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1174	].
4226 44e2f83cc526 initial checkin penk parents: diff changeset	1175	! !
44e2f83cc526 initial checkin penk parents: diff changeset	1176
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	1177	!AbstractSettingsApplication methodsFor:'queries'!
1bde09704293 * empty log message * penk parents: 4893 diff changeset	1178
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1179	hasValuesDifferentFromDefault
18584 8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1180	\|savedCurrent\|
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1181
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1182	self hasUnsavedChanges ifTrue:[
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1183	^ true
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1184	].
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1185
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1186	savedCurrent := currentUserPrefs.
18584 8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1187	currentUserPrefs := UserPreferences default.
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1188	^ [self hasUnsavedChanges] ensure:[currentUserPrefs := savedCurrent].
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1189
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1190	"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	1191	!
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1192
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	1193	isEnabledInSettingsDialog:aSettingsDialog
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	1194	^ true
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	1195
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	1196	"Created: / 25-01-2007 / 16:47:45 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	1197	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	1198
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	1199	itemPathName
16309 77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	1200	settingsDialog isNil ifTrue:[^ ''].
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	1201	^ settingsDialog getNameOfApplication:self.
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1202	!
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	quickSearchStrings
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	1205	"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	1206	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	1207	the text in the quick search field"
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1208
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1209	^ self class quickSearchStrings
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	1210	! !
1bde09704293 * empty log message * penk parents: 4893 diff changeset	1211
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1212	!AbstractSettingsApplication::AllSettingsAppl class methodsFor:'documentation'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1213
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1214	documentation
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1215	"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1216	this little app provides an alternative view on all settings keys.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1217	This offers a name-list of settings values, and thus allows for
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1218	settings to be changed for which no 'real' UI has been programmed.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1219	(i.e. a fallback for missing things)
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1220	"
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	!AbstractSettingsApplication::AllSettingsAppl class methodsFor:'interface specs'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1224
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1225	windowSpec
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1226	"This resource specification was automatically generated
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1227	by the UIPainter of ST/X."
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1228
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1229	"Do not manually edit this!! If it is corrupted,
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1230	the UIPainter may not be able to read the specification."
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1231
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1232	"
15956 786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1233	UIPainter new openOnClass:AbstractSettingsApplication::AllSettingsAppl andSelector:#windowSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1234	AbstractSettingsApplication::AllSettingsAppl new openInterface:#windowSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1235	AbstractSettingsApplication::AllSettingsAppl open
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1236	"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1237
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1238	<resource: #canvas>
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1239
15956 786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1240	^
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1241	#(FullSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1242	name: windowSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1243	window:
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1244	(WindowSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1245	label: 'All Settings'
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1246	name: 'All Settings'
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1247	min: (Point 10 10)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1248	bounds: (Rectangle 0 0 659 242)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1249	)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1250	component:
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1251	(SpecCollection
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1252	collection: (
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1253	(DataSetSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1254	name: 'Table1'
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1255	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1256	model: selectedSettingHolder
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1257	hasHorizontalScrollBar: true
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1258	hasVerticalScrollBar: true
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1259	dataList: settingsList
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1260	columns:
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1261	(OrderedCollection
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1262
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1263	(DataSetColumnSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1264	label: 'Name'
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1265	labelButtonType: Button
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1266	height: heightOfFirstRow
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1267	model: key
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1268	menuFromApplication: false
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1269	)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1270	(DataSetColumnSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1271	label: 'Value'
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1272	labelButtonType: Button
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1273	height: heightOfFirstRow
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1274	model: value
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1275	menuFromApplication: false
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1276	)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1277	)
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1278	)
15956 786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1279	)
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	)
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1283	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1284
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1285	!AbstractSettingsApplication::AllSettingsAppl methodsFor:'actions'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1286
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1287	basicReadSettings
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1288	super basicReadSettings.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1289
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1290	usedCompilerForBuild value isNil ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1291	currentUserPrefs usedCompilerForBuild:(Tools::ProjectBuilder defaultUsedCompiler).
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1292	usedCompilerForBuild value:(Tools::ProjectBuilder defaultUsedCompiler).
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1293	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1294
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1295	"Modified: / 26-07-2012 / 23:16:52 / cg"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1296	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1297
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1298	basicSaveSettings
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1299	\|buildDir\|
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1300
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1301	buildDir := buildDirectory value.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1302	buildDir notEmptyOrNil ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1303	buildDir := buildDir asFilename.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1304	buildDir isDirectory ifFalse:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1305	(Dialog confirm:(resources
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1306	stringWithCRs:'Build directory %1 does not exist.\\Create?'
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1307	with:buildDir pathName allBold))
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1308	ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1309	buildDir makeDirectory.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1310	]
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	super basicSaveSettings.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1315
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1316	"Modified: / 22-01-2012 / 10:50:09 / cg"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1317	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1318
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1319	cleanupBuildDirectory
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1320	\|buildDir\|
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1321
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1322	buildDir := buildDirectory value.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1323	buildDir isEmptyOrNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1324	^ self.
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1325	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1326	buildDir := buildDir asFilename.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1327	(buildDir exists and:[Dialog confirm:('Really delete <1p> ?' expandMacrosWith:buildDir physicalPathName)]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1328	buildDir recursiveRemove.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1329	buildDir makeDirectory.
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1330	].
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	!AbstractSettingsApplication::AllSettingsAppl methodsFor:'aspects'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1334
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1335	aspects
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1336	^ #(
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1337	buildDirectory
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1338	localBuild
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1339	usedCompilerForBuild
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1340	)
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	buildDirectory
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1344	buildDirectory isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1345	buildDirectory := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1346	buildDirectory onChangeSend:#updateModifiedChannel to:self
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1347	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1348	^ buildDirectory.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1349	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1350
15956 786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1351	fetchSettingsList
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1352	\|list\|
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1353
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1354	list := List new.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1355	UserPreferences selectorsAndMethodsDo:[:sel :mthd\|
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1356	\|setter getter getterMethod\|
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1357
19133 c41dbe689ab6 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19074 diff changeset	1358	sel argumentCount == 1 ifTrue:[
15956 786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1359	(sel endsWith:$:) ifTrue:[
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1360	setter := sel.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1361	getter := sel copyButLast asSymbolIfInterned.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1362	getter notNil ifTrue:[
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1363	(UserPreferences implements:getter) ifTrue:[
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1364	getterMethod := UserPreferences compiledMethodAt:getter.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1365	getterMethod isObsolete ifFalse:[
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1366	list add:(sel -> (UserPreferences current perform:getter)).
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	].
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1371	].
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1372	].
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1373	list sortBySelector:#key.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1374	^ list
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1375	!
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1376
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1377	hasSourceCodeManager
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1378	^ SourceCodeManager notNil
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1379	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1380
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1381	listOfPossibleCompilers
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1382	^ Tools::ProjectBuilder listOfPossibleCompilers
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1383
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1384	"Created: / 21-01-2012 / 14:05:43 / cg"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1385	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1386
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1387	localBuild
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1388	localBuild isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1389	localBuild := UserPreferences current localBuild asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1390	localBuild onChangeSend:#updateModifiedChannel to:self
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1391	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1392	^ localBuild.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1393	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1394
15956 786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1395	selectedSettingHolder
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1396	<resource: #uiAspect>
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1397
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1398	selectedSettingHolder isNil ifTrue:[
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1399	selectedSettingHolder := ValueHolder new.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1400	].
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1401	^ selectedSettingHolder.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1402	!
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1403
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1404	settingsList
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1405	<resource: #uiAspect>
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1406
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1407	settingsList isNil ifTrue:[
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1408	settingsList := self fetchSettingsList.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1409
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1410	].
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1411	^ settingsList.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1412	!
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1413
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1414	usedCompilerForBuild
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1415	usedCompilerForBuild isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1416	usedCompilerForBuild := nil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1417	usedCompilerForBuild onChangeSend:#updateModifiedChannel to:self
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1418	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1419	^ usedCompilerForBuild.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1420
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1421	"Created: / 22-01-2012 / 10:59:30 / cg"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1422	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1423
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1424	!AbstractSettingsApplication::AllSettingsAppl methodsFor:'help'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1425
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1426	helpFilename
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1427	^ 'Launcher/buildSetup.html'
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1428	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1429
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1430	!AbstractSettingsApplication::AllSettingsAppl methodsFor:'initialization'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1431
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1432	postBuildDirectoryField:aField
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1433	aField historyList value:(Array
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1434	with:(OperatingSystem getHomeDirectory asFilename construct:'stx_build') pathName
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1435	with:(Filename currentDirectory construct:'stx_build') pathName)
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1436	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1437
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1438	!AbstractSettingsApplication::AllSettingsAppl methodsFor:'queries'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1439
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1440	hasUnsavedChanges
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1441	(super hasUnsavedChanges) ifTrue:[^ true].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1442	^ false
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1443
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1444	"Modified: / 22-01-2012 / 10:50:15 / cg"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1445	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1446
17283 ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1447	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl class methodsFor:'documentation'!
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1448
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1449	documentation
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1450	"
17425 8e4e287d31c3 #DOCUMENTATION by mawalch mawalch parents: 17418 diff changeset	1451	I manage packages which are to be loaded automatically
8e4e287d31c3 #DOCUMENTATION by mawalch mawalch parents: 17418 diff changeset	1452	whenever st/x is started
17283 ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1453	"
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
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1456	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl class methodsFor:'help specs'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1457
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1458	helpSpec
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1459	"This resource specification was automatically generated
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1460	by the UIHelpTool of ST/X."
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1461
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1462	"Do not manually edit this!! If it is corrupted,
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1463	the UIHelpTool may not be able to read the specification."
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1464
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1465	"
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1466	UIHelpTool openOnClass:AbstractSettingsApplication::MemorySettingsAppl
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1467	"
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1468
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1469	<resource: #help>
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1470
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1471	^ super helpSpec addPairsFrom:#(
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	1472	#autoloadedPackages
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	1473	'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	1474
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	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl class methodsFor:'image specs'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1479
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1480	defaultIcon
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1481	<resource: #programImage>
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1482
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1483	^ ToolbarIconLibrary packageOpen24x24Icon
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1484	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1485
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1486	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl class methodsFor:'interface specs'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1487
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1488	windowSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1489	"This resource specification was automatically generated
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1490	by the UIPainter of ST/X."
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1491
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1492	"Do not manually edit this!! If it is corrupted,
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1493	the UIPainter may not be able to read the specification."
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1494
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1495	"
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1496	UIPainter new openOnClass:AbstractSettingsApplication::AutoloadedPackagesSettingsAppl andSelector:#windowSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1497	AbstractSettingsApplication::AutoloadedPackagesSettingsAppl new openInterface:#windowSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1498	AbstractSettingsApplication::AutoloadedPackagesSettingsAppl open
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1499	"
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1500
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1501	<resource: #canvas>
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1502
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1503	^
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1504	#(FullSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1505	name: windowSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1506	window:
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1507	(WindowSpec
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	1508	label: 'Autoloaded Packages Settings'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	1509	name: 'Autoloaded Packages Settings'
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1510	min: (Point 10 10)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1511	bounds: (Rectangle 0 0 705 722)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1512	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1513	component:
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1514	(SpecCollection
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1515	collection: (
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1516	(FramedBoxSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1517	label: 'Packages Automatically Loaded at Startup'
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1518	name: 'FramedBox1'
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1519	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1520	labelPosition: topLeft
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1521	translateLabel: true
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	1522	activeHelpKey: autoloadedPackages
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1523	component:
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1524	(SpecCollection
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1525	collection: (
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1526	(SubCanvasSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1527	name: 'SubCanvas1'
16214 3ed986359821 #FEATURE Claus Gittinger <cg@exept.de> parents: 16210 diff changeset	1528	layout: (LayoutFrame 0 0 8 0 0 1 0 1)
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1529	hasHorizontalScrollBar: false
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1530	hasVerticalScrollBar: false
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1531	majorKey: MultipleItemSelectionWidget
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1532	createNewApplication: true
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1533	createNewBuilder: false
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1534	postBuildCallback: postCreatePackageChooserWidget:
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1535	)
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	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl methodsFor:'actions'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1547
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1548	basicReadSettings
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1549	packageChooser notNil ifTrue:[
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1550	packageChooser listOfSelectedItems value:(UserPreferences current autoloadedPackages).
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1551	].
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	basicSaveSettings
16943 3e04cb80244f #BUGFIX by mawalch mawalch parents: 16925 diff changeset	1555	UserPreferences current
3e04cb80244f #BUGFIX by mawalch mawalch parents: 16925 diff changeset	1556	autoloadedPackages:(packageChooser listOfSelectedItems value asArray collect:[:each \| each asString string]).
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1557	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1558
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1559	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl methodsFor:'aspects'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1560
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1561	aspects
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1562	^ #(
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1563	autoloadedPackages
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1564	)
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	possibleItemsLabel
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1568	^ 'Available Packages'.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1569	!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1570
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1571	readPackageList
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1572	"self basicNew readPackageList"
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1573
16219 b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1574	\|packageDirPath list setOfPackages setOfAlreadySelectedPckages\|
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1575
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1576	packageDirPath := Smalltalk getSystemFileName:'packages'.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1577	packageDirPath isNil ifTrue:[
16257 7a7ff15e751b #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16219 diff changeset	1578	^ #()
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1579	].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1580
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1581	list := OrderedCollection new.
16218 25ee303ae609 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16216 diff changeset	1582	setOfPackages := Set new.
16219 b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1583	setOfAlreadySelectedPckages := UserPreferences current autoloadedPackages asSet.
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1584
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1585	packageDirPath asFilename directoryContentsAsFilenames sort do:[:fn \|
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1586	\|item base nm path parentPath parent isLibrary isApplication isAlreadyLoaded
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1587	defClass target packageID\|
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1588
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1589	((fn suffix = 'mcz')
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1590	or:[ fn isDirectory
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1591	or:[ (fn baseName startsWith:'.')
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1592	or:[ (fn baseName = 'README') ]]
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1593	]) ifFalse:[
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1594	base := fn withoutSuffix baseName.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1595	(base startsWith:'lib') ifTrue:[
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1596	nm := (base copyFrom:4).
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1597	fn suffix notEmptyOrNil ifTrue:[
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1598	isLibrary := true.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1599	isApplication := false.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1600	] ifFalse:[
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1601	isLibrary := false.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1602	isApplication := true.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1603	]
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1604	] ifFalse:[
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1605	nm := base.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1606	isLibrary := false.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1607	isApplication := true.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1608	].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1609
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1610	path := nm asCollectionOfSubstringsSeparatedBy:$_.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1611	packageID := (path size > 1)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1612	ifTrue:[ path first , ':' , ((path copyFrom:2) asStringWith:$/) ]
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1613	ifFalse:[ path first ].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1614
16218 25ee303ae609 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16216 diff changeset	1615	(setOfPackages includes:packageID) ifFalse:[
16219 b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1616	(setOfAlreadySelectedPckages includes:packageID) ifFalse:[
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1617	setOfPackages add:packageID.
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1618	isAlreadyLoaded :=
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1619	(defClass := ProjectDefinition definitionClassForPackage:packageID) notNil
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1620	and:[ defClass isLoaded
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1621	and:[ defClass isFullyLoaded ]].
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1622
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1623	isAlreadyLoaded ifTrue:[
19074 47b266104e80 #OTHER by exept Claus Gittinger <cg@exept.de> parents: 19041 diff changeset	1624	list add:(packageID,(' (currently loaded)' allGray))
16219 b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1625	] ifFalse:[
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1626	list add:packageID
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1627	]
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1628	].
16218 25ee303ae609 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16216 diff changeset	1629	].
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1630	].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1631	].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1632	list sort.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1633	^ list
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1634	!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1635
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1636	selectedItemsLabel
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1637	^ 'Packages Loaded at Startup'.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1638	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1639
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1640	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl methodsFor:'help'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1641
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1642	helpFilename
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1643	^ 'Launcher/autoloadedPackagesSettings.html'
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1644	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1645
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1646	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl methodsFor:'initialization'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1647
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1648	postCreatePackageChooserWidget:aPackageChooser
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1649	\|availPackages selectedPackages setOfSelectedPackages\|
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1650
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1651	availPackages := self readPackageList.
16210 58264c7da774 #REFACTORING Claus Gittinger <cg@exept.de> parents: 16200 diff changeset	1652	selectedPackages := UserPreferences current autoloadedPackages.
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1653	setOfSelectedPackages := selectedPackages asSet.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1654
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1655	availPackages := availPackages reject:[:el \| setOfSelectedPackages includes:el].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1656
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1657	packageChooser := aPackageChooser application.
16214 3ed986359821 #FEATURE Claus Gittinger <cg@exept.de> parents: 16210 diff changeset	1658	packageChooser addAllButtonVisibleHolder value:false.
3ed986359821 #FEATURE Claus Gittinger <cg@exept.de> parents: 16210 diff changeset	1659	packageChooser removeAllButtonVisibleHolder value:false.
16210 58264c7da774 #REFACTORING Claus Gittinger <cg@exept.de> parents: 16200 diff changeset	1660	packageChooser listOfPossibleItems value:availPackages asOrderedCollection.
58264c7da774 #REFACTORING Claus Gittinger <cg@exept.de> parents: 16200 diff changeset	1661	packageChooser listOfSelectedItems value:selectedPackages asOrderedCollection.
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1662	packageChooser possibleItemsLabelHolder value:(resources string:self possibleItemsLabel).
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1663	packageChooser selectedItemsLabelHolder value:(resources string:self selectedItemsLabel).
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1664
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1665	packageChooser listOfSelectedItems onChangeSend:#updateModifiedChannel to:self.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1666	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1667
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1668	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl methodsFor:'queries'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1669
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1670	hasUnsavedChanges
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1671	packageChooser notNil ifTrue:[
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1672	packageChooser listOfSelectedItems value asArray = UserPreferences current autoloadedPackages asArray ifFalse:[^true].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1673	].
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1674	^ false.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1675	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1676
17283 ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1677	!AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'documentation'!
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1678
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1679	documentation
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1680	"
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1681	I manage parameters for package building (for deployment)
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1682	"
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
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1685	!AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'help specs'!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1686
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1687	helpSpec
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1688	"This resource specification was automatically generated
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1689	by the UIHelpTool of ST/X."
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1690
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1691	"Do not manually edit this!! If it is corrupted,
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1692	the UIHelpTool may not be able to read the specification."
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1693
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	UIHelpTool openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1696	"
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	<resource: #help>
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1699
18624 46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1700	^ super helpSpec addPairsFrom:#(
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1701
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1702	#buildDirectory
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1703	'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	1704
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1705	#localBuild
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1706	'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	1707
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	"Modified: / 28-02-2019 / 12:52:31 / Claus Gittinger"
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1712	! !
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1713
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1714	!AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'image specs'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1715
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1716	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	1717	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	1718
9803 ca480beae977 set icon resource Stefan Vogel <sv@exept.de> parents: 9797 diff changeset	1719	^ AbstractSettingsApplication::ByteCodeCompilerSettingsAppl defaultIcon
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	1720
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	1721	"Modified: / 17-09-2007 / 11:35:02 / cg"
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1722	! !
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	!AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'interface specs'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1725
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1726	windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1727	"This resource specification was automatically generated
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1728	by the UIPainter of ST/X."
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1729
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1730	"Do not manually edit this!! If it is corrupted,
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1731	the UIPainter may not be able to read the specification."
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1732
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	UIPainter new openOnClass:AbstractSettingsApplication::BuildSettingsAppl andSelector:#windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1735	AbstractSettingsApplication::BuildSettingsAppl new openInterface:#windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1736	AbstractSettingsApplication::BuildSettingsAppl open
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1737	"
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	<resource: #canvas>
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1740
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1741	^
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1742	#(FullSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1743	name: windowSpec
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1744	uuid: '71c633fe-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1745	window:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1746	(WindowSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1747	label: 'Build Settings'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1748	name: 'Build Settings'
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1749	uuid: '71c63796-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1750	min: (Point 10 10)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1751	bounds: (Rectangle 0 0 659 242)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1752	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1753	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1754	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1755	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1756	(VerticalPanelViewSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1757	name: 'VerticalPanel3'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1758	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1759	uuid: '71c63ad4-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1760	horizontalLayout: fit
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1761	verticalLayout: top
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1762	horizontalSpace: 3
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1763	verticalSpace: 4
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1764	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1765	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1766	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1767	(FramedBoxSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1768	label: 'Build Directory'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1769	name: 'FramedBox1'
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1770	uuid: '71c63dae-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1771	labelPosition: topLeft
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1772	translateLabel: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1773	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1774	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1775	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1776	(ViewSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1777	name: 'LocalBuild'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1778	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	1779	activeHelpKey: localBuild
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1780	uuid: '71c63f7a-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1781	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1782	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1783	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1784	(CheckBoxSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1785	label: 'Local Build (Do not use Repository)'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1786	name: 'CheckBox4'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1787	layout: (LayoutFrame 2 0 5 0 -5 1 27 0)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1788	activeHelpKey: localBuild
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1789	uuid: '71c640ce-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1790	enableChannel: hasSourceCodeManager
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1791	model: localBuild
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1792	translateLabel: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1793	)
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	(ViewSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1799	name: 'Build Directory'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1800	layout: (LayoutFrame 0 0 40 0 0 1 70 0)
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1801	uuid: '71c64326-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1802	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1803	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1804	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1805	(LabelSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1806	label: 'Build Directory:'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1807	name: 'BuildDirDirLabel'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1808	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	1809	activeHelpKey: buildDirectory
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1810	uuid: '71c64452-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1811	translateLabel: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1812	adjust: right
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1813	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1814	(FilenameInputFieldSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1815	name: 'FilenameEntryField1'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1816	layout: (LayoutFrame 202 0 0 0 0 1 22 0)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1817	activeHelpKey: buildDirectory
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1818	uuid: '71c64664-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1819	enableChannel: localBuild
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1820	model: buildDirectory
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1821	acceptOnReturn: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1822	acceptOnTab: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1823	acceptOnLostFocus: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1824	acceptOnPointerLeave: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1825	postBuildCallback: postBuildDirectoryField:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1826	viewClassName: FilenameWidgetWithHistory
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1827	)
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	(HorizontalPanelViewSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1833	name: 'ActionsHorizontalPanel'
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1834	layout: (LayoutFrame 62 0.25 71 0 0 1 100 0)
b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1835	uuid: '71c649ca-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1836	horizontalLayout: fitSpace
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1837	verticalLayout: center
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1838	horizontalSpace: 3
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1839	verticalSpace: 3
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1840	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1841	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1842	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1843	(ActionButtonSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1844	label: 'Cleanup Build Directory'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1845	name: 'CleanupBuildDirectoryButton'
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1846	uuid: '71c64bb4-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1847	translateLabel: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1848	tabable: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1849	model: cleanupBuildDirectory
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1850	extent: (Point 396 26)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1851	)
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	extent: (Point 659 136)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1860	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1861	(ViewSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1862	name: 'Box1'
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1863	uuid: '71c64e70-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1864	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1865	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1866	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1867	(LabelSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1868	label: 'Compiler for Build:'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1869	name: 'Label1'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1870	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1871	uuid: '71c64f92-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1872	translateLabel: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1873	adjust: right
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1874	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1875	(ComboListSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1876	name: 'ComboList1'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1877	layout: (LayoutFrame 150 0 0 0 300 0 20 0)
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1878	uuid: '71c6510e-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1879	model: usedCompilerForBuild
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1880	comboList: listOfPossibleCompilers
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1881	useIndex: false
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1882	)
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	extent: (Point 659 25)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1887	)
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	)
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1896	! !
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	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'actions'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1899
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1900	basicReadSettings
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1901	super basicReadSettings.
11168 bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1902
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1903	usedCompilerForBuild value isNil ifTrue:[
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1904	currentUserPrefs usedCompilerForBuild:(Tools::ProjectBuilder defaultUsedCompiler).
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1905	usedCompilerForBuild value:(Tools::ProjectBuilder defaultUsedCompiler).
11682 47a1f9417d38 fix hasChange Claus Gittinger <cg@exept.de> parents: 11585 diff changeset	1906	].
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	"Modified: / 26-07-2012 / 23:16:52 / cg"
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1909	!
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	basicSaveSettings
7962 ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1912	\|buildDir\|
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1913
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1914	buildDir := buildDirectory value.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1915	buildDir notEmptyOrNil ifTrue:[
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1916	buildDir := buildDir asFilename.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1917	buildDir isDirectory ifFalse:[
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1918	(Dialog confirm:(resources
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1919	stringWithCRs:'Build directory %1 does not exist.\\Create?'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1920	with:buildDir pathName allBold))
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1921	ifTrue:[
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1922	buildDir makeDirectory.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1923	]
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	super basicSaveSettings.
11168 bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1928
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1929	"Modified: / 22-01-2012 / 10:50:09 / cg"
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1930	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1931
7962 ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1932	cleanupBuildDirectory
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1933	\|buildDir\|
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1934
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1935	buildDir := buildDirectory value.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1936	buildDir isEmptyOrNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1937	^ self.
7962 ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1938	].
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1939	buildDir := buildDir asFilename.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1940	(buildDir exists and:[Dialog confirm:('Really delete <1p> ?' expandMacrosWith:buildDir physicalPathName)]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1941	buildDir recursiveRemove.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1942	buildDir makeDirectory.
7962 ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1943	].
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1944	! !
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	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'aspects'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1947
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1948	aspects
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1949	^ #(
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1950	buildDirectory
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1951	localBuild
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1952	usedCompilerForBuild
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1953	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1954	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1955
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1956	buildDirectory
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1957	buildDirectory isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1958	buildDirectory := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1959	buildDirectory onChangeSend:#updateModifiedChannel to:self
7173 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	^ buildDirectory.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1962	!
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	hasSourceCodeManager
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1965	^ SourceCodeManager notNil
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1966	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1967
11168 bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1968	listOfPossibleCompilers
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1969	^ Tools::ProjectBuilder listOfPossibleCompilers
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1970
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1971	"Created: / 21-01-2012 / 14:05:43 / cg"
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1972	!
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1973
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1974	localBuild
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1975	localBuild isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1976	localBuild := UserPreferences current localBuild asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1977	localBuild onChangeSend:#updateModifiedChannel to:self
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1978	].
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1979	^ localBuild.
11168 bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1980	!
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1981
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1982	usedCompilerForBuild
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1983	usedCompilerForBuild isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1984	usedCompilerForBuild := nil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1985	usedCompilerForBuild onChangeSend:#updateModifiedChannel to:self
11168 bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1986	].
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1987	^ usedCompilerForBuild.
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1988
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1989	"Created: / 22-01-2012 / 10:59:30 / cg"
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1990	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1991
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1992	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1993
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1994	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1995	^ 'Launcher/buildSetup.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1996	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1997
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1998	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'initialization'!
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1999
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2000	postBuildDirectoryField:aField
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2001	aField historyList value:(Array
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2002	with:(OperatingSystem getHomeDirectory asFilename construct:'stx_build') pathName
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2003	with:(Filename currentDirectory construct:'stx_build') pathName)
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2004	! !
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2005
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	2006	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'queries'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	2007
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	2008	hasUnsavedChanges
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	2009	(super hasUnsavedChanges) ifTrue:[^ true].
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	2010	^ false
11168 bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	2011
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	2012	"Modified: / 22-01-2012 / 10:50:15 / cg"
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	2013	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	2014
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2015	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'defaults'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2016
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2017	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2018
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2019	^ #( nil #level1 #level2 #full )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2020	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2021
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2022	constantFoldingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2023
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2024	^ #('disabled' 'level1 (always safe)' 'level2 (usually safe)' 'full')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2025	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2026
17283 ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2027	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'documentation'!
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2028
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2029	documentation
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2030	"
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2031	I manage settings for bytecode compilation.
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2032	Mostly controlling accepted syntax, warnings and errors.
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	! !
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2035
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2036	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'help specs'!
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2037
18624 46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	2038	helpSpec
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2039	"This resource specification was automatically generated
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2040	by the UIHelpTool of ST/X."
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2041
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2042	"Do not manually edit this!! If it is corrupted,
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2043	the UIHelpTool may not be able to read the specification."
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	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2046	UIHelpTool openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl
12764 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
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2049	<resource: #help>
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2050
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2051	^ super helpSpec addPairsFrom:#(
12982 8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2052
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2053	#allowAssignmentToPoolVariable
17057 b18c8b16129d #DOCUMENTATION by mawalch mawalch parents: 17006 diff changeset	2054	'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	2055
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2056	#allowDollarInIdentifier
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2057	'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	2058
12982 8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2059	#allowDolphinExtensions
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2060	'Allow Dolphin-Smalltalk specific syntax extensions'
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2061
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2062	#allowEmptyStatements
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2063	'Allow empty statements'
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	#allowExtendedBinarySelectors
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2066	'Allow extended binary selectors (more than 2 characters, including "^", "\|" and "#")'
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	#allowFixedPointLiterals
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2069	'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	2070
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2071	#allowOldStyleAssignment
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2072	'Allow "_" as assignment. May be required to filein Squeak code'
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2073
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2074	#allowParagraphInIdentifier
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2075	'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	2076
12982 8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2077	#allowQualifiedNames
14485 9e8140add846 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14477 diff changeset	2078	'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	2079
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2080	#allowReservedWordsAsSelectors
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2081	'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	2082
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2083	#allowSqueakExtensions
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2084	'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	2085
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2086	#allowUnderscoreInIdentifier
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2087	'Allow underscore characters in identifiers. Not compatible with Squeak.'
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2088
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2089	#allowVisualAgeESSymbolLiterals
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2090	'Allow VisualAge ESsymbol literals (##xxx).\Will generate regular symbols when compiled'
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2091
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2092	#allowVisualAgePrimitives
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2093	'Allow VisualAge primitive specification syntax'
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2094
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2095	#arraysAreImmutable
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2096	'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	2097
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2098	#fullDebugInfo
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2099	'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	2100
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2101	#reenableSuppressedWarnings
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2102	'Reenable warnings which were previously suppressed for individual methods'
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	#stringsAreImmutable
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2105	'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	2106
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2107	#warnAboutBadComments
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2108	'Warn if a comment is empty or consists of whitespace only'
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	#warnAboutMissingMethodComment
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2111	'Warn if a method has no comment'
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	#warnAboutNonLowercaseLocalVariableNames
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2114	'By convention, local variables should start with a lowercase character'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2115
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2116	#warnAboutPossiblyUnimplementedSelectors
14485 9e8140add846 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14477 diff changeset	2117	'Warn about a possibly unimplemented selector in a message send'
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2118
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2119	#warnAboutPossiblyUninitializedLocals
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2120	'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	2121
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2122	#warnAboutReferenceToPrivateClass
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2123	'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	2124
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2125	#warnAboutShortLocalVariableNames
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2126	'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	2127
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2128	#warnAboutWrongVariableNames
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2129	'Checks for bad articles in variable names (eg. "anUser")'
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	#warnCommonMistakes
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2132	'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	2133
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2134	#warnDollarInIdentifier
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2135	'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	2136
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2137	#warnInconsistentReturnValues
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2138	'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	2139
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2140	#warnOldStyleAssignment
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2141	'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	2142
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2143	#warnParagraphInIdentifier
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2144	'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	2145
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2146	#warnPlausibilityChecks
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2147	'Perform plausibility checks and warn about any such possible problem'
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2148
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2149	#warnPossibleIncompatibilities
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2150	'Warn about other possible incompatibilities'
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2151
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2152	#warnSTXSpecials
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2153	'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	2154
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2155	#warnUnderscoreInIdentifier
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2156	'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	2157
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2158	#warnUnusedVars
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2159	'Warn if a local variable is never used'
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2160
12982 8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2161	#warnings
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2162	'Turn off all warnings'
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2163
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2164	)
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2165
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2166	"Modified: / 23-04-2019 / 23:23:03 / Claus Gittinger"
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2167	! !
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2168
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2169	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2170
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2171	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	2172	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	2173
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2174	^ self defaultIcon5
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	2175
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	2176	"Modified: / 17-09-2007 / 11:35:05 / cg"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2177	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2178
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2179	defaultIcon1
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2180	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2181	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2182
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2183	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2184	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2185
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2186	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2187	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2188	ImageEditor openOnClass:self andSelector:#defaultIcon1
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2189	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2190	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2191
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2192	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2193
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2194	^Icon
15764 acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2195	constantNamed:'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl defaultIcon1'
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2196	ifAbsentPut:[(Depth2Image width:22 height:22) bits:(ByteArray fromPackedString:'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2197	@@@@@@@@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	2198	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	2199	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2200
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2201	defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2202	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2203	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2204
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2205	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2206	the ImageEditor may not be able to read the specification."
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	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2209	self defaultIcon2 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2210	ImageEditor openOnClass:self andSelector:#defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2211	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2212	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2213
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2214	<resource: #image>
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	^Icon
15764 acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2217	constantNamed:'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl defaultIcon2'
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2218	ifAbsentPut:[(Depth4Image width:24 height:24) bits:(ByteArray fromPackedString:'
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2219	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HP@CL3L3L3L3L0@RHP@@@3L3L3L0@0@RY!!@AHCL3L3LBD@E&Y&DVPCL3
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2220	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	2221	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	2222	@@@@@@@@@@@@@@@@@@@@@@@@') 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	2223	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2224
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2225	defaultIcon5
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2226	"This resource specification was automatically generated
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2227	by the ImageEditor of ST/X."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2228
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2229	"Do not manually edit this!! If it is corrupted,
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2230	the ImageEditor may not be able to read the specification."
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	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2233	self defaultIcon5 inspect
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2234	ImageEditor openOnClass:self andSelector:#defaultIcon5
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2235	Icon flushCachedIcons
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2236	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2237
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2238	<resource: #image>
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	^Icon
15764 acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2241	constantNamed:'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl defaultIcon5'
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2242	ifAbsentPut:[(Depth4Image width:24 height:24) bits:(ByteArray fromPackedString:'
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2243	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@AH@@@@@@@@@@@HP@UTP@R@@@@@@@@MQEU
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2244	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	2245	@@@@@UUUUUTP@@@@@@@@ESIUURMQ@@@@@@@@H0@UTP@2@@@@@@@@@@@AL@@@@@@@@@@@@@@AL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@L@@@@@@@@@@@@@@@
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2246	@@@@@@@@@@@@@@@@@@@@@@@@') 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	2247	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2248
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2249	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2250
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2251	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2252	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2253	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2254
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2255	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2256	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2257
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2258	"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2259	UIPainter new openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2260	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2261	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2262	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2263
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2264	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2265
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2266	^
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2267	#(FullSpec
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2268	name: windowSpec
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2269	uuid: 'e0a1dd6e-660d-11e9-bfcd-b8f6b1108e05'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2270	window:
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2271	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2272	label: 'Byte Code Compiler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2273	name: 'Byte Code Compiler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2274	flags: 1
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2275	uuid: '9c92dc14-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2276	min: (Point 10 10)
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2277	bounds: (Rectangle 0 0 664 712)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2278	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2279	component:
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2280	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2281	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2282	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2283	name: 'VerticalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2284	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	2285	uuid: '9c92e3bc-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2286	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2287	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2288	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2289	verticalSpace: 3
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2290	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2291	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2292	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2293	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2294	label: 'Just in Time Compilation to Machine Code'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2295	name: 'JustInTimeCompilation'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2296	uuid: '9c92e8da-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2297	model: justInTimeCompilation
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2298	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2299	extent: (Point 664 25)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2300	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2301	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2302	name: 'Separator3'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2303	uuid: '9c92ed9e-1f3f-11b2-903e-3065ec8abe8a'
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2304	extent: (Point 664 3)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2305	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2306	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2307	name: 'Box1'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2308	uuid: '9c92f0aa-1f3f-11b2-903e-3065ec8abe8a'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2309	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2310	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2311	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2312	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2313	name: 'VerticalPanel1_1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2314	layout: (LayoutFrame 0 0 0 0 -20 0.5 0 1)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2315	uuid: '9c92f370-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2316	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2317	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2318	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2319	verticalSpace: 0
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2320	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2321	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2322	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2323	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2324	label: 'Allow Underscore in Identifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2325	name: 'AllowUnderscoreInIdentifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2326	activeHelpKey: allowUnderscoreInIdentifier
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2327	uuid: '9c92f618-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2328	model: allowUnderscoreInIdentifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2329	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2330	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2331	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2332	(CheckBoxSpec
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2333	label: 'Allow Dollar in Identifiers ($)'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2334	name: 'AllowDollarInIdentifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2335	activeHelpKey: allowDollarInIdentifier
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2336	uuid: '9c92f8e8-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2337	model: allowDollarInIdentifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2338	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2339	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2340	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2341	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2342	label: 'Allow VW3 QualifiedNames'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2343	name: 'AllowVW3QualifiedNames'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2344	activeHelpKey: allowQualifiedNames
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2345	uuid: '9c92fb40-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2346	model: allowQualifiedNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2347	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2348	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2349	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2350	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2351	label: 'Allow OldStyle Assignment (_)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2352	name: 'AllowOldStyleAssignment'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2353	activeHelpKey: allowOldStyleAssignment
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2354	uuid: '9c92fd7a-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2355	model: allowOldStyleAssignment
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2356	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2357	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2358	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2359	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2360	label: 'Allow Reserved Words as Selector (self)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2361	name: 'AllowReservedWordsAsSelector'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2362	activeHelpKey: allowReservedWordsAsSelectors
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2363	uuid: '9c92ffaa-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2364	model: allowReservedWordsAsSelectors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2365	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2366	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2367	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2368	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2369	label: 'Allow Extended Binary Selectors'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2370	name: 'CheckBox4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2371	activeHelpKey: allowExtendedBinarySelectors
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2372	uuid: '9c9301e4-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2373	model: allowExtendedBinarySelectors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2374	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2375	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2376	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2377	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2378	label: 'Allow Assignment to Pool Variable'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2379	name: 'CheckBox6'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2380	activeHelpKey: allowAssignmentToPoolVariable
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2381	uuid: '9c930450-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2382	model: allowAssignmentToPoolVariable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2383	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2384	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2385	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2386	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2387
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	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2390	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2391	name: 'VerticalPanel1_2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2392	layout: (LayoutFrame 0 0.5 0 0 0 1 0 1)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2393	uuid: '9c9306ee-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2394	horizontalLayout: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2395	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2396	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2397	verticalSpace: 0
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2398	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2399	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2400	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2401	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2402	label: 'Allow Squeak Extensions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2403	name: 'AllowSqueakExtensions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2404	activeHelpKey: allowSqueakExtensions
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2405	uuid: '9c93095a-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2406	model: allowSqueakExtensions
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2407	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2408	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2409	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2410	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2411	label: 'Allow Dolphin Extensions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2412	name: 'AllowDolphinExtensions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2413	activeHelpKey: allowDolphinExtensions
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2414	uuid: '9c930bb2-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2415	model: allowDolphinExtensions
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2416	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2417	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2418	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2419	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2420	label: 'Allow VisualAge ES-Symbols'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2421	name: 'AllowVisualAgeESSymbolLiterals'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2422	activeHelpKey: allowVisualAgeESSymbolLiterals
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2423	uuid: '9c930dec-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2424	model: allowVisualAgeESSymbolLiterals
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2425	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2426	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2427	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2428	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2429	label: 'Allow VisualAge Primitives'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2430	name: 'CheckBox8'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2431	activeHelpKey: allowVisualAgePrimitives
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2432	uuid: '9c931026-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2433	model: allowVisualAgePrimitives
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2434	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2435	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2436	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2437	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2438	label: 'Allow FixedPoint-Number Literals'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2439	name: 'AllowFixedPointLiterals'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2440	activeHelpKey: allowFixedPointLiterals
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2441	uuid: '9c931242-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2442	model: allowFixedPointLiterals
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2443	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2444	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2445	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2446	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2447	label: 'Allow Empty Statements'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2448	name: 'AllowEmptyStatements'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2449	activeHelpKey: allowEmptyStatements
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2450	uuid: '9c93147c-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2451	model: allowEmptyStatements
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2452	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2453	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2454	)
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2455	(CheckBoxSpec
19133 c41dbe689ab6 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19074 diff changeset	2456	label: 'Allow Paragraph in Identifiers (§)'
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2457	name: 'CheckBox10'
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2458	activeHelpKey: allowParagraphInIdentifier
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2459	uuid: '9c9316ac-1f3f-11b2-903e-3065ec8abe8a'
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2460	model: allowParagraphInIdentifier
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2461	translateLabel: true
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2462	extent: (Point 665 22)
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2463	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2464	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2465
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2466	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2467	)
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
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2470	)
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2471	extent: (Point 664 157)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2472	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2473	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2474	name: 'Separator4'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2475	uuid: '9c931954-1f3f-11b2-903e-3065ec8abe8a'
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2476	extent: (Point 664 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2477	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2478	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2479	label: 'Warnings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2480	name: 'Warnings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2481	activeHelpKey: warnings
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2482	uuid: '9c931b7a-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2483	model: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2484	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2485	extent: (Point 664 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2486	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2487	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2488	name: 'Box2'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2489	uuid: '9c931e36-1f3f-11b2-903e-3065ec8abe8a'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2490	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2491	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2492	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2493	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2494	name: 'VerticalPanel2_1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2495	layout: (LayoutFrame 20 0 0 0 0 0.5 0 1)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2496	uuid: '9c932052-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2497	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2498	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2499	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2500	verticalSpace: 0
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2501	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2502	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2503	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2504	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2505	label: 'ST/X Extensions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2506	name: 'STXExtensions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2507	activeHelpKey: warnSTXSpecials
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2508	uuid: '9c9322be-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2509	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2510	model: warnSTXSpecials
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2511	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2512	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2513	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2514	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2515	label: 'Reference to Private Class'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2516	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2517	activeHelpKey: warnAboutReferenceToPrivateClass
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2518	uuid: '9c932534-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2519	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2520	model: warnAboutReferenceToPrivateClass
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2521	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2522	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2523	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2524	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2525	label: 'Underscores in Identifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2526	name: 'UnderscoresInIdentifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2527	activeHelpKey: warnUnderscoreInIdentifier
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2528	uuid: '9c932778-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2529	enableChannel: enableUnderscore
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2530	model: warnUnderscoreInIdentifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2531	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2532	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2533	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2534	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2535	label: 'Dollars in Identifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2536	name: 'DollarsInIdentifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2537	activeHelpKey: warnDollarInIdentifier
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2538	uuid: '9c9329b2-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2539	enableChannel: enableDollar
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2540	model: warnDollarInIdentifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2541	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2542	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2543	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2544	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2545	label: 'OldStyle Assignment'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2546	name: 'OldStyleAssignment'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2547	activeHelpKey: warnOldStyleAssignment
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2548	uuid: '9c932bec-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2549	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2550	model: warnOldStyleAssignment
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2551	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2552	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2553	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2554	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2555	label: 'Possible Incompatibilities'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2556	name: 'PossibleIncompatibilities'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2557	activeHelpKey: warnPossibleIncompatibilities
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2558	uuid: '9c932e1c-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2559	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2560	model: warnPossibleIncompatibilities
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2561	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2562	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2563	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2564	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2565	label: 'Possible STC Compilation Problems'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2566	name: 'PossibleSTCCompilationProblems'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2567	activeHelpKey: warnAboutPossibleSTCCompilationProblems
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2568	uuid: '9c933056-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2569	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2570	model: warnAboutPossibleSTCCompilationProblems
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2571	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2572	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2573	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2574	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2575	label: 'Possibly Unimplemented Selectors'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2576	name: 'CheckBox3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2577	activeHelpKey: warnAboutPossiblyUnimplementedSelectors
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2578	uuid: '9c93329a-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2579	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2580	model: warnAboutPossiblyUnimplementedSelectors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2581	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2582	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2583	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2584	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2585	label: 'Plausibility Checks'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2586	name: 'CheckBox7'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2587	activeHelpKey: warnPlausibilityChecks
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2588	uuid: '9c9334ca-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2589	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2590	model: warnPlausibilityChecks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2591	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2592	extent: (Point 312 22)
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2593	)
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2594	(CheckBoxSpec
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2595	label: 'Possibly Uninitialized Locals'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2596	name: 'CheckBox12'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2597	activeHelpKey: warnAboutPossiblyUninitializedLocals
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2598	uuid: '9c93329a-1f3f-11b2-903e-3065ec8abe8a'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2599	enableChannel: warnings
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2600	model: warnAboutPossiblyUninitializedLocals
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2601	translateLabel: true
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2602	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2603	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2604	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2605
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	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2608	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2609	name: 'VerticalPanel2_2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2610	layout: (LayoutFrame -1 0.5 0 0 0 1 0 1)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2611	uuid: '9c933736-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2612	horizontalLayout: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2613	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2614	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2615	verticalSpace: 0
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2616	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2617	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2618	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2619	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2620	label: 'Unused Method Variables'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2621	name: 'UnusedMethodVariables'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2622	activeHelpKey: warnUnusedVars
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2623	uuid: '9c933984-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2624	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2625	model: warnUnusedVars
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2626	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2627	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2628	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2629	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2630	label: 'Bad Variable Names (non-English article)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2631	name: 'BadVariableNames'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2632	activeHelpKey: warnAboutWrongVariableNames
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2633	uuid: '9c933c90-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2634	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2635	model: warnAboutWrongVariableNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2636	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2637	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2638	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2639	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2640	label: 'Bad (Non-Lowercase) Local Variable Names'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2641	name: 'BadLocalVariableNames'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2642	activeHelpKey: warnAboutNonLowercaseLocalVariableNames
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2643	uuid: '9c933ef2-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2644	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2645	model: warnAboutNonLowercaseLocalVariableNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2646	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2647	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2648	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2649	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2650	label: 'Bad (Short) Local Variable Names'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2651	name: 'CheckBox2'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2652	activeHelpKey: warnAboutShortLocalVariableNames
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2653	uuid: '9c934140-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2654	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2655	model: warnAboutShortLocalVariableNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2656	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2657	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2658	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2659	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2660	label: 'Bad (empty) Comments'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2661	name: 'BadComments'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2662	activeHelpKey: warnAboutBadComments
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2663	uuid: '9c93437a-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2664	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2665	model: warnAboutBadComments
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2666	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2667	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2668	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2669	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2670	label: 'Method-Comment Missing '
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2671	name: 'CheckBox5'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2672	activeHelpKey: warnAboutMissingMethodComment
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2673	uuid: '9c9345be-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2674	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2675	model: warnAboutMissingMethodComment
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2676	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2677	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2678	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2679	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2680	label: 'Inconsistent Return Values'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2681	name: 'InconsistentReturnValues'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2682	activeHelpKey: warnInconsistentReturnValues
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2683	uuid: '9c9347f8-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2684	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2685	model: warnInconsistentReturnValues
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2686	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2687	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2688	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2689	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2690	label: 'Common Mistakes'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2691	name: 'CommonMistakes'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2692	activeHelpKey: warnCommonMistakes
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2693	uuid: '9c934a32-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2694	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2695	model: warnCommonMistakes
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2696	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2697	extent: (Point 600 22)
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2698	)
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2699	(CheckBoxSpec
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2700	label: 'Paragraph in Identifier'
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2701	name: 'CheckBox11'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2702	activeHelpKey: warnParagraphInIdentifier
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2703	uuid: '9c934c6c-1f3f-11b2-903e-3065ec8abe8a'
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2704	enableChannel: enableParagraph
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2705	model: warnParagraphInIdentifier
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2706	translateLabel: true
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2707	extent: (Point 600 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2708	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2709	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2710
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2711	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2712	)
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
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2715	)
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2716	extent: (Point 664 224)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2717	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2718	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2719	name: 'Box4'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2720	uuid: '9c934f00-1f3f-11b2-903e-3065ec8abe8a'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2721	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2722	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2723	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2724	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2725	label: 'Reenable Suppressed Warnings Now'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2726	name: 'Button1'
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2727	layout: (LayoutFrame 0 0.5 0 0 0 1 0 1)
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2728	activeHelpKey: reenableSuppressedWarnings
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2729	uuid: '9c93519e-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2730	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2731	model: reenableSuppressedWarnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2732	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2733	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2734
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2735	)
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2736	extent: (Point 664 33)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2737	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2738	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2739	name: 'Separator5'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2740	uuid: '9c9356ee-1f3f-11b2-903e-3065ec8abe8a'
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2741	extent: (Point 664 2)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2742	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2743	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2744	label: 'Literal Strings are Immutable'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2745	name: 'LiteralStringsAreImmutable'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2746	activeHelpKey: stringsAreImmutable
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2747	uuid: '9c935932-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2748	model: stringsAreImmutable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2749	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2750	extent: (Point 664 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2751	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2752	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2753	label: 'Literal Arrays are Immutable'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2754	name: 'CheckBox9'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2755	activeHelpKey: arraysAreImmutable
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2756	uuid: '9c935c02-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2757	model: arraysAreImmutable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2758	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2759	extent: (Point 664 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2760	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2761	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2762	label: 'Full Debug Info'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2763	name: 'FullDebugInfo'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2764	activeHelpKey: fullDebugInfo
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2765	uuid: '9c935ec8-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2766	model: fullDebugSupport
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2767	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2768	extent: (Point 664 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2769	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2770	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2771	name: 'Separator6'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2772	uuid: '9c936170-1f3f-11b2-903e-3065ec8abe8a'
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2773	extent: (Point 664 2)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2774	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2775	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2776	name: 'Box3'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2777	uuid: '9c93636e-1f3f-11b2-903e-3065ec8abe8a'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2778	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2779	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2780	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2781	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2782	label: 'Constant Folding:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2783	name: 'ConstantFoldingLabel'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2784	layout: (LayoutFrame 0 0 0 0 328 0 22 0)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2785	uuid: '9c93658a-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2786	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2787	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2788	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2789	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2790	label: 'PopUp List'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2791	name: 'ConstantFolding'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2792	layout: (LayoutFrame 330 0 0 0 -5 1 22 0)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2793	uuid: '9c9368f0-1f3f-11b2-903e-3065ec8abe8a'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2794	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2795	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2796	model: constantFoldingSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2797	menu: constantFolding
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2798	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2799	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2800	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2801
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2802	)
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2803	extent: (Point 664 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2804	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2805	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2806
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	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2809	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2810
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2811	)
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2812	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2813	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2814
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2815	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2816
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2817	basicReadSettings
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2818	self
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2819	readAspects:(self simpleAspects)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2820	from:ParserFlags.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2821
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2822	self constantFoldingSelection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2823	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	2824
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2825	self supportsJustInTimeCompilation ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2826	self fullDebugSupport value:(ObjectMemory fullSingleStepSupport ? false)
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2827	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2828	self fullDebugSupport value:(ParserFlags fullLineNumberInfo)
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2829	].
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	2830
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2831	self supportsJustInTimeCompilation ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2832	self justInTimeCompilation value:(ObjectMemory justInTimeCompilation ? false)
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2833	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2834	self justInTimeCompilation value:false
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2835	].
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	2836
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	2837	self warnAboutMissingMethodComment value:(UserPreferences current enforceComment).
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	2838
11814 ffce903c0a2f lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 11774 diff changeset	2839	"Modified: / 26-09-2012 / 14:16:32 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2840	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2841
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2842	basicSaveSettings
17532 4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2843	\|extensionSettingsChanged\|
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2844
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2845	extensionSettingsChanged := ParserFlags allowSqueakExtensions ~= self allowSqueakExtensions.
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2846
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2847	self
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2848	writeAspects:(self simpleAspects)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2849	to:ParserFlags.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2850
11814 ffce903c0a2f lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 11774 diff changeset	2851	ParserFlags lineNumberInfo:(self fullDebugSupport value ifTrue:[#full] ifFalse:[true]).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2852
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2853	Compiler foldConstants:(self class constantFoldingOptions at:self constantFoldingSelection value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2854
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2855	self supportsJustInTimeCompilation ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2856	\| justInTime \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2857	justInTime := self justInTimeCompilation value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2858	justInTime ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2859	Smalltalk allMethodsDo:[:m \| m checked:false].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2860	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2861	ObjectMemory justInTimeCompilation:justInTime.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2862	ObjectMemory fullSingleStepSupport:self fullDebugSupport value.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2863	].
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	2864
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	2865	UserPreferences current enforceComment:(self warnAboutMissingMethodComment value).
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	2866
17532 4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2867	extensionSettingsChanged ifTrue:[
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2868	ParserFlags allowSymbolsStartingWithDigit:(ParserFlags allowSqueakExtensions)
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2869	].
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2870
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2871	"Modified: / 18-06-2017 / 16:28:58 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2872	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2873
11292 7b6d254246a5 per-method warnings Claus Gittinger <cg@exept.de> parents: 11268 diff changeset	2874	reenableSuppressedWarnings
7b6d254246a5 per-method warnings Claus Gittinger <cg@exept.de> parents: 11268 diff changeset	2875	ParserFlags reenableAllSuppressedFlags
7b6d254246a5 per-method warnings Claus Gittinger <cg@exept.de> parents: 11268 diff changeset	2876
7b6d254246a5 per-method warnings Claus Gittinger <cg@exept.de> parents: 11268 diff changeset	2877	"Created: / 28-02-2012 / 13:32:52 / cg"
7b6d254246a5 per-method warnings Claus Gittinger <cg@exept.de> parents: 11268 diff changeset	2878	!
7b6d254246a5 per-method warnings Claus Gittinger <cg@exept.de> parents: 11268 diff changeset	2879
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2880	simpleAspects
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2881	^
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2882	#(
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2883	warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2884	warnCommonMistakes
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2885	warnPossibleIncompatibilities
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2886	warnDollarInIdentifier
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2887	warnParagraphInIdentifier
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2888	warnOldStyleAssignment
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2889	warnSTXSpecials
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2890	warnUnderscoreInIdentifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2891	warnUnusedVars
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2892	warnAboutWrongVariableNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2893	warnAboutBadComments
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2894	warnInconsistentReturnValues
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2895	warnAboutNonLowercaseLocalVariableNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2896	warnAboutShortLocalVariableNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2897	warnAboutPossibleSTCCompilationProblems
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2898	warnAboutReferenceToPrivateClass
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2899	warnAboutPossiblyUnimplementedSelectors
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2900	warnAboutPossiblyUninitializedLocals
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2901	warnPlausibilityChecks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2902
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2903	allowDollarInIdentifier
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2904	allowParagraphInIdentifier
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2905	allowDolphinExtensions
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2906	allowOldStyleAssignment
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2907	allowQualifiedNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2908	allowReservedWordsAsSelectors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2909	allowSqueakExtensions
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2910	allowUnderscoreInIdentifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2911	allowVisualAgeESSymbolLiterals
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2912	allowVisualAgePrimitives
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2913	allowFixedPointLiterals
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2914	allowEmptyStatements
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2915	allowExtendedBinarySelectors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2916
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2917	arraysAreImmutable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2918	stringsAreImmutable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2919	allowAssignmentToPoolVariable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2920	)
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2921
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2922	"Created: / 20-11-2006 / 22:37:17 / cg"
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2923	"Modified: / 16-11-2016 / 22:40:51 / cg"
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2924	"Modified: / 23-04-2019 / 23:16:47 / Claus Gittinger"
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2925	!
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2926
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2927	stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2928
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2929	AbstractLauncherApplication::LauncherDialogs stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2930	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2931
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2932	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2933
10698 61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2934	allowAssignmentToPoolVariable
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2935
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2936	allowAssignmentToPoolVariable isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2937	allowAssignmentToPoolVariable := ParserFlags allowAssignmentToPoolVariable asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2938	allowAssignmentToPoolVariable onChangeSend:#updateModifiedChannel to:self.
10698 61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2939	].
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2940	^ allowAssignmentToPoolVariable.
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2941
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2942	"Created: / 12-09-2011 / 17:26:01 / cg"
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2943	!
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2944
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	2945	allowDollarInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2946
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2947	allowDollar isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2948	allowDollar := ParserFlags allowDollarInIdentifier asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2949	allowDollar onChangeSend:#updateModifiedChannel to:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2950	allowDollar addDependent:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2951	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2952	^ allowDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2953	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2954
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2955	allowDolphinExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2956
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2957	allowDolphinExtensions isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2958	allowDolphinExtensions := ParserFlags allowDolphinExtensions asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2959	allowDolphinExtensions onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2960	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2961	^ allowDolphinExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2962	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2963
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2964	allowEmptyStatements
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2965
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2966	allowEmptyStatements isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2967	allowEmptyStatements := ParserFlags allowEmptyStatements asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2968	allowEmptyStatements onChangeSend:#updateModifiedChannel to:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2969	"/ allowEmptyStatements addDependent:self.
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2970	].
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2971	^ allowEmptyStatements.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2972
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2973	"Created: / 20-11-2006 / 22:35:10 / cg"
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2974	!
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2975
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	2976	allowExtendedBinarySelectors
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	2977
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	2978	allowExtendedBinarySelectors isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2979	allowExtendedBinarySelectors := (ParserFlags allowExtendedBinarySelectors ? false) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2980	allowExtendedBinarySelectors onChangeSend:#updateModifiedChannel to:self.
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	2981	].
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	2982	^ allowExtendedBinarySelectors.
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	2983	!
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	2984
6578 560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	2985	allowFixedPointLiterals
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	2986
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	2987	allowFixedPointLiterals isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2988	allowFixedPointLiterals := (ParserFlags allowFixedPointLiterals ? false) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2989	allowFixedPointLiterals onChangeSend:#updateModifiedChannel to:self.
6578 560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	2990	].
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	2991	^ allowFixedPointLiterals.
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	2992	!
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	2993
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2994	allowOldStyleAssignment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2995
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2996	allowOldStyleAssignment isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2997	allowOldStyleAssignment := ParserFlags allowOldStyleAssignment asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2998	allowOldStyleAssignment onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2999	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3000	^ allowOldStyleAssignment.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3001	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3002
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3003	allowParagraphInIdentifier
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3004
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3005	allowParagraph isNil ifTrue:[
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3006	allowParagraph := ParserFlags allowParagraphInIdentifier asValue.
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3007	allowParagraph onChangeSend:#updateModifiedChannel to:self.
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3008	allowParagraph addDependent:self.
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3009	].
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3010	^ allowParagraph.
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3011
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3012	"Created: / 16-11-2016 / 22:38:18 / cg"
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3013	!
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3014
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3015	allowQualifiedNames
18425 fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	3016	"true, if '#{..}' and 'namespace.varName' qualified names are allowed"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3017
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3018	allowQualifiedNames isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3019	allowQualifiedNames := ParserFlags allowQualifiedNames asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3020	allowQualifiedNames onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3021	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3022	^ allowQualifiedNames.
18425 fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	3023
fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	3024	"Modified (comment): / 23-09-2018 / 01:08:42 / Claus Gittinger"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3025	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3026
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3027	allowReservedWordsAsSelectors
18841 980c8159d853 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18816 diff changeset	3028	"if true, 'self', 'super', 'thisContext', 'nil', 'true' and 'false' are allowed
980c8159d853 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18816 diff changeset	3029	as unary message selectors."
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3030
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3031	allowReservedWordsAsSelectors isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3032	allowReservedWordsAsSelectors := ParserFlags allowReservedWordsAsSelectors asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3033	allowReservedWordsAsSelectors onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3034	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3035	^ allowReservedWordsAsSelectors.
18841 980c8159d853 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18816 diff changeset	3036
980c8159d853 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18816 diff changeset	3037	"Modified (comment): / 25-06-2019 / 11:16:36 / Claus Gittinger"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3038	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3039
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3040	allowSqueakExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3041
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3042	allowSqueakExtensions isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3043	allowSqueakExtensions := ParserFlags allowSqueakExtensions asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3044	allowSqueakExtensions onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3045	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3046	^ allowSqueakExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3047	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3048
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3049	allowUnderscoreInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3050
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3051	allowUnderscore isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3052	allowUnderscore := ParserFlags allowUnderscoreInIdentifier asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3053	allowUnderscore onChangeSend:#updateModifiedChannel to:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3054	allowUnderscore addDependent:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3055	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3056	^ allowUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3057	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3058
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	3059	allowVisualAgeESSymbolLiterals
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	3060
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	3061	allowVisualAgeESSymbolLiterals isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3062	allowVisualAgeESSymbolLiterals := ParserFlags allowVisualAgeESSymbolLiterals asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3063	allowVisualAgeESSymbolLiterals onChangeSend:#updateModifiedChannel to:self.
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	3064	].
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	3065	^ allowVisualAgeESSymbolLiterals.
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	3066	!
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	3067
11242 dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3068	allowVisualAgePrimitives
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3069
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3070	allowVisualAgePrimitives isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3071	allowVisualAgePrimitives := ParserFlags allowVisualAgePrimitives asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3072	allowVisualAgePrimitives onChangeSend:#updateModifiedChannel to:self.
11242 dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3073	].
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3074	^ allowVisualAgePrimitives.
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3075
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3076	"Created: / 07-02-2012 / 17:06:19 / cg"
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3077	!
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3078
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3079	arraysAreImmutable
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3080
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3081	immutableArrays isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3082	immutableArrays := ParserFlags arraysAreImmutable asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3083	immutableArrays onChangeSend:#updateModifiedChannel to:self.
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3084	].
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3085	^ immutableArrays.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3086	!
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3087
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3088	constantFolding
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3089
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3090	constantFolding isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3091	constantFolding := (resources array:(self class constantFoldingStrings)) asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3092	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3093	^ constantFolding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3094	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3095
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3096	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3097
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3098	constantFoldingOptions isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3099	constantFoldingOptions := self class constantFoldingOptions.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3100	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3101	^ constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3102	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3103
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3104	constantFoldingSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3105
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3106	constantFoldingSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3107	\| index \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3108	index := self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3109	constantFoldingSelection := index asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3110	constantFoldingSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3111	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3112	^ constantFoldingSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3113	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3114
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3115	enableDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3116
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3117	enableDollar isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3118	enableDollar := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3119	enableDollar addDependent:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3120	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3121	^ enableDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3122	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3123
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3124	enableParagraph
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3125
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3126	enableParagraph isNil ifTrue:[
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3127	enableParagraph := true asValue.
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3128	enableParagraph addDependent:self.
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3129	].
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3130	^ enableParagraph.
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3131
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3132	"Created: / 16-11-2016 / 22:39:57 / cg"
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3133	!
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3134
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3135	enableUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3136	enableUnderscore isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3137	enableUnderscore := true asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3138	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3139	^ enableUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3140	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3141
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3142	fullDebugSupport
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3143
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3144	fullDebugSupport isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3145	self supportsJustInTimeCompilation ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3146	fullDebugSupport := (ObjectMemory fullSingleStepSupport ? false) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3147	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3148	fullDebugSupport := (ParserFlags fullLineNumberInfo) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3149	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3150	fullDebugSupport onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3151	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3152	^ fullDebugSupport.
11814 ffce903c0a2f lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 11774 diff changeset	3153
ffce903c0a2f lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 11774 diff changeset	3154	"Modified: / 26-09-2012 / 14:16:27 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3155	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3156
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3157	justInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3158
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3159	justInTimeCompilation isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3160	self supportsJustInTimeCompilation ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3161	justInTimeCompilation := (ObjectMemory justInTimeCompilation ? false) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3162	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3163	justInTimeCompilation := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3164	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3165	justInTimeCompilation onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3166	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3167	^ justInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3168	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3169
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	3170	stringsAreImmutable
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	3171
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	3172	immutableStrings isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3173	immutableStrings := ParserFlags arraysAreImmutable asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3174	immutableStrings onChangeSend:#updateModifiedChannel to:self.
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	3175	].
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	3176	^ immutableStrings.
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	3177	!
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	3178
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	3179	warnAboutBadComments
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	3180	warnAboutBadComments isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3181	warnAboutBadComments := ParserFlags warnAboutBadComments asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3182	warnAboutBadComments onChangeSend:#updateModifiedChannel to:self.
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	3183	].
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	3184	^ warnAboutBadComments.
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	3185	!
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	3186
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3187	warnAboutMissingMethodComment
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3188
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3189	warnAboutMissingMethodComment isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3190	warnAboutMissingMethodComment := UserPreferences current enforceComment asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3191	warnAboutMissingMethodComment onChangeSend:#updateModifiedChannel to:self.
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3192	].
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3193	^ warnAboutMissingMethodComment.
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3194
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3195	"Created: / 17-07-2010 / 14:39:25 / cg"
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3196	!
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3197
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3198	warnAboutNonLowercaseLocalVariableNames
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3199	warnAboutNonLowercaseLocalVariableNames isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3200	warnAboutNonLowercaseLocalVariableNames := ParserFlags warnAboutNonLowercaseLocalVariableNames asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3201	warnAboutNonLowercaseLocalVariableNames onChangeSend:#updateModifiedChannel to:self.
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3202	].
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3203	^ warnAboutNonLowercaseLocalVariableNames.
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3204
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3205	"Modified: / 22-10-2006 / 02:30:57 / cg"
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	3206	!
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	3207
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3208	warnAboutPossibleSTCCompilationProblems
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3209
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3210	warnAboutPossibleSTCCompilationProblems isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3211	warnAboutPossibleSTCCompilationProblems := ParserFlags warnAboutPossibleSTCCompilationProblems asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3212	warnAboutPossibleSTCCompilationProblems onChangeSend:#updateModifiedChannel to:self.
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3213	].
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3214	^ warnAboutPossibleSTCCompilationProblems.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3215
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3216	"Created: / 20-11-2006 / 22:41:07 / cg"
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3217	!
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3218
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3219	warnAboutPossiblyUnimplementedSelectors
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3220
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3221	warnAboutPossiblyUnimplementedSelectors isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3222	warnAboutPossiblyUnimplementedSelectors := ParserFlags warnAboutPossiblyUnimplementedSelectors asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3223	warnAboutPossiblyUnimplementedSelectors onChangeSend:#updateModifiedChannel to:self.
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3224	].
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3225	^ warnAboutPossiblyUnimplementedSelectors.
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3226
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3227	"Created: / 20-11-2006 / 22:41:07 / cg"
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3228	!
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3229
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3230	warnAboutPossiblyUninitializedLocals
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3231
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3232	warnAboutPossiblyUninitializedLocals isNil ifTrue:[
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3233	warnAboutPossiblyUninitializedLocals := ParserFlags warnAboutPossiblyUninitializedLocals asValue.
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3234	warnAboutPossiblyUninitializedLocals onChangeSend:#updateModifiedChannel to:self.
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3235	].
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3236	^ warnAboutPossiblyUninitializedLocals.
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3237
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3238	"Created: / 23-04-2019 / 23:16:25 / Claus Gittinger"
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3239	!
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3240
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3241	warnAboutReferenceToPrivateClass
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3242	warnAboutReferenceToPrivateClass isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3243	warnAboutReferenceToPrivateClass := ParserFlags warnAboutReferenceToPrivateClass asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3244	warnAboutReferenceToPrivateClass onChangeSend:#updateModifiedChannel to:self.
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3245	].
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3246	^ warnAboutReferenceToPrivateClass.
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3247	!
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3248
8009 f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	3249	warnAboutShortLocalVariableNames
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	3250	warnAboutShortLocalVariableNames isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3251	warnAboutShortLocalVariableNames := ParserFlags warnAboutShortLocalVariableNames asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3252	warnAboutShortLocalVariableNames onChangeSend:#updateModifiedChannel to:self.
8009 f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	3253	].
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	3254	^ warnAboutShortLocalVariableNames.
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	3255	!
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	3256
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	3257	warnAboutWrongVariableNames
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	3258	warnAboutWrongVariableNames isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3259	warnAboutWrongVariableNames := ParserFlags warnAboutWrongVariableNames asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3260	warnAboutWrongVariableNames onChangeSend:#updateModifiedChannel to:self.
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	3261	].
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	3262	^ warnAboutWrongVariableNames.
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	3263	!
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	3264
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3265	warnCommonMistakes
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3266
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3267	warnCommonMistakes isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3268	warnCommonMistakes := ParserFlags warnCommonMistakes asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3269	warnCommonMistakes onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3270	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3271	^ warnCommonMistakes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3272	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3273
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3274	warnDollarInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3275
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3276	warnDollar isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3277	warnDollar := ParserFlags warnDollarInIdentifier asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3278	warnDollar onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3279	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3280	^ warnDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3281	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3282
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	3283	warnInconsistentReturnValues
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	3284	warnInconsistentReturnValues isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3285	warnInconsistentReturnValues := ParserFlags warnInconsistentReturnValues asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3286	warnInconsistentReturnValues onChangeSend:#updateModifiedChannel to:self.
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	3287	].
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	3288	^ warnInconsistentReturnValues.
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	3289	!
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	3290
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3291	warnOldStyleAssignment
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3292
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3293	warnOldStyle isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3294	warnOldStyle := ParserFlags warnOldStyleAssignment asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3295	warnOldStyle onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3296	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3297	^ warnOldStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3298	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3299
11155 00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3300	warnPlausibilityChecks
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3301
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3302	warnPlausibilityChecks isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3303	warnPlausibilityChecks := ParserFlags warnPlausibilityChecks asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3304	warnPlausibilityChecks onChangeSend:#updateModifiedChannel to:self.
11155 00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3305	].
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3306	^ warnPlausibilityChecks.
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3307
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3308	"Created: / 19-01-2012 / 10:57:29 / cg"
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3309	!
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3310
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3311	warnPossibleIncompatibilities
7925 cabd467a8b04 comment Claus Gittinger <cg@exept.de> parents: 7906 diff changeset	3312	"holds true, if possible incompatibilities (with other ST systems)
cabd467a8b04 comment Claus Gittinger <cg@exept.de> parents: 7906 diff changeset	3313	are to be warned about"
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3314
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3315	warnCompatibility isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3316	warnCompatibility := ParserFlags warnPossibleIncompatibilities asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3317	warnCompatibility onChangeSend:#updateModifiedChannel to:self.
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3318	].
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3319	^ warnCompatibility.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3320	!
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3321
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3322	warnSTXSpecials
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3323
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3324	warnSTX isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3325	warnSTX := ParserFlags warnSTXSpecials asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3326	warnSTX onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3327	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3328	^ warnSTX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3329	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3330
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3331	warnUnderscoreInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3332
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3333	warnUnderscore isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3334	warnUnderscore := ParserFlags warnUnderscoreInIdentifier asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3335	warnUnderscore onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3336	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3337	^ warnUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3338	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3339
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3340	warnUnusedVars
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3341
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3342	warnUnusedVars isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3343	warnUnusedVars := ParserFlags warnUnusedVars asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3344	warnUnusedVars onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3345	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3346	^ warnUnusedVars.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3347	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3348
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3349	warnings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3350
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3351	warnings isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3352	warnings := ParserFlags warnings asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3353	warnings addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3354	warnings changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3355	warnings onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3356	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3357	^ warnings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3358	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3359
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3360	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3361
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3362	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3363	changedObject == self warnings ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3364	changedObject value ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3365	self enableUnderscore value:self allowUnderscoreInIdentifier value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3366	self enableDollar value:self allowDollarInIdentifier value.
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3367	self enableParagraph value:self allowParagraphInIdentifier value.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3368	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3369	self enableUnderscore value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3370	self enableDollar value:false.
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3371	self enableParagraph value:false.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3372	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3373	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3374	].
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3375	(changedObject == self allowDollarInIdentifier
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3376	or:[changedObject == self allowParagraphInIdentifier
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3377	or:[changedObject == self allowUnderscoreInIdentifier]]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3378	self warnings changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3379	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3380	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3381
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3382	super update:something with:aParameter from:changedObject
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3383
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3384	"Modified: / 16-11-2016 / 22:39:32 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3385	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3386
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3387	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3388
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3389	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3390	^ 'Launcher/compilerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3391	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3392
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3393	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3394
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3395	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	3396	(self
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3397	hasChangedAspectIn:(self simpleAspects)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3398	asComparedTo:ParserFlags) ifTrue:[^ true].
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3399
11814 ffce903c0a2f lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 11774 diff changeset	3400	((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	3401	((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	3402	((ObjectMemory justInTimeCompilation ? false) ~= self justInTimeCompilation value) ifTrue:[^ true].
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3403
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3404	(UserPreferences current enforceComment ~= self warnAboutMissingMethodComment value) ifTrue:[^ true].
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3405
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3406	^ false
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3407
11814 ffce903c0a2f lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 11774 diff changeset	3408	"Modified: / 26-09-2012 / 14:16:14 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3409	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3410
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3411	supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3412
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3413	^ ObjectMemory supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3414	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3415
17283 ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3416	!AbstractSettingsApplication::ChangeFileSettingsAppl class methodsFor:'documentation'!
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3417
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3418	documentation
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3419	"
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3420	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	3421	"
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3422	! !
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3423
14376 4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3424	!AbstractSettingsApplication::ChangeFileSettingsAppl class methodsFor:'help specs'!
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3425
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	3426	helpSpec
14376 4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3427	"This resource specification was automatically generated
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3428	by the UIHelpTool of ST/X."
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3429
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3430	"Do not manually edit this!! If it is corrupted,
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3431	the UIHelpTool may not be able to read the specification."
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3432
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3433	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3434	UIHelpTool openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl
14376 4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3435	"
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3436
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3437	<resource: #help>
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3438
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	3439	^ super helpSpec addPairsFrom:#(
14376 4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3440
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3441	#changeFileName
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3442	'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	3443
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3444	#logDoits
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3445	'Also record doIt evaluations in the change file'
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3446
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3447	#updChanges
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3448	'Record code changes (classes and methods) in the change file'
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3449
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3450	)
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3451	! !
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3452
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3453	!AbstractSettingsApplication::ChangeFileSettingsAppl class methodsFor:'image specs'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3454
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3455	defaultIcon
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3456	"This resource specification was automatically generated
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3457	by the ImageEditor of ST/X."
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3458
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3459	"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	3460	the ImageEditor may not be able to read the specification."
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3461
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3462	"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3463	self defaultIcon inspect
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3464	ImageEditor openOnClass:self andSelector:#defaultIcon
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3465	Icon flushCachedIcons
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3466	"
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3467
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3468	<resource: #image>
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3469
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3470	^Icon
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3471	constantNamed:'AbstractSettingsApplication::ChangeFileSettingsAppl defaultIcon'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3472	ifAbsentPut:[(Depth4Image new) width:22; height:22; bits:(ByteArray fromPackedString:'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3473	@@@@@@@@@@@@@@@ADQDQDQDQDQD @@DTQDQDQDQDQBD@@QP3MDQDQDQDHP@AECQDQDQDQDP!!@@DTMDQDQDQDQBD@@QP3MDP3QDQDHP@AEDQDP3L4QDP!!@@DT
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3474	QDP3QCMDQBD@@QQDP3QDP3QDHP@AEDP3QDQDL4P!!@@DTP3QDQDQCMBD@@QQCL3L3L3L4@P@AEDDQDQDQDQPA@@DTQDQDQDQDQ@D@@QP3MDQDQDQD@P@AEDP4
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3475	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	3476	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3477
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3478	!AbstractSettingsApplication::ChangeFileSettingsAppl class methodsFor:'interface specs'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3479
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3480	windowSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3481	"This resource specification was automatically generated
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3482	by the UIPainter of ST/X."
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3483
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3484	"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	3485	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	3486
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3487	"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3488	UIPainter new openOnClass:AbstractSettingsApplication::ChangeFileSettingsAppl andSelector:#windowSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3489	AbstractSettingsApplication::ChangeFileSettingsAppl new openInterface:#windowSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3490	AbstractSettingsApplication::ChangeFileSettingsAppl open
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3491	"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3492
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3493	<resource: #canvas>
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3494
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3495	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3496	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3497	name: windowSpec
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3498	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3499	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3500	label: 'Changes Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3501	name: 'Changes Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3502	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3503	bounds: (Rectangle 0 0 561 478)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3504	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3505	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3506	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3507	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3508	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3509	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3510	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	3511	horizontalLayout: fitSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3512	verticalLayout: topSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3513	horizontalSpace: 5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3514	verticalSpace: 5
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3515	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3516	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3517	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3518	(FramedBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3519	label: 'Change File'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3520	name: 'FramedBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3521	labelPosition: topLeft
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3522	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3523	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3524	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3525	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3526	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3527	label: 'Log changed classes and methods in the Changefile'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3528	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3529	layout: (LayoutFrame 5 0 5 0 -5 1 35 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3530	activeHelpKey: updChanges
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3531	model: updChanges
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3532	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3533	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3534	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3535	label: 'Log doIts in the Changefile'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3536	name: 'CheckBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3537	layout: (LayoutFrame 5 0 35 0 -5 1 65 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3538	activeHelpKey: logDoits
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3539	model: logDoits
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3540	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3541	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3542	(ViewSpec
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3543	name: 'Box1'
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3544	layout: (LayoutFrame 5 0 73 0 -5 1 105 0)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3545	component:
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3546	(SpecCollection
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3547	collection: (
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3548	(LabelSpec
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3549	label: 'Changefile Name:'
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3550	name: 'ChangefileNameLabel'
17320 84917de97b41 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17283 diff changeset	3551	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	3552	activeHelpKey: changeFileName
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3553	translateLabel: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3554	adjust: right
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3555	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3556	(FilenameInputFieldSpec
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3557	name: 'FilenameEntryField1'
17320 84917de97b41 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17283 diff changeset	3558	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	3559	activeHelpKey: changeFileName
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3560	model: changeFileName
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3561	immediateAccept: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3562	acceptOnReturn: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3563	acceptOnTab: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3564	acceptOnLostFocus: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3565	acceptOnPointerLeave: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3566	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3567	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3568
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3569	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3570	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3571	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3572
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3573	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3574	extent: (Point 551 147)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3575	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3576	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3577
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3578	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3579	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3580	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3581
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3582	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3583	)
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3584	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3585
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3586	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'actions'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3587
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3588	basicReadSettings
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3589	self changeFileName value:(currentUserPrefs changeFileName
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3590	? ObjectMemory nameForChanges).
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3591	self logDoits value:Smalltalk logDoits.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3592	self updChanges value:Class updatingChanges.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3593
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3594	"Modified: / 27-10-2010 / 10:16:48 / cg"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3595	!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3596
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3597	basicSaveSettings
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3598	\|chgFile\|
26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3599
26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3600	chgFile := self changeFileName value.
15010 21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3601	chgFile := chgFile asNilIfEmpty.
14379 8e683325f9ac class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14377 diff changeset	3602	currentUserPrefs changeFileName isNil ifTrue:[
15010 21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3603	"/ had the default
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3604	chgFile = ObjectMemory nameForChanges ifFalse:[
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3605	ObjectMemory nameForChanges:chgFile.
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3606	currentUserPrefs changeFileName:chgFile
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3607	]
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3608	] ifFalse:[
15010 21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3609	"/ had a value before
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3610	chgFile = currentUserPrefs changeFileName ifFalse:[
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3611	ObjectMemory nameForChanges:chgFile.
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3612	currentUserPrefs changeFileName:chgFile
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3613	].
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3614	].
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3615	Smalltalk logDoits:self logDoits value.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3616	Class updateChanges:self updChanges value.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3617
9754 d237d1faea20 format Claus Gittinger <cg@exept.de> parents: 9739 diff changeset	3618	"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	3619	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3620
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3621	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'aspects'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3622
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3623	changeFileName
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3624	changeFileName isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3625	changeFileName := ObjectMemory nameForChanges asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3626	changeFileName onChangeSend:#updateModifiedChannel to:self
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3627	].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3628	^ changeFileName.
10904 6c29ee8850bc x Claus Gittinger <cg@exept.de> parents: 10903 diff changeset	3629
6c29ee8850bc x Claus Gittinger <cg@exept.de> parents: 10903 diff changeset	3630	"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	3631	!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3632
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3633	logDoits
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3634	logDoits isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3635	logDoits := Smalltalk logDoits asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3636	logDoits onChangeSend:#updateModifiedChannel to:self
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3637	].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3638	^ logDoits.
10904 6c29ee8850bc x Claus Gittinger <cg@exept.de> parents: 10903 diff changeset	3639
6c29ee8850bc x Claus Gittinger <cg@exept.de> parents: 10903 diff changeset	3640	"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	3641	!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3642
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3643	updChanges
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3644	updChanges isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3645	updChanges := Class updatingChanges asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3646	updChanges onChangeSend:#updateModifiedChannel to:self
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3647	].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3648	^ updChanges.
10904 6c29ee8850bc x Claus Gittinger <cg@exept.de> parents: 10903 diff changeset	3649
6c29ee8850bc x Claus Gittinger <cg@exept.de> parents: 10903 diff changeset	3650	"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	3651	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3652
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3653	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'help'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3654
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3655	helpFilename
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3656	^ 'Launcher/messageSettings.html'
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3657	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3658
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3659	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'queries'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3660
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3661	hasUnsavedChanges
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3662	self logDoits value ~= Smalltalk logDoits ifTrue:[^ true].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3663	self updChanges value ~= Class updatingChanges ifTrue:[^ true].
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3664	currentUserPrefs changeFileName isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3665	self changeFileName value ~= ObjectMemory nameForChanges ifTrue:[^ true].
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3666	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3667	self changeFileName value ~= currentUserPrefs changeFileName ifTrue:[^ true].
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3668	].
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3669	^ false
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3670
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3671	"Modified: / 27-10-2010 / 10:17:21 / cg"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3672	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3673
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3674	!AbstractSettingsApplication::CodeGeneratorSettingsAppl class methodsFor:'image specs'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3675
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3676	defaultIcon
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3677	"This resource specification was automatically generated
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3678	by the ImageEditor of ST/X."
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3679
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3680	"Do not manually edit this!! If it is corrupted,
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3681	the ImageEditor may not be able to read the specification."
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3682
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3683	"
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3684	self defaultIcon inspect
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3685	ImageEditor openOnClass:self andSelector:#defaultIcon
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3686	Icon flushCachedIcons
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3687	"
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3688
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3689	<resource: #image>
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3690
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3691	^Icon
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3692	constantNamed:'AbstractSettingsApplication::CodeGeneratorSettingsAppl defaultIcon'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3693	ifAbsentPut:[(Depth4Image new) width:22; height:22; bits:(ByteArray fromPackedString:'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3694	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	3695	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	3696	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	3697	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3698
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3699	!AbstractSettingsApplication::CodeGeneratorSettingsAppl class methodsFor:'interface specs'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3700
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3701	windowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3702	"This resource specification was automatically generated
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3703	by the UIPainter of ST/X."
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	"Do not manually edit this!! If it is corrupted,
18816 fb0039d3d3b3 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18763 diff changeset	3706	the UIPainter may not be able to read the specification."
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3707
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3708	"
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3709	UIPainter new openOnClass:AbstractSettingsApplication::CodeGeneratorSettingsAppl andSelector:#windowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3710	AbstractSettingsApplication::CodeGeneratorSettingsAppl new openInterface:#windowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3711	AbstractSettingsApplication::CodeGeneratorSettingsAppl open
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3712	"
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	<resource: #canvas>
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3715
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3716	^
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	3717	#(FullSpec
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	3718	name: windowSpec
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3719	window:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	3720	(WindowSpec
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	3721	label: 'Code Generator Settings'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	3722	name: 'Code Generator Settings'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3723	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3724	bounds: (Rectangle 0 0 607 786)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3725	)
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3726	component:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	3727	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3728	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3729	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3730	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3731	layout: (LayoutFrame 0 0.0 0 0 0 1.0 342 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3732	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3733	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3734	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3735	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3736	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3737	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3738	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3739	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3740	label: 'Generate Comments'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3741	name: 'GenerateComments'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3742	activeHelpKey: generateComments
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3743	model: generateComments
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3744	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3745	extent: (Point 607 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3746	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3747	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3748	label: 'Generate Comments in Getters'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3749	name: 'GenerateCommentsInGetters'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3750	activeHelpKey: generateCommentsInGetters
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3751	enableChannel: generateComments
18816 fb0039d3d3b3 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18763 diff changeset	3752	model: generateCommentsForGetters
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3753	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3754	extent: (Point 607 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3755	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3756	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3757	label: 'Generate Comments in Setters'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3758	name: 'GenerateCommentsInSetters'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3759	activeHelpKey: generateCommentsInSetters
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3760	enableChannel: generateComments
18816 fb0039d3d3b3 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18763 diff changeset	3761	model: generateCommentsForSetters
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3762	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3763	extent: (Point 607 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3764	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3765	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3766
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3767	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3768	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3769	)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3770
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	3771	)
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	3772	)
18816 fb0039d3d3b3 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18763 diff changeset	3773
fb0039d3d3b3 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18763 diff changeset	3774	"Modified: / 07-06-2019 / 16:00:21 / Stefan Vogel"
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3775	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3776
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3777	!AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'aspects'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3778
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	3779	aspects
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3780	^ #(
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	3781	generateComments
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	3782	generateCommentsForGetters
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	3783	generateCommentsForSetters
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3784	)
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3785	!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3786
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3787	generateComments
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3788	generateComments isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3789	generateComments := UserPreferences current generateComments asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3790	generateComments onChangeSend:#updateModifiedChannel to:self
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3791	].
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3792	^ generateComments.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3793	!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3794
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3795	generateCommentsForGetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3796	generateCommentsForGetters isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3797	generateCommentsForGetters := UserPreferences current generateCommentsForGetters asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3798	generateCommentsForGetters onChangeSend:#updateModifiedChannel to:self
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3799	].
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3800	^ generateCommentsForGetters.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3801	!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3802
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3803	generateCommentsForSetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3804	generateCommentsForSetters isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3805	generateCommentsForSetters := UserPreferences current generateCommentsForSetters asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3806	generateCommentsForSetters onChangeSend:#updateModifiedChannel to:self
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3807	].
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3808	^ generateCommentsForSetters.
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3809	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3810
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3811	!AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'help'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3812
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3813	helpFilename
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3814	^ 'Launcher/codeGeneratorSettings.html'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3815	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3816
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3817	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl class methodsFor:'help specs'!
18143 016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3818
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3819	helpSpec
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3820	"This resource specification was automatically generated
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3821	by the UIHelpTool of ST/X."
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3822
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3823	"Do not manually edit this!! If it is corrupted,
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3824	the UIHelpTool may not be able to read the specification."
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3825
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3826	"
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3827	UIHelpTool openOnClass:AbstractSettingsApplication::CommunicationLoggingSettingsAppl
18143 016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3828	"
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3829
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3830	<resource: #help>
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3831
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3832	^ super helpSpec addPairsFrom:#(
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3833
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3834	#logExecutedOSCommands
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3835	'Display executed OS commands on the Transcript'
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3836
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3837	#logHTTPRequests
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3838	'Display outgoing HTTP request on the Transcript'
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3839
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3840	#logNetCommunications
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3841	'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	3842
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3843	#logSOAPRequests
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3844	'Display outgoing SOAP request on the Transcript'
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3845
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3846	#logSSLCommunications
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3847	'Display SSL traces (from the ssl package, if loaded)'
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3848
18143 016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3849	)
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3850
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3851	"Modified: / 19-07-2019 / 09:12:17 / Claus Gittinger"
18143 016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3852	! !
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3853
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3854	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl class methodsFor:'image specs'!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3855
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3856	defaultIcon
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3857	<resource: #programImage>
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3858
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3859	^ self defaultIcon2
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3860	!
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	defaultIcon1
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3863	"This resource specification was automatically generated
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3864	by the ImageEditor of ST/X."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3865
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3866	"Do not manually edit this!! If it is corrupted,
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3867	the ImageEditor may not be able to read the specification."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3868
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3869	"
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	3870	self defaultIcon1 inspect
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	3871	ImageEditor openOnClass:self andSelector:#defaultIcon1
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3872	Icon flushCachedIcons
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3873	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3874
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3875	<resource: #image>
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3876
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3877	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	3878	constantNamed:'AbstractSettingsApplication::CommunicationLoggingSettingsAppl defaultIcon1'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	3879	ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	3880	@@@@@@@@@@@@@@@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	3881	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	3882	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	3883	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	3884	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	3885	!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3886
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3887	defaultIcon2
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3888	"This resource specification was automatically generated
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3889	by the ImageEditor of ST/X."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3890
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3891	"Do not manually edit this!! If it is corrupted,
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3892	the ImageEditor may not be able to read the specification."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3893
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3894	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3895	self defaultIcon2 inspect
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3896	ImageEditor openOnClass:self andSelector:#defaultIcon2
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3897	Icon flushCachedIcons
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3898	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3899
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3900	<resource: #image>
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3901
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3902	^Icon
15762 852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	3903	constantNamed:'AbstractSettingsApplication::CommunicationLoggingSettingsAppl defaultIcon2'
852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	3904	ifAbsentPut:[(Depth8Image width:17 height:22) bits:(ByteArray fromPackedString:'
9278 f72863183d67 * empty log message * Claus Gittinger <cg@exept.de> parents: 9277 diff changeset	3905	@@@@@@@@@@@@@@@@@@@@@@@@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	3906	@ 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	3907	@ (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	3908	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	3909	@@@@@@@@@@@@@@@@@@@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	3910	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3911
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3912	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl class methodsFor:'interface specs'!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3913
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3914	windowSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3915	"This resource specification was automatically generated
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3916	by the UIPainter of ST/X."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3917
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3918	"Do not manually edit this!! If it is corrupted,
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3919	the UIPainter may not be able to read the specification."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3920
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3921	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3922	UIPainter new openOnClass:AbstractSettingsApplication::CommunicationLoggingSettingsAppl andSelector:#windowSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3923	AbstractSettingsApplication::CommunicationLoggingSettingsAppl new openInterface:#windowSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3924	AbstractSettingsApplication::CommunicationLoggingSettingsAppl open
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3925	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3926
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3927	<resource: #canvas>
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3928
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3929	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3930	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3931	name: windowSpec
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3932	uuid: 'a524bbb0-a9f3-11e9-8c78-b8f6b1108e05'
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3933	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3934	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3935	label: 'Com-Logging settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3936	name: 'Com-Logging settings'
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3937	uuid: 'a524bdf4-a9f3-11e9-8c78-b8f6b1108e05'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3938	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3939	bounds: (Rectangle 0 0 445 401)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3940	)
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3941	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3942	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3943	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3944	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3945	name: 'VerticalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3946	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3947	uuid: 'a524c01a-a9f3-11e9-8c78-b8f6b1108e05'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3948	horizontalLayout: fitSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3949	verticalLayout: topSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3950	horizontalSpace: 5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3951	verticalSpace: 3
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3952	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3953	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3954	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3955	(CheckBoxSpec
18124 28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3956	label: 'Log Executed OS Commands'
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3957	name: 'LogExecutedOSCommands'
18129 41ca9a5605a1 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18124 diff changeset	3958	activeHelpKey: logExecutedOSCommands
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3959	uuid: 'a524c18c-a9f3-11e9-8c78-b8f6b1108e05'
18129 41ca9a5605a1 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18124 diff changeset	3960	model: logExecutedOSCommands
18124 28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3961	translateLabel: true
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3962	extent: (Point 435 34)
18124 28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3963	)
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3964	(CheckBoxSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3965	label: 'Log Outgoing HTTP Requests on Transcript'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3966	name: 'LogHTTPRequests'
18143 016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3967	activeHelpKey: logHTTPRequests
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3968	uuid: 'a524c2e0-a9f3-11e9-8c78-b8f6b1108e05'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3969	model: logHTTPRequests
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3970	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3971	extent: (Point 435 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3972	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3973	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3974	label: 'Log Outgoing SOAP Requests on Transcript'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3975	name: 'LogSOAPRequests'
18143 016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3976	activeHelpKey: logSOAPRequests
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3977	uuid: 'a524c3bc-a9f3-11e9-8c78-b8f6b1108e05'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3978	model: logSOAPRequests
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3979	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3980	extent: (Point 435 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3981	)
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3982	(CheckBoxSpec
18208 1c027c9eb9de #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18207 diff changeset	3983	label: 'Log IMAP and POP3 Communication Protocols'
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3984	name: 'LogNetCommunications'
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3985	activeHelpKey: logNetCommunications
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3986	uuid: 'a524c48e-a9f3-11e9-8c78-b8f6b1108e05'
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3987	model: logNetCommunications
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3988	translateLabel: true
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3989	extent: (Point 435 30)
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3990	)
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3991	(CheckBoxSpec
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3992	label: 'Log SSL Communication Protocols'
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3993	name: 'CheckBox1'
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3994	activeHelpKey: logSSLCommunications
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3995	uuid: 'a524c556-a9f3-11e9-8c78-b8f6b1108e05'
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3996	enableChannel: hasSSLPackageLoaded
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3997	model: logSSLCommunications
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3998	translateLabel: true
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3999	extent: (Point 435 30)
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4000	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4001	)
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4002
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4003	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4004	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4005	)
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4006
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4007	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4008	)
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4009	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4010
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4011	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl methodsFor:'aspects'!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4012
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4013	aspects
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4014	^ #(
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4015	logHTTPRequests
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4016	logSOAPRequests
18124 28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	4017	logExecutedOSCommands
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4018	logNetCommunications
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4019	logSSLCommunications
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4020	)
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4021
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4022	"Modified: / 19-07-2019 / 09:09:25 / Claus Gittinger"
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4023	!
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4024
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4025	hasSSLPackageLoaded
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4026	^ (Smalltalk at:#'SSL::SSLSocket') notNil
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4027
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4028	"Created: / 19-07-2019 / 09:08:13 / Claus Gittinger"
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4029	!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4030
18124 28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	4031	logExecutedOSCommands
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	4032	logExecutedOSCommands isNil ifTrue:[
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	4033	logExecutedOSCommands := false asValue.
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	4034	logExecutedOSCommands onChangeSend:#updateModifiedChannel to:self
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	4035	].
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	4036	^ logExecutedOSCommands.
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	4037	!
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	4038
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4039	logHTTPRequests
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4040	logHTTPRequests isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4041	logHTTPRequests := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4042	logHTTPRequests onChangeSend:#updateModifiedChannel to:self
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4043	].
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4044	^ logHTTPRequests.
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4045	!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4046
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4047	logNetCommunications
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4048	logNetCommunications isNil ifTrue:[
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4049	logNetCommunications := false asValue.
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4050	logNetCommunications onChangeSend:#updateModifiedChannel to:self
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4051	].
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4052	^ logNetCommunications.
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4053
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4054	"Created: / 13-06-2018 / 17:27:50 / Claus Gittinger"
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4055	!
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4056
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4057	logSOAPRequests
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4058	logSOAPRequests isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4059	logSOAPRequests := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4060	logSOAPRequests onChangeSend:#updateModifiedChannel to:self
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4061	].
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4062	^ logSOAPRequests.
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4063	!
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4064
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4065	logSSLCommunications
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4066	logSSLCommunications isNil ifTrue:[
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4067	logSSLCommunications := false asValue.
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4068	logSSLCommunications onChangeSend:#updateModifiedChannel to:self
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4069	].
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4070	^ logSSLCommunications.
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4071
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4072	"Created: / 19-07-2019 / 09:08:57 / Claus Gittinger"
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4073	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4074
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4075	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl methodsFor:'help'!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4076
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4077	helpFilename
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4078	^ 'Launcher/comLoggingSettings.html'
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4079	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4080
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4081	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'help specs'!
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4082
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	4083	helpSpec
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4084	"This resource specification was automatically generated
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4085	by the UIHelpTool of ST/X."
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4086
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4087	"Do not manually edit this!! If it is corrupted,
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4088	the UIHelpTool may not be able to read the specification."
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4089
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4090	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4091	UIHelpTool openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4092	"
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4093
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4094	<resource: #help>
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4095
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	4096	^ super helpSpec addPairsFrom:#(
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4097
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4098	#allowSendingMail
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4099	'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	4100
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4101	#hideSupportCode
17524 b222453334cc #DOCUMENTATION by mawalch mawalch parents: 17514 diff changeset	4102	'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	4103
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4104	#showErrorNotifier
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4105	'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	4106
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4107	#showVerboseStack
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4108	'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	4109
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4110	#useNewLayout
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4111	'Use the new button layout with step/next buttons in the middle'
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4112
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4113	)
17524 b222453334cc #DOCUMENTATION by mawalch mawalch parents: 17514 diff changeset	4114
b222453334cc #DOCUMENTATION by mawalch mawalch parents: 17514 diff changeset	4115	"Modified: / 01-06-2017 / 14:12:51 / mawalch"
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4116	! !
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4117
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4118	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4119
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4120	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4121	<resource: #programImage>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4122
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4123	^ ToolbarIconLibrary bugReporter24x24Icon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4124	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4125
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4126	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4127
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4128	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4129	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4130	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4131
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4132	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4133	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4134
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4135	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4136	UIPainter new openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4137	AbstractSettingsApplication::DebuggerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4138	AbstractSettingsApplication::DebuggerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4139	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4140
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4141	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4142
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4143	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4144	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4145	name: windowSpec
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4146	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4147	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4148	label: 'Debugger Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4149	name: 'Debugger Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4150	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4151	bounds: (Rectangle 0 0 600 320)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4152	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4153	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4154	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4155	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4156	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4157	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4158	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	4159	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4160	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4161	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4162	verticalSpace: 0
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	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4167	name: 'ShowErrorNotifierBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4168	activeHelpKey: showErrorNotifier
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4169	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4170	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4171	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4172	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4173	label: 'Show Error Notifier before Opening Debugger'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4174	name: 'ShowErrorNotifierCheckBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4175	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4176	activeHelpKey: showErrorNotifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4177	model: showErrorNotifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4178	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4179	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4180	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4181
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4182	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4183	extent: (Point 600 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4184	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4185	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4186	name: 'UseNewLayoutInDebuggerBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4187	activeHelpKey: useNewLayout
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4188	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4189	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4190	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4191	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4192	label: 'Use New Layout'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4193	name: 'UseNewLayoutInDebuggerCheckBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4194	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4195	activeHelpKey: useNewLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4196	model: useNewLayoutInDebugger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4197	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4198	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4199	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4200
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4201	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4202	extent: (Point 600 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4203	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4204	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4205	name: 'ShowVerboseStackBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4206	activeHelpKey: showVerboseStack
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4207	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4208	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4209	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4210	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4211	label: 'Verbose Backtrace by Default in Debugger'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4212	name: 'ShowVerboseStackCheckBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4213	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4214	activeHelpKey: showVerboseStack
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4215	model: verboseBacktraceInDebugger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4216	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4217	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4218	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4219
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4220	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4221	extent: (Point 600 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4222	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4223	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4224	name: 'HideEnumerationCodeBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4225	activeHelpKey: hideSupportCode
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4226	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4227	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4228	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4229	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4230	label: 'Hide Support Code (Implementation of Enumerations, Exceptions, etc.)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4231	name: 'CheckBox1'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4232	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4233	activeHelpKey: hideSupportCode
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4234	model: hideSupportCodeInDebugger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4235	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4236	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4237	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4238
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4239	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4240	extent: (Point 600 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4241	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4242	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4243	name: 'AllowSendingMailFromDebuggerBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4244	activeHelpKey: allowSendingMail
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4245	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4246	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4247	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4248	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4249	label: 'Allow Sending of Error Reports from Debugger'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4250	name: 'AllowSendingMailFromDebuggerCheckBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4251	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4252	activeHelpKey: allowSendingMail
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4253	model: allowSendMailFromDebugger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4254	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4255	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4256	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4257
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4258	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4259	extent: (Point 600 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4260	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4261	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4262
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4263	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4264	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4265	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4266
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4267	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4268	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4269	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4270
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4271	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4272
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4273	basicReadSettings
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4274	self showErrorNotifier value:(NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler).
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4275	super basicReadSettings.
11572 29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4276
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4277	"Modified: / 10-06-2012 / 21:23:24 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4278	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4279
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4280	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4281	self showErrorNotifier value ifFalse:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4282	NoHandlerError emergencyHandler:nil
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4283	] ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4284	NoHandlerError emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4285	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4286	super basicSaveSettings.
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4287	Debugger newDebugger.
11572 29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4288
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4289	"Modified: / 10-06-2012 / 21:23:32 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4290	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4291
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4292	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'aspects'!
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	allowSendMailFromDebugger
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4295
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4296	allowSendMailFromDebugger isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4297	allowSendMailFromDebugger := currentUserPrefs allowSendMailFromDebugger asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4298	allowSendMailFromDebugger onChangeSend:#updateModifiedChannel to:self
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	^ allowSendMailFromDebugger.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4301	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4302
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4303	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4304	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4305	allowSendMailFromDebugger
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4306	verboseBacktraceInDebugger
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4307	hideSupportCodeInDebugger
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4308	useNewLayoutInDebugger
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4309	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4310	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4311
11572 29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4312	hideSupportCodeInDebugger
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4313
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4314	hideSupportCodeInDebugger isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4315	hideSupportCodeInDebugger := (UserPreferences current hideSupportCodeInDebugger ? true) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4316	hideSupportCodeInDebugger onChangeSend:#updateModifiedChannel to:self
11572 29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4317	].
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4318	^ hideSupportCodeInDebugger.
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4319
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4320	"Created: / 10-06-2012 / 21:23:40 / cg"
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4321	!
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4322
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4323	showErrorNotifier
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4324
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4325	showErrorNotifier isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4326	showErrorNotifier := (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4327	showErrorNotifier onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4328	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4329	^ showErrorNotifier.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4330	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4331
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4332	useNewLayoutInDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4333
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4334	useNewLayoutInDebugger isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4335	useNewLayoutInDebugger := (UserPreferences current useNewLayoutInDebugger) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4336	useNewLayoutInDebugger onChangeSend:#updateModifiedChannel to:self
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4337	].
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4338	^ useNewLayoutInDebugger.
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4339	!
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4340
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4341	verboseBacktraceInDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4342
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4343	verboseBacktraceInDebugger isNil ifTrue:[
15258 27aafcf5e745 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15166 diff changeset	4344	verboseBacktraceInDebugger := (UserPreferences current verboseBacktraceInDebugger) asValue.
27aafcf5e745 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15166 diff changeset	4345	verboseBacktraceInDebugger onChangeSend:#updateModifiedChannel to:self
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4346	].
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4347	^ verboseBacktraceInDebugger.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4348	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4349
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4350	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4351
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4352	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4353	^ 'Launcher/debuggerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4354	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4355
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4356	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4357
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4358	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4359	self showErrorNotifier value ~= (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) ifTrue:[^ true].
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4360	^ super hasUnsavedChanges
11572 29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4361
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4362	"Modified: / 10-06-2012 / 21:23:54 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4363	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4364
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4365	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4366
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4367	clipEncodingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4368
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4369	^ #('untranslated' 'iso8859' 'jis' 'jis7' 'shift-JIS' 'EUC' 'big5')
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	clipEncodingSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4373
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4374	^ #(nil #iso8859 #jis #jis7 #sjis #euc #big5)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4375	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4376
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4377	staticGrayOrGrayScaleDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4378
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4379	^ #('threshold' 'ordered dither' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4380	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4381
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4382	staticGrayOrGrayScaleDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4383
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4384	^ #(threshold ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4385	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4386
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4387	trueColorDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4388
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4389	^ #('nearest color' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4390	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4391
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4392	trueColorDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4393
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4394	^ #(ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4395	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4396
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4397	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'help specs'!
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4398
18624 46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	4399	helpSpec
16340 326a957fc098 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16338 diff changeset	4400	<resource: #help>
326a957fc098 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16338 diff changeset	4401
18624 46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	4402	^ super helpSpec addPairsFrom:#(
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4403
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4404	#enableVMWareDrawingBugWorkaround
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4405	'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	4406
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4407	)
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4408
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	4409	"Created: / 24-06-2014 / 19:39:38 / cg"
18624 46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	4410	"Modified: / 28-02-2019 / 12:51:36 / Claus Gittinger"
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4411	! !
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4412
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4413	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4414
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4415	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4416	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4417
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4418	^ ToolbarIconLibrary displayScreenIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4419	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4420
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4421	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4422
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4423	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4424	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4425	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4426
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4427	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4428	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4429
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4430	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4431	UIPainter new openOnClass:AbstractSettingsApplication::DisplaySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4432	AbstractSettingsApplication::DisplaySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4433	AbstractSettingsApplication::DisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4434	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4435
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4436	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4437
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4438	^
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4439	#(FullSpec
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4440	name: windowSpec
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4441	window:
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4442	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4443	label: 'Display Screen Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4444	name: 'Display Screen Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4445	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4446	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4447	bounds: (Rectangle 0 0 604 500)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4448	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4449	component:
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4450	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4451	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4452	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4453	label: 'Actual Visible Screen Area:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4454	name: 'ActualVisibleScreenAreaLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4455	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4456	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4457	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4458	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4459	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4460	label: 'Common Sizes:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4461	name: 'CommonSizesLabel'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4462	layout: (LayoutFrame 0 0 39 0 277 0 69 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4463	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4464	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4465	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4466	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4467	label: 'monitor size'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4468	name: 'MonitorSelectionPopUpList'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4469	layout: (LayoutFrame 280 0 39 0 -5 1 69 0)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4470	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4471	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4472	model: monitorSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4473	menu: monitorList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4474	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4475	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4476	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4477	label: 'Screen Size:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4478	name: 'ScreenSizeLabel'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4479	layout: (LayoutFrame 5 0 73 0 277 0 103 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4480	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4481	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4482	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4483	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4484	name: 'SizeXEntryField'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4485	layout: (LayoutFrame 280 0 72 0 347 0 102 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4486	model: sizeX
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4487	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4488	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4489	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4490	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4491	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4492	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4493	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4494	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4495	label: ' x '
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4496	name: 'xLabel'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4497	layout: (LayoutFrame 348 0 72 0 369 0 102 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4498	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4499	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4500	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4501	name: 'SizeYEntryField'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4502	layout: (LayoutFrame 370 0 72 0 437 0 102 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4503	model: sizeY
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4504	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4505	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4506	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4507	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4508	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4509	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4510	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4511	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4512	label: '(mm)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4513	name: 'mmLabel'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4514	layout: (LayoutFrame 439 0 72 0 485 0 102 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4515	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4516	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4517	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4518	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4519	label: 'Limit Usable Area To:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4520	name: 'Label1'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4521	layout: (LayoutFrame 5 0 110 0 277 0 140 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4522	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4523	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4524	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4525	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4526	name: 'EntryField1'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4527	layout: (LayoutFrame 280 0 110 0 347 0 140 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4528	model: usedWidth
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4529	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4530	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4531	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4532	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4533	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4534	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4535	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4536	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4537	label: ' x '
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4538	name: 'Label2'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4539	layout: (LayoutFrame 348 0 110 0 369 0 140 0)
16167 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	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4542	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4543	name: 'EntryField2'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4544	layout: (LayoutFrame 370 0 110 0 437 0 140 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4545	model: usedHeight
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4546	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4547	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4548	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4549	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4550	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4551	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4552	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4553	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4554	label: '(Pixel)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4555	name: 'Label3'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4556	layout: (LayoutFrame 439 0 110 0 507 0 140 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4557	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4558	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4559	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4560	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4561	label: 'Restore'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4562	name: 'Button1'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4563	layout: (AlignmentOrigin 512 0 124 0 0 0.5)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4564	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4565	model: restoreUsableExtent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4566	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4567	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4568	name: 'Separator1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4569	layout: (LayoutFrame 0 0.0 143 0 0 1.0 147 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4570	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4571	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4572	name: 'ScreenDepthVisualLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4573	layout: (LayoutFrame 0 0.0 151 0.0 0 1.0 181 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4574	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4575	labelChannel: screenDepthVisualLabelHolder
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4576	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4577	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4578	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4579	name: 'Separator2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4580	layout: (LayoutFrame 0 0.0 182 0 0 1.0 186 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4581	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4582	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4583	label: 'Color Monitor'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4584	name: 'ColorMonitorCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4585	layout: (LayoutFrame 5 0 193 0 250 0 223 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4586	model: isColorMonitor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4587	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4588	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4589	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4590	label: 'Use Fix Color Palette'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4591	name: 'FixColorPaletteCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4592	layout: (LayoutFrame 5 0 223 0 301 0 253 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4593	enableChannel: visualIsPseudoColor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4594	model: useFixPalette
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4595	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4596	labelChannel: useFixPaletteLabel
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4597	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4598	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4599	label: 'Use Fix Gray Color Palette'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4600	name: 'UseFixGrayPaletteCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4601	layout: (LayoutFrame 5 0 257 0 301 0 287 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4602	enableChannel: visualIsPseudoColor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4603	model: useFixGrayPalette
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4604	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4605	labelChannel: useFixGrayPaletteLabel
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4606	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4607	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4608	label: 'Image Display:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4609	name: 'ImageDisplayLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4610	layout: (LayoutFrame 5 0 294 0 227 0 324 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4611	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4612	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4613	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4614	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4615	label: 'image display'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4616	name: 'DitherListPopUpList'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4617	layout: (LayoutFrame 230 0 294 0 -30 1 324 0)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4618	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4619	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4620	model: ditherListSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4621	enableChannel: ditherSymsNotNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4622	menu: ditherList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4623	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4624	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4625	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4626	label: 'Allow Colored/Grayscale Icons'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4627	name: 'AllowColoredGrayscaleIconsCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4628	layout: (LayoutFrame 5 0 334 0 301 0 364 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4629	model: deepIcons
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4630	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4631	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4632	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4633	name: 'Separator3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4634	layout: (LayoutFrame 0 0.0 368 0 0 1.0 372 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4635	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4636	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4637	label: 'ClipBoard Encoding:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4638	name: 'ClipBoardEncodingLabel'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4639	layout: (LayoutFrame 0 0 383 0 277 0 413 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4640	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4641	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4642	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4643	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4644	label: 'image display'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4645	name: 'ClipEncodingListPopUpList'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4646	layout: (LayoutFrame 278 0 383 0 -30 1 413 0)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4647	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4648	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4649	model: clipEncodingListSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4650	menu: clipEncodingList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4651	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4652	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4653	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4654	label: 'Max. CopyBuffer Size:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4655	name: 'MaxCopyBufferSizeLabel'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4656	layout: (LayoutFrame 0 0 418 0 277 0 448 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4657	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4658	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4659	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4660	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4661	name: 'MaxCopyBufferEntryField'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4662	layout: (LayoutFrame 278 0 418 0 373 0 448 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4663	model: maxCopyBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4664	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4665	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4666	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4667	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4668	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4669	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4670	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4671	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4672	name: 'Separator4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4673	layout: (LayoutFrame 0 0.0 454 0 0 1.0 458 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4674	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4675	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4676	label: 'Enable VMWare Drawing Bug Workaround (Limit Number of Buffered Operations)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4677	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4678	layout: (LayoutFrame 5 0 464 0 0 1 486 0)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4679	activeHelpKey: enableVMWareDrawingBugWorkaround
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4680	model: enableVMWareDrawingBugWorkaround
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4681	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4682	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4683	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4684
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4685	)
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4686	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4687	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4688
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4689	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4690
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4691	basicReadSettings
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4692	self enableVMWareDrawingBugWorkaround value: currentUserPrefs enableVMWareDrawingBugWorkaround.
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4693
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4694	self useFixPalette value:screen fixColors notNil.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4695	self useFixGrayPalette value:screen fixGrayColors notNil.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4696	self isColorMonitor value:screen hasColors.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4697	self sizeX value:screen widthInMillimeter.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4698	self sizeY value:screen heightInMillimeter.
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4699	self usedWidth value:screen usableWidth.
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4700	self usedHeight value:screen usableHeight.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4701	self deepIcons value:screen supportsDeepIcons.
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4702
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4703	ditherSyms notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4704	self ditherListSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4705	value:(ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4706	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4707	self clipEncodingListSelection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4708	value:(self class clipEncodingSyms indexOf:screen clipboardEncoding
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4709	ifAbsent:1).
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4710
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4711	"Modified: / 19-11-2013 / 10:25:51 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4712	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4713
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4714	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4715
17005 a0d0b5aa304d #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16992 diff changeset	4716	currentUserPrefs enableVMWareDrawingBugWorkaround:self enableVMWareDrawingBugWorkaround value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4717	Image flushDeviceImages.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4718
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4719	screen visualType == #PseudoColor ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4720	self useFixPalette value ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4721	Color colorAllocationFailSignal handle:[:ex \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4722	self warn:'Could not allocate colors.'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4723	] do:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4724	Color getColorsRed:4 green:8 blue:4 on:screen
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4725	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4726	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4727	screen releaseFixColors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4728	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4729
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4730	self useFixGrayPalette value ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4731	Color colorAllocationFailSignal handle:[:ex \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4732	self warn:'Could not allocate colors.'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4733	] do:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4734	Color getGrayColors:32 on:screen
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4735	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4736	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4737	screen releaseFixGrayColors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4738	]
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4739	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4740	screen hasColors:self isColorMonitor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4741	screen widthInMillimeter:self sizeX value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4742	screen heightInMillimeter:self sizeY value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4743
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4744	screen setUsableWidth:self usedWidth value.
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4745	screen setUsableHeight:self usedHeight value.
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4746
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4747	screen supportsDeepIcons:self deepIcons value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4748	ditherSyms notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4749	Image ditherAlgorithm:(ditherSyms at:self ditherListSelection value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4750	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4751
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4752	WindowGroup activeGroup withWaitCursorDo:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4753	View defaultStyle:(View defaultStyle).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4754	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4755
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	4756	screen clipboardEncoding:(self class clipEncodingSyms at:self clipEncodingListSelection value).
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4757
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4758	"Modified: / 19-11-2013 / 10:26:08 / cg"
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4759	!
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4760
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4761	restoreUsableExtent
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4762	self usedWidth value:(screen queryWidth).
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4763	self usedHeight value:(screen queryHeight).
4286 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	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4767
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4768	clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4769
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4770	clipEncodingList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4771	clipEncodingList := (resources array:self class clipEncodingStrings) asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4772	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4773	"/ clipEncodingList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4774	"/ clipEncodingList onChangeSend:#clipEncodingListChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4775	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4776	^ clipEncodingList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4777	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4778
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4779	clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4780
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4781	clipEncodingListSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4782	clipEncodingListSelection := (self class clipEncodingSyms indexOf:screen clipboardEncoding ifAbsent:1) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4783	clipEncodingListSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4784	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4785	^ clipEncodingListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4786	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4787
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4788	deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4789
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4790	deepIcons isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4791	deepIcons := screen supportsDeepIcons asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4792	deepIcons onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4793	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4794	^ deepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4795	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4796
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4797	ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4798
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4799	ditherList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4800	ditherList := ValueHolder new.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4801	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4802	^ ditherList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4803	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4804
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4805	ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4806
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4807	ditherListSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4808	ditherSyms notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4809	ditherListSelection := (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4810	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4811	ditherListSelection := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4812	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4813	ditherListSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4814	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4815	^ ditherListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4816	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4817
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4818	ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4819
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4820	ditherSymsNotNil isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4821	ditherSymsNotNil := ditherSyms notNil asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4822	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4823	^ ditherSymsNotNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4824	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4825
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4826	enableVMWareDrawingBugWorkaround
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4827
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4828	enableVMWareDrawingBugWorkaround isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4829	enableVMWareDrawingBugWorkaround := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4830	enableVMWareDrawingBugWorkaround onChangeSend:#updateModifiedChannel to:self.
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4831	].
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4832	^ enableVMWareDrawingBugWorkaround.
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4833
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4834	"Created: / 19-11-2013 / 10:24:42 / cg"
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4835	!
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4836
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4837	isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4838
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4839	isColorMonitor isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4840	isColorMonitor := screen hasColors asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4841	isColorMonitor onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4842	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4843	^ isColorMonitor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4844	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4845
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4846	maxCopyBufferSize
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4847
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4848	maxCopyBufferSize isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4849	maxCopyBufferSize := (810241024) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4850	maxCopyBufferSize addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4851	maxCopyBufferSize changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4852	maxCopyBufferSize onChangeSend:#updateModifiedChannel to:self.
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4853	].
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4854	^ maxCopyBufferSize.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4855	!
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4856
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4857	monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4858
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4859	monitorList isNil ifTrue:[
18425 fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	4860	monitorList := (resources array:(sizeInfos collectColumn:1)) asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4861	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4862	^ monitorList.
18425 fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	4863
fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	4864	"Modified: / 22-09-2018 / 11:20:11 / Claus Gittinger"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4865	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4866
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4867	monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4868
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4869	monitorSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4870	monitorSelection := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4871	monitorSelection addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4872	monitorSelection onChangeSend:#updateModifiedChannel to:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4873	monitorSelection changed.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4874	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4875	^ monitorSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4876	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4877
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4878	screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4879
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4880	screenDepthVisualLabelHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4881	screenDepthVisualLabelHolder := (resources string:'Screen: Depth: %1 Visual: %2 (%3)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4882	with:screen depth printString
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4883	with:screen visualType
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4884	with:screen serverVendor) asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4885	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4886	^ screenDepthVisualLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4887	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4888
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4889	sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4890
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4891	sizeX isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4892	sizeX := screen widthInMillimeter asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4893	sizeX addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4894	sizeX changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4895	sizeX onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4896	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4897	^ sizeX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4898	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4899
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4900	sizeY
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4901
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4902	sizeY isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4903	sizeY := screen heightInMillimeter asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4904	sizeY addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4905	sizeY changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4906	sizeY onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4907	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4908	^ sizeY.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4909	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4910
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4911	useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4912
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4913	useFixGrayPalette isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4914	useFixGrayPalette := screen fixGrayColors notNil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4915	useFixGrayPalette onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4916	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4917	^ useFixGrayPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4918	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4919
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4920	useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4921
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4922	useFixGrayPaletteLabel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4923	useFixGrayPaletteLabel := (resources string:'Use Fix Gray Color Palette %1' with:'(32)') asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4924	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4925	^ useFixGrayPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4926	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4927
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4928	useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4929
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4930	useFixPalette isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4931	useFixPalette := screen fixColors notNil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4932	useFixPalette onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4933	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4934	^ useFixPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4935	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4936
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4937	useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4938
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4939	useFixPaletteLabel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4940	useFixPaletteLabel := (resources string:'Use Fix Color Palette %1' with:'(4x8x4)') asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4941	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4942	^ useFixPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4943	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4944
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4945	usedHeight
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4946	usedHeight isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4947	usedHeight := screen usableHeight asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4948	usedHeight addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4949	usedHeight changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4950	usedHeight onChangeSend:#updateModifiedChannel to:self.
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4951	].
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4952	^ usedHeight.
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4953	!
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4954
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4955	usedWidth
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4956	usedWidth isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4957	usedWidth := screen usableWidth asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4958	usedWidth addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4959	usedWidth changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4960	usedWidth onChangeSend:#updateModifiedChannel to:self.
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4961	].
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4962	^ usedWidth.
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4963	!
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4964
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4965	visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4966
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4967	visualIsPseudoColor isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4968	visualIsPseudoColor := (screen visualType == #PseudoColor) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4969	visualIsPseudoColor onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4970	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4971	^ visualIsPseudoColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4972	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4973
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4974	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4975
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4976	monitorSelectionChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4977
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4978	\| sel sizeInfoEntry sizes\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4979
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4980	sel := self monitorSelection value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4981	(sel notNil and:[sel ~~ 0]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4982	sizeInfoEntry := sizeInfos at:sel.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4983	sizes := sizeInfoEntry at:2.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4984	self sizeX value:(sizes at:1).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4985	self sizeY value:(sizes at:2).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4986	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4987	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4988
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4989	sizeXorYChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4990	\| sizes idx\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4991
18425 fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	4992	sizes := sizeInfos collectColumn:2.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4993	idx := sizes findFirst:[:entry \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4994	((entry at:1) = sizeX value)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4995	and:[((entry at:2) = sizeY value)]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4996	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4997	idx ~~ 0 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4998	self monitorSelection value:idx
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4999	].
18425 fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	5000
fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	5001	"Modified: / 22-09-2018 / 11:20:19 / Claus Gittinger"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5002	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5003
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5004	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5005	changedObject == self monitorSelection ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5006	self monitorSelectionChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5007	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5008	].
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	5009	(changedObject == self sizeX or:[changedObject == self sizeY]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5010	self sizeXorYChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5011	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5012	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5013
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5014	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5015	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5016
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5017	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5018
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5019	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5020	^ 'Launcher/screenSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5021	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5022
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5023	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5024
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5025	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5026
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	5027	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	5028
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5029	\| listOfSizes visual\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5030
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5031	screen := Screen current.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5032
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5033	listOfSizes := self class classResources at:'LIST_OF_OFFERED_SCREEN_SIZES' default:#default.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5034	listOfSizes == #default ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5035	"/ nothing in resource file; offer at least some.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5036	sizeInfos := #(
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5037	( '11.3'' (235mm x 175mm) LCD' (235 175) )
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5038	( '17'' (325mm x 245mm)' (325 245) )
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5039	( '19'' (340mm x 270mm)' (340 270) )
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5040	( '20'' (350mm x 280mm)' (350 280) )
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5041	( '21'' (365mm x 285mm)' (365 285) )
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5042	).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5043	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5044	sizeInfos := resources array:listOfSizes.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5045	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5046	visual := screen visualType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5047	(visual == #StaticGray or:[visual == #GrayScale]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5048	ditherStyles := self class staticGrayOrGrayScaleDitherStrings.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5049	ditherSyms := self class staticGrayOrGrayScaleDitherSyms.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5050	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5051	visual ~~ #TrueColor ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5052	ditherStyles := self class trueColorDitherStrings.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5053	ditherSyms := self class trueColorDitherSyms.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5054	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5055	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5056	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5057
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	5058	"Modified: / 08-02-2017 / 00:30:30 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5059	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5060
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5061	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5062
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5063	hasUnsavedChanges
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	5064	self enableVMWareDrawingBugWorkaround value ~~ currentUserPrefs enableVMWareDrawingBugWorkaround ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5065	self useFixPalette value ~= screen fixColors notNil ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5066	self useFixGrayPalette value ~= screen fixGrayColors notNil ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5067	self isColorMonitor value ~= screen hasColors ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5068	self sizeX value ~= screen widthInMillimeter ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5069	self sizeY value ~= screen heightInMillimeter ifTrue:[^ true].
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	5070	self usedWidth value ~= screen usableWidth ifTrue:[^ true].
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	5071	self usedHeight value ~= screen usableHeight ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5072
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5073	self deepIcons value ~= screen supportsDeepIcons ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5074	ditherSyms notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5075	self ditherListSelection value ~= (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5076	].
6037 4ee47a9ce56a Unify naming: clipBoard->clipboard Stefan Vogel <sv@exept.de> parents: 6030 diff changeset	5077	self 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	5078	^ false
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	5079
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	5080	"Modified: / 19-11-2013 / 10:26:34 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5081	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5082
12034 25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5083	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'help specs'!
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5084
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	5085	helpSpec
12034 25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5086	"This resource specification was automatically generated
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5087	by the UIHelpTool of ST/X."
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5088
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5089	"Do not manually edit this!! If it is corrupted,
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5090	the UIHelpTool may not be able to read the specification."
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5091
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5092	"
16383 de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5093	UIHelpTool openOnClass:AbstractSettingsApplication::EditSettingsAppl
12034 25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5094	"
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5095
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5096	<resource: #help>
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5097
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	5098	^ super helpSpec addPairsFrom:#(
12034 25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5099
16383 de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5100	"/#resetToDefault
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5101	"/'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	5102	"/
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5103	"/#changeToHighContrast
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5104	"/'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	5105	"/
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5106	"/#changeToBigFonts
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5107	"/'Change settings for bigger fonts. Useful for presentations'
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5108	"/
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5109	"/#changeToHugeFonts
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5110	"/'Change settings for huge fonts. Useful for presentations'
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5111	"/
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5112	"/#changeToSTXLook
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5113	"/'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	5114	"/
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5115	"/#changeToSqueakLook
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5116	"/'Change settings for a Squeak-like look (variable fonts)'
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5117	"/
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5118	"/#changeToVisualAgeLook
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5119	"/'Change settings for a VisualAge-like look (bold variable fonts)'
12789 d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5120
13419 f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5121	#immediateCodeCompletion
14474 2c9625711787 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14411 diff changeset	5122	'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	5123
13499bd0fa9b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13459 diff changeset	5124	#codeCompletionOnControlKey
13494 7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5125	'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	5126
7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5127	#codeCompletionOnTabKey
14474 2c9625711787 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14411 diff changeset	5128	'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	5129
14505 a45081b27fc3 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14485 diff changeset	5130	#codeCompletionViewKeyboardNavigationNeedsModifier
a45081b27fc3 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14485 diff changeset	5131	'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	5132
12789 d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5133	#alwaysPasteFileContents
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5134	'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	5135
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5136	#autoIndentInCodeView
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5137	'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	5138
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5139	#extendedWordSelectMode
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5140	'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	5141
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5142	#searchBoxIsModal
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5143	'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	5144
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5145	#selectAllWhenClickingBeyondEnd
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5146	'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	5147
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5148	#showAcceptCancelBar
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5149	'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	5150
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5151	#st80DoubleClickSelectMode
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5152	'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	5153
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5154	#st80EditMode
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5155	'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	5156
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5157
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5158	#startTextDragWithCTRL
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5159	'Press CTRL to drag the selected text into another view'
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5160
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5161	#tabStops4
13145 cf52caa3b513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13144 diff changeset	5162	'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	5163
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5164	#useNewCodeView2
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5165	'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	5166
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5167	#whitespaceWordSelectMode
16788 c658333e6e72 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16718 diff changeset	5168	'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	5169
14166 49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5170	#selectionExtensionModelStandard
14623 e61fc7832515 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14621 diff changeset	5171	'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	5172
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5173	#selectionExtensionModelTraditional
14623 e61fc7832515 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14621 diff changeset	5174	'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	5175
12034 25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5176	)
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5177
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5178	"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	5179	"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	5180	! !
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5181
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5182	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5183
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5184	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5185	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5186
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5187	^ ToolbarIconLibrary editorIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5188	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5189
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5190	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5191
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5192	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5193	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5194	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5195
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5196	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5197	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5198
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5199	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5200	UIPainter new openOnClass:AbstractSettingsApplication::EditSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5201	AbstractSettingsApplication::EditSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5202	AbstractSettingsApplication::EditSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5203	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5204
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5205	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5206
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5207	^
13372 40c3a88f5698 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13369 diff changeset	5208	#(FullSpec
40c3a88f5698 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13369 diff changeset	5209	name: windowSpec
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5210	window:
13372 40c3a88f5698 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13369 diff changeset	5211	(WindowSpec
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5212	label: 'Editor Settings'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5213	name: 'Editor Settings'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5214	flags: 1
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5215	min: (Point 10 10)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5216	bounds: (Rectangle 0 0 658 543)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	5217	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5218	component:
13372 40c3a88f5698 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13369 diff changeset	5219	(SpecCollection
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5220	collection: (
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5221	(VerticalPanelViewSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5222	name: 'VerticalPanel1'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5223	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5224	horizontalLayout: fit
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5225	verticalLayout: top
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5226	horizontalSpace: 3
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5227	verticalSpace: 3
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5228	component:
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5229	(SpecCollection
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5230	collection: (
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5231	(CheckBoxSpec
16383 de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5232	label: 'Use the New Code Editor (v2)'
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5233	name: 'UserCodeView2'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5234	activeHelpKey: useNewCodeView2
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5235	model: useCodeView2InTools
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5236	translateLabel: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5237	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5238	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5239	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5240	label: 'Show Accept/Cancel Bar in Editor'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5241	name: 'ShowAcceptCancelBarInBrowser'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5242	activeHelpKey: showAcceptCancelBar
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5243	model: showAcceptCancelBarInBrowser
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5244	translateLabel: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5245	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5246	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5247	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5248	label: 'SearchBox is Modal'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5249	name: 'SearchBoxModalCheckBox'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5250	activeHelpKey: searchBoxIsModal
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5251	model: searchDialogIsModal
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5252	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5253	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5254	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5255	(DividerSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5256	name: 'Separator6'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5257	extent: (Point 658 4)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5258	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5259	(CheckBoxSpec
16383 de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5260	label: 'Code Completion as you Type'
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5261	name: 'CheckBox5'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5262	activeHelpKey: immediateCodeCompletion
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5263	model: immediateCodeCompletion
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5264	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5265	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5266	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5267	(ViewSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5268	name: 'Box1'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5269	activeHelpKey: codeCompletionOnControlKey
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5270	component:
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5271	(SpecCollection
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5272	collection: (
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5273	(CheckBoxSpec
16383 de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5274	label: 'Code Completion on CTRL Key'
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5275	name: 'CheckBox6'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5276	layout: (LayoutFrame 0 0 0 0 350 0 25 0)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5277	activeHelpKey: codeCompletionOnControlKey
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5278	model: codeCompletionOnControlKey
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5279	translateLabel: true
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5280	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5281	(CheckBoxSpec
16383 de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5282	label: 'On TAB Key'
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5283	name: 'CheckBox7'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5284	layout: (LayoutFrame 380 0 0 0 658 0 25 0)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5285	activeHelpKey: codeCompletionOnTabKey
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5286	model: codeCompletionOnTabKey
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5287	translateLabel: true
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5288	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5289	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5290
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5291	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5292	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5293	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5294	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5295	label: 'Shift/CTRL for Navigation in Completion List'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5296	name: 'CheckBox8'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5297	activeHelpKey: codeCompletionViewKeyboardNavigationNeedsModifier
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5298	model: codeCompletionViewKeyboardNavigationNeedsModifier
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5299	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5300	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5301	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5302	(DividerSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5303	name: 'Separator5'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5304	extent: (Point 658 4)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5305	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5306	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5307	label: 'Tab Stops in Multiples of 4'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5308	name: 'TabStopsMultiples4CheckBox'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5309	activeHelpKey: tabStops4
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5310	model: tabsIs4
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5311	translateLabel: true
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	(DividerSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5315	name: 'Separator2'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5316	extent: (Point 658 4)
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	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5319	label: 'CTRL-Key to Start TextDrag'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5320	name: 'CTRLKeyStTextDragCheckBox'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5321	activeHelpKey: startTextDragWithCTRL
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5322	model: startTextDragWithControl
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5323	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5324	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5325	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5326	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5327	label: 'Always Paste the Contents when Dropping a File (Do not Ask) '
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5328	name: 'EnforceContentsDropForFiles'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5329	activeHelpKey: alwaysPasteFileContents
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5330	model: enforceContentsDropForFiles
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5331	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5332	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5333	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5334	(DividerSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5335	name: 'Separator4'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5336	extent: (Point 658 4)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5337	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5338	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5339	label: 'Autoindent (Position Cursor on Return Key in Code Editors)'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5340	name: 'CheckBox3'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5341	activeHelpKey: autoIndentInCodeView
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5342	model: autoIndentInCodeView
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5343	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5344	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5345	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5346	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5347	label: 'Cursor has Standard Line-End Behavior'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5348	name: 'CursorST80LineEndBehaviorCheckBox'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5349	activeHelpKey: st80EditMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5350	model: st80EditMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5351	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5352	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5353	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5354	(DividerSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5355	name: 'Separator3'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5356	extent: (Point 658 4)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5357	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5358	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5359	label: 'Select all when Clicking beyond the Text''s End'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5360	name: 'CheckBox2'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5361	activeHelpKey: selectAllWhenClickingBeyondEnd
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5362	model: selectAllWhenClickingBeyondEnd
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5363	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5364	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5365	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5366	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5367	label: 'Double Click Select Behavior as in ST80'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5368	name: 'DoubleClickSelectBehaviorST80CheckBox'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5369	activeHelpKey: st80DoubleClickSelectMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5370	model: st80DoubleClickSelectMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5371	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5372	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5373	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5374	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5375	label: 'Treat Underscore as Letter in Word-Select'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5376	name: 'UnderscoreIsLetterCheckBox'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5377	activeHelpKey: extendedWordSelectMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5378	model: extendedWordSelectMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5379	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5380	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5381	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5382	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5383	label: 'Any non-Whitespace in Word-Select'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5384	name: 'CheckBox1'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5385	activeHelpKey: whitespaceWordSelectMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5386	model: whitespaceWordSelectMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5387	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5388	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5389	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5390	(DividerSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5391	name: 'Separator7'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5392	extent: (Point 658 4)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5393	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5394	(RadioButtonSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5395	label: 'Traditional ST/X Selection Mode'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5396	name: 'RadioButton1'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5397	activeHelpKey: selectionExtensionModelTraditional
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5398	translateLabel: true
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5399	model: selectionExtensionMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5400	enableChannel: selectionExtensionModeEnabled
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5401	isTriggerOnDown: true
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5402	select: traditional
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5403	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5404	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5405	(RadioButtonSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5406	label: 'Standard Selection Mode'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5407	name: 'RadioButton2'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5408	activeHelpKey: selectionExtensionModelStandard
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5409	translateLabel: true
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5410	model: selectionExtensionMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5411	enableChannel: selectionExtensionModeEnabled
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5412	isTriggerOnDown: true
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5413	select: standard
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5414	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5415	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5416	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5417
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5418	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5419	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5420	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5421
13372 40c3a88f5698 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13369 diff changeset	5422	)
40c3a88f5698 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13369 diff changeset	5423	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5424	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5425
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5426	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5427
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5428	basicReadSettings
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5429	super basicReadSettings.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5430
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5431	self st80DoubleClickSelectMode value:TextView st80SelectMode.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5432	self tabsIs4 value:(ListView userDefaultTabPositions = ListView tab4Positions).
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5433	self enforceContentsDropForFiles value:(currentUserPrefs enforcedDropModeForFiles == #text).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5434	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5435
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5436	basicSaveSettings
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5437	super basicSaveSettings.
14895 840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5438
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5439	currentUserPrefs enforcedDropModeForFiles:
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5440	( self enforceContentsDropForFiles value
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5441	ifTrue:[ #text ]
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5442	ifFalse:[ nil ] ).
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5443
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5444	TextView st80SelectMode:(self st80DoubleClickSelectMode value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5445	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
14895 840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5446	ListView userDefaultTabPositions:
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5447	(self tabsIs4 value
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5448	ifTrue:[ListView tab4Positions]
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5449	ifFalse:[ListView tab8Positions]).
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5450
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5451	ListView allSubInstancesDo:[:eachKindOfListView \|
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5452	self tabsIs4 value
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5453	ifTrue:[eachKindOfListView setTab4]
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5454	ifFalse:[eachKindOfListView setTab8]
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5455	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5456	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5457	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5458
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5459	commonAspects
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	5460	^ #(
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5461	#useCodeView2InTools
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5462	#showAcceptCancelBarInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5463	#searchDialogIsModal
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5464	#startTextDragWithControl
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5465	#st80EditMode
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5466	#extendedWordSelectMode
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5467	#whitespaceWordSelectMode
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5468	#selectAllWhenClickingBeyondEnd
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5469	#autoIndentInCodeView
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5470	#immediateCodeCompletion
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5471	#codeCompletionOnControlKey
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5472	#codeCompletionOnTabKey
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5473	#codeCompletionViewKeyboardNavigationNeedsModifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5474	#selectionExtensionMode
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5475	)
11379 21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5476
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5477	"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	5478	"Modified: / 27-03-2014 / 10:10:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5479	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5480
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5481	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5482
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5483	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5484	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5485	#useCodeView2InTools
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5486	#showAcceptCancelBarInBrowser
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5487	#searchDialogIsModal
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5488	#startTextDragWithControl
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5489	#st80EditMode
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5490	#extendedWordSelectMode
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5491	#whitespaceWordSelectMode
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5492	#selectAllWhenClickingBeyondEnd
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5493	#autoIndentInCodeView
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5494	#immediateCodeCompletion
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5495	#codeCompletionOnControlKey
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5496	#codeCompletionOnTabKey
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5497	#codeCompletionViewKeyboardNavigationNeedsModifier
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5498	#selectionExtensionMode
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5499	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5500
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5501	"Modified: / 07-03-2012 / 14:33:40 / cg"
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5502	"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	5503	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5504
12789 d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5505	autoIndentInCodeView
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5506	autoIndentInCodeView isNil ifTrue:[
17857 54f9e94faf82 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17842 diff changeset	5507	autoIndentInCodeView := true asValue.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5508	autoIndentInCodeView onChangeSend:#updateModifiedChannel to:self.
12789 d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5509	].
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5510	^ autoIndentInCodeView.
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5511	!
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5512
13487 2f7251242b2c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13475 diff changeset	5513	codeCompletionOnControlKey
2f7251242b2c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13475 diff changeset	5514	codeCompletionOnControlKey isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5515	codeCompletionOnControlKey := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5516	codeCompletionOnControlKey onChangeSend:#updateModifiedChannel to:self.
13487 2f7251242b2c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13475 diff changeset	5517	].
2f7251242b2c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13475 diff changeset	5518	^ codeCompletionOnControlKey.
2f7251242b2c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13475 diff changeset	5519	!
2f7251242b2c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13475 diff changeset	5520
13494 7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5521	codeCompletionOnTabKey
7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5522	codeCompletionOnTabKey isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5523	codeCompletionOnTabKey := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5524	codeCompletionOnTabKey onChangeSend:#updateModifiedChannel to:self.
13494 7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5525	].
7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5526	^ codeCompletionOnTabKey.
7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5527	!
7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5528
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5529	enforceContentsDropForFiles
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5530	enforceContentsDropForFiles isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5531	enforceContentsDropForFiles := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5532	enforceContentsDropForFiles onChangeSend:#updateModifiedChannel to:self.
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5533	].
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5534	^ enforceContentsDropForFiles.
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5535	!
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5536
7580 4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	5537	extendedWordSelectMode
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	5538	extendedWordSelectMode isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5539	extendedWordSelectMode := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5540	extendedWordSelectMode onChangeSend:#updateModifiedChannel to:self.
7580 4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	5541	].
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	5542	^ extendedWordSelectMode.
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	5543	!
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	5544
13419 f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5545	immediateCodeCompletion
f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5546	immediateCodeCompletion isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5547	immediateCodeCompletion := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5548	immediateCodeCompletion onChangeSend:#updateModifiedChannel to:self.
13419 f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5549	].
f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5550	^ immediateCodeCompletion.
f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5551	!
f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5552
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5553	searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5554	searchDialogIsModal isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5555	searchDialogIsModal := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5556	searchDialogIsModal onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5557	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5558	^ searchDialogIsModal.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5559	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5560
11379 21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5561	selectAllWhenClickingBeyondEnd
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5562	selectAllWhenClickingBeyondEnd isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5563	selectAllWhenClickingBeyondEnd := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5564	selectAllWhenClickingBeyondEnd onChangeSend:#updateModifiedChannel to:self.
11379 21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5565	].
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5566	^ selectAllWhenClickingBeyondEnd.
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5567
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5568	"Created: / 07-03-2012 / 14:34:08 / cg"
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5569	!
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5570
14166 49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5571	selectionExtensionMode
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5572	selectionExtensionMode isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5573	selectionExtensionMode := #traditional asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5574	selectionExtensionMode onChangeSend:#updateModifiedChannel to:self.
14166 49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5575	].
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5576	^ selectionExtensionMode.
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5577
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5578	"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	5579	!
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5580
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5581	selectionExtensionModeEnabled
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5582	"/ 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	5583	"/ Once integrated, this method whould always return true.
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5584
14892 67b7cbb80a2f class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14833 diff changeset	5585	^ true. "/ EditTextView methodDictionary includesKey: #extendSelectionToX:y:setPrimarySelection:
14166 49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5586
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5587	"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	5588	!
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5589
11985 4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	5590	showAcceptCancelBarInBrowser
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	5591	showAcceptCancelBarInBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5592	showAcceptCancelBarInBrowser := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5593	showAcceptCancelBarInBrowser onChangeSend:#updateModifiedChannel to:self
11985 4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	5594	].
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	5595	^ showAcceptCancelBarInBrowser.
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	5596	!
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	5597
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5598	st80DoubleClickSelectMode
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5599	st80DoubleClickSelectMode isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5600	st80DoubleClickSelectMode := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5601	st80DoubleClickSelectMode onChangeSend:#updateModifiedChannel to:self.
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5602	].
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5603	^ st80DoubleClickSelectMode.
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5604	!
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5605
6783 6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	5606	st80EditMode
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5607	st80EditingMode isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5608	st80EditingMode := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5609	st80EditingMode onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5610	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5611	^ st80EditingMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5612	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5613
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5614	startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5615	startTextDragWithControl isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5616	startTextDragWithControl := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5617	startTextDragWithControl onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5618	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5619	^ startTextDragWithControl.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5620	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5621
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5622	tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5623	tabsIs4 isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5624	tabsIs4 := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5625	tabsIs4 onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5626	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5627	^ tabsIs4.
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5628	!
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5629
12004 1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5630	useCodeView2InTools
1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5631	useCodeView2InTools isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5632	useCodeView2InTools := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5633	useCodeView2InTools onChangeSend:#updateModifiedChannel to:self
12004 1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5634
1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5635	].
1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5636	^ useCodeView2InTools
1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5637
1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5638	"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	5639	!
1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5640
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5641	whitespaceWordSelectMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5642	whitespaceWordSelectMode isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5643	whitespaceWordSelectMode := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5644	whitespaceWordSelectMode onChangeSend:#updateModifiedChannel to:self.
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5645	].
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5646	^ whitespaceWordSelectMode.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5647	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5648
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5649	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5650
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5651	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5652	^ 'Launcher/editSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5653	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5654
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5655	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5656
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5657	hasUnsavedChanges
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5658	self enforceContentsDropForFiles value ~= (currentUserPrefs enforcedDropModeForFiles == #text) ifTrue:[^ true].
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5659	TextView st80SelectMode ~= (self st80DoubleClickSelectMode value) ifTrue:[^ true].
5915 d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	5660	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5661	ListView userDefaultTabPositions ~= (self tabsIs4 value
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5662	ifTrue:[ListView tab4Positions]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5663	ifFalse:[ListView tab8Positions]) ifTrue:[^ true].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5664	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5665
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5666	^ super hasUnsavedChanges
10900 b798071a4587 comment Claus Gittinger <cg@exept.de> parents: 10893 diff changeset	5667
b798071a4587 comment Claus Gittinger <cg@exept.de> parents: 10893 diff changeset	5668	"Modified: / 25-11-2011 / 15:23:02 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5669	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5670
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5671	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'defaults'!
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	keepSourceOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5674
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5675	^ #( keep reference absReference sourceReference discard )
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5676	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5677
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5678	keepSourceStrings
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	^ #('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	5681	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5682
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5683	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'help specs'!
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5684
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	5685	helpSpec
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5686	"This resource specification was automatically generated
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5687	by the UIHelpTool of ST/X."
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5688
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5689	"Do not manually edit this!! If it is corrupted,
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5690	the UIHelpTool may not be able to read the specification."
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5691
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5692	"
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5693	UIHelpTool openOnClass:AbstractSettingsApplication::HTTPStartServerSettingsApplication
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5694	"
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5695
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5696	<resource: #help>
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5697
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	5698	^ super helpSpec addPairsFrom:#(
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5699
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5700	#catchMethodRedefinition
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5701	'Warn if an existing method from another package is redefined'
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5702
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5703	#catchClassRedefinition
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5704	'Warn if an existing class from another package is redefined'
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5705
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5706	#historyLineInMethods
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5707	'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	5708
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5709	#historyLineInClasses
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5710	'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	5711
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5712	#userNameInHistoryLine
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5713	'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	5714
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5715	#fileInSourceMode
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5716	'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	5717
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5718	#loadBinaryObjectsWhenAutoloading
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5719	'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	5720	)
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5721	! !
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5722
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5723	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5724
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5725	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	5726	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	5727
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5728	^ self defaultIcon3
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	5729
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	5730	"Modified: / 17-09-2007 / 11:35:08 / cg"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5731	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5732
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5733	defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5734	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5735	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5736
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5737	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5738	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5739
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5740	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5741	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5742	ImageEditor openOnClass:self andSelector:#defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5743	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5744	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5745
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5746	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5747
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5748	^Icon
15762 852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	5749	constantNamed:'AbstractSettingsApplication::GeneralCompilerSettingsAppl defaultIcon1'
852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	5750	ifAbsentPut:[(Depth2Image width:22 height:22) bits:(ByteArray fromPackedString:'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5751	@@@@@@@@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	5752	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	5753	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5754
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5755	defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5756	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5757	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5758
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5759	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5760	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5761
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5762	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5763	self defaultIcon3 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5764	ImageEditor openOnClass:self andSelector:#defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5765	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5766	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5767
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5768	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5769
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5770	^Icon
15762 852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	5771	constantNamed:'AbstractSettingsApplication::GeneralCompilerSettingsAppl defaultIcon3'
852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	5772	ifAbsentPut:[(Depth8Image width:24 height:24) bits:(ByteArray fromPackedString:'
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5773	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	5774	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	5775	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	5776	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	5777	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	5778	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	5779	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	5780	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5781
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5782	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5783
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5784	windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5785	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5786	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5787
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5788	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5789	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5790
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5791	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5792	UIPainter new openOnClass:AbstractSettingsApplication::GeneralCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5793	AbstractSettingsApplication::GeneralCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5794	AbstractSettingsApplication::GeneralCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5795	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5796
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5797	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5798
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5799	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	5800	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	5801	name: windowSpec
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5802	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	5803	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5804	label: 'General Compiler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5805	name: 'General Compiler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5806	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5807	bounds: (Rectangle 0 0 600 320)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	5808	)
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5809	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	5810	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5811	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5812	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5813	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5814	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	5815	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5816	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5817	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5818	verticalSpace: 3
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5819	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5820	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5821	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5822	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5823	label: 'Catch Method Redefinitions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5824	name: 'CatchMethodRedefinitions'
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5825	activeHelpKey: catchMethodRedefinition
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5826	model: catchMethodRedefs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5827	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5828	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5829	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5830	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5831	label: 'Catch Class Redefinitions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5832	name: 'CatchClassRedefinitions'
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5833	activeHelpKey: catchClassRedefinition
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5834	model: catchClassRedefs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5835	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5836	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5837	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5838	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5839	name: 'Separator2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5840	extent: (Point 600 3)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5841	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5842	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5843	label: 'Keep History Line in Methods'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5844	name: 'KeepHistoryLineinMethods'
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5845	activeHelpKey: historyLineInMethods
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5846	model: historyLines
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5847	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5848	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5849	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5850	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5851	label: 'Keep Full Class History'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5852	name: 'KeepFullClassHistory'
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5853	activeHelpKey: historyLineInClasses
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5854	enableChannel: hasHistoryManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5855	model: fullHistoryUpdate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5856	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5857	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5858	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5859	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5860	name: 'Box2'
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5861	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5862	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5863	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5864	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5865	label: 'Username in History:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5866	name: 'Label1'
17321 42f0864cbb2a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17320 diff changeset	5867	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	5868	activeHelpKey: userNameInHistoryLine
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5869	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5870	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5871	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5872	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5873	name: 'EntryField1'
17321 42f0864cbb2a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17320 diff changeset	5874	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	5875	activeHelpKey: userNameInHistoryLine
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5876	model: userNameInHistoryHolder
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5877	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5878	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5879	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5880	acceptOnLostFocus: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5881	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5882	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5883	(LabelSpec
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5884	label: '(empty for login-name)'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5885	name: 'Label2'
17321 42f0864cbb2a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17320 diff changeset	5886	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	5887	activeHelpKey: userNameInHistoryLine
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5888	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5889	adjust: left
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5890	)
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5891	)
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5892
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5893	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5894	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5895	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5896	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5897	name: 'Separator3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5898	extent: (Point 600 3)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5899	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5900	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5901	name: 'Box1'
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5902	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5903	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5904	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5905	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5906	label: 'FileIn Source Mode:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5907	name: 'FileInSourceModeLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5908	layout: (AlignmentOrigin 282 0 15 0 1 0.5)
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5909	activeHelpKey: fileInSourceMode
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5910	translateLabel: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5911	adjust: right
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5912	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5913	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5914	label: 'PopUp List'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5915	name: 'KeepSourceSelection'
17321 42f0864cbb2a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17320 diff changeset	5916	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	5917	activeHelpKey: fileInSourceMode
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5918	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5919	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5920	model: keepSourceSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5921	menu: keepSource
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5922	useIndex: true
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5923	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5924	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5925
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5926	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5927	extent: (Point 600 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5928	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5929	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5930	name: 'Separator1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5931	extent: (Point 600 3)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5932	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5933	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5934	label: 'If Present, Load Binary Objects when Autoloading'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5935	name: 'LoadBinaryObjectsWhenAutoloading'
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5936	activeHelpKey: loadBinaryObjectsWhenAutoloading
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5937	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5938	model: loadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5939	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5940	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5941	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5942	)
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5943
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5944	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5945	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5946	)
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5947
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	5948	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	5949	)
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5950	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5951
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5952	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5953
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5954	basicReadSettings
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5955	self keepSourceSelection
fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5956	value:(self class keepSourceOptions
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5957	indexOf:ClassCategoryReader sourceMode
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5958	ifAbsent:1).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5959	self catchClassRedefs value:(Class catchClassRedefinitions ? false).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5960	self catchMethodRedefs value:(Class catchMethodRedefinitions ? false).
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5961
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5962	self canLoadBinaries value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5963	self loadBinaries value:Smalltalk loadBinaries
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5964	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5965	self loadBinaries value:false
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5966	].
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5967
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5968	self hasHistoryManager ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5969	self fullHistoryUpdate value:(HistoryManager fullHistoryUpdate ? false)
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5970	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5971	self fullHistoryUpdate value:false
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5972	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5973	self historyLines value:self hasHistoryManager.
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	5974	self userNameInHistoryHolder value:(UserPreferences current historyManagerSignature).
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5975
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5976	"Modified: / 04-08-2010 / 18:34:15 / cg"
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	5977	"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	5978	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5979
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5980	basicSaveSettings
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5981	\|nm\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5982
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5983	ClassCategoryReader sourceMode:(self class keepSourceOptions at:self keepSourceSelection value).
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5984	Class catchClassRedefinitions:(self catchClassRedefs value).
fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5985	Class catchMethodRedefinitions:(self catchMethodRedefs value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5986	HistoryManager notNil ifTrue:[
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5987	HistoryManager fullHistoryUpdate:(self fullHistoryUpdate value).
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5988	self historyLines value ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5989	HistoryManager activate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5990	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5991	HistoryManager deactivate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5992	].
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5993	UserPreferences current historyManagerEnabled:(self historyLines value).
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5994	nm := (self userNameInHistoryHolder value ? '') withoutSeparators asNilIfEmpty.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5995	UserPreferences current historyManagerSignature:nm.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5996	].
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5997	Smalltalk loadBinaries:(self loadBinaries value).
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5998
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5999	"Modified: / 04-08-2010 / 18:33:20 / cg"
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	6000	"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	6001	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6002
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6003	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6004
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6005	canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6006
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6007	canLoadBinaries isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6008	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6009	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6010	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6011	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6012
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6013	catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6014
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6015	catchClassRedefs isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6016	catchClassRedefs := (Class catchClassRedefinitions ? false) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6017	catchClassRedefs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6018	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6019	^ catchClassRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6020	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6021
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6022	catchMethodRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6023
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6024	catchMethodRedefs isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6025	catchMethodRedefs := (Class catchMethodRedefinitions ? false) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6026	catchMethodRedefs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6027	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6028	^ catchMethodRedefs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6029	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6030
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6031	fullHistoryUpdate
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6032
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6033	fullHistoryUpdate isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6034	self hasHistoryManager ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6035	fullHistoryUpdate := (HistoryManager fullHistoryUpdate ? false) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6036	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6037	fullHistoryUpdate := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6038	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6039	fullHistoryUpdate onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6040	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6041	^ fullHistoryUpdate.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6042	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6043
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6044	hasHistoryManager
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6045
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6046	^ HistoryManager notNil and:[HistoryManager isLoaded and:[HistoryManager isActive]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6047	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6048
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6049	historyLines
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6050
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6051	historyLines isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6052	historyLines := self hasHistoryManager asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6053	historyLines onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6054	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6055	^ historyLines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6056	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6057
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6058	keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6059
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6060	keepSource isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6061	keepSource := (resources array:(self class keepSourceStrings)) asList.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6062	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6063	^ keepSource.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6064	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6065
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6066	keepSourceSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6067
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6068	keepSourceSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6069	keepSourceSelection := (self class keepSourceOptions indexOf:ClassCategoryReader sourceMode ifAbsent:1) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6070	keepSourceSelection onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6071	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6072	^ keepSourceSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6073	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6074
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6075	loadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6076
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6077	loadBinaries isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6078	self canLoadBinaries value ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6079	loadBinaries:= Smalltalk loadBinaries asValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6080	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6081	loadBinaries:= false asValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6082	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6083	loadBinaries onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6084	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6085	^ loadBinaries.
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6086
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6087	"Modified: / 04-08-2010 / 18:34:56 / cg"
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6088	!
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6089
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6090	userNameInHistoryHolder
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6091
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6092	userNameInHistoryHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6093	userNameInHistoryHolder := '' asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6094	userNameInHistoryHolder onChangeSend:#updateModifiedChannel to:self.
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6095	].
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6096	^ userNameInHistoryHolder.
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6097
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6098	"Modified: / 04-08-2010 / 18:37:53 / cg"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6099	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6100
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6101	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6102
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6103	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6104	^ 'Launcher/compilerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6105	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6106
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6107	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6108
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6109	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6110	((HistoryManager fullHistoryUpdate ? false) ~= self fullHistoryUpdate value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6111	((ClassCategoryReader sourceMode) ~= (self class keepSourceOptions at:self keepSourceSelection value)) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6112	((Class catchMethodRedefinitions ? false) ~= self catchMethodRedefs value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6113	((Class catchClassRedefinitions ? false) ~= self catchClassRedefs value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6114	((Smalltalk loadBinaries ? false) ~= self loadBinaries value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6115	((self hasHistoryManager) ~= self historyLines value) ifTrue:[^ true].
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	6116	(UserPreferences current historyManagerSignature ~= self userNameInHistoryHolder value) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6117	^ false.
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6118
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6119	"Modified: / 04-08-2010 / 18:31:55 / cg"
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	6120	"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	6121	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6122
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6123	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'help specs'!
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6124
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	6125	helpSpec
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6126	"This resource specification was automatically generated
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6127	by the UIHelpTool of ST/X."
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6128
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6129	"Do not manually edit this!! If it is corrupted,
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6130	the UIHelpTool may not be able to read the specification."
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6131
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6132	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6133	UIHelpTool openOnClass:AbstractSettingsApplication::HTTPStartServerSettingsApplication
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6134	"
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6135
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6136	<resource: #help>
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6137
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	6138	^ super helpSpec addPairsFrom:#(
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6139
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6140	#createFCGIServer
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6141	'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	6142
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6143	#createServer
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6144	'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	6145
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6146	#createServerFromSettingsFile
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6147	'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	6148
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6149	#loadWebServerPackage
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6150	'Load the missing webserver class packages'
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6151
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6152	#removeAllServers
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6153	'Stop and remove all defined servers'
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6154
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6155	#serverPortNumber
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6156	'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	6157
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6158	)
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6159	! !
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6160
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6161	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'image specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6162
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6163	defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6164	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6165	by the ImageEditor of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6166
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6167	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6168	the ImageEditor may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6169
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6170	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6171	self defaultIcon inspect
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6172	ImageEditor openOnClass:self andSelector:#defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6173	Icon flushCachedIcons
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6174	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6175
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6176	<resource: #image>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6177
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6178	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	6179	constantNamed:'AbstractSettingsApplication::HTTPStartServerSettingsApplication defaultIcon'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	6180	ifAbsentPut:[(Depth8Image width:22 height:22) bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6181	@@@@@@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	6182	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	6183	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	6184	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	6185	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	6186	JB (JCX6AS@@@@@@@@@@@@@@J28AM#XAJCX(M T0@@@@@@@a')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	6187	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	6188	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	6189	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6190
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6191	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'interface specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6192
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6193	windowSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6194	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6195	by the UIPainter of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6196
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6197	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6198	the UIPainter may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6199
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6200	"
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	6201	UIPainter new openOnClass:AbstractSettingsApplication::HTTPStartServerSettingsApplication andSelector:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	6202	AbstractSettingsApplication::HTTPStartServerSettingsApplication new openInterface:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	6203	AbstractSettingsApplication::HTTPStartServerSettingsApplication open
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6204	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6205
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6206	<resource: #canvas>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6207
15916 ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6208	^
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6209	#(FullSpec
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6210	name: windowSpec
15916 ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6211	window:
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6212	(WindowSpec
15916 ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6213	label: 'HTTP Server Settings'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6214	name: 'HTTP Server Settings'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6215	min: (Point 10 10)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6216	bounds: (Rectangle 0 0 539 630)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6217	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6218	component:
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6219	(SpecCollection
15916 ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6220	collection: (
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6221	(VerticalPanelViewSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6222	name: 'VerticalPanel1'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6223	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	6224	horizontalLayout: fit
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6225	verticalLayout: top
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6226	horizontalSpace: 3
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6227	verticalSpace: 3
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6228	component:
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6229	(SpecCollection
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6230	collection: (
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6231	(VerticalPanelViewSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6232	name: 'VerticalPanel4'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6233	horizontalLayout: fit
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6234	verticalLayout: topSpace
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6235	horizontalSpace: 3
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6236	verticalSpace: 3
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6237	component:
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6238	(SpecCollection
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6239	collection: (
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6240	(ViewSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6241	name: 'InfoMessageBox'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6242	component:
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6243	(SpecCollection
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6244	collection: (
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6245	(LabelSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6246	label: 'Label'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6247	name: 'Label2'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6248	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	6249	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6250	labelChannel: informationLabel
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6251	resizeForLabel: false
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6252	adjust: left
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6253	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6254	(ActionButtonSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6255	label: 'Load Missing WebServer Packages'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6256	name: 'Button8'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6257	layout: (AlignmentOrigin 0 0.5 0 1 0.5 1)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6258	activeHelpKey: loadWebServerPackage
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6259	visibilityChannel: hasWebServerClassesNotLoadedHolder
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6260	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6261	tabable: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6262	model: loadWebServerPackages
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6263	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6264	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6265
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6266	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6267	extent: (Point 539 200)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6268	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6269	(ViewSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6270	name: 'Separator'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6271	extent: (Point 539 20)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6272	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6273	(ViewSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6274	name: 'ActionButtonBox'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6275	component:
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6276	(SpecCollection
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6277	collection: (
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6278	(LabelSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6279	label: 'Port:'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6280	name: 'Label1'
17006 db74a64a26d6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17005 diff changeset	6281	layout: (LayoutFrame 5 0 21 0 57 0 49 0)
15916 ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6282	activeHelpKey: serverPortNumber
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6283	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6284	adjust: right
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6285	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6286	(InputFieldSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6287	name: 'EntryField1'
17006 db74a64a26d6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17005 diff changeset	6288	layout: (LayoutFrame 57 0 20 0 128 0 48 0)
15916 ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6289	activeHelpKey: serverPortNumber
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6290	enableChannel: hasWebServerClassesLoadedHolder
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6291	model: portNumberChannel
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6292	type: number
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6293	immediateAccept: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6294	acceptOnReturn: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6295	acceptOnTab: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6296	acceptOnLostFocus: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6297	acceptOnPointerLeave: false
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6298	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6299	(VerticalPanelViewSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6300	name: 'VerticalPanel5'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6301	layout: (LayoutFrame 136 0 14 0 -12 1 0 1)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6302	horizontalLayout: fit
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6303	verticalLayout: topSpace
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6304	horizontalSpace: 3
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6305	verticalSpace: 3
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6306	component:
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6307	(SpecCollection
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6308	collection: (
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6309	(ActionButtonSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6310	label: 'Create new HTTP Server'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6311	name: 'Button4'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6312	activeHelpKey: createServer
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6313	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6314	tabable: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6315	model: createServer
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6316	enableChannel: hasWebServerClassesLoadedHolder
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6317	useDefaultExtent: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6318	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6319	(ActionButtonSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6320	label: 'Create new FastCGI Server'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6321	name: 'Button7'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6322	activeHelpKey: createFCGIServer
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6323	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6324	tabable: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6325	model: createFcgiServer
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6326	enableChannel: hasWebServerClassesLoadedHolder
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6327	useDefaultExtent: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6328	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6329	(ActionButtonSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6330	label: 'Create Server from Settings File...'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6331	name: 'Button6'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6332	activeHelpKey: createServerFromSettingsFile
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6333	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6334	tabable: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6335	model: createServerFromFile
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6336	enableChannel: hasWebServerClassesLoadedHolder
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6337	useDefaultExtent: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6338	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6339	(ActionButtonSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6340	label: 'Remove all Servers'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6341	name: 'Button5'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6342	activeHelpKey: removeAllServers
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6343	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6344	tabable: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6345	model: removeAllServers
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6346	enableChannel: hasCreatedServerChannel
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6347	useDefaultExtent: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6348	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6349	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6350
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6351	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6352	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6353	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6354
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6355	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6356	extent: (Point 539 160)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6357	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6358	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6359
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6360	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6361	extent: (Point 539 620)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6362	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6363	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6364
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6365	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6366	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6367	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6368
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6369	)
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6370	)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6371	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6372
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6373	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'servers access'!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6374
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6375	addCreatedServer:aServer
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6376	self createdServers add:aServer.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6377	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6378
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6379	createdServers
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6380	CreatedServers isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6381	CreatedServers := Set new.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6382	].
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6383	^ CreatedServers
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6384	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6385
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6386	removeAllCreatedServer
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6387	self createdServers removeAll.
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6388	!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6389
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6390	removeCreatedServer:aServer
5355 aa7b1d44d7a8 remove server from createdServers penk parents: 5346 diff changeset	6391	self createdServers remove:aServer ifAbsent:nil.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6392	! !
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6393
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6394	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'actions'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6395
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6396	basicReadSettings
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6397	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6398
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6399	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6400	(serverClass notNil and:[serverClass isLoaded]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6401	self serverClass runningServers
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6402	removeDependent:self;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6403	addDependent:self.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6404	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6405	self createServerSubApplicationsForRunningServers.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6406	self createdServerChanged.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6407
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6408	"Modified: / 25-01-2007 / 16:41:27 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6409	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6410
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6411	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6412	"nothing done here"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6413
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6414	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6415	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6416
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6417	createFcgiServer
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6418	"create a FastCGI server"
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6419
7548 ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	6420	FCGIServer isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6421	self warn:'The FCGIServer-class is missing - cannot create server.'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6422	^ self.
7548 ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	6423	].
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6424	^ self createServerForClass:FCGIServer.
7548 ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	6425
ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	6426	"Modified: / 26-11-2006 / 13:12:14 / cg"
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6427	!
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6428
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6429	createServer
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6430	"create a default server - i.e. a HTTP server"
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6431
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6432	HTTPServer isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6433	self warn:'The HTTPServer-class is missing - cannot create server.'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6434	^ self.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6435	].
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6436	^ self createServerForClass:self serverClass.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6437
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6438	"Modified: / 09-04-2011 / 11:15:52 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6439	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6440
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	6441	createServerApplicationFor:aServerInstance
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	6442	\|settingsApp itemPathName newItem openApps\|
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6443
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6444	"/ settingsDialog isNil ifTrue:[^ self].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6445
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	6446	openApps := settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl.
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	6447	(openApps contains:[:app \| app httpServerInstance == aServerInstance]) ifTrue:[
15001 825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6448	" already have an Item for this application "
825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6449	^ self
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6450	].
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6451	HTTPServerSettingsAppl isNil ifTrue:[
15001 825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6452	Smalltalk loadPackage:'stx:goodies/webServer/ui'.
825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6453	HTTPServerSettingsAppl isNil ifTrue:[
825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6454	self warn:'Missing settings application: HTTPServerSettingsAppl'.
825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6455	^ self.
825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6456	].
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6457	].
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6458
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6459	settingsApp := HTTPServerSettingsAppl basicNew.
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6460	settingsApp settingsDialog:settingsDialog.
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6461	settingsApp httpServerInstance:aServerInstance.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6462	settingsApp defaultSettingsApplication:false.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6463	settingsApp basicInitialize.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6464	itemPathName := self itemPathName , '/', settingsApp nameInSettingsDialog.
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6465	newItem := settingsDialog addApplClass:#'HTTPServerSettingsAppl' withName:itemPathName.
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6466	newItem application:settingsApp.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6467	self createdServerChanged.
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6468	settingsDialog expandItemForApplication:self.
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6469	settingsApp readSettings.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6470	settingsApp initialize.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6471
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6472	"Modified: / 09-04-2011 / 11:17:44 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6473	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6474
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6475	createServerForClass:serverClass
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6476
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6477	\|newServer port runningServers\|
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6478
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6479	serverClass isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6480	self warn:'The server class is missing - cannot create server.'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6481	^ self.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6482	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6483
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6484	self withWaitCursorDo:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6485	port := self portNumberChannel value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6486	runningServers := serverClass runningServers.
16625 1ad26ef997ff #REFACTORING by mawalch mawalch parents: 16593 diff changeset	6487
1ad26ef997ff #REFACTORING by mawalch mawalch parents: 16593 diff changeset	6488	runningServers do:[:aServer \|
1ad26ef997ff #REFACTORING by mawalch mawalch parents: 16593 diff changeset	6489	aServer port = port asInteger ifTrue:[
1ad26ef997ff #REFACTORING by mawalch mawalch parents: 16593 diff changeset	6490	Dialog warn:'There is already a server for port ', port asString.
1ad26ef997ff #REFACTORING by mawalch mawalch parents: 16593 diff changeset	6491	^ self
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6492	]
16625 1ad26ef997ff #REFACTORING by mawalch mawalch parents: 16593 diff changeset	6493	].
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6494	runningServers addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6495
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6496	(port = serverClass defaultPort) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6497	newServer := serverClass newServerWithDefaultServiceListOn:port.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6498	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6499	newServer := serverClass newServerOnPort:port.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6500	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6501	self class addCreatedServer:newServer.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6502	self createServerApplicationFor:newServer.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6503	]
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6504	!
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6505
5049 3df132763949 instable state penk parents: 5044 diff changeset	6506	createServerFromFile
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6507	\|serverClass newServer fileName runningServers newServerPort answer\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6508
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6509	serverClass := self serverClass.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6510	fileName := Dialog requestFileName:'Select a Server Settings File'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6511	default:(serverClass settingsFilename)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6512	pattern:'*.xml'.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6513
5049 3df132763949 instable state penk parents: 5044 diff changeset	6514	fileName isEmptyOrNil ifTrue:[ ^ self].
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	6515	self withWaitCursorDo:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6516	newServer := serverClass serverFromSettingsFile:(fileName asFilename).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6517	newServer notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6518	newServerPort := newServer port.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6519	runningServers := serverClass runningServers.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6520	runningServers notEmpty ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6521	[self hasServerForPort:newServerPort] whileTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6522	answer := Dialog
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6523	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	6524	initialAnswer:self portNumberChannel value printString.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6525	answer isEmptyOrNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6526	^ self
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6527	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6528	newServerPort := Number readFromString:answer.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6529	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6530	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6531	newServer port:newServerPort.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6532	runningServers addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6533	self class addCreatedServer:newServer.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6534	self createServerApplicationFor:newServer.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6535	].
5049 3df132763949 instable state penk parents: 5044 diff changeset	6536	].
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6537
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6538	"Modified: / 25-01-2007 / 16:40:57 / cg"
5049 3df132763949 instable state penk parents: 5044 diff changeset	6539	!
3df132763949 instable state penk parents: 5044 diff changeset	6540
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	6541	createServerSubApplicationsForRunningServers
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6542	\|serverToStart serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6543
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6544	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6545
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6546	(serverClass notNil and:[ serverClass isLoaded ]) ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6547	^ self
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6548	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6549
12570 c9f359cab740 class: AbstractSettingsApplication Stefan Vogel <sv@exept.de> parents: 12478 diff changeset	6550	serverToStart := serverClass runningServers asNewSet.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6551	serverToStart addAll:self class createdServers.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6552	serverToStart isEmpty ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6553	^ self
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6554	].
11774 4a80d7101f58 x Claus Gittinger <cg@exept.de> parents: 11732 diff changeset	6555	serverToStart := serverToStart select:[:s \| s port notNil].
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6556	serverToStart := serverToStart asSortedCollection:[:a :b \| a port < b port].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6557	serverToStart do:[:eachServerInstance \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6558	self createServerApplicationFor:eachServerInstance.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6559	]
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6560
11774 4a80d7101f58 x Claus Gittinger <cg@exept.de> parents: 11732 diff changeset	6561	"Modified: / 26-08-2012 / 10:25:23 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6562	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6563
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	6564	hasServerForPort:newServerPort
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6565	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6566
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6567	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6568	^ serverClass notNil
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6569	and:[ serverClass runningServers
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6570	contains:[:eachServer\| eachServer port = newServerPort]].
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6571
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6572	"Modified: / 25-01-2007 / 16:39:48 / cg"
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	6573	!
b3cba6441579 ready to use penk parents: 5049 diff changeset	6574
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6575	loadWebServerPackages
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6576	Smalltalk loadPackage:'stx:goodies/webServer'.
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6577	Smalltalk loadPackage:'stx:goodies/webServer/htmlTree'.
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6578	Smalltalk loadPackage:'stx:goodies/webServer/comanche'.
18124 28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	6579	Smalltalk loadPackage:'stx:goodies/webServer/comanche/stt'.
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	6580	Smalltalk loadPackage:'stx:goodies/webServer/comanche/swiki'.
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	6581	Smalltalk loadPackage:'stx:goodies/webServer/comanche/seaside2_5b4/squeakCompatibility'.
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6582	Smalltalk loadPackage:'stx:goodies/webServer/ui'.
16309 77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	6583	self hasWebServerClassesNotLoadedHolder value:(self hasWebServerClassesLoaded not).
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6584	!
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6585
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6586	removeAllServerSubApplications
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6587	"/ settingsDialog isNil ifTrue:[^ self].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6588
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	6589	settingsDialog removeAllSubApplicationsFor:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6590	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6591
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6592	removeAllServers
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6593	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6594
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6595	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6596	serverClass isLoaded ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6597	serverClass terminateAllServers.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	6598	].
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6599	self class removeAllCreatedServer.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	6600	self removeAllServerSubApplications.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	6601	self createdServerChanged.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6602
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6603	"Modified: / 25-01-2007 / 16:39:10 / cg"
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	6604	!
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	6605
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6606	setPortOnFreePort
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6607	\|serverClass highestUsedPortNr portToUse instances\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6608
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6609	"/ settingsDialog isNil ifTrue:[^ self].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6610
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6611	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6612	(serverClass notNil and:[serverClass isLoaded]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6613	instances := serverClass runningServers asNewSet.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6614	instances addAll:((settingsDialog getAllChildrenAppsForApplication:self)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6615	collect:[:aApp\| aApp httpServerInstance]).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6616	instances := instances select:[:i \| i port notNil].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6617	highestUsedPortNr := instances
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6618	inject:(serverClass defaultPort - 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6619	into:[:maxSoFar :thisServer \| thisServer port max:maxSoFar].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6620
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6621	portToUse := highestUsedPortNr + 1
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6622	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6623	portToUse := 8080
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	6624	].
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	6625	self portNumberChannel value:portToUse.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6626
11774 4a80d7101f58 x Claus Gittinger <cg@exept.de> parents: 11732 diff changeset	6627	"Modified: / 26-08-2012 / 10:26:20 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6628	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6629
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6630	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'aspects'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6631
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6632	hasCreatedServerChannel
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6633	hasCreatedServerChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6634	hasCreatedServerChannel := true asValue.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6635	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6636	^ hasCreatedServerChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6637	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6638
16309 77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	6639	hasWebServerClassesLoaded
77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	6640	^ self hasHTTPServerClass and:[self hasFCGIServerClass].
77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	6641	!
77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	6642
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6643	hasWebServerClassesLoadedHolder
16309 77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	6644	^ BlockValue forLogicalNot:(self hasWebServerClassesNotLoadedHolder)
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6645	!
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6646
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6647	hasWebServerClassesNotLoadedHolder
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6648	hasWebServerClassesNotLoadedHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6649	hasWebServerClassesNotLoadedHolder := true asValue.
16309 77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	6650	hasWebServerClassesNotLoadedHolder value:(self hasWebServerClassesLoaded not).
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6651	].
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6652	^ hasWebServerClassesNotLoadedHolder.
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6653	!
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6654
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6655	informationLabel
11504 20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6656	\|info\|
20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6657
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6658	info := resources
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6659	string:'HTTPSTARTINFO'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6660	default:
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6661	'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	6662	(i.e. it is possible to serve multiple ports)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6663
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6664	Once created, select the individual server in the left tree,
11504 20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6665	configure its services, and finally start it up.'.
20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6666
20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6667	self hasHTTPServerClass ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6668	info := info ,
19041 7e56f18cb39e #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 18957 diff changeset	6669	c'\n\n',
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6670	(resources string:'ATTENTION: Disabled because HTTPServer class is missing.') allBold
11504 20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6671	].
20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6672	^ info
20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6673
20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6674	"Modified: / 14-05-2012 / 12:35:46 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6675	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6676
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6677	portNumberChannel
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6678
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6679	portNumberChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6680	portNumberChannel := ValueHolder new.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6681	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6682	^ portNumberChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6683	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6684
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6685	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'change & update'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6686
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6687	createdServerChanged
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6688
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6689	self hasCreatedServerChannel value:self hasCreatedServer.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6690	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6691	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6692
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6693	runningServersChanged
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	6694	self createServerSubApplicationsForRunningServers.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6695	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6696	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6697
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6698	update:something with:aParameter from:changedObject
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6699	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6700
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6701	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6702	(serverClass isLoaded and:[changedObject == serverClass runningServers]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6703	self runningServersChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6704	^ self.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6705	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6706	super update:something with:aParameter from:changedObject
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6707
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6708	"Modified: / 25-01-2007 / 16:38:52 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6709	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6710
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6711	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6712
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6713	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6714	^ 'HTTPServer/index.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6715	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6716
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6717	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'initialization & release'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6718
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6719	release
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6720	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6721
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6722	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6723	(serverClass notNil and:[serverClass isLoaded]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6724	serverClass runningServers removeDependent:self.
14066 0e59cd86d52f class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13915 diff changeset	6725	].
0e59cd86d52f class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13915 diff changeset	6726	super release
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6727
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6728	"Modified: / 25-01-2007 / 16:39:23 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6729	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6730
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6731	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'queries'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6732
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6733	hasCreatedServer
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6734	"/ settingsDialog isNil ifTrue:[^ false].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6735	^ (settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6736	notEmpty
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6737	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6738
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6739	hasFCGIServerClass
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6740	^ FCGIServer notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6741
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6742	"Created: / 25-01-2007 / 17:50:14 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6743	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6744
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6745	hasHTTPServerClass
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6746	^ self serverClass notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6747
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6748	"Created: / 25-01-2007 / 17:50:03 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6749	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6750
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6751	hasUnsavedChanges
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6752
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6753	^ false
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	6754	!
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	6755
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6756	isEnabledInSettingsDialog:aSettingsDialog
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6757	^ true
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6758	"/ ^ self serverClass notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6759	"/ or:[ HTTPServer notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6760	"/ or:[ FCGIServer notNil ]]
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6761
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6762	"Created: / 25-01-2007 / 16:48:18 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6763	"Modified: / 25-01-2007 / 17:49:24 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6764	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6765
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	6766	serverClass
16718 cc9f5b0ac2bd #OTHER by mawalch mawalch parents: 16682 diff changeset	6767	"answer the default class for instantiating servers.
cc9f5b0ac2bd #OTHER by mawalch mawalch parents: 16682 diff changeset	6768	Note that we may instantiate FCGIServer as well"
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6769
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	6770	^ HTTPServer
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6771	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6772
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6773	whyDisabledInSettingsDialogInfo
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6774	^ 'there is no HTTPServer class in the system'
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6775
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6776	"Created: / 25-01-2007 / 17:16:46 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6777	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6778
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6779	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'help specs'!
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6780
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	6781	helpSpec
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6782	"This resource specification was automatically generated
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6783	by the UIHelpTool of ST/X."
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6784
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6785	"Do not manually edit this!! If it is corrupted,
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6786	the UIHelpTool may not be able to read the specification."
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6787
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6788	"
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6789	UIHelpTool openOnClass:AbstractSettingsApplication::MemorySettingsAppl
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6790	"
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6791
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6792	<resource: #help>
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6793
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	6794	^ super helpSpec addPairsFrom:#(
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6795
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6796	#rawKeyList
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6797	'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	6798
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6799	#functionKeyList
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6800	'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	6801
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6802	#'changeMap'
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6803	'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	6804
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6805	#'applyChange'
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6806	'Adds the current key-function combination to the keyboard map'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6807
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6808	#saveMapAs
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6809	'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	6810
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6811	)
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6812	! !
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6813
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6814	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6815
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6816	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6817	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6818
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6819	^ ToolbarIconLibrary keyboardMappingIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6820	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6821
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6822	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6823
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6824	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6825	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6826	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6827
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6828	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6829	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6830
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6831	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6832	UIPainter new openOnClass:AbstractSettingsApplication::KbdMappingSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6833	AbstractSettingsApplication::KbdMappingSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6834	AbstractSettingsApplication::KbdMappingSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6835	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6836
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6837	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6838
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6839	^
13496 bbfee49a9595 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13494 diff changeset	6840	#(FullSpec
bbfee49a9595 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13494 diff changeset	6841	name: windowSpec
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6842	window:
13496 bbfee49a9595 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13494 diff changeset	6843	(WindowSpec
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6844	label: 'Keyboard Mapping Settings'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6845	name: 'Keyboard Mapping Settings'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6846	min: (Point 10 10)
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6847	bounds: (Rectangle 0 0 482 654)
15043 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	component:
13496 bbfee49a9595 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13494 diff changeset	6850	(SpecCollection
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6851	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6852	(TextEditorSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6853	name: 'Text'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6854	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	6855	enableChannel: false
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6856	model: labelTextHolder
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6857	hasHorizontalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6858	hasVerticalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6859	miniScrollerHorizontal: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6860	miniScrollerVertical: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6861	isReadOnly: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6862	hasKeyboardFocusInitially: false
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6863	postBuildCallback: postBuildHelpLabel:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6864	viewClassName: 'TextView'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6865	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6866	(VariableVerticalPanelSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6867	name: 'VariableVerticalPanel1'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6868	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	6869	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6870	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6871	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6872	(VariableHorizontalPanelSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6873	name: 'VariableHorizontalPanel1'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6874	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6875	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6876	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6877	(ViewSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6878	name: 'Box2'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6879	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6880	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6881	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6882	(LabelSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6883	label: 'Key'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6884	name: 'Label1'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6885	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6886	translateLabel: true
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	(SequenceViewSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6889	name: 'RawKeyList'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6890	layout: (LayoutFrame 0 0 30 0 0 1 -30 1)
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6891	activeHelpKey: rawKeyList
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6892	model: selectedRawKey
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6893	hasHorizontalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6894	hasVerticalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6895	useIndex: false
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6896	sequenceList: rawKeyList
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6897	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6898	(ViewSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6899	name: 'Box4'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6900	layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6901	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6902	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6903	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6904	(CheckBoxSpec
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6905	label: 'Modify'
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6906	name: 'CheckBox1'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6907	layout: (LayoutFrame 0 0 7 0 136 0 29 0)
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6908	activeHelpKey: changeMap
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6909	model: changeMapHolder
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6910	translateLabel: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6911	)
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6912	(InputFieldSpec
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6913	name: 'EntryField1'
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6914	layout: (LayoutFrame 136 0 7 0 0 1 29 0)
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6915	visibilityChannel: changeMapHolder
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6916	model: currentKeyHolder
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6917	acceptOnReturn: true
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6918	acceptOnTab: true
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6919	acceptOnPointerLeave: true
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6920	)
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6921	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6922
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6923	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6924	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6925	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6926
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6927	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6928	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6929	(ViewSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6930	name: 'Box3'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6931	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6932	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6933	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6934	(LabelSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6935	label: 'Function'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6936	name: 'Label2'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6937	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6938	translateLabel: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6939	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6940	(SequenceViewSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6941	name: 'FunctionKeyList'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6942	layout: (LayoutFrame 0 0 30 0 0 1 -30 1)
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6943	activeHelpKey: functionList
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6944	model: selectedFunctionKey
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6945	hasHorizontalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6946	hasVerticalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6947	useIndex: false
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6948	sequenceList: functionKeyList
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6949	)
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6950	(HorizontalPanelViewSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6951	name: 'HorizontalPanel1'
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6952	layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6953	horizontalLayout: fitSpace
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6954	verticalLayout: center
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6955	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6956	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6957	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6958	(ActionButtonSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6959	label: 'Apply'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6960	name: 'Button1'
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6961	activeHelpKey: applyChange
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6962	visibilityChannel: changeMapHolder
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6963	translateLabel: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6964	model: applyMapChange
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6965	extent: (Point 125 22)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6966	)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6967	(ActionButtonSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6968	label: 'Save As...'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6969	name: 'Button2'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6970	activeHelpKey: saveMapAs
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6971	visibilityChannel: changeMapHolder
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6972	translateLabel: true
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6973	model: saveMapAs
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6974	extent: (Point 125 22)
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6975	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6976	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6977
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6978	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6979	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6980	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6981
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6982	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6983	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6984	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6985
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6986	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6987	handles: (Any 0.5 1.0)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6988	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6989	(ViewSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6990	name: 'Box1'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6991	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6992	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6993	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6994	(LabelSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6995	label: 'Macro text (if any):'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6996	name: 'MacroTextLabel'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6997	layout: (LayoutFrame 0 0.0 0 0 0 1.0 30 0)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6998	translateLabel: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6999	adjust: left
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7000	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7001	(TextEditorSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7002	name: 'MacroText'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7003	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	7004	activeHelpKey: macroText
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7005	model: macroTextHolder
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7006	hasHorizontalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7007	hasVerticalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7008	isReadOnly: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7009	hasKeyboardFocusInitially: false
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7010	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7011	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7012
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7013	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7014	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7015	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7016
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7017	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7018	handles: (Any 0.5 1.0)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7019	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7020	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7021
13496 bbfee49a9595 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13494 diff changeset	7022	)
bbfee49a9595 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13494 diff changeset	7023	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7024	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7025
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7026	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7027
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7028	applyMapChange
15051 e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	7029	\|rawKey function\|
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	7030
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	7031	rawKey := self currentKeyHolder value asSymbol.
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	7032	function := self selectedFunctionKey value asSymbol.
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	7033
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	7034	function = (resources string:'* unassigned *') ifTrue:[
16644 1c87adf56e82 #BUGFIX by mawalch mawalch parents: 16629 diff changeset	7035	mappings removeKey:rawKey
15051 e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	7036	] ifFalse:[
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	7037	mappings at:rawKey put:function.
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	7038	].
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7039	self updateModifiedChannel.
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7040	!
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7041
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7042	basicReadSettings
15050 9034dd01f8a4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15049 diff changeset	7043	\|screenMap l\|
9034dd01f8a4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15049 diff changeset	7044
9034dd01f8a4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15049 diff changeset	7045	screenMap := Screen current keyboardMap.
9034dd01f8a4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15049 diff changeset	7046	mappings := screenMap species new declareAllFrom: screenMap.
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7047
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7048	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	7049	l := (mappings values asSet collect:[:key \| key asString] as:OrderedCollection) sort.
15051 e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	7050	l addFirst:(resources string:'* unassigned *').
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7051	self functionKeyList contents:l.
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7052
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7053	self changeMapHolder value:false.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7054	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7055
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7056	basicSaveSettings
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7057	self saveMapAs:(Filename applicationDataDirectory construct:'private_keyboard.rc')
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7058	!
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7059
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7060	saveMapAs
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7061	"invoked via save as button"
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7062
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7063	\|fn\|
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7064
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7065	fn := Dialog
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7066	requestFileName:'Save private keyboard settings in:'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7067	default:'private_keyboard.rc'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7068	fromDirectory:(Filename applicationDataDirectory).
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7069	fn isEmptyOrNil ifTrue:[ ^ self ].
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7070	self saveMapAs:fn asFilename.
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7071	!
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7072
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7073	saveMapAs:aFilename
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7074	aFilename writingFileDo:[:s \|
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7075	s nextPutLine:'\|map\|'.
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7076	s nextPutLine:'map := Screen current keyboardMap.'.
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7077	mappings keysAndValuesDo:[:eachKey :eachFunction \|
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7078	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	7079	].
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7080	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7081	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7082
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7083	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7084
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7085	changeMapHolder
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7086	changeMapHolder isNil ifTrue:[
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7087	changeMapHolder := false asValue.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7088	].
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7089	^ changeMapHolder.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7090	!
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7091
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7092	currentKeyHolder
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7093	currentKeyHolder isNil ifTrue:[
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7094	currentKeyHolder := nil asValue.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7095	].
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7096	^ currentKeyHolder.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7097	!
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7098
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7099	functionKeyList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7100	functionKeyList isNil ifTrue:[
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7101	functionKeyList := List new.
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7102	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7103	^ functionKeyList.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7104	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7105
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7106	labelTextHolder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7107	labelTextHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7108	labelTextHolder := ValueHolder new.
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7109	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7110	^ labelTextHolder.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7111	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7112
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7113	macroTextHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7114	macroTextHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7115	macroTextHolder := ValueHolder new.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7116	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7117	^ macroTextHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7118	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7119
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7120	rawKeyList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7121
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7122	rawKeyList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7123	rawKeyList := List new.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7124	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7125	^ rawKeyList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7126	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7127
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7128	selectedFunctionKey
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7129
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7130	selectedFunctionKey isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7131	selectedFunctionKey := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7132	selectedFunctionKey addDependent:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7133	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7134	^ selectedFunctionKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7135	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7136
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7137	selectedRawKey
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7138
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7139	selectedRawKey isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7140	selectedRawKey := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7141	selectedRawKey addDependent:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7142	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7143	^ selectedRawKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7144	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7145
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7146	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7147
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7148	changeFunctionKeySelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7149	\|raw\|
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7150
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7151	raw := self selectedRawKey value.
9629 e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	7152	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	7153
e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	7154	"Modified: / 11-11-2010 / 06:50:04 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7155	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7156
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7157	changeMacroText
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7158
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7159	\|f macro indent\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7160
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7161	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7162	(f startsWith:'Cmd') ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7163	f := f copyFrom:4
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7164	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7165	macro := currentUserPrefs functionKeySequences
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7166	at:(f asSymbol) ifAbsent:nil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7167	macro notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7168	macro := macro asStringCollection.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7169	indent := macro
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7170	inject:99999 into:[:min :element \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7171	\|stripped\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7172
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7173	stripped := element withoutLeadingSeparators.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7174	stripped isEmpty ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7175	min
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7176	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7177	min min:(element size - stripped size)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7178	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7179	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7180	indent ~~ 0 ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7181	macro := macro collect:[:line \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7182	line size > indent ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7183	line copyFrom:indent+1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7184	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7185	line
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7186	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7187	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7188	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7189	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7190	macroTextHolder value:macro.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7191	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7192
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7193	changeRawKeySelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7194	\|f raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7195
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7196	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7197	raw := mappings keyAtValue:f asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7198	raw isNil ifTrue:[
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7199	raw := mappings keyAtValue:f first.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7200	raw isNil ifTrue:[
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7201	raw := mappings keyAtValue:f asSymbol.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7202	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7203	].
9629 e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	7204	self selectedRawKey value:raw withoutNotifying:self.
e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	7205
e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	7206	"Modified: / 11-11-2010 / 06:49:56 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7207	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7208
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7209	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7210	changedObject == self selectedFunctionKey ifTrue:[
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7211	changeMapHolder value ifFalse:[
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7212	self changeRawKeySelection.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7213	].
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7214	self changeMacroText.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7215	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7216	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7217	changedObject == self selectedRawKey ifTrue:[
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7218	changeMapHolder value ifFalse:[
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7219	self changeFunctionKeySelection.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7220	].
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7221	self currentKeyHolder value:changedObject value.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7222	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7223	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7224	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7225	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7226
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7227	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7228
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7229	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7230	^ 'Launcher/keyboardSetting.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7231	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7232
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7233	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7234
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7235	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7236
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7237	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7238
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7239	super initialize.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	7240
15050 9034dd01f8a4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15049 diff changeset	7241	self labelTextHolder value:(resources at:'KEY_MSG' default:'keyboard mapping:') withCRs.
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7242
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7243	"Modified: / 08-02-2017 / 00:30:32 / cg"
14568 6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7244	!
6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7245
6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7246	postBuildHelpLabel:aWidget
6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7247	aWidget level:0.
6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7248	aWidget scrolledView backgroundColor:self window viewBackground.
6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7249	aWidget font:(Label defaultFont).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7250	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7251
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7252	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7253
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7254	hasUnsavedChanges
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7255	^ mappings ~= Screen current keyboardMap.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7256	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7257
14377 2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7258	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'font specs'!
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7259
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7260	bigLabelFont
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7261	<resource: #fontSpec>
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7262
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7263	^ Label defaultFont asBold
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7264	! !
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7265
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7266	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'help specs'!
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7267
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	7268	helpSpec
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7269	"This resource specification was automatically generated
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7270	by the UIHelpTool of ST/X."
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7271
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7272	"Do not manually edit this!! If it is corrupted,
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7273	the UIHelpTool may not be able to read the specification."
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7274
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7275	"
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7276	UIHelpTool openOnClass:HTTPServerSettingsAppl
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7277	"
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7278
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7279	<resource: #help>
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7280
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	7281	^ super helpSpec addPairsFrom:#(
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7282
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7283	#useSystemLanguage
16524 ecacacdca483 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16466 diff changeset	7284	'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	7285
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7286	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7287	! !
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7288
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7289	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7290
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7291	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	7292	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	7293
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	7294	^ ToolbarIconLibrary languagesIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7295	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7296
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7297	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7298
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7299	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7300	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7301	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7302
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7303	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7304	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7305
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7306	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7307	UIPainter new openOnClass:AbstractSettingsApplication::LanguageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7308	AbstractSettingsApplication::LanguageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7309	AbstractSettingsApplication::LanguageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7310	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7311
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7312	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7313
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7314	^
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	7315	#(FullSpec
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	7316	name: windowSpec
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7317	window:
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	7318	(WindowSpec
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7319	label: 'Language Settings'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7320	name: 'Language Settings'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7321	min: (Point 10 10)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7322	bounds: (Rectangle 0 0 571 878)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7323	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7324	component:
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	7325	(SpecCollection
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7326	collection: (
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7327	(LabelSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7328	label: 'Current Language:'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7329	name: 'Label1'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7330	layout: (LayoutFrame 0 0 0 0 -233 1 30 0)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7331	translateLabel: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7332	labelChannel: currentLanguageLabel
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7333	adjust: right
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7334	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7335	(LabelSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7336	label: 'Label'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7337	name: 'CurrentLang'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7338	layout: (LayoutFrame -233 1 0 0 0 1 30 0)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7339	style: bigLabelFont
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7340	translateLabel: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7341	labelChannel: currentFlagAndLanguageChannel
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7342	adjust: left
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7343	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7344	(TextEditorSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7345	name: 'TextEditor1'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7346	layout: (LayoutFrame 0 0 32 0 0 1.0 240 0)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7347	model: noticeLabelHolder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7348	hasHorizontalScrollBar: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7349	hasVerticalScrollBar: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7350	miniScrollerHorizontal: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7351	autoHideScrollBars: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7352	isReadOnly: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7353	hasKeyboardFocusInitially: false
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7354	postBuildCallback: postBuildHelpLabel:
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7355	viewClassName: 'TextView'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7356	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7357	(InputFieldSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7358	name: 'EntryField1'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7359	layout: (LayoutFrame 2 0.0 240 0 -2 1.0 270 0)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7360	model: languageHolder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7361	acceptOnReturn: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7362	acceptOnTab: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7363	acceptOnLostFocus: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7364	acceptOnPointerLeave: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7365	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7366	(CheckBoxSpec
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7367	label: 'Use OS Language on Startup'
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7368	name: 'CheckBox1'
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7369	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	7370	activeHelpKey: useSystemLanguage
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7371	model: useSystemLanguageHolder
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7372	translateLabel: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7373	)
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7374	(SequenceViewSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7375	name: 'List1'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7376	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	7377	model: languageIndexHolder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7378	hasHorizontalScrollBar: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7379	hasVerticalScrollBar: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7380	doubleClickSelector: doubleClick:
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7381	useIndex: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7382	sequenceList: languageListHolder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7383	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7384	(HorizontalPanelViewSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7385	name: 'HorizontalPanel1'
15917 8bd56a31147e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15916 diff changeset	7386	layout: (LayoutFrame 0 0 -37 1 0 1 0 1)
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7387	horizontalLayout: center
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7388	verticalLayout: center
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7389	horizontalSpace: 3
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7390	verticalSpace: 3
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7391	component:
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7392	(SpecCollection
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7393	collection: (
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7394	(ActionButtonSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7395	label: 'Reread Language Resources'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7396	name: 'RereadResourcesButton'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7397	translateLabel: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7398	resizeForLabel: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7399	model: rereadResourceFiles
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7400	useDefaultExtent: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7401	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7402	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7403
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7404	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7405	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7406	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7407
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	7408	)
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	7409	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7410	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7411
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7412	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7413
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7414	languageList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7415	"return the value of the instance variable 'languageList' (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7416
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7417	^ languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7418	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7419
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7420	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7421
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7422	basicReadSettings
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7423	self useSystemLanguageHolder value:(currentUserPrefs useSystemLanguage).
9559 314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	7424	self languageIndexHolder value:self currentLanguageIndex.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7425	self languageHolder value:self currentLanguage.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7426	self currentFlagAndLanguageChannel value:self currentLanguage.
9559 314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	7427
314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	7428	"Modified: / 24-08-2010 / 18:52:48 / sr"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7429	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7430
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7431	basicSaveSettings
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7432	\|fontPref fontPrefs language oldLanguage languageString territory enc
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7433	answer matchingFonts l screen switch dialog anyWrong\|
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7434
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7435	currentUserPrefs useSystemLanguage:(self useSystemLanguageHolder value).
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7436
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7437	self withWaitCursorDo:[
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7438	languageString := translatedLanguages at:(self languageIndexHolder value).
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7439	language := self languageHolder value asString string.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7440	(language includes:$-) ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7441	l := language asCollectionOfSubstringsSeparatedBy:$-.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7442	language := l at:1.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7443	territory := l at:2.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7444	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7445	territory isNil ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7446	territory := language string copyTo:2
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7447	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7448
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7449	"/ check if the new language needs a differently encoded font;
17629 de2f89a5a799 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17536 diff changeset	7450	"/ ask user to switch font and allow cancelation.
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7451	"/ Otherwise, you are left with unreadable menu & button items ...
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7452
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7453	oldLanguage := UserPreferences current language.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7454	Smalltalk language:language asSymbol.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7455	ResourcePack flushCachedResourcePacks.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7456
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7457	"/ refetch resources ...
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7458	resources := AbstractLauncherApplication classResources.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7459	fontPrefs := resources at:'PREFERRED_FONT_ENCODINGS' default:nil.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7460	fontPrefs isNil ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7461	fontPref := resources at:'PREFERRED_FONT_ENCODING' default:nil.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7462	fontPref isNil ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7463	fontPrefs := #(#'iso10646-1')
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7464	] ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7465	fontPrefs := #(#'iso10646-1') , (Array with:fontPref).
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7466	]
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7467	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7468
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7469	"/ 'normalize' names of encodings
18720 527904823f96 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18692 diff changeset	7470	fontPrefs := fontPrefs
527904823f96 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18692 diff changeset	7471	collect:[:each \| (CharacterEncoder encoderFor:each asLowercase asSymbol ifAbsent:nil)].
527904823f96 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18692 diff changeset	7472	fontPrefs := fontPrefs
527904823f96 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18692 diff changeset	7473	select:[:each \| each notNil and:[each isNullEncoder not]]
527904823f96 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18692 diff changeset	7474	thenCollect:[:each \| each nameOfEncoding].
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7475	fontPrefs isEmpty ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7476	fontPrefs := #(#'iso10464-1')
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7477	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7478	fontPref := fontPrefs first.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7479
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7480	Smalltalk setLanguage:#en.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7481	ResourcePack flushCachedResourcePacks.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7482	resources := AbstractLauncherApplication classResources.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7483
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7484	switch := true.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7485	anyWrong := false.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7486	(Array
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7487	with:MenuView defaultFont
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7488	"/ with:ListView defaultFont
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7489	with:EditTextView defaultFont
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7490	with:Button defaultFont)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7491	do:[:fn \|
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7492	enc := fn encoding.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7493	enc isNil ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7494	(fontPrefs contains:[:pref \| CharacterEncoder isEncoding:pref subSetOf:enc])
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7495	ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7496	anyWrong := true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7497	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7498	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7499	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7500	anyWrong ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7501	"/ look if there is one at all.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7502	screen := Screen current.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7503	matchingFonts := screen listOfAvailableFonts
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7504	select:[:f \| fontPrefs contains:[:pref \|
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7505	CharacterEncoder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7506	isEncoding:pref subSetOf:(f encoding ? 'ascii')]].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7507
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7508	matchingFonts isEmpty ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7509	"/ flush and try again - just in case, the font path has changed.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7510	screen flushListOfAvailableFonts.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7511	matchingFonts := screen listOfAvailableFonts
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7512	select:[:f \| fontPrefs contains:[:pref \|
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7513	CharacterEncoder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7514	isEncoding:pref subSetOf:(f encoding ? 'ascii')]].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7515	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7516	matchingFonts isEmpty ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7517	(Dialog
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7518	confirm:(resources
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7519	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	7520	with:fontPref) withCRs)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7521	ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7522	switch := false
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7523	]
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7524	] ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7525	answer := Dialog
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7526	confirmWithCancel:(resources
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7527	string:'Some font(s) is not %1-encoded.\\Change it ?'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7528	with:fontPref) withCRs
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7529	labels:(resources
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7530	array:#('Cancel' 'No' 'Yes'))
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7531	default:3.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7532	answer isNil ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7533	switch := false
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7534	] ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7535	answer ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7536	switch := (AbstractLauncherApplication::LauncherDialogs fontBoxForEncoding:fontPref)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7537	]
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7538	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7539	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7540	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7541
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7542	switch ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7543	Transcript showCR:'Changing language setting to ' , languageString string , ' (' , language , ')...'.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7544	Smalltalk language:language asSymbol territory:(territory ? language) asSymbol.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7545	ResourcePack flushCachedResourcePacks.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7546	"/ ResourcePack flushCachedResourcePacks - already done by language-change
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7547	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7548	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7549	switch ifTrue:[
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7550	(dialog := settingsDialog) notNil ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7551	dialog reopenLauncher.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7552	] ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7553	NewLauncher current reopenLauncher.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7554	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7555	DebugView newDebugger.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7556	].
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7557	self updateForChangedLanguage.
7430 37990108bea9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7427 diff changeset	7558
37990108bea9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7427 diff changeset	7559	"Modified: / 19-10-2006 / 22:17:44 / cg"
17629 de2f89a5a799 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17536 diff changeset	7560	"Modified (comment): / 24-08-2017 / 14:57:24 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7561	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7562
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7563	doubleClick:aEntry
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7564	self saveSettingsIfUnsavedChangesArePresent.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7565	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7566
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7567	rereadResourceFiles
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7568	ResourcePack flushCachedResourcePacks.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7569	perLanguageResources := nil.
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	7570	self withWaitCursorDo:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7571	self updateForChangedLanguage.
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	7572	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7573
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7574	"/ Smalltalk language:(Smalltalk language).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7575	"/ Smalltalk languageTerritory:(Smalltalk languageTerritory).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7576
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7577	Smalltalk changed:#Language.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7578	Smalltalk changed:#LanguageTerritory.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7579	!
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7580
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7581	updateForChangedLanguage
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7582	self initializeLanguages.
5721 effab3aca7ff * empty log message * Claus Gittinger <cg@exept.de> parents: 5719 diff changeset	7583	languageListHolder value:languageList.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7584	self languageListHolder value:languageList.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7585	self currentFlagAndLanguageChannel value:self currentLanguage.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7586	self setCurrentLanguageLabel.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7587	self setNoticeLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7588	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7589
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7590	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7591
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7592	currentFlagAndLanguageChannel
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7593	currentFlagAndLanguageChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7594	currentFlagAndLanguageChannel := self currentLanguage asValue.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7595	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7596	^ currentFlagAndLanguageChannel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7597	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7598
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7599	currentLanguageLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7600	currentLanguageLabel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7601	currentLanguageLabel := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7602	self setCurrentLanguageLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7603	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7604	^ currentLanguageLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7605	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7606
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7607	languageHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7608	languageHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7609	languageHolder := self currentLanguage asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7610	languageHolder onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7611	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7612	^ languageHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7613	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7614
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7615	languageIndexChanged
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	7616	\|langIdx\|
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	7617
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	7618	langIdx := self languageIndexHolder value ? 1.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	7619	self languageHolder value:(listOfLanguages at:langIdx).
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7620	self updateModifiedChannel.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7621	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7622
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7623	languageIndexHolder
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7624	languageIndexHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7625	languageIndexHolder := (self currentLanguageIndex) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7626	languageIndexHolder onChangeSend:#languageIndexChanged to:self.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7627	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7628	^ languageIndexHolder.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7629	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7630
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7631	languageListHolder
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7632	languageListHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7633	languageListHolder := self languageList asValue.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7634	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7635	^ languageListHolder.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7636	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7637
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7638	noticeLabelHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7639	noticeLabelHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7640	noticeLabelHolder := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7641	self setNoticeLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7642	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7643	^ noticeLabelHolder.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7644	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7645
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7646	setCurrentLanguageLabel
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7647	currentLanguageLabel value: (resources string:'Current Language:')
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7648	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7649
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7650	setNoticeLabel
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7651	noticeLabelHolder
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7652	value: ((resources at:'LANG_MSG' default:'Select a Language') withCRs).
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7653	!
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7654
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7655	useSystemLanguageHolder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7656	useSystemLanguageHolder isNil ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7657	useSystemLanguageHolder := true asValue.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7658	useSystemLanguageHolder onChangeSend:#updateModifiedChannel to:self.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7659	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7660	^ useSystemLanguageHolder.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7661	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7662
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7663	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7664
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7665	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7666	^ 'Launcher/languageSetting.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7667	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7668
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7669	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7670
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7671	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7672	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7673
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7674	self initializeLanguages.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7675	super initialize.
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7676
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7677	"Modified: / 08-02-2017 / 00:30:07 / cg"
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7678	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7679
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7680	initializeLanguages
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7681	\|flags enResources savedLanguage savedLanguageTerritory enLanguages nativeLanguages
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7682	languages listOfLanguageKeys readLanguagesFile rsc\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7683
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7684	resources := self class classResources.
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	7685	listOfLanguages := resources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default' 'en' ).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7686	listOfLanguages := listOfLanguages asOrderedCollection.
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	7687	listOfLanguageKeys := listOfLanguages collect:[:l \| l copyReplaceAll:$- with:$_ ].
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	7688
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7689	(perLanguageResources notNil
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7690	and:[ (perLanguageResources includesKey:#en) not
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7691	and:[ (perLanguageResources includesKey:#'en_us') not ]])
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	7692	ifTrue:[
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7693	perLanguageResources := nil.
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	7694	].
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	7695
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7696	perLanguageResources isNil ifTrue:[
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7697	perLanguageResources := Dictionary new.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7698
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7699	"/ short languages.rs file present?
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7700	rsc := ResourcePack forPackage:'stx:libtool' resourceFileName:'languages.rs' cached:false.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7701	readLanguagesFile := rsc notNil and:[(rsc at:#languageFileExists ifAbsent:false) == true].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7702
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7703	listOfLanguageKeys do:[:eachLang \|
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7704	savedLanguage := Smalltalk language.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7705	savedLanguageTerritory := Smalltalk languageTerritory.
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7706	readLanguagesFile ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7707	ResourcePack flushCachedResourcePacks.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7708	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7709
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7710	[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7711	\|rsc lang terr\|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7712
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7713	lang := terr := eachLang.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7714	(lang includes:$_) ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7715	terr := lang copyFrom:4.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7716	lang := lang copyTo:2.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7717	].
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7718	Smalltalk setLanguage:lang asSymbol territory:terr asSymbol.
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7719	readLanguagesFile ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7720	rsc := ResourcePack forPackage:'stx:libtool' resourceFileName:'languages.rs' cached:false.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7721	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7722	rsc := ResourcePack for:(self class) cached:false.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7723	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7724	perLanguageResources at:eachLang asSymbol put:rsc.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7725	] ensure:[
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7726	Smalltalk setLanguage:savedLanguage territory:savedLanguageTerritory.
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7727	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7728	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7729	readLanguagesFile ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7730	ResourcePack flushCachedResourcePacks.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7731	].
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7732	].
7295 1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	7733
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	7734	enResources := perLanguageResources at:#en ifAbsent:[perLanguageResources at:#'en_us'].
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	7735
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7736	enLanguages :=
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7737	listOfLanguageKeys
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7738	collect:[:lang \|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7739	\|item\|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7740
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7741	item := enResources at:('LANG_' , lang) default:nil.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7742	item isNil ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7743	lang
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7744	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7745	item isString ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7746	item
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7747	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7748	item at:1
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7749	]
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7750	]
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7751	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7752
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7753	nativeLanguages :=
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7754	listOfLanguageKeys
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7755	collect:[:lang \|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7756	\|item enLang\|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7757
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7758	item := enResources at:('LANG_' , lang) default:nil.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7759	item isNil ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7760	enLang := lang
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7761	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7762	item isString ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7763	enLang := item
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7764	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7765	enLang := item at:1
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7766	]
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7767	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7768	item := (perLanguageResources at:lang asSymbol ifAbsent:enResources) at:enLang default:enLang.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7769	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7770
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7771	languages :=
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7772	enLanguages
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7773	collect:[:enLang \|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7774	\|item\|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7775
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7776	item := resources at:enLang default:enLang.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7777	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7778
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7779	flags :=
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7780	listOfLanguageKeys
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7781	collect:[:lang \|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7782	\|item coll\|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7783
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7784	item := resources at:('FLAG_' , lang) default:nil.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7785	item notNil ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7786	item
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7787	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7788	coll := lang asCollectionOfSubstringsSeparatedBy:$_.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7789	(coll size > 1
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7790	and:[(item := resources at:('FLAG_' , coll last) default:nil) notNil])
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7791	ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7792	item
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7793	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7794	item := resources string:('LANG_' , lang).
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7795	item isArray ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7796	item at:2
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7797	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7798	nil
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7799	]
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7800	]
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7801	]
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7802	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7803
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7804	flags :=
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7805	flags
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7806	collect:[:nm \|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7807	\|img d fn\|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7808
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7809	nm notNil ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7810	img := Image fromFile:nm.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7811	img isNil ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7812	d := Smalltalk getPackageDirectoryForPackage:'stx:goodies'.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7813	(d notNil and:[ (fn := d construct:nm) exists]) ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7814	img := Image fromFile:fn.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7815	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7816	('LanguageSettings [info]: missing flags file: ',nm) infoPrintCR.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7817	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7818	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7819	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7820	nil
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7821	]
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7822	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7823
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7824
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7825	translatedLanguages :=
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7826	(1 to:languages size)
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7827	collect:[:idx \|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7828	\|lang englishLang nativeLang s\|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7829
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7830	lang := languages at:idx.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7831	englishLang := enLanguages at:idx.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7832	nativeLang := nativeLanguages at:idx.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7833
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7834	s := nativeLang.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7835	englishLang ~= nativeLang ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7836	s := s , ' / ' , englishLang
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7837	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7838	(lang ~= nativeLang and:[lang ~= englishLang]) ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7839	s := s , ' / ' , lang
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7840	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7841	s
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7842	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7843
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7844	languageList := translatedLanguages
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7845	with:flags
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7846	collect:[:lang :flag \| LabelAndIcon icon:flag string:lang.].
7295 1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	7847
1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	7848	"Modified: / 18-09-2006 / 19:23:39 / cg"
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	7849	!
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	7850
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	7851	postBuildHelpLabel:aWidget
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	7852	aWidget level:0.
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	7853	aWidget scrolledView backgroundColor:self window viewBackground.
14568 6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7854	aWidget font:(Label defaultFont).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7855	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7856
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7857	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7858
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7859	currentLanguage
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7860	^ languageList at:(self currentLanguageIndex)
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7861	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7862
8458 56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	7863	currentLanguageCode
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	7864	^ listOfLanguages at:(self currentLanguageIndex)
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	7865	!
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	7866
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7867	currentLanguageIndex
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7868	\| lang terr langIdx \|
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7869
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7870	lang := Smalltalk language.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7871	terr := Smalltalk languageTerritory.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7872
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7873	(lang ~= terr) ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7874	langIdx := listOfLanguages indexOf:(lang , '-' , terr) ifAbsent:nil.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7875	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7876	langIdx isNil ifTrue:[
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7877	langIdx := listOfLanguages indexOf:lang ifAbsent:nil.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7878	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7879	langIdx isNil ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7880	langIdx := listOfLanguages indexOf:'en' ifAbsent:nil.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7881	langIdx isNil ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7882	langIdx := listOfLanguages indexOf:'en-us' ifAbsent:nil.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7883
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7884	langIdx isNil ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7885	langIdx := 1.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7886	]
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7887	]
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7888	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7889	^ langIdx
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7890	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7891
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7892	hasUnsavedChanges
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7893	useSystemLanguageHolder value ~= currentUserPrefs useSystemLanguage ifTrue:[^ true].
9559 314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	7894	^ languageIndexHolder value ~= self currentLanguageIndex
7427 2f024ec17c7b * empty log message * Claus Gittinger <cg@exept.de> parents: 7385 diff changeset	7895
2f024ec17c7b * empty log message * Claus Gittinger <cg@exept.de> parents: 7385 diff changeset	7896	"Modified: / 17-10-2006 / 17:51:09 / cg"
9559 314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	7897	"Modified: / 24-08-2010 / 18:50:11 / sr"
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7898	!
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7899
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7900	quickSearchStrings
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7901	"keywords to match in the quickSearch.
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7902	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	7903	the text in the quick search field"
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7904
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7905	^ super quickSearchStrings
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7906	addAll:#('language' 'english');
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7907	yourself
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7908	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7909
12409 fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7910	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'help specs'!
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7911
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	7912	helpSpec
12409 fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7913	"This resource specification was automatically generated
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7914	by the UIHelpTool of ST/X."
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7915
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7916	"Do not manually edit this!! If it is corrupted,
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7917	the UIHelpTool may not be able to read the specification."
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7918
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7919	"
17514 b6a7d15d5e8d #OTHER by mawalch mawalch parents: 17453 diff changeset	7920	UIHelpTool openOnClass:AbstractSettingsApplication::MemorySettingsAppl
12409 fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7921	"
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7922
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7923	<resource: #help>
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7924
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	7925	^ super helpSpec addPairsFrom:#(
12409 fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7926
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7927	#codeLimit
17514 b6a7d15d5e8d #OTHER by mawalch mawalch parents: 17453 diff changeset	7928	'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	7929
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7930	#codeTrigger
16144 d52edd3811bc #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16143 diff changeset	7931	'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	7932
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7933	#compressLimit
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	7934	'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	7935
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7936	#fastMoreLimit
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	7937	'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	7938
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7939	#igcFreeAmount
16144 d52edd3811bc #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16143 diff changeset	7940	'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	7941
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7942	#igcFreeLimit
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7943	'Start incremental background GC whenever freespace drops below this'
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7944
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7945	#igcLimit
13041 f99a2405835e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13010 diff changeset	7946	'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	7947
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7948	#maxOldSpace
16144 d52edd3811bc #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16143 diff changeset	7949	'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	7950
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7951	#methodCodeSizeLimit
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7952	'Do not JIT, if an individual method''s code size exceeds this'
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7953
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7954	#newSpaceSize
16143 93dfa902272a #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16125 diff changeset	7955	'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	7956
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7957	#oldIncr
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7958	'Increase oldSpace in chunks of this size'
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7959
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7960	#stackLimit
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7961	'Trigger a recursionInterrupt exception if more stack is used by a process'
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7962
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7963	)
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7964	! !
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7965
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7966	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7967
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7968	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	7969	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	7970
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	7971	^ ToolbarIconLibrary memoryIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7972	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7973
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7974	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7975
5433 f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7976	windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7977	"This resource specification was automatically generated
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7978	by the UIPainter of ST/X."
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7979
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7980	"Do not manually edit this!! If it is corrupted,
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7981	the UIPainter may not be able to read the specification."
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7982
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7983	"
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7984	UIPainter new openOnClass:AbstractSettingsApplication::MemorySettingsAppl andSelector:#windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7985	AbstractSettingsApplication::MemorySettingsAppl new openInterface:#windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7986	AbstractSettingsApplication::MemorySettingsAppl open
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7987	"
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7988
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7989	<resource: #canvas>
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7990
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7991	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	7992	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	7993	name: windowSpec
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7994	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	7995	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7996	label: 'Memory Manager Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7997	name: 'Memory Manager Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7998	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7999	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8000	bounds: (Rectangle 0 0 705 722)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	8001	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8002	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	8003	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8004	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8005	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8006	label: 'Label'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8007	name: 'Label1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8008	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 50 0)
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	labelChannel: warningLabelHolder
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8011	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8012	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8013	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8014	name: 'VerticalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8015	layout: (LayoutFrame 0 0.0 50 0 0 1.0 0 1.0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8016	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8017	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8018	horizontalSpace: 0
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8019	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8020	ignoreInvisibleComponents: true
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8021	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8022	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8023	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8024	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8025	label: 'Limits:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8026	name: 'Label54'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8027	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8028	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8029	extent: (Point 705 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8030	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8031	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8032	name: 'StackLimitBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8033	activeHelpKey: stackLimit
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8034	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8035	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8036	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8037	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8038	label: 'Stack Limit:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8039	name: 'Label38'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8040	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8041	activeHelpKey: stackLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8042	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8043	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8044	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8045	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8046	name: 'EntryField20'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8047	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8048	activeHelpKey: stackLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8049	enableChannel: supportsJustInTimeCompilation
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8050	model: stackLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8051	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8052	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8053	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8054	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8055	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8056	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8057	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8058	label: '(Trigger recursionInterrupt if more stack is used by a process)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8059	name: 'Label39'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8060	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8061	activeHelpKey: stackLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8062	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8063	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8064	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8065	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8066
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8067	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8068	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8069	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8070	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8071	name: 'NewSpaceSizeBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8072	activeHelpKey: newSpaceSize
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8073	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8074	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8075	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8076	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8077	label: 'Size of NewSpace:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8078	name: 'Label44'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8079	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8080	activeHelpKey: newSpaceSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8081	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8082	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8083	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8084	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8085	name: 'EntryField23'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8086	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8087	activeHelpKey: newSpaceSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8088	model: newSpaceSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8089	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8090	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8091	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8092	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8093	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8094	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8095	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8096	label: '(Size of Space where new objects are created)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8097	name: 'Label45'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8098	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8099	activeHelpKey: newSpaceSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8100	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8101	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8102	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8103	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8104
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8105	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8106	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8107	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8108	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8109	name: 'MaximumMemoryLimitBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8110	activeHelpKey: maxOldSpace
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8111	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8112	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8113	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8114	(LabelSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8115	label: 'Maximum Memory Limit:'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8116	name: 'Label46'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8117	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8118	activeHelpKey: maxOldSpace
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8119	translateLabel: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8120	adjust: right
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8121	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8122	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8123	name: 'EntryField24'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8124	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8125	activeHelpKey: maxOldSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8126	model: maxOldSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8127	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8128	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8129	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8130	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8131	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8132	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8133	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8134	label: '(Never allocate more than this amount of memory)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8135	name: 'Label47'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8136	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8137	activeHelpKey: maxOldSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8138	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8139	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8140	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8141	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8142
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8143	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8144	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8145	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8146	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8147	name: 'QuickAllocationLimitBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8148	activeHelpKey: fastMoreLimit
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8149	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8150	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8151	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8152	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8153	label: 'Quick Allocation Limit:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8154	name: 'Label26'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8155	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8156	activeHelpKey: fastMoreLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8157	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8158	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8159	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8160	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8161	name: 'EntryField14'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8162	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8163	activeHelpKey: fastMoreLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8164	model: fastMoreLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8165	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8166	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8167	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8168	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8169	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8170	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8171	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8172	label: '(Quickly allocate more memory (suppress GC) up to this limit)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8173	name: 'Label27'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8174	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8175	activeHelpKey: fastMoreLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8176	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8177	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8178	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8179	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8180
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8181	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8182	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8183	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8184	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8185	name: 'OldspaceIncrementBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8186	activeHelpKey: oldIncr
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8187	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8188	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8189	collection: (
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: 'Oldspace Increment:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8192	name: 'Label34'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8193	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8194	activeHelpKey: oldIncr
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8195	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8196	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8197	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8198	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8199	name: 'EntryField18'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8200	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8201	activeHelpKey: oldIncr
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8202	model: oldIncr
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8203	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8204	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8205	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8206	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8207	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8208	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8209	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8210	label: '(Increase oldSpace in chunks of this size)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8211	name: 'Label35'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8212	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8213	activeHelpKey: oldIncr
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8214	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8215	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8216	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8217	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8218
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8219	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8220	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8221	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8222	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8223	name: 'OldSpaceCompressLimitBox'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8224	activeHelpKey: compressLimit
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8225	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8226	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8227	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8228	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8229	label: 'Oldspace Compress Limit:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8230	name: 'Label36'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8231	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8232	activeHelpKey: compressLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8233	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8234	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8235	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8236	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8237	name: 'EntryField19'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8238	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8239	activeHelpKey: compressLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8240	model: compressLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8241	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8242	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8243	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8244	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8245	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8246	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8247	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8248	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	8249	name: 'Label37'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8250	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8251	activeHelpKey: compressLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8252	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8253	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8254	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8255	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8256
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8257	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8258	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8259	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8260	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8261	name: 'CodeLimitBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8262	activeHelpKey: codeLimit
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8263	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8264	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8265	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8266	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8267	label: 'Dynamic code Limit:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8268	name: 'Label40'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8269	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8270	activeHelpKey: codeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8271	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8272	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8273	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8274	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8275	name: 'EntryField21'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8276	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8277	activeHelpKey: codeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8278	enableChannel: supportsJustInTimeCompilation
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8279	model: codeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8280	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8281	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8282	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8283	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8284	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8285	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8286	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8287	label: '(Flush dynamic compiled code to stay within this limit)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8288	name: 'Label41'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8289	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8290	activeHelpKey: codeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8291	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8292	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8293	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8294	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8295
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8296	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8297	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8298	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8299	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8300	name: 'MethodSizeLimitBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8301	activeHelpKey: methodCodeSizeLimit
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8302	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8303	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8304	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8305	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8306	label: 'Method Code Size Limit:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8307	name: 'Label52'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8308	layout: (LayoutFrame 0 0 5 0 265 0 25 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8309	activeHelpKey: methodCodeSizeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8310	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8311	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8312	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8313	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8314	name: 'EntryField27'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8315	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8316	activeHelpKey: methodCodeSizeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8317	enableChannel: supportsJustInTimeCompilation
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8318	model: methodCodeSizeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8319	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8320	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8321	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8322	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8323	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8324	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8325	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8326	label: '(Do not JIT, if an individual method''s code size exceeds this)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8327	name: 'Label53'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8328	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8329	activeHelpKey: methodCodeSizeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8330	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8331	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8332	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8333	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8334
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8335	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8336	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8337	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8338	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8339	label: 'Triggers:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8340	name: 'Label55'
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	extent: (Point 705 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8344	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8345	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8346	name: 'IncrementalGCAllocationTriggerBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8347	activeHelpKey: igcLimit
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8348	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8349	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8350	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8351	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8352	label: 'Incremental GC Allocation Trigger:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8353	name: 'Label48'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8354	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8355	activeHelpKey: igcLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8356	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8357	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8358	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8359	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8360	name: 'EntryField25'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8361	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8362	activeHelpKey: igcLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8363	model: igcLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8364	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8365	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8366	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8367	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8368	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8369	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8370	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8371	label: '(Start IGC whenever this has been newly allocated)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8372	name: 'Label49'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8373	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8374	activeHelpKey: igcLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8375	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8376	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8377	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8378	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8379
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8380	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8381	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8382	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8383	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8384	name: 'IncrementalGCFreespaceTriggerBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8385	activeHelpKey: igcFreeLimit
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8386	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8387	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8388	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8389	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8390	label: 'Incremental GC Freespace Trigger:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8391	name: 'Label50'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8392	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8393	activeHelpKey: igcFreeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8394	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8395	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8396	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8397	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8398	name: 'EntryField26'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8399	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8400	activeHelpKey: igcFreeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8401	model: igcFreeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8402	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8403	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8404	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8405	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8406	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8407	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8408	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8409	label: '(Start IGC whenever freespace drops below this)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8410	name: 'Label51'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8411	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8412	activeHelpKey: igcFreeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8413	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8414	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8415	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8416	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8417
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8418	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8419	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8420	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8421	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8422	name: 'CodeTriggerBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8423	activeHelpKey: codeTrigger
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8424	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8425	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8426	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8427	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8428	label: 'Incremental GC Dynamic Code Trigger:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8429	name: 'Label42'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8430	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8431	activeHelpKey: codeTrigger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8432	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8433	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8434	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8435	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8436	name: 'EntryField22'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8437	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8438	activeHelpKey: codeTrigger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8439	model: codeTrigger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8440	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8441	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8442	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8443	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8444	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8445	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8446	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8447	label: '(Start incremental GC whenever this amount of code has been allocated)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8448	name: 'Label43'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8449	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8450	activeHelpKey: codeTrigger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8451	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8452	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8453	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8454	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8455
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8456	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8457	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8458	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8459	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8460	name: 'GCAmountBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8461	activeHelpKey: igcFreeAmount
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8462	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8463	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8464	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8465	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8466	label: 'Incremental GC Amount:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8467	name: 'Label32'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8468	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8469	activeHelpKey: igcFreeAmount
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8470	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8471	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8472	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8473	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8474	name: 'EntryField17'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8475	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8476	activeHelpKey: igcFreeAmount
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8477	model: igcFreeAmount
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8478	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8479	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8480	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8481	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8482	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8483	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8484	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8485	label: '(Try to keep this amount for peak requests)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8486	name: 'Label33'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8487	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8488	activeHelpKey: igcFreeAmount
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8489	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8490	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8491	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8492	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8493
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8494	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8495	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8496	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8497	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8498
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8499	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8500	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8501	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8502
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	8503	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	8504	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8505	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8506
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8507	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8508
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8509	basicReadSettings
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	8510	self
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8511	readAspects:(self aspectsInObjectMemory)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8512	from:ObjectMemory.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8513
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8514	self igcLimit value:ObjectMemory incrementalGCLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8515	self igcFreeLimit value:ObjectMemory freeSpaceGCLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8516	self igcFreeAmount value:ObjectMemory freeSpaceGCAmount.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8517	self oldIncr value:ObjectMemory oldSpaceIncrement.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8518	self compressLimit value:ObjectMemory oldSpaceCompressLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8519	self codeLimit value:ObjectMemory dynamicCodeLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8520	self codeTrigger value:ObjectMemory dynamicCodeGCTrigger.
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8521	self methodCodeSizeLimit value:(ObjectMemory codeSizeLimitForDynamicCompilation:-1).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8522	self fastMoreLimit value:(ObjectMemory fastMoreOldSpaceLimit:-1).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8523
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8524	self stackLimit value:Process defaultMaximumStackSize.
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8525
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8526	"Modified: / 12-08-2010 / 15:34:24 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8527	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8528
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8529	basicSaveSettings
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	8530	self
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8531	writeAspects:(self aspectsInObjectMemory)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8532	to:ObjectMemory.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8533
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8534	ObjectMemory freeSpaceGCAmount:self igcFreeAmount value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8535	ObjectMemory freeSpaceGCLimit:self igcFreeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8536	ObjectMemory incrementalGCLimit:self igcLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8537	ObjectMemory oldSpaceIncrement:self oldIncr value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8538	ObjectMemory fastMoreOldSpaceLimit:self fastMoreLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8539	ObjectMemory oldSpaceCompressLimit:self compressLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8540	ObjectMemory dynamicCodeLimit:self codeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8541	ObjectMemory dynamicCodeGCTrigger:self codeTrigger value.
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8542	ObjectMemory codeSizeLimitForDynamicCompilation:(self methodCodeSizeLimit value).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8543
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8544	Process defaultMaximumStackSize:self stackLimit value.
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8545
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8546	"Modified: / 12-08-2010 / 15:34:47 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8547	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8548
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8549	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8550
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8551	aspectsInObjectMemory
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8552	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8553	newSpaceSize
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8554	maxOldSpace
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8555	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8556	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8557
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8558	codeLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8559
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8560	codeLimit isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8561	codeLimit := ObjectMemory dynamicCodeLimit asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8562	codeLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8563	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8564	^ codeLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8565	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8566
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8567	codeTrigger
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8568
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8569	codeTrigger isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8570	codeTrigger := ObjectMemory dynamicCodeGCTrigger asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8571	codeTrigger onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8572	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8573	^ codeTrigger.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8574	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8575
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8576	compressLimit
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8577
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8578	compressLimit isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8579	compressLimit := ObjectMemory oldSpaceCompressLimit asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8580	compressLimit onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8581	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8582	^ compressLimit.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8583	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8584
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8585	fastMoreLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8586
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8587	fastMoreLimit isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8588	fastMoreLimit := (ObjectMemory fastMoreOldSpaceLimit:-1) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8589	fastMoreLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8590	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8591	^ fastMoreLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8592	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8593
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8594	igcFreeAmount
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8595
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8596	igcFreeAmount isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8597	igcFreeAmount := ObjectMemory freeSpaceGCAmount asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8598	igcFreeAmount onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8599	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8600	^ igcFreeAmount.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8601	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8602
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8603	igcFreeLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8604
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8605	igcFreeLimit isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8606	igcFreeLimit := ObjectMemory freeSpaceGCLimit asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8607	igcFreeLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8608	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8609	^ igcFreeLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8610	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8611
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8612	igcLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8613
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8614	igcLimit isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8615	igcLimit := ObjectMemory incrementalGCLimit asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8616	igcLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8617	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8618	^ igcLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8619	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8620
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8621	maxOldSpace
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8622
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8623	maxOldSpace isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8624	maxOldSpace := ObjectMemory maxOldSpace asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8625	maxOldSpace onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8626	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8627	^ maxOldSpace.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8628	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8629
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8630	methodCodeSizeLimit
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8631
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8632	methodCodeSizeLimit isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8633	methodCodeSizeLimit := (ObjectMemory codeSizeLimitForDynamicCompilation:-1) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8634	methodCodeSizeLimit onChangeSend:#updateModifiedChannel to:self
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8635	].
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8636	^ methodCodeSizeLimit.
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8637
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8638	"Created: / 12-08-2010 / 15:31:56 / cg"
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8639	!
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8640
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8641	newSpaceSize
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8642
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8643	newSpaceSize isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8644	newSpaceSize := ObjectMemory newSpaceSize asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8645	newSpaceSize onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8646	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8647	^ newSpaceSize.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8648	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8649
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8650	oldIncr
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8651
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8652	oldIncr isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8653	oldIncr := ObjectMemory oldSpaceIncrement asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8654	oldIncr onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8655	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8656	^ oldIncr.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8657	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8658
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8659	stackLimit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8660
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8661	stackLimit isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8662	stackLimit := Process defaultMaximumStackSize asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8663	stackLimit onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8664	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8665	^ stackLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8666	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8667
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8668	supportsJustInTimeCompilation
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8669
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8670	^ ObjectMemory supportsJustInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8671	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8672
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8673	warningLabelHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8674
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8675	warningLabelHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8676	warningLabelHolder := ValueHolder new.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8677	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8678	^ warningLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8679	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8680
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8681	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8682
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8683	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8684	^ 'Launcher/memorySettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8685	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8686
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8687	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8688
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8689	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	8690	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	8691
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8692	super initialize.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	8693	self warningLabelHolder
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8694	value:(StringCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8695	with:(resources string:'Warning - invalid settings may result in failures or poor performance.')
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8696	with:(resources string:'You have been warned.') allBold
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8697	).
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	8698
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	8699	"Modified: / 08-02-2017 / 00:30:20 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8700	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8701
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8702	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8703
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8704	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	8705	(self
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8706	hasChangedAspectIn:(self aspectsInObjectMemory)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8707	asComparedTo:ObjectMemory) ifTrue:[^ true].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8708
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8709	ObjectMemory freeSpaceGCAmount ~= self igcFreeAmount value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8710	ObjectMemory freeSpaceGCLimit ~= self igcFreeLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8711	ObjectMemory incrementalGCLimit ~= self igcLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8712	ObjectMemory oldSpaceIncrement ~= self oldIncr value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8713	(ObjectMemory fastMoreOldSpaceLimit:-1) ~= self fastMoreLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8714	ObjectMemory oldSpaceCompressLimit ~= self compressLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8715	ObjectMemory dynamicCodeLimit ~= self codeLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8716	ObjectMemory dynamicCodeGCTrigger ~= self codeTrigger value ifTrue:[^ true].
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8717	(ObjectMemory codeSizeLimitForDynamicCompilation:-1) ~= self methodCodeSizeLimit value ifTrue:[^ true].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8718
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8719	Process defaultMaximumStackSize ~= self stackLimit value ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8720	^ false
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8721
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8722	"Modified: / 12-08-2010 / 15:33:12 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8723	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8724
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8725	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl class methodsFor:'help specs'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8726
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	8727	helpSpec
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8728	"This resource specification was automatically generated
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8729	by the UIHelpTool of ST/X."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8730
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8731	"Do not manually edit this!! If it is corrupted,
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8732	the UIHelpTool may not be able to read the specification."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8733
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8734	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8735	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8736	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8737
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8738	<resource: #help>
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8739
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	8740	^ super helpSpec addPairsFrom:#(
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8741
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8742	#dotNetBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8743	'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	8744
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8745	#smalltalkBridgeServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8746	'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	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	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl class methodsFor:'image specs'!
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	defaultIcon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8753	"This resource specification was automatically generated
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8754	by the ImageEditor of ST/X."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8755
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8756	"Do not manually edit this!! If it is corrupted,
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8757	the ImageEditor may not be able to read the specification."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8758
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8759	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8760	self defaultIcon inspect
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8761	ImageEditor openOnClass:self andSelector:#defaultIcon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8762	Icon flushCachedIcons
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8763	"
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	<resource: #image>
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	^Icon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8768	constantNamed:'AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl defaultIcon'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8769	ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8770	@@!!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	8771	]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	8772	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	8773	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8774
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8775	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl class methodsFor:'interface specs'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8776
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8777	windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8778	"This resource specification was automatically generated
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8779	by the UIPainter of ST/X."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8780
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8781	"Do not manually edit this!! If it is corrupted,
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8782	the UIPainter may not be able to read the specification."
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	UIPainter new openOnClass:AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl andSelector:#windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8786	AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl new openInterface:#windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8787	AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl open
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	<resource: #canvas>
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	#(FullSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8794	name: windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8795	window:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8796	(WindowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8797	label: 'Communication Settings'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8798	name: 'Communication Settings'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8799	flags: 1
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8800	min: (Point 10 10)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8801	bounds: (Rectangle 0 0 738 671)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8802	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8803	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8804	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8805	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8806	(VerticalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8807	name: 'VerticalPanel1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8808	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	8809	horizontalLayout: fit
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8810	verticalLayout: top
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8811	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8812	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8813	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8814	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8815	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8816	(FramedBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8817	label: '.NET Bridge'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8818	name: 'FramedBox1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8819	activeHelpKey: dotNetBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8820	labelPosition: topLeft
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8821	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8822	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8823	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8824	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8825	(VerticalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8826	name: 'VerticalPanel3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8827	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8828	horizontalLayout: left
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8829	verticalLayout: center
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8830	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8831	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8832	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8833	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8834	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8835	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8836	name: 'Box6'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8837	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8838	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8839	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8840	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8841	label: 'Verbose'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8842	name: 'CheckBox5'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8843	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8844	enableChannel: hasDotNetBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8845	model: dotNetBridgeVerbose
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8846	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8847	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8848	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8849
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	extent: (Point 696 25)
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	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8854	name: 'Box7'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8855	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8856	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8857	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8858	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8859	label: 'Bridge Runs in IDE'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8860	name: 'CheckBox6'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8861	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8862	enableChannel: hasDotNetBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8863	model: dotNetBridgeRunsInIDE
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8864	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8865	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8866	)
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	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8869	extent: (Point 696 25)
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	)
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	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8874	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8875	(ActionButtonSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8876	label: 'Close all Connections'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8877	name: 'Button1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8878	layout: (LayoutFrame -228 1 27 0 -3 1 49 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8879	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8880	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8881	model: closeAllDotNetConnections
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8882	enableChannel: hasDotNetBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8883	)
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	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8887	extent: (Point 738 92)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8888	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8889	(FramedBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8890	label: 'Smalltalk Bridge Server'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8891	name: 'FramedBox2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8892	activeHelpKey: smalltalkBridgeServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8893	labelPosition: topLeft
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8894	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8895	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8896	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8897	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8898	(VerticalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8899	name: 'VerticalPanel4'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8900	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8901	horizontalLayout: left
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8902	verticalLayout: center
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8903	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8904	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8905	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8906	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8907	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8908	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8909	name: 'Box8'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8910	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8911	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8912	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8913	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8914	label: 'Bridge Server Enabled'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8915	name: 'CheckBox7'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8916	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	8917	enableChannel: hasSmalltalkBridge
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8918	model: smalltalkBridgeEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8919	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8920	)
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8923	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8924	extent: (Point 696 25)
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	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8927	name: 'Box9'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8928	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8929	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8930	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8931	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8932	label: 'Verbose'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8933	name: 'CheckBox8'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8934	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8935	enableChannel: hasSmalltalkBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8936	model: smalltalkBridgeVerbose
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8937	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8938	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8939	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8940
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8941	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8942	extent: (Point 696 25)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8943	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8944	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8945
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8946	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8947	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8948	(ActionButtonSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8949	label: 'Close all Connections'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8950	name: 'Button2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8951	layout: (LayoutFrame -228 1 27 0 -3 1 49 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8952	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8953	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8954	model: closeAllSmalltalkBridgeConnections
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8955	enableChannel: hasSmalltalkBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8956	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8957	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8958
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8959	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8960	extent: (Point 738 101)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8961	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8962	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8963
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8964	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8965	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8966	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8967
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8968	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8969	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8970	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8971
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8972	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl methodsFor:'actions'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8973
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8974	aspects
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8975	^ #(
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8976	smtpServerName
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8977	dotNetBridgeRunsInIDE
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8978	dotNetBridgeVerbose
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8979	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8980	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8981
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8982	basicReadSettings
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8983	super basicReadSettings.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8984
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8985	BRIDGE::SmalltalkBridge notNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8986	self smalltalkBridgeVerbose value:(BRIDGE::SmalltalkBridge verbose).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8987	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8988	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8989
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8990	basicSaveSettings
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8991	super basicSaveSettings.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8992
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8993	BRIDGE::SmalltalkBridge notNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8994	BRIDGE::SmalltalkBridge verbose:(self smalltalkBridgeVerbose value).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8995	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8996	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8997
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8998	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl methodsFor:'aspects'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8999
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9000	acceptChannel
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9001
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9002	acceptChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9003	acceptChannel := TriggerValue new.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9004	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9005	^ acceptChannel.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9006
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9007	"Created: / 12-11-2006 / 19:04:09 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9008	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9009
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9010	dotNetBridgeRunsInIDE
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9011
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9012	dotNetBridgeRunsInIDE isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9013	dotNetBridgeRunsInIDE := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9014	dotNetBridgeRunsInIDE onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9015	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9016	^ dotNetBridgeRunsInIDE.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9017	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9018
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9019	dotNetBridgeVerbose
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9020
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9021	dotNetBridgeVerbose isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9022	dotNetBridgeVerbose := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9023	dotNetBridgeVerbose onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9024	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9025	^ dotNetBridgeVerbose.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9026	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9027
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9028	hasDotNetBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9029	^ DOTNET::DotNet notNil and:[ DOTNET::DotNet isLoaded ].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9030	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9031
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9032	hasSmalltalkBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9033	^ BRIDGE::SmalltalkBridge notNil and:[ BRIDGE::SmalltalkBridge isLoaded ].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9034	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9035
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9036	smalltalkBridgeEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9037
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9038	smalltalkBridgeEnabled isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9039	smalltalkBridgeEnabled := false asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9040	smalltalkBridgeEnabled onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9041	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9042	^ smalltalkBridgeEnabled.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9043	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9044
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9045	smalltalkBridgeVerbose
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9046
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9047	smalltalkBridgeVerbose isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9048	smalltalkBridgeVerbose := false asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9049	smalltalkBridgeVerbose onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9050	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9051	^ smalltalkBridgeVerbose.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9052	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9053
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9054	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl methodsFor:'help'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9055
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9056	helpFilename
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9057	^ 'Launcher/communicationsSettings.html'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9058	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9059
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9060	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl methodsFor:'initialization & release'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9061
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9062	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9063	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9064
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9065	super initialize.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9066	self readSettings.
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9067
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9068	"Modified: / 08-02-2017 / 00:30:35 / cg"
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9069	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9070
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9071	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl methodsFor:'queries'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9072
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9073	hasRemoteBrowsingSupport
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9074
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9075	^ SmalltalkShareServer notNil
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9076	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9077
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9078	hasUnsavedChanges
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9079	(super hasUnsavedChanges) ifTrue:[^ true].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9080
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9081	BRIDGE::SmalltalkBridge notNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9082	BRIDGE::SmalltalkBridge verbose ~= (self smalltalkBridgeVerbose value) ifTrue:[^ true].
16466 59b8495a1650 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 16411 diff changeset	9083	BRIDGE::SmalltalkBridge defaultInstanceOrNil notNil ifTrue:[
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9084	(self smalltalkBridgeEnabled value) ifFalse:[^ true].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9085	] ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9086	(self smalltalkBridgeEnabled value) ifTrue:[^ true].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9087	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9088	] ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9089	(self smalltalkBridgeEnabled value) ifTrue:[^ true].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9090	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9091	^ false
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9092	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9093
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9094	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl methodsFor:'user actions'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9095
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9096	closeAllDotNetConnections
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9097	DOTNET::DotNet notNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9098	DOTNET::DotNet exitAllInstances
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9099	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9100	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9101
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9102	closeAllSmalltalkBridgeConnections
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9103	BRIDGE::SmalltalkBridge notNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9104	BRIDGE::SmalltalkBridge exitAllInstances
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9105	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9106	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9107
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9108	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'help specs'!
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9109
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	9110	helpSpec
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9111	"This resource specification was automatically generated
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9112	by the UIHelpTool of ST/X."
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9113
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9114	"Do not manually edit this!! If it is corrupted,
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9115	the UIHelpTool may not be able to read the specification."
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9116
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9117	"
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9118	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9119	"
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9120
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9121	<resource: #help>
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9122
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	9123	^ super helpSpec addPairsFrom:#(
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9124
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9125	#smtpServer
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9126	'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	9127
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9128	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9129	! !
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9130
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9131	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9132
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9133	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9134	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9135	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9136
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9137	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9138	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9139
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9140	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9141	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9142	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9143	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9144	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9145
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9146	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9147
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9148	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	9149	constantNamed:'AbstractSettingsApplication::MiscCommunicationSettingsAppl defaultIcon'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	9150	ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
4949 a34c379465a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4948 diff changeset	9151	@@!!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	9152	]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	9153	P"DQ]PU%@@@@@EBUHQU5U%@@@@@@@B !!YHU%@@@@@@@E@ UFY%@@@@@@@@APIH@@@@@@@@@@@@T@@@@@@@@b')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	9154	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	9155	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	9156	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9157
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9158	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9159
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9160	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9161	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9162	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9163
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9164	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9165	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9166
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9167	"
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	9168	UIPainter new openOnClass:AbstractSettingsApplication::MiscCommunicationSettingsAppl andSelector:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	9169	AbstractSettingsApplication::MiscCommunicationSettingsAppl new openInterface:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	9170	AbstractSettingsApplication::MiscCommunicationSettingsAppl open
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9171	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9172
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9173	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9174
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9175	^
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	9176	#(FullSpec
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	9177	name: windowSpec
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9178	window:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	9179	(WindowSpec
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9180	label: 'Communication Settings'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9181	name: 'Communication Settings'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9182	flags: 1
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9183	min: (Point 10 10)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	9184	bounds: (Rectangle 0 0 738 671)
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9185	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9186	component:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	9187	(SpecCollection
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9188	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9189	(VerticalPanelViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9190	name: 'VerticalPanel1'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9191	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	9192	horizontalLayout: fit
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9193	verticalLayout: top
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9194	horizontalSpace: 3
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9195	verticalSpace: 3
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9196	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9197	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9198	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9199	(FramedBoxSpec
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9200	label: 'SMTP (Mail) Server'
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9201	name: 'SMTPServerBox1'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9202	activeHelpKey: smtpServer
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9203	labelPosition: topLeft
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9204	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9205	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9206	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9207	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9208	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9209	name: 'Box5'
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9210	layout: (LayoutFrame 0 0 10 0 0 1 35 0)
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9211	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9212	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9213	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9214	(LabelSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9215	label: 'SMTP Server:'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9216	name: 'SMTPLabel'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9217	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9218	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9219	adjust: right
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9220	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9221	(InputFieldSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9222	name: 'SMTPServer'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9223	layout: (LayoutFrame 150 0 0 0 400 0 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9224	model: smtpServerName
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9225	acceptOnReturn: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9226	acceptOnTab: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9227	acceptOnLostFocus: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9228	acceptOnPointerLeave: false
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9229	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9230	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9231
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9232	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9233	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9234	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9235
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9236	)
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9237	extent: (Point 738 81)
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9238	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9239	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9240
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9241	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9242	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9243	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9244
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	9245	)
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	9246	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9247	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9248
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9249	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9250
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9251	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9252	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9253	smtpServerName
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9254	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9255	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9256
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9257	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9258
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9259	acceptChannel
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9260
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9261	acceptChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9262	acceptChannel := TriggerValue new.
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9263	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9264	^ acceptChannel.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9265
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9266	"Created: / 12-11-2006 / 19:04:09 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9267	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9268
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9269	smtpServerName
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9270
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9271	smtpServerName isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9272	smtpServerName := '' asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9273	smtpServerName onChangeSend:#updateModifiedChannel to:self.
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9274	].
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9275	^ smtpServerName.
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9276
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9277	"Created: / 20-09-2007 / 16:04:39 / cg"
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9278	! !
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9279
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9280	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9281
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9282	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9283	^ 'Launcher/communicationsSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9284	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9285
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9286	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9287
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9288	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9289	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9290
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9291	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9292	self readSettings.
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9293
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9294	"Modified: / 08-02-2017 / 00:30:26 / cg"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9295	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9296
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9297	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9298
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9299	hasUnsavedChanges
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9300	(super hasUnsavedChanges) ifTrue:[^ true].
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9301	^ false
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9302
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9303	"Modified: / 20-09-2007 / 16:04:56 / cg"
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9304	! !
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9305
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9306	!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'help specs'!
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9307
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	9308	helpSpec
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9309	"This resource specification was automatically generated
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9310	by the UIHelpTool of ST/X."
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9311
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9312	"Do not manually edit this!! If it is corrupted,
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9313	the UIHelpTool may not be able to read the specification."
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9314
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9315	"
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9316	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplay2SettingsAppl
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9317	"
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9318
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9319	<resource: #help>
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9320
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	9321	^ super helpSpec addPairsFrom:#(
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9322
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9323	#cartoonToolTipStyle
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9324	'Choose between normal and cartoon mode when showing tooltips.'
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9325
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9326	#lowerOnRightClickInTitle
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9327	'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	9328
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9329	#lowerOnShiftClickInTitle
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9330	'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	9331
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9332	#nativeDialogs
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9333	'Use native dialogs if possible (WarnBox, InformationBox, etc.)\(Windows operating system ony)'
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9334
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9335	#nativeFileDialogs
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9336	'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	9337
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9338	#nativeWidgets
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9339	'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	9340
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9341	#opaqueTableColumnResizing
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9342	'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	9343
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9344	#opaqueVariablePanelResizing
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9345	'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	9346
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9347	#shadows
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9348	'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	9349
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9350	#suppressScalingByWindowsHelp
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9351	''
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9352
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9353	)
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9354	! !
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9355
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9356	!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'image specs'!
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9357
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9358	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9359	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9360	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9361
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9362	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9363	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9364
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9365	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9366	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9367	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9368	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9369	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9370
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9371	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9372
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9373	^Icon
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	9374	constantNamed:'AbstractSettingsApplication::MiscDisplay2SettingsAppl defaultIcon'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	9375	ifAbsentPut:[(Depth4Image new) width:22; height:22; bits:(ByteArray fromPackedString:'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	9376	@@@@@@@@@@@@@@@@@@@@@@@@@@@ H@@@@@@@@@@@@B@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@.;.;.;.;.;@@@@:<;]!!I&W3.,@@@C+3-6D&Y_N:0@@@N/%
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	9377	**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	9378	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	9379	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9380
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9381	!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9382
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9383	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9384	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9385	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9386
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9387	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9388	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9389
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9390	"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9391	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplay2SettingsAppl andSelector:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9392	AbstractSettingsApplication::MiscDisplay2SettingsAppl new openInterface:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9393	AbstractSettingsApplication::MiscDisplay2SettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9394	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9395
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9396	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9397
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9398	^
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9399	#(FullSpec
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9400	name: windowSpec
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9401	uuid: '0b8b43d6-235f-11b2-a955-00d861106b7c'
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9402	window:
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9403	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9404	label: 'Display settings 2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9405	name: 'Display settings 2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9406	flags: 1
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9407	uuid: 'f780676e-235d-11b2-a955-00d861106b7c'
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9408	min: (Point 10 10) bounds: (Rectangle 0 0 671 591)
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9409	) component:
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9410	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9411	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9412	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9413	name: 'VerticalPanel1'
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9414	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	9415	horizontalLayout: fitSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9416	verticalLayout: topSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9417	horizontalSpace: 5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9418	verticalSpace: 3
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9419	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9420	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9421	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9422	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9423	label: 'Use Native Widgets (Experimental & Unfinished Feature)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9424	name: 'NativeWidgets'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9425	activeHelpKey: nativeWidgets
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9426	uuid: 'f7806b2e-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9427	enableChannel: displaySupportsNativeWidgets
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9428	model: nativeWidgets
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9429	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9430	extent: (Point 661 30)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9431	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9432	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9433	label: 'Use Native Dialogs (Experimental & Unfinished Feature)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9434	name: 'NativeDialogs'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9435	activeHelpKey: nativeDialogs
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9436	uuid: 'f7806cb4-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9437	enableChannel: displaySupportsNativeDialogs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9438	model: nativeDialogs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9439	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9440	extent: (Point 661 30)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9441	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9442	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9443	label: 'Use Native File Dialogs (Experimental & Unfinished Feature)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9444	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9445	activeHelpKey: nativeFileDialogs
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9446	uuid: 'f7806d40-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9447	enableChannel: displaySupportsNativeFileDialogs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9448	model: nativeFileDialogs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9449	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9450	extent: (Point 661 30)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9451	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9452	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9453	name: 'SeparatingSpace1'
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9454	uuid: 'f7806db8-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9455	extent: (Point 661 5)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9456	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9457	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9458	name: 'Separator1'
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9459	uuid: 'f7806eee-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9460	extent: (Point 661 4)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9461	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9462	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9463	name: 'SeparatingSpace2'
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9464	uuid: 'f7806fb6-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9465	extent: (Point 661 5)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9466	)
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9467	(CheckBoxSpec
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9468	label: 'Suppress Scaling by Windows'
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9469	name: 'CheckBox3'
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9470	activeHelpKey: suppressScalingByWindowsHelp
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9471	uuid: 'f7806e58-235d-11b2-a955-00d861106b7c'
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9472	enableChannel: operatingSystemIsWindowsLike
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9473	model: nativeFileDialogs
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9474	translateLabel: true
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9475	extent: (Point 661 30)
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9476	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9477	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9478	label: 'Shadows under PopUp Views'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9479	name: 'shadows'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9480	activeHelpKey: shadows
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9481	uuid: 'f780701a-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9482	model: shadows
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9483	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9484	extent: (Point 661 30)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9485	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9486	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9487	label: 'Cartoon Tooltip Style'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9488	name: 'CheckBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9489	activeHelpKey: cartoonToolTipStyle
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9490	uuid: 'f7807088-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9491	enableChannel: displaySupportsArbitraryShapedViews
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9492	model: cartoonToolTipStyle
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9493	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9494	extent: (Point 661 30)
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	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9497	label: 'Opaque Variable Panel Resizing'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9498	name: 'opaqueVariablePanelResize'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9499	activeHelpKey: opaqueVariablePanelResizing
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9500	uuid: 'f7807100-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9501	model: opaqueVariablePanelResizing
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9502	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9503	extent: (Point 661 30)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9504	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9505	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9506	label: 'Opaque Table Column Resizing'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9507	name: 'opaqueTableColumnResize'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9508	activeHelpKey: opaqueTableColumnResizing
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9509	uuid: 'f780716e-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9510	model: opaqueTableColumnResizing
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9511	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9512	extent: (Point 661 30)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9513	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9514	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9515	name: 'SeparatingSpace3'
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9516	uuid: 'f78071e6-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9517	extent: (Point 661 4)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9518	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9519	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9520	name: 'Separator3'
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9521	uuid: 'f7807236-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9522	extent: (Point 661 3)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9523	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9524	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9525	name: 'SeparatingSpace4'
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9526	uuid: 'f7807290-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9527	extent: (Point 661 3)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9528	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9529	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9530	label: 'Right-Click in Title brings Window to Back'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9531	name: 'lowerOnRightClickInTitle'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9532	activeHelpKey: lowerOnRightClickInTitle
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9533	uuid: 'f78072e0-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9534	enableChannel: isWindowsDisplay
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9535	model: lowerOnRightClickInTitle
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9536	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9537	extent: (Point 661 30)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9538	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9539	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9540	label: 'Shift-Click in Title brings Window to Back'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9541	name: 'lowerOnShiftClickInTitle'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9542	activeHelpKey: lowerOnShiftClickInTitle
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9543	uuid: 'f7807358-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9544	enableChannel: isWindowsDisplay
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9545	model: lowerOnShiftClickInTitle
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9546	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9547	extent: (Point 661 30)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9548	)
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9549	)
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9550	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9551	)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9552	)
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9553	)
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9554	)
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9555	! !
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9556
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9557	!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'queries'!
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9558
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9559	suppressScalingByWindowsHelpTextLinesWithCurrentScaleFactor:monitorScaleFactor
19303 c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9560	\|resources textLines\|
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9561
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9562	resources := self classResources.
19303 c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9563	textLines := OrderedCollection new.
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9564
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9565	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	9566	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	9567	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	9568	textLines add:''.
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9569	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	9570	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	9571	textLines add:''.
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9572	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	9573	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	9574	textLines add:(resources string:' - this application will be displayed as clear as possible').
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9575	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	9576	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	9577	textLines add:''.
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9578	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	9579	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	9580	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	9581	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	9582
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9583	^ textLines
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9584
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9585	"Created: / 27-11-2019 / 13:36:55 / Stefan Reise"
19303 c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9586	"Modified: / 27-11-2019 / 17:17:00 / Stefan Reise"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9587	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9588
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9589	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'actions'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9590
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9591	basicReadSettings
9140 520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	9592	\|currentScreen\|
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	9593
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	9594	currentScreen := Screen current.
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	9595
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	9596	self
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9597	readAspects:
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9598	#(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9599	nativeWidgets
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9600	nativeDialogs
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9601	nativeFileDialogs
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9602	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9603	from:currentScreen.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9604
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9605	super basicReadSettings.
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9606
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9607	self shadows value:PopUpView shadows.
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9608	self cartoonToolTipStyle value: (currentUserPrefs toolTipShapeStyle == #cartoon).
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9609
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	9610	currentScreen isWindowsPlatform ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9611	self lowerOnRightClickInTitle value:(currentScreen rightButtonIsLowerWindow:nil).
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9612	self lowerOnShiftClickInTitle value:(currentScreen shiftedLeftButtonIsLowerWindow:nil).
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9613	].
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9614
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9615	"Modified: / 24-08-2010 / 16:43:39 / sr"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9616	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9617
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9618	basicSaveSettings
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9619	\|currentScreen mustReopenTools\|
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9620
9140 520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	9621	mustReopenTools := false.
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	9622
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9623	currentScreen := Screen current.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9624
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9625	self displaySupportsNativeWidgets ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9626	currentScreen nativeWidgets ~= self nativeWidgets value ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9627	mustReopenTools := true.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9628	currentScreen nativeWidgets:self nativeWidgets value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9629	currentUserPrefs nativeWidgets:self nativeWidgets value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9630	].
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9631	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9632	self displaySupportsNativeDialogs ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9633	currentScreen nativeDialogs:self nativeDialogs value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9634	currentUserPrefs nativeDialogs:self nativeDialogs value.
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9635	].
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9636	self displaySupportsNativeFileDialogs ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9637	currentScreen nativeFileDialogs:self nativeFileDialogs value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9638	currentUserPrefs nativeFileDialogs:self nativeFileDialogs value.
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9639	].
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9640
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9641	currentUserPrefs toolTipShapeStyle:((self cartoonToolTipStyle value)
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9642	ifTrue:[ #cartoon ]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9643	ifFalse:[ nil ]).
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9644	PopUpView shadows:self shadows value.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9645
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9646	super basicSaveSettings.
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9647
14745 7ac4401b840e class: AbstractSettingsApplication Stefan Vogel <sv@exept.de> parents: 14631 diff changeset	9648	currentScreen isWindowsPlatform ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9649	currentScreen rightButtonIsLowerWindow:(self lowerOnRightClickInTitle value).
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9650	currentScreen shiftedLeftButtonIsLowerWindow:(self lowerOnShiftClickInTitle value).
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9651	].
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9652
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9653	mustReopenTools ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9654	self reopenToolsAfterChangedViewStyleSetting.
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9655	].
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9656
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9657	"Modified: / 24-08-2010 / 17:27:25 / sr"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9658	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9659
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9660	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'aspects'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9661
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9662	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9663	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9664	opaqueVariablePanelResizing
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9665	opaqueTableColumnResizing
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9666	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9667
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9668	"Modified: / 24-08-2010 / 17:26:38 / sr"
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9669	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9670
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9671	cartoonToolTipStyle
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9672	cartoonToolTipStyle isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9673	cartoonToolTipStyle := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9674	cartoonToolTipStyle onChangeSend:#updateModifiedChannel to:self
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9675	].
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9676	^ cartoonToolTipStyle.
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9677	!
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9678
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9679	displaySupportsNativeDialogs
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9680	^ Screen current supportsNativeDialogs
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9681	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9682
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9683	displaySupportsNativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9684	^ Screen current supportsNativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9685
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9686	"Modified: / 24-08-2010 / 16:28:58 / sr"
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9687	!
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9688
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9689	displaySupportsNativeWidgets
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9690	^ Screen current supportsNativeWidgets
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9691	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9692
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9693	lowerOnRightClickInTitle
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9694	lowerOnRightClickInTitle isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9695	lowerOnRightClickInTitle := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9696	lowerOnRightClickInTitle onChangeSend:#updateModifiedChannel to:self
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9697	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9698	^ lowerOnRightClickInTitle.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9699	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9700
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9701	lowerOnShiftClickInTitle
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9702	lowerOnShiftClickInTitle isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9703	lowerOnShiftClickInTitle := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9704	lowerOnShiftClickInTitle onChangeSend:#updateModifiedChannel to:self
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9705	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9706	^ lowerOnShiftClickInTitle.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9707	!
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	nativeDialogs
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9710	nativeDialogs isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9711	nativeDialogs := Screen current nativeDialogs asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9712	nativeDialogs onChangeSend:#updateModifiedChannel to:self
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9713	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9714	^ nativeDialogs.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9715	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9716
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9717	nativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9718	nativeFileDialogs isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9719	nativeFileDialogs := Screen current nativeFileDialogs asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9720	nativeFileDialogs onChangeSend:#updateModifiedChannel to:self
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9721	].
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9722	^ nativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9723
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9724	"Modified: / 24-08-2010 / 16:43:08 / sr"
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9725	!
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9726
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9727	nativeWidgets
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9728	nativeWidgets isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9729	nativeWidgets := Screen current nativeWidgets asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9730	nativeWidgets onChangeSend:#updateModifiedChannel to:self
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9731	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9732	^ nativeWidgets.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9733	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9734
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9735	opaqueTableColumnResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9736	opaqueTableColumnResize isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9737	opaqueTableColumnResize := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9738	opaqueTableColumnResize onChangeSend:#updateModifiedChannel to:self
9136 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	^ opaqueTableColumnResize.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9741	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9742
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9743	opaqueVariablePanelResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9744	opaqueVariablePanelResize isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9745	opaqueVariablePanelResize := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9746	opaqueVariablePanelResize onChangeSend:#updateModifiedChannel to:self
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9747	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9748	^ opaqueVariablePanelResize.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9749	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9750
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9751	shadows
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9752	shadows isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9753	shadows := PopUpView shadows asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9754	shadows onChangeSend:#updateModifiedChannel to:self
9136 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	^ shadows.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9757	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9758
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9759	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'help'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9760
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9761	helpFilename
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9762	^ 'Launcher/miscSettings.html'
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9763	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9764
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9765	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'queries'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9766
13548 dc78ae8a04d0 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13531 diff changeset	9767	displaySupportsArbitraryShapedViews
dc78ae8a04d0 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13531 diff changeset	9768	^ Screen current supportsArbitraryShapedViews
dc78ae8a04d0 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13531 diff changeset	9769	!
dc78ae8a04d0 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13531 diff changeset	9770
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9771	hasUnsavedChanges
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9772	\|currentScreen\|
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9773
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9774	currentScreen := Screen current.
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9775
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9776	(self
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9777	hasChangedAspectIn:
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9778	#(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9779	nativeWidgets
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9780	nativeDialogs
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9781	nativeFileDialogs
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9782	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9783	asComparedTo:currentScreen) ifTrue:[^ true].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9784
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9785	(super hasUnsavedChanges) ifTrue:[^ true].
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9786
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9787	self shadows value ~= PopUpView shadows ifTrue:[^ true].
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9788	(currentUserPrefs toolTipShapeStyle == #cartoon) ~= cartoonToolTipStyle value ifTrue:[^ true].
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9789
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	9790	currentScreen isWindowsPlatform ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9791	(currentScreen rightButtonIsLowerWindow:nil) ~= (self lowerOnRightClickInTitle value) ifTrue:[^ true].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9792	(currentScreen shiftedLeftButtonIsLowerWindow:nil) ~= (self lowerOnShiftClickInTitle value) ifTrue:[^ true].
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9793	].
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9794	^ false
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9795
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9796	"Modified: / 24-08-2010 / 16:44:43 / sr"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9797	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9798
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9799	helpTextForKey:aKey
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9800	aKey == #suppressScalingByWindowsHelp ifTrue:[
19303 c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9801	^ (self class
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9802	suppressScalingByWindowsHelpTextLinesWithCurrentScaleFactor:(Screen
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9803	monitorScaleFactorFor:(Display
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9804	monitorHandleForView:self topView)))
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9805	asStringWith:Character cr
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9806	].
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9807
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9808	^ nil
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9809
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9810	"Created: / 27-11-2019 / 13:16:18 / Stefan Reise"
19303 c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9811	"Modified: / 27-11-2019 / 16:19:37 / Stefan Reise"
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9812	!
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9813
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9814	isWindowsDisplay
14745 7ac4401b840e class: AbstractSettingsApplication Stefan Vogel <sv@exept.de> parents: 14631 diff changeset	9815	^ Screen current isWindowsPlatform
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9816	!
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9817
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9818	operatingSystemIsWindowsLike
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9819	^ OperatingSystem isMSWINDOWSlike
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9820
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9821	"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	9822	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9823
12351 8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9824	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'help specs'!
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9825
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	9826	helpSpec
12351 8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9827	"This resource specification was automatically generated
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9828	by the UIHelpTool of ST/X."
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9829
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9830	"Do not manually edit this!! If it is corrupted,
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9831	the UIHelpTool may not be able to read the specification."
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9832
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9833	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	9834	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
12351 8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9835	"
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9836
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9837	<resource: #help>
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9838
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	9839	^ super helpSpec addPairsFrom:#(
12351 8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9840
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9841	#showAccelerators
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9842	'Show shortcut-key bindings (if any) in popup menus'
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9843
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9844	#focusFollowsMouse
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9845	'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	9846
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9847	#'shouldRememberLastExtent'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9848	'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	9849
13369 d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	9850	#menuPanelTakesFocusOnClick
d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	9851	'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	9852
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9853	#mouseWheelFocusFollowsMouse
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9854	'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	9855
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9856	#allowMouseWheelZoom
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	9857	'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	9858
17641 4211d4bb9e73 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17629 diff changeset	9859	#metaIsMouseWheelZoom
4211d4bb9e73 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17629 diff changeset	9860	'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	9861
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9862	#takeFocus
14833 70e2b677b37c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14832 diff changeset	9863	'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	9864
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9865	#returnFocus
14833 70e2b677b37c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14832 diff changeset	9866	'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	9867
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9868	#activateOnClick
14833 70e2b677b37c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14832 diff changeset	9869	'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	9870
12351 8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9871	#button2WithAltKey
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9872	'Use with single button mice to get a right-button emulation'
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9873
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9874	#selectOnRightClick
15057 50b9d352cd81 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15051 diff changeset	9875	'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	9876
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9877	#showRightButtonMenuOnRelease
15057 50b9d352cd81 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15051 diff changeset	9878	'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	9879
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9880	#hostNameInLabel
14833 70e2b677b37c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14832 diff changeset	9881	'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	9882
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9883	#autoRaiseOnFocusIn
14833 70e2b677b37c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14832 diff changeset	9884	'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	9885
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	9886	#forceWindowsIntoMonitorBounds
14833 70e2b677b37c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14832 diff changeset	9887	'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	9888	)
17641 4211d4bb9e73 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17629 diff changeset	9889
4211d4bb9e73 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17629 diff changeset	9890	"Modified: / 30-08-2017 / 14:57:30 / cg"
12351 8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9891	! !
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	9892
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9893	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'image specs'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9894
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9895	defaultIcon
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9896	"This resource specification was automatically generated
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9897	by the ImageEditor of ST/X."
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9898
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9899	"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	9900	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	9901
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9902	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9903	self defaultIcon inspect
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9904	ImageEditor openOnClass:self andSelector:#defaultIcon
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9905	Icon flushCachedIcons
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9906	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9907
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9908	<resource: #image>
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9909
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9910	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	9911	constantNamed:'AbstractSettingsApplication::MiscDisplaySettingsAppl defaultIcon'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	9912	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	9913	@@@@@@@@@@@@@@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	9914	@@@@@@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	9915	@ 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	9916	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	9917	@ 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	9918	B (JB (E@@@@@@@@APTEAPTEAPTEAPTEAPTEAP@@@@@@@@@a')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	9919	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	9920	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	9921	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9922
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9923	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'interface specs'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9924
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9925	windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9926	"This resource specification was automatically generated
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9927	by the UIPainter of ST/X."
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9928
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9929	"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	9930	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	9931
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9932	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9933	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl andSelector:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9934	AbstractSettingsApplication::MiscDisplaySettingsAppl new openInterface:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9935	AbstractSettingsApplication::MiscDisplaySettingsAppl open
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9936	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9937
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9938	<resource: #canvas>
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9939
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9940	^
13283 697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	9941	#(FullSpec
697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	9942	name: windowSpec
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9943	window:
13283 697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	9944	(WindowSpec
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9945	label: 'Display settings'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9946	name: 'Display settings'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9947	flags: 1
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9948	min: (Point 10 10)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9949	bounds: (Rectangle 0 0 540 662)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9950	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9951	component:
13283 697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	9952	(SpecCollection
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9953	collection: (
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9954	(VerticalPanelViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9955	name: 'VerticalPanel1'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9956	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9957	horizontalLayout: fitSpace
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9958	verticalLayout: topSpace
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9959	horizontalSpace: 5
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9960	verticalSpace: 1
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9961	component:
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9962	(SpecCollection
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9963	collection: (
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9964	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9965	label: 'Beeper enabled'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9966	name: 'beepEnabled'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9967	visibilityChannel: false
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9968	model: beepEnabled
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9969	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9970	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9971	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9972	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9973	label: 'Show Accelerator Keys in Menus'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9974	name: 'showAccelerators'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9975	activeHelpKey: showAccelerators
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9976	model: showAccelerators
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9977	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9978	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9979	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9980	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9981	name: 'SeparatingSpace1'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9982	extent: (Point 530 4)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9983	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9984	(DividerSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9985	name: 'Separator1'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9986	extent: (Point 530 3)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9987	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9988	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9989	name: 'SeparatingSpace2'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9990	extent: (Point 530 3)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9991	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9992	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9993	label: 'Keyboard Focus Follows Mouse'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9994	name: 'focusFollowsMouse'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9995	activeHelpKey: focusFollowsMouse
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9996	model: focusFollowsMouse
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9997	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9998	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	9999	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10000	(CheckBoxSpec
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10001	label: 'MouseWheel Focus Follows Mouse'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10002	name: 'mouseWheelFocusFollowsMouse'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10003	activeHelpKey: mouseWheelFocusFollowsMouse
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10004	enableChannel: mouseWheelFocusFollowsMouseEnabled
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10005	model: mouseWheelFocusFollowsMouse
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10006	translateLabel: true
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10007	extent: (Point 530 30)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10008	)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10009	(CheckBoxSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10010	label: 'Zoom with CTRL- or ALT-Mousewheel'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10011	name: 'CheckBox1'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10012	activeHelpKey: allowMouseWheelZoom
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10013	model: allowMouseWheelZoom
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10014	translateLabel: true
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10015	extent: (Point 530 30)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10016	)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10017	(ViewSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10018	name: 'SeparatingSpace4'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10019	extent: (Point 530 3)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10020	)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10021	(DividerSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10022	name: 'Separator2'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10023	extent: (Point 530 3)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10024	)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10025	(ViewSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10026	name: 'SeparatingSpace5'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10027	extent: (Point 530 3)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10028	)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10029	(CheckBoxSpec
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10030	label: 'Menu Panels take Focus on Click'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10031	name: 'CheckBox7'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10032	activeHelpKey: menuPanelTakesFocusOnClick
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10033	model: menuPanelTakesFocusOnClick
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10034	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10035	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10036	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10037	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10038	label: 'Views Catch Focus when Mapped'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10039	name: 'takeFocus'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10040	activeHelpKey: takeFocus
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10041	model: takeFocus
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10042	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10043	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10044	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10045	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10046	label: 'Boxes Return Focus to Previously Active View'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10047	name: 'returnFocus'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10048	activeHelpKey: returnFocus
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10049	model: returnFocus
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10050	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10051	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10052	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10053	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10054	label: 'Raise & Activate Windows on Click'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10055	name: 'activateOnClick'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10056	activeHelpKey: activateOnClick
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10057	model: activateOnClick
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10058	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10059	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10060	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10061	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10062	label: 'Autoraise Windows on FocusIn'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10063	name: 'CheckBox4'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10064	activeHelpKey: autoRaiseOnFocusIn
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10065	model: autoRaiseOnFocusIn
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10066	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10067	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10068	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10069	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10070	label: 'Force Windows into Monitor''s Bounds'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10071	name: 'CheckBox2'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10072	activeHelpKey: forceWindowsIntoMonitorBounds
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10073	model: forceWindowsIntoMonitorBounds
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10074	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10075	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10076	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10077	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10078	label: 'Applications Remember Last Extent as Default'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10079	name: 'CheckBox5'
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10080	activeHelpKey: shouldRememberLastExtent
16338 2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10081	model: shouldRememberLastExtentHolder
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10082	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10083	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10084	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10085	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10086	name: 'SeparatingSpace5'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10087	extent: (Point 530 4)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10088	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10089	(DividerSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10090	name: 'Separator3'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10091	extent: (Point 530 4)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10092	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10093	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10094	name: 'SeparatingSpace6'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10095	extent: (Point 530 3)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10096	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10097	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10098	label: 'Select on Right-Button-Press'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10099	name: 'selectOnRightClick'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10100	activeHelpKey: selectOnRightClick
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10101	model: selectOnRightClick
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10102	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10103	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10104	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10105	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10106	label: 'Menu on Right-Button-Release'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10107	name: 'showRightButtonMenuOnRelease'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10108	activeHelpKey: showRightButtonMenuOnRelease
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10109	model: showRightButtonMenuOnRelease
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10110	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10111	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10112	)
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10113	(CheckBoxSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10114	label: 'ALT-Leftclick is Rightclick'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10115	name: 'CheckBox3'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10116	activeHelpKey: button2WithAltKey
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10117	model: button2WithAltKey
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10118	translateLabel: true
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10119	extent: (Point 530 30)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10120	)
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10121	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10122	name: 'SeparatingSpace7'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10123	extent: (Point 530 4)
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	(DividerSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10126	name: 'Separator4'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10127	extent: (Point 530 4)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10128	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10129	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10130	name: 'SeparatingSpace8'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10131	extent: (Point 530 4)
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	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10134	name: 'Box1'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10135	component:
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10136	(SpecCollection
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10137	collection: (
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10138	(LabelSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10139	label: 'Label'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10140	name: 'Label1'
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10141	layout: (LayoutFrame 0 0 0 0 218 0 20 0)
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10142	activeHelpKey: hostNameInLabel
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10143	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10144	labelChannel: formatHostNameWindowLabel
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10145	adjust: right
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10146	useDefaultExtent: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10147	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10148	(LabelSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10149	label: 'Label'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10150	name: 'Label2'
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10151	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	10152	activeHelpKey: hostNameInLabel
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10153	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10154	labelChannel: formatHostNameWindowLabel1
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10155	adjust: left
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	(LabelSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10158	label: 'Label'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10159	name: 'Label3'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10160	layout: (LayoutFrame 0 0.59999999999999998 30 0 0 1 0 1)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10161	activeHelpKey: hostNameInLabel
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	labelChannel: formatHostNameWindowLabel2
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10164	adjust: left
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10165	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10166	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10167
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10168	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10169	extent: (Point 530 92)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10170	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10171	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10172	name: 'WindowLabelBox'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10173	component:
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10174	(SpecCollection
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10175	collection: (
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10176	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10177	label: 'Window Label Format'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10178	name: 'hostNameInLabelHolder'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10179	layout: (LayoutFrame 0 0 0 0 216 0 30 0)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10180	activeHelpKey: hostNameInLabel
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10181	model: hostNameInLabelHolder
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10182	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10183	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10184	(InputFieldSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10185	name: 'hostNameInLabelEntryField'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10186	layout: (LayoutFrame 218 0 0 0 -5 1 30 0)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10187	activeHelpKey: hostNameInLabel
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10188	enableChannel: hostNameInLabelHolder
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10189	model: newWindowLabelFormat
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10190	immediateAccept: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10191	acceptOnReturn: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10192	acceptOnTab: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10193	acceptOnLostFocus: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10194	acceptOnPointerLeave: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10195	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10196	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10197
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10198	)
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	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10201	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10202
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10203	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10204	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10205	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10206
13283 697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	10207	)
697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	10208	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10209	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10210
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10211	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10212
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10213	basicReadSettings
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10214	super basicReadSettings.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	10215
16338 2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10216	self shouldRememberLastExtentHolder value:currentUserPrefs shouldRememberLastExtent.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10217	self newWindowLabelFormat value:StandardSystemView windowLabelFormat.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	10218	self hostNameInLabelHolder value:StandardSystemView includeHostNameInLabel.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	10219	self returnFocus value:StandardSystemView returnFocusWhenClosingModalBoxes.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10220	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	10221	self activateOnClick value:(Screen current activateOnClick:nil).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10222	self showAccelerators value:MenuView showAcceleratorKeys.
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10223
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10224	self autoRaiseOnFocusIn value: (currentUserPrefs autoRaiseOnFocusInDelay notNil).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10225	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10226
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10227	basicSaveSettings
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10228	\|currentScreen\|
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	10229
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	10230	currentScreen := Screen current.
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	10231
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	10232	(self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	10233	or:[self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat]) ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10234	StandardSystemView includeHostNameInLabel:self hostNameInLabelHolder value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10235	self newWindowLabelFormat value notNil ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10236	StandardSystemView windowLabelFormat:self newWindowLabelFormat value
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10237	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10238
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10239	Screen allScreens do:[:aDisplay \|
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10240	aDisplay allViewsDo:[:aView \|
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10241	\|l\|
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10242
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10243	aView isTopView ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10244	l := aView label.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10245	l notNil ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10246	aView label:(l , ' '); label:l. "/ force a change
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10247	]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10248	]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10249	]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10250	]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10251	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10252
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10253	super basicSaveSettings.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10254
16338 2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10255	currentUserPrefs shouldRememberLastExtent:(self shouldRememberLastExtentHolder value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10256	StandardSystemView returnFocusWhenClosingModalBoxes:self returnFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10257	StandardSystemView takeFocusWhenMapped:self takeFocus value.
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	10258	currentScreen activateOnClick:self activateOnClick value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10259
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10260	MenuView showAcceleratorKeys:self showAccelerators value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10261
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10262	self autoRaiseOnFocusIn value ~= (currentUserPrefs autoRaiseOnFocusInDelay notNil) ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10263	currentUserPrefs autoRaiseOnFocusInDelay:(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10264	self autoRaiseOnFocusIn value ifTrue:[ 750 ] ifFalse:[nil]).
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10265	].
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10266
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10267	"Modified: / 16.12.2002 / 18:06:31 / penk"
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10268	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10269
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10270	formatHostNameinWindowLabels
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10271	\|newFormat\|
c72e35116b13 instable state penk parents: 5040 diff changeset	10272
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	10273	newFormat := Dialog
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10274	request:'Define the Format of Window Labels:\\ %1 - Label\ %2 - Hostname\ %3 - Username\ %4 - ProcessId\'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10275	withCRs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10276	initialAnswer:newWindowLabelFormat.
17418 e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	10277	newFormat notEmptyOrNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10278	newWindowLabelFormat := newFormat.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10279	self updateModifiedChannel
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10280	]
17418 e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	10281
e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	10282	"Modified: / 17-02-2017 / 08:26:39 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10283	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10284
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10285	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10286
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10287	activateOnClick
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10288	activateOnClick isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10289	activateOnClick := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10290	activateOnClick onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10291	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10292	^ activateOnClick.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10293	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10294
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	10295	allowMouseWheelZoom
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	10296	allowMouseWheelZoom isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10297	allowMouseWheelZoom := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10298	allowMouseWheelZoom onChangeSend:#updateModifiedChannel to:self
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	10299	].
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	10300	^ allowMouseWheelZoom.
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	10301	!
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	10302
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10303	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10304	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10305	beepEnabled
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10306	focusFollowsMouse
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10307	mouseWheelFocusFollowsMouse
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10308	showRightButtonMenuOnRelease
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10309	selectOnRightClick
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10310	allowMouseWheelZoom
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10311	forceWindowsIntoMonitorBounds
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10312	button2WithAltKey
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10313	menuPanelTakesFocusOnClick
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10314	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10315
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10316	"Modified: / 31-07-2013 / 18:14:44 / cg"
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10317	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10318
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10319	autoRaiseOnFocusIn
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10320	autoRaiseOnFocusIn isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10321	autoRaiseOnFocusIn := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10322	autoRaiseOnFocusIn onChangeSend:#updateModifiedChannel to:self
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10323	].
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10324	^ autoRaiseOnFocusIn.
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10325	!
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10326
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10327	beepEnabled
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10328	beepEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10329	beepEnabled := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10330	beepEnabled onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10331	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10332	^ beepEnabled.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10333	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10334
12352 1a664d79c63e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12351 diff changeset	10335	button2WithAltKey
1a664d79c63e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12351 diff changeset	10336	button2WithAltKey isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10337	button2WithAltKey := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10338	button2WithAltKey onChangeSend:#updateModifiedChannel to:self
12352 1a664d79c63e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12351 diff changeset	10339	].
1a664d79c63e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12351 diff changeset	10340	^ button2WithAltKey.
1a664d79c63e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12351 diff changeset	10341	!
1a664d79c63e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12351 diff changeset	10342
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	10343	displaySupportsNativeDialogs
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	10344	^ Screen current supportsNativeDialogs
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	10345	!
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	10346
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	10347	displaySupportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	10348	^ Screen current supportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	10349	!
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	10350
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10351	focusFollowsMouse
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10352	focusFollowsMouse isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10353	focusFollowsMouse := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10354	focusFollowsMouse onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10355	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10356	^ focusFollowsMouse.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10357	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10358
9592 417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10359	forceWindowsIntoMonitorBounds
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10360	forceWindowsIntoMonitorBounds isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10361	forceWindowsIntoMonitorBounds := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10362	forceWindowsIntoMonitorBounds onChangeSend:#updateModifiedChannel to:self
9592 417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10363	].
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10364	^ forceWindowsIntoMonitorBounds.
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10365
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10366	"Created: / 22-10-2010 / 14:25:40 / cg"
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10367	!
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10368
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10369	formatHostNameWindowLabel
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10370	formatHostNameWindowLabel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10371	formatHostNameWindowLabel :=
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10372	(resources string:'Window Label Format:').
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10373	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10374	^ formatHostNameWindowLabel.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10375
6939 af3cdc84970f * empty log message * Claus Gittinger <cg@exept.de> parents: 6897 diff changeset	10376	"Created: / 16-12-2002 / 17:50:49 / penk"
af3cdc84970f * empty log message * Claus Gittinger <cg@exept.de> parents: 6897 diff changeset	10377	"Modified: / 22-08-2006 / 11:43:41 / cg"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10378	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10379
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10380	formatHostNameWindowLabel1
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10381	formatHostNameWindowLabel1 isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10382	formatHostNameWindowLabel1 :=
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10383	(resources stringWithCRs:'%1 - Label\%2 - Hostname\%3 - Username')
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10384	].
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10385	^ formatHostNameWindowLabel1.
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10386
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10387	"Created: / 16-12-2002 / 17:50:49 / penk"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10388	"Modified: / 22-08-2006 / 11:43:41 / cg"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10389	!
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10390
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10391	formatHostNameWindowLabel2
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10392	formatHostNameWindowLabel2 isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10393	formatHostNameWindowLabel2 :=
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10394	(resources stringWithCRs:'%4 - ProcessId\%5 - TOP-Directory\%6 - TOP-Path').
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10395	].
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10396	^ formatHostNameWindowLabel2.
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10397
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10398	"Created: / 16-12-2002 / 17:50:49 / penk"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10399	"Modified: / 22-08-2006 / 11:43:41 / cg"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10400	!
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10401
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10402	hostNameInLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10403	hostNameInLabelHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10404	hostNameInLabelHolder := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10405	hostNameInLabelHolder onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10406	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10407	^ hostNameInLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10408	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10409
13369 d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	10410	menuPanelTakesFocusOnClick
d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	10411	menuPanelTakesFocusOnClick isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10412	menuPanelTakesFocusOnClick := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10413	menuPanelTakesFocusOnClick onChangeSend:#updateModifiedChannel to:self
13369 d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	10414	].
d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	10415	^ menuPanelTakesFocusOnClick.
d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	10416	!
d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	10417
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10418	mouseWheelFocusFollowsMouse
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10419	mouseWheelFocusFollowsMouse isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10420	mouseWheelFocusFollowsMouse := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10421	mouseWheelFocusFollowsMouse onChangeSend:#updateModifiedChannel to:self
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10422	].
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10423	^ mouseWheelFocusFollowsMouse.
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10424	!
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10425
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10426	mouseWheelFocusFollowsMouseEnabled
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10427	^ BlockValue
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10428	forLogicalNot:(self focusFollowsMouse).
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10429	!
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10430
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10431	newWindowLabelFormat
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10432	newWindowLabelFormat isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10433	newWindowLabelFormat := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10434	newWindowLabelFormat onChangeSend:#updateModifiedChannel to:self
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10435	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10436	^ newWindowLabelFormat.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10437
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10438	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10439	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10440
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10441	returnFocus
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10442	returnFocus isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10443	returnFocus := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10444	returnFocus onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10445	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10446	^ returnFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10447	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10448
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10449	selectOnRightClick
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10450	selectOnRightClick isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10451	selectOnRightClick := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10452	selectOnRightClick onChangeSend:#updateModifiedChannel to:self
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10453	].
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10454	^ selectOnRightClick.
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10455	!
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10456
16338 2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10457	shouldRememberLastExtentHolder
2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10458	shouldRememberLastExtentHolder isNil ifTrue:[
2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10459	shouldRememberLastExtentHolder := true asValue.
2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10460	shouldRememberLastExtentHolder onChangeSend:#updateModifiedChannel to:self
2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10461	].
2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10462	^ shouldRememberLastExtentHolder.
13283 697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	10463	!
697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	10464
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10465	showAccelerators
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10466	showAccelerators isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10467	showAccelerators := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10468	showAccelerators onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10469	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10470	^ showAccelerators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10471	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10472
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10473	showRightButtonMenuOnRelease
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10474	showRightButtonMenuOnRelease isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10475	showRightButtonMenuOnRelease := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10476	showRightButtonMenuOnRelease onChangeSend:#updateModifiedChannel to:self
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10477	].
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10478	^ showRightButtonMenuOnRelease.
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10479	!
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10480
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10481	takeFocus
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10482	takeFocus isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10483	takeFocus := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10484	takeFocus onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10485	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10486	^ takeFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10487	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10488
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10489	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10490
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10491	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10492	^ 'Launcher/miscSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10493	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10494
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10495	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10496
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10497	hasUnsavedChanges
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10498	(super hasUnsavedChanges) ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	10499
16338 2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10500	self shouldRememberLastExtentHolder value ~= currentUserPrefs shouldRememberLastExtent ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10501	self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10502	self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10503	self returnFocus value ~= StandardSystemView returnFocusWhenClosingModalBoxes ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10504	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	10505	self activateOnClick value ~= (Screen current activateOnClick:nil) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10506	self showAccelerators value ~= MenuView showAcceleratorKeys ifTrue:[^ true].
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10507	self autoRaiseOnFocusIn value ~= (currentUserPrefs autoRaiseOnFocusInDelay notNil) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10508	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10509	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10510
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10511	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl class methodsFor:'help specs'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10512
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	10513	helpSpec
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10514	"This resource specification was automatically generated
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10515	by the UIHelpTool of ST/X."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10516
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10517	"Do not manually edit this!! If it is corrupted,
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10518	the UIHelpTool may not be able to read the specification."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10519
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10520	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10521	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10522	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10523
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10524	<resource: #help>
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10525
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	10526	^ super helpSpec addPairsFrom:#(
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10527
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10528	#windowMigration
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10529	'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	10530
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10531	#remoteBrowsing
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10532	'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	10533
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10534	#smallTeamCommon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10535	'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	10536
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10537	#smallTeam
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10538	'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	10539
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10540	#smallTeamHosts
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10541	'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	10542
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10543	#smallTeamHostToAdd
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10544	'Name of host to add (with button below)'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10545
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10546	#addSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10547	'Add the above hostname to the list of team members'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10548
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10549	#removeSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10550	'Remove the selected hostname from the list of team members'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10551
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10552	#smallTeamViaXMPP
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10553	'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	10554
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10555	#xmppServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10556	'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	10557
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10558	#xmppLoginUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10559	'Your login username on the above xmpp server'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10560
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10561	#xmppLoginPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10562	'Your login password on the above xmpp server'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10563
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10564	#smallTeamXMPPUsers
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10565	'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	10566
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10567	#smallTeamXMPPUserToAdd
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10568	'Name of user to add (with button below)'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10569
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10570	#addSmallTeamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10571	'Add the above username to the list of team members'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10572
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10573	#removeSmallTeamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10574	'Remove the selected username from the list of team members'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10575	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10576	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10577
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10578	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl class methodsFor:'image specs'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10579
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10580	defaultIcon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10581	"This resource specification was automatically generated
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10582	by the ImageEditor of ST/X."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10583
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10584	"Do not manually edit this!! If it is corrupted,
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10585	the ImageEditor may not be able to read the specification."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10586
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10587	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10588	self defaultIcon inspect
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10589	ImageEditor openOnClass:self andSelector:#defaultIcon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10590	Icon flushCachedIcons
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10591	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10592
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10593	<resource: #image>
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10594
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10595	^Icon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10596	constantNamed:'AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl defaultIcon'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10597	ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10598	@@!!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	10599	]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	10600	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	10601	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10602
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10603	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl class methodsFor:'interface specs'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10604
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10605	windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10606	"This resource specification was automatically generated
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10607	by the UIPainter of ST/X."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10608
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10609	"Do not manually edit this!! If it is corrupted,
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10610	the UIPainter may not be able to read the specification."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10611
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10612	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10613	UIPainter new openOnClass:AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl andSelector:#windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10614	AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl new openInterface:#windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10615	AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl open
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10616	"
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	<resource: #canvas>
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10619
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	#(FullSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10622	name: windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10623	window:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10624	(WindowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10625	label: 'Smalltalk Communication Settings'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10626	name: 'Smalltalk Communication Settings'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10627	flags: 1
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10628	min: (Point 10 10)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10629	bounds: (Rectangle 0 0 751 766)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10630	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10631	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10632	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10633	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10634	(VerticalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10635	name: 'VerticalPanel1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10636	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	10637	horizontalLayout: fit
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10638	verticalLayout: top
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10639	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10640	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10641	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10642	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10643	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10644	(FramedBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10645	label: 'Window migration'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10646	name: 'WindowMicrationSetupBox'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10647	activeHelpKey: windowMigration
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10648	labelPosition: topLeft
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10649	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10650	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10651	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10652	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10653	(VerticalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10654	name: 'VerticalPanel2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10655	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10656	horizontalLayout: left
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10657	verticalLayout: center
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10658	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10659	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10660	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10661	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10662	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10663	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10664	name: 'Box2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10665	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10666	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10667	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10668	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10669	label: 'Window migration enabled'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10670	name: 'CheckBox2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10671	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10672	enableChannel: hasWindowMigrationServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10673	model: windowMigrationEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10674	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10675	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10676	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10677
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	extent: (Point 696 25)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10680	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10681	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10682	name: 'Box3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10683	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10684	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10685	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10686	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10687	label: 'Password check'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10688	name: 'CheckBox3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10689	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10690	enableChannel: enablePasswordCheck
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10691	model: windowMigrationAuthenticate
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10692	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10693	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10694	)
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	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10697	extent: (Point 696 25)
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	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10700	name: 'Box4'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10701	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10702	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10703	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10704	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10705	label: 'Password:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10706	name: 'Label3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10707	layout: (LayoutFrame 0 0 0 0 150 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10708	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10709	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10710	enableDisableColorChannel: enablePasswordCheck
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10711	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10712	(InputFieldSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10713	name: 'EntryField1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10714	layout: (LayoutFrame 150 0 0 0 400 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10715	enableChannel: windowMigrationAuthenticate
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10716	model: windowMigrationPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10717	type: password
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10718	acceptOnReturn: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10719	acceptOnTab: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10720	acceptOnLostFocus: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10721	acceptOnPointerLeave: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10722	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10723	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10724
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10725	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10726	extent: (Point 696 25)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10727	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10728	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10729
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10730	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10731	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10732	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10733
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10734	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10735	extent: (Point 751 120)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10736	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10737	(FramedBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10738	label: 'Remote Browsing'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10739	name: 'RemoteBrowsingSetupBox'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10740	activeHelpKey: remoteBrowsing
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10741	labelPosition: topLeft
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10742	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10743	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10744	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10745	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10746	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10747	name: 'Box1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10748	layout: (LayoutFrame 0 0 5 0 0 1 30 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10749	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10750	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10751	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10752	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10753	label: 'Remote browsing enabled'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10754	name: 'CheckBox1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10755	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10756	enableChannel: hasRemoteBrowsingSupport
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10757	model: remoteBrowsingEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10758	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10759	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10760	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10761
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	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10767	extent: (Point 751 70)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10768	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10769	(FramedBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10770	label: 'SmallTeam Change Distribution'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10771	name: 'SmallTeamSetupBox'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10772	activeHelpKey: smallTeamCommon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10773	labelPosition: topLeft
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10774	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10775	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10776	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10777	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10778	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10779	name: 'enableBox'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10780	layout: (LayoutFrame 0 0 8 0 0 1 33 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10781	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10782	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10783	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10784	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10785	label: 'SmallTeam Server enabled'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10786	name: 'CheckBox4'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10787	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10788	enableChannel: smallTeamServerAvailable
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10789	model: smallTeamServerEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10790	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10791	activeHelpKey: smallTeam
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10792	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10793	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10794
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10795	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10796	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10797	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10798	label: 'SmallTeam Hosts:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10799	name: 'smallTeamHostsLabel'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10800	layout: (LayoutFrame 0 0.0 37 0 60 0.25 62 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10801	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10802	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10803	enableDisableColorChannel: smallTeamServerAvailable
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10804	activeHelpKey: smallTeamHosts
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10805	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10806	(SequenceViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10807	name: 'smallTeamHostsList'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10808	layout: (LayoutFrame 64 0.25 37 0 0 1 131 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10809	enableChannel: smallTeamServerEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10810	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10811	model: selectedSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10812	hasHorizontalScrollBar: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10813	hasVerticalScrollBar: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10814	miniScrollerHorizontal: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10815	useIndex: false
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10816	sequenceList: listOfSmallTeamHosts
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10817	activeHelpKey: smallTeamHosts
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	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10820	label: 'Host:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10821	name: 'hostLabel'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10822	layout: (LayoutFrame 0 0.0 137 0 60 0.25 162 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10823	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10824	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10825	enableDisableColorChannel: smallTeamServerEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10826	activeHelpKey: smallTeamHostToAdd
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10827	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10828	(InputFieldSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10829	name: 'smallTeamHostEntryField'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10830	layout: (LayoutFrame 64 0.25 138 0 0 1 163 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10831	enableChannel: smallTeamServerEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10832	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10833	model: smallTeamHostEntry
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10834	acceptChannel: acceptChannel
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10835	acceptOnPointerLeave: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10836	activeHelpKey: smallTeamHostToAdd
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10837	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10838	(HorizontalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10839	name: 'HorizontalPanel2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10840	layout: (LayoutFrame 64 0.25 168 0 -1 1 193 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10841	horizontalLayout: fitSpace
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10842	verticalLayout: center
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10843	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10844	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10845	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10846	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10847	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10848	(ActionButtonSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10849	label: 'Add'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10850	name: 'addButton'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10851	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10852	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10853	model: addSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10854	enableChannel: addHostEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10855	extent: (Point 226 22)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10856	activeHelpKey: addSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10857	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10858	(ActionButtonSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10859	label: 'Remove'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10860	name: 'removeButton'
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	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10863	model: removeSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10864	enableChannel: removeHostEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10865	extent: (Point 226 22)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10866	activeHelpKey: removeSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10867	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10868	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10869
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10870	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10871	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10872	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10873	label: 'XMPP SmallTeam enabled'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10874	name: 'CheckBox5'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10875	layout: (LayoutFrame 5 0 197 0 600 0 222 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10876	enableChannel: smallTeamViaXMPPAvailable
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10877	model: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10878	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10879	activeHelpKey: smallTeamViaXMPP
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	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10882	label: 'XMPP Team Members:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10883	name: 'Label4'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10884	layout: (LayoutFrame 0 0.0 323 0 60 0.25 348 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10885	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10886	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10887	enableDisableColorChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10888	activeHelpKey: smallTeamXMPPUsers
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10889	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10890	(SequenceViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10891	name: 'List1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10892	layout: (LayoutFrame 64 0.25 323 0 0 1 417 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10893	enableChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10894	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10895	model: selectedXMPPSmallTeamUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10896	hasHorizontalScrollBar: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10897	hasVerticalScrollBar: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10898	miniScrollerHorizontal: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10899	useIndex: false
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10900	sequenceList: listOfXMPPSmallTeamUsers
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10901	activeHelpKey: smallTeamXMPPUsers
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10902	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10903	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10904	label: 'Member:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10905	name: 'Label5'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10906	layout: (LayoutFrame 0 0.0 423 0 60 0.25 448 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10907	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10908	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10909	enableDisableColorChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10910	activeHelpKey: smallTeamXMPPUserToAdd
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10911	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10912	(InputFieldSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10913	name: 'EntryField2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10914	layout: (LayoutFrame 64 0.25 424 0 0 1 449 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10915	enableChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10916	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10917	model: xmppSmallTeamUserEntry
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10918	acceptChannel: acceptChannel
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10919	acceptOnPointerLeave: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10920	activeHelpKey: smallTeamXMPPUserToAdd
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10921	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10922	(HorizontalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10923	name: 'HorizontalPanel3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10924	layout: (LayoutFrame 64 0.25 455 0 -1 1 480 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10925	horizontalLayout: fitSpace
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10926	verticalLayout: center
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10927	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10928	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10929	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10930	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10931	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10932	(ActionButtonSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10933	label: 'Add'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10934	name: 'Button3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10935	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10936	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10937	model: addSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10938	enableChannel: addXMPPUserEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10939	extent: (Point 226 22)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10940	activeHelpKey: addSmallTeamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10941	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10942	(ActionButtonSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10943	label: 'Remove'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10944	name: 'Button4'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10945	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10946	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10947	model: removeSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10948	enableChannel: removeXMPPUserEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10949	extent: (Point 226 22)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10950	activeHelpKey: removeSmallTeamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10951	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10952	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10953
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	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10957	label: 'XMPP Server:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10958	name: 'Label6'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10959	layout: (LayoutFrame 0 0.0 227 0 60 0.25 252 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10960	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10961	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10962	enableDisableColorChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10963	activeHelpKey: xmppServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10964	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10965	(InputFieldSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10966	name: 'EntryField3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10967	layout: (LayoutFrame 64 0.25 228 0 0 1 253 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10968	enableChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10969	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10970	model: smallteamXMPPServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10971	acceptChannel: acceptChannel
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10972	acceptOnPointerLeave: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10973	activeHelpKey: xmppServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10974	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10975	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10976	label: 'XMPP Username:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10977	name: 'Label7'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10978	layout: (LayoutFrame 0 0.0 258 0 60 0.25 283 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10979	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10980	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10981	enableDisableColorChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10982	activeHelpKey: xmppLoginUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10983	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10984	(InputFieldSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10985	name: 'EntryField4'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10986	layout: (LayoutFrame 64 0.25 259 0 0 1 284 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10987	enableChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10988	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10989	model: smallteamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10990	acceptChannel: acceptChannel
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10991	acceptOnPointerLeave: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10992	activeHelpKey: xmppLoginUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10993	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10994	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10995	label: 'XMPP Password:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10996	name: 'Label8'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10997	layout: (LayoutFrame 0 0.0 288 0 60 0.25 313 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10998	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10999	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11000	enableDisableColorChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11001	activeHelpKey: xmppLoginPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11002	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11003	(InputFieldSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11004	name: 'EntryField5'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11005	layout: (LayoutFrame 64 0.25 289 0 0 1 314 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11006	enableChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11007	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11008	model: smallteamXMPPPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11009	type: password
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11010	acceptChannel: acceptChannel
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11011	acceptOnPointerLeave: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11012	activeHelpKey: xmppLoginPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11013	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11014	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11015
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11016	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11017	extent: (Point 751 521)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11018	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11019	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11020
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11021	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11022	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11023	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11024
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11025	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11026	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11027	! !
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	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'actions'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11030
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11031	aspects
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11032	^ #(
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11033	smallteamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11034	smallteamXMPPPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11035	smallteamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11036	smallteamXMPPServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11037	)
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	basicReadSettings
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11041	\|pw auth\|
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	super basicReadSettings.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11044
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11045	SmallTeam notNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11046	self smallTeamServerEnabled value:(SmallTeam isLoaded and:[SmallTeam serverRunning]).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11047	self listOfSmallTeamHosts contents:(SmallTeam connectedHosts).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11048	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11049
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11050	self remoteBrowsingEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11051	value:(self hasRemoteBrowsingSupport
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11052	and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11053
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11054	self windowMigrationEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11055	value:(self hasWindowMigrationServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11056	and:[ WindowMigrationServer isLoaded
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11057	and:[ WindowMigrationServer serverRunning ]]).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11058
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11059
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11060	pw := nil.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11061	auth := false.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11062	(self hasWindowMigrationServer and:[WindowMigrationServer isLoaded]) ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11063	pw := WindowMigrationServer password.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11064	auth := self windowMigrationPassword value notNil
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11065	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11066
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11067	self windowMigrationPassword value:pw.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11068	self windowMigrationAuthenticate value:auth
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11069
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11070	"Modified: / 20-09-2007 / 16:04:59 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11071	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11072
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11073	basicSaveSettings
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11074	super basicSaveSettings.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11075	self smallTeamServerAvailable ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11076	SmallTeam connectedHosts copy do:[:host \|
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11077	(self listOfSmallTeamHosts includes:host) ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11078	SmallTeam removeHost:host.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11079	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11080	].
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11081	self listOfSmallTeamHosts do:[:eachHost \|
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11082	SmallTeam addHost:eachHost.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11083	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11084	self smallTeamServerEnabled value ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11085	SmallTeam startServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11086	] ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11087	SmallTeam stopServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11088	].
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	self smallTeamViaXMPPAvailable ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11091	SmallTeamXMPPRoboter listOfXMPPUsers copy do:[:user \|
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11092	(self listOfXMPPSmallTeamUsers includes:user) ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11093	SmallTeamXMPPRoboter removeUser:user.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11094	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11095	].
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11096	self listOfXMPPSmallTeamUsers do:[:eachUser \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11097	SmallTeamXMPPRoboter addUser:eachUser.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11098	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11099	currentUserPrefs smallteamXMPPServer:(self smallteamXMPPServer value).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11100	currentUserPrefs smallteamXMPPUser:(self smallteamXMPPUser value).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11101	currentUserPrefs smallteamXMPPPassword:(self smallteamXMPPPassword value).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11102	self smallTeamViaXMPPEnabled value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11103	SmallTeamXMPPRoboter startServer
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11104	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11105	SmallTeamXMPPRoboter stopServer
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11106	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11107	].
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11108	self hasRemoteBrowsingSupport ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11109	self remoteBrowsingEnabled value ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11110	SmalltalkShareServer serverRunning ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11111	SmalltalkShareServer killAll
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	] ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11114	SmalltalkShareServer serverRunning ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11115	SmalltalkShareServer start.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11116
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11117	"/ must wait a bit; give it a chance to
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11118	"/ really start (before checking)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11119
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11120	Delay waitForSeconds:0.5.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11121	SmalltalkShareServer serverRunning ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11122	self warn:'SmalltalkShareServer startup failed (see stderr).'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11123	]
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	self hasWindowMigrationServer ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11128	self windowMigrationAuthenticate value ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11129	WindowMigrationServer password:self windowMigrationPassword value.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11130	] ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11131	WindowMigrationServer password:nil
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11132	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11133	self windowMigrationEnabled value ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11134	WindowMigrationServer serverRunning ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11135	WindowMigrationServer stop
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	] ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11138	WindowMigrationServer serverRunning ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11139	WindowMigrationServer start.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11140
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11141	"/ must wait a bit; give it a chance to
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11142	"/ really start (before checking)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11143
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11144	Delay waitForSeconds:0.5.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11145	WindowMigrationServer serverRunning ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11146	self warn:'WindowMigrationServer startup failed (see stderr).'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11147	]
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11148	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11149	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11150	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11151
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11152	"Modified: / 20-09-2007 / 16:05:01 / cg"
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11155	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'aspects'!
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	acceptChannel
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	acceptChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11160	acceptChannel := TriggerValue new.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11161	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11162	^ acceptChannel.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11163
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11164	"Created: / 12-11-2006 / 19:04:09 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11165	!
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	addHostEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11168	^ self smallTeamServerEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11169	!
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	addXMPPUserEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11172	^ self smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11173	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11174
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11175	enablePasswordCheck
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	enablePasswordCheck isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11178	self hasWindowMigrationServer ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11179	enablePasswordCheck := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11180	] ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11181	enablePasswordCheck := self windowMigrationEnabled.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11182	].
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11183	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11184	^ enablePasswordCheck.
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11187	listOfSmallTeamHosts
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11188
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11189	listOfSmallTeamHosts isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11190	listOfSmallTeamHosts := List new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11191	listOfSmallTeamHosts onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11192	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11193	^ listOfSmallTeamHosts.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11194
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11195	"Created: / 12-11-2006 / 19:06:35 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11196	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11197
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11198	listOfXMPPSmallTeamUsers
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	listOfXMPPSmallTeamUsers isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11201	listOfXMPPSmallTeamUsers := List new.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11202	listOfXMPPSmallTeamUsers onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11203	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11204	^ listOfXMPPSmallTeamUsers.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11205	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11206
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11207	remoteBrowsingEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11208
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11209	remoteBrowsingEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11210	remoteBrowsingEnabled := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11211	remoteBrowsingEnabled onChangeSend:#updateModifiedChannel to:self.
16164 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	^ remoteBrowsingEnabled.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11214	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11215
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11216	removeHostEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11217	^ BlockValue
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11218	forLogical:self smallTeamServerEnabled
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11219	and:(BlockValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11220	with:[:h \| h notEmptyOrNil]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11221	argument:self selectedSmallTeamHost)
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11222
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11223	"Created: / 12-11-2006 / 19:01:42 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11224	"Modified: / 08-03-2007 / 23:02:36 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11225	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11226
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11227	removeXMPPUserEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11228	^ BlockValue
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11229	forLogical:self smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11230	and:(BlockValue
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11231	with:[:h \| h notEmptyOrNil]
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11232	argument:self selectedXMPPSmallTeamUser)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11233	!
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	selectedSmallTeamHost
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	selectedSmallTeamHost isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11238	selectedSmallTeamHost := nil asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11239	selectedSmallTeamHost onChangeSend:#selectedSmallTeamHostChanged to:self.
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	^ selectedSmallTeamHost.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11242
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11243	"Created: / 12-11-2006 / 19:11:01 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11244	!
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	selectedXMPPSmallTeamUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11247
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11248	selectedXMPPSmallTeamUser isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11249	selectedXMPPSmallTeamUser := nil asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11250	selectedXMPPSmallTeamUser onChangeSend:#selectedXMPPSmallTeamUserChanged to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11251	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11252	^ selectedXMPPSmallTeamUser.
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11255	smallTeamHostEntry
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	smallTeamHostEntry isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11258	smallTeamHostEntry := nil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11259	smallTeamHostEntry onChangeSend:#updateModifiedChannel to:self.
16164 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	^ smallTeamHostEntry.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11262
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11263	"Created: / 12-11-2006 / 19:07:06 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11264	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11265
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11266	smallTeamServerAvailable
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11267	^ SmallTeam notNil.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11268
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11269	"Created: / 12-11-2006 / 18:56:20 / cg"
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11272	smallTeamServerEnabled
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	smallTeamServerEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11275	smallTeamServerEnabled := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11276	smallTeamServerEnabled onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11277	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11278	^ smallTeamServerEnabled.
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	"Created: / 12-11-2006 / 18:56:11 / cg"
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11283	smallTeamViaXMPPAvailable
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11284	^ SmallTeam notNil
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11285	and:[ JBCClient notNil and:[ SmallTeamXMPPRoboter notNil ] ].
16164 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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11288	smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11289
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11290	smallTeamViaXMPPEnabled isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11291	smallTeamViaXMPPEnabled := false asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11292	smallTeamViaXMPPEnabled onChangeSend:#updateModifiedChannel to:self.
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	^ smallTeamViaXMPPEnabled.
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11297	smalltalkBridgeEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11298
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11299	smalltalkBridgeEnabled isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11300	smalltalkBridgeEnabled := false asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11301	smalltalkBridgeEnabled onChangeSend:#updateModifiedChannel to:self.
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	^ smalltalkBridgeEnabled.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11304	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11305
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11306	smalltalkBridgeVerbose
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11307
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11308	smalltalkBridgeVerbose isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11309	smalltalkBridgeVerbose := false asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11310	smalltalkBridgeVerbose onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11311	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11312	^ smalltalkBridgeVerbose.
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11315	smallteamXMPPPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11316
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11317	smallteamXMPPPassword isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11318	smallteamXMPPPassword := '' asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11319	smallteamXMPPPassword onChangeSend:#updateModifiedChannel to:self.
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	^ smallteamXMPPPassword.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11322	!
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	smallteamXMPPServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11325
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11326	smallteamXMPPServer isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11327	smallteamXMPPServer := '' asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11328	smallteamXMPPServer onChangeSend:#updateModifiedChannel to:self.
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	^ smallteamXMPPServer.
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	smallteamXMPPUser
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	smallteamXMPPUser isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11336	smallteamXMPPUser := '' asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11337	smallteamXMPPUser onChangeSend:#updateModifiedChannel 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	^ smallteamXMPPUser.
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	windowMigrationAuthenticate
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	windowMigrationAuthenticate isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11345	windowMigrationAuthenticate := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11346	windowMigrationAuthenticate 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	^ windowMigrationAuthenticate.
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11351	windowMigrationEnabled
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	windowMigrationEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11354	windowMigrationEnabled := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11355	windowMigrationEnabled onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11356	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11357	^ windowMigrationEnabled.
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11360	windowMigrationPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11361
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11362	windowMigrationPassword isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11363	windowMigrationPassword := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11364	windowMigrationPassword onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11365	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11366	^ windowMigrationPassword.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11367	!
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	xmppSmallTeamUserEntry
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11370
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11371	xmppSmallTeamUserEntry isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11372	xmppSmallTeamUserEntry := nil asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11373	xmppSmallTeamUserEntry onChangeSend:#updateModifiedChannel to:self.
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	^ xmppSmallTeamUserEntry.
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11378	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'change & update'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11379
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11380	selectedSmallTeamHostChanged
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11381	self acceptChannel value:true.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11382	self smallTeamHostEntry value:( self selectedSmallTeamHost value).
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	"Created: / 12-11-2006 / 19:09:49 / cg"
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11387	selectedXMPPSmallTeamUserChanged
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11388	self acceptChannel value:true.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11389	self xmppSmallTeamUserEntry value:( self selectedXMPPSmallTeamUser value).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11390	! !
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	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'help'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11393
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11394	helpFilename
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11395	^ 'Launcher/communicationsSettings.html'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11396	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11397
16172 39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11398	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'help specs'!
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11399
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11400	helpTextForKey:aKey
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11401	\|normalText hasWindowMigrationServer\|
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11402
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11403	hasWindowMigrationServer := self hasWindowMigrationServer.
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11404
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11405	normalText := super helpTextForKey:aKey.
16172 39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11406	aKey == #windowMigration ifTrue:[
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11407	hasWindowMigrationServer ifFalse:[
16172 39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11408	^ normalText , (resources stringWithCRs:'\\Disabled because the windowMigration package is not loaded')
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11409	]
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11410	].
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11411	aKey == #remoteBrowsing ifTrue:[
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11412	hasWindowMigrationServer ifFalse:[
16172 39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11413	^ normalText , (resources stringWithCRs:'\\Disabled because the remoteBrowsing package is not loaded')
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11414	]
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11415	].
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11416	(#(smallTeamCommon
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11417	smallTeam smallTeamHosts
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11418	addSmallTeamHost removeSmallTeamHost
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11419	smallTeamViaXMPP
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11420	xmppServer xmppLoginUser xmppLoginPassword
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11421	smallTeamXMPPUsers smallTeamXMPPUserToAdd
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11422	addSmallTeamXMPPUser removeSmallTeamXMPPUser
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11423	) includes:aKey) ifTrue:[
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11424	hasWindowMigrationServer ifFalse:[
16172 39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11425	^ normalText , (resources stringWithCRs:'\\Disabled because the smallTeam package is not loaded')
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11426	]
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11427	].
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11428	^ normalText
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11429	! !
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11430
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11431	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'initialization & release'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11432
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11433	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	11434	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	11435
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11436	super initialize.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11437	self readSettings.
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	11438
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	11439	"Modified: / 08-02-2017 / 00:30:03 / cg"
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11440	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11441
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11442	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'queries'!
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	hasRemoteBrowsingSupport
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	^ SmalltalkShareServer notNil
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11447	!
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	hasUnsavedChanges
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11450	(super hasUnsavedChanges) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11451	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11452	].
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11453	(self smallTeamServerAvailable) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11454	self smallTeamServerEnabled value
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11455	~= (SmallTeam isLoaded and:[ SmallTeam serverRunning ]) ifTrue:[ ^ true ].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11456	self listOfSmallTeamHosts asSet ~= (SmallTeam connectedHosts asSet) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11457	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11458	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11459	].
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11460	(self smallTeamViaXMPPAvailable) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11461	self smallTeamViaXMPPEnabled value ~= (SmallTeamXMPPRoboter isLoaded
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11462	and:[ SmallTeamXMPPRoboter serverRunning ]) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11463	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11464	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11465	self listOfXMPPSmallTeamUsers asSet
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11466	~= ((SmallTeamXMPPRoboter listOfXMPPUsers ? #()) asSet) ifTrue:[ ^ true ].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11467	self smallteamXMPPServer value ~= (currentUserPrefs smallteamXMPPServer) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11468	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11469	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11470	self smallteamXMPPUser value ~= (currentUserPrefs smallteamXMPPUser) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11471	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11472	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11473	self smallteamXMPPPassword value
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11474	~= (currentUserPrefs smallteamXMPPPassword) ifTrue:[ ^ true ].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11475	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11476	(self hasRemoteBrowsingSupport and:[ SmalltalkShareServer isLoaded ]) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11477	self remoteBrowsingEnabled value ~~ SmalltalkShareServer serverRunning ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11478	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11479	].
16164 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	self hasWindowMigrationServer ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11482	WindowMigrationServer isLoaded ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11483	self windowMigrationEnabled value ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11484	WindowMigrationServer autoload.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11485	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11486	].
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11487	(self windowMigrationEnabled value ~~ WindowMigrationServer serverRunning) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11488	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11489	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11490	(self windowMigrationPassword value ~= WindowMigrationServer password) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11491	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11492	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11493	(self windowMigrationAuthenticate value
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11494	~= self windowMigrationPassword value notNil) ifTrue:[ ^ true ].
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11495	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11496	^ false
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11497
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11498	"Modified: / 20-09-2007 / 16:04:56 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11499	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11500
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11501	hasWindowMigrationServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11502
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11503	^ WindowMigrationServer notNil
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11504	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11505
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11506	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'user actions'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11507
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11508	addSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11509	\|host\|
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11510
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11511	acceptChannel value:true.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11512
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11513	host := self smallTeamHostEntry value.
17418 e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	11514
e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	11515	host notEmptyOrNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11516	self listOfSmallTeamHosts add:host
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11517	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11518
17418 e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	11519	"Modified (format): / 17-02-2017 / 08:33:52 / cg"
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11520	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11521
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11522	removeSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11523	\|host\|
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11524
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11525	acceptChannel value:true.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11526
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11527	host := self selectedSmallTeamHost value.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11528
17418 e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	11529	host notEmptyOrNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11530	self selectedSmallTeamHost value:nil.
17939 128b51c94f39 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17904 diff changeset	11531	self listOfSmallTeamHosts remove:host ifAbsent:[ self beep ].
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11532	self smallTeamHostEntry value:''.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11533	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11534
17418 e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	11535	"Modified: / 17-02-2017 / 08:33:29 / cg"
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11536	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11537
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11538	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11539
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11540	defaultIcon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	11541	<resource: #programImage>
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	11542
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	11543	^ AbstractSettingsApplication::MiscCommunicationSettingsAppl defaultIcon.
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11544	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11545
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11546	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11547
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11548	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11549	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11550	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11551
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11552	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11553	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11554
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11555	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11556	UIPainter new openOnClass:AbstractSettingsApplication::OsiSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11557	AbstractSettingsApplication::OsiSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11558	AbstractSettingsApplication::OsiSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11559	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11560
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11561	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11562
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	11563	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11564	#(FullSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11565	name: windowSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11566	window:
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11567	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11568	label: 'OSI Protocols Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11569	name: 'OSI Protocols Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11570	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11571	bounds: (Rectangle 0 0 600 550)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11572	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11573	component:
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11574	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11575	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11576	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11577	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11578	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	11579	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11580	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11581	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11582	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11583	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11584	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11585	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11586	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11587	label: 'ACSE'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11588	name: 'Label1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11589	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11590	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11591	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11592	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11593	name: 'Box1a'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11594	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11595	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11596	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11597	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11598	label: 'Log Errors'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11599	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11600	layout: (LayoutFrame 25 0 0 0 -2 0.33 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11601	enableChannel: osiACSEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11602	model: osiACSEErrorLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11603	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11604	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11605	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11606
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11607	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11608	extent: (Point 600 27)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11609	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11610	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11611	name: 'Box1b'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11612	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11613	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11614	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11615	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11616	label: 'Log Connections'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11617	name: 'CheckBox10'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11618	layout: (LayoutFrame 25 0 0 0 -2 0.66 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11619	enableChannel: osiACSEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11620	model: osiACSEConnectionLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11621	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11622	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11623	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11624
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11625	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11626	extent: (Point 600 26)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11627	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11628	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11629	name: 'Box1c'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11630	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11631	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11632	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11633	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11634	label: 'Log Data Transfer'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11635	name: 'CheckBox14'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11636	layout: (LayoutFrame 25 0 0 0 -2 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11637	enableChannel: osiACSEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11638	model: osiACSEDataLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11639	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11640	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11641	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11642
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11643	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11644	extent: (Point 600 26)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11645	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11646	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11647	name: 'Separator1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11648	extent: (Point 600 4)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11649	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11650	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11651	label: 'ROSE'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11652	name: 'Label2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11653	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11654	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11655	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11656	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11657	name: 'Box4a'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11658	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11659	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11660	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11661	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11662	label: 'Log Errors'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11663	name: 'CheckBox4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11664	layout: (LayoutFrame 25 0 0 0 -2 0.33 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11665	enableChannel: osiROSEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11666	model: osiROSEErrorLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11667	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11668	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11669	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11670
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11671	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11672	extent: (Point 600 25)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11673	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11674	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11675	name: 'Box4b'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11676	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11677	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11678	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11679	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11680	label: 'Log Invoactions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11681	name: 'CheckBox16'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11682	layout: (LayoutFrame 25 0 0 0 -2 0.66 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11683	enableChannel: osiROSEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11684	model: osiROSEInvokationLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11685	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11686	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11687	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11688
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11689	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11690	extent: (Point 600 25)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11691	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11692	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11693	name: 'Box4c'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11694	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11695	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11696	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11697	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11698	label: 'Log Responses'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11699	name: 'CheckBox20'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11700	layout: (LayoutFrame 25 0 0 0 -2 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11701	enableChannel: osiROSEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11702	model: osiROSEResponseLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11703	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11704	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11705	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11706
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11707	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11708	extent: (Point 600 25)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11709	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11710	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11711	name: 'Separator2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11712	extent: (Point 600 3)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11713	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11714	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11715	label: 'CMISE'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11716	name: 'Label3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11717	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11718	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11719	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11720	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11721	name: 'Box7a'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11722	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11723	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11724	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11725	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11726	label: 'Log Errors'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11727	name: 'CheckBox7'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11728	layout: (LayoutFrame 25 0 0 0 -2 0.33 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11729	enableChannel: osiCMISEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11730	model: osiCMISEErrorLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11731	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11732	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11733	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11734
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11735	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11736	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11737	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11738	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11739	name: 'Box7b'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11740	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11741	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11742	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11743	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11744	label: 'Log Messages'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11745	name: 'CheckBox22'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11746	layout: (LayoutFrame 25 0 0 0 -2 0.66 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11747	enableChannel: osiCMISEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11748	model: osiCMISEMessageLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11749	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11750	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11751	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11752
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11753	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11754	extent: (Point 600 22)
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	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11760	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11761
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11762	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11763	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11764	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11765
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11766	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11767
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11768	basicReadSettings
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11769	self updateOSIPackagePresentHolders.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11770	self osiACSEPresent value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11771	self osiACSEErrorLogging value:OSI::ACSE errorLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11772	self osiACSEConnectionLogging value:OSI::ACSE connectionLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11773	self osiACSEDataLogging value:OSI::ACSE dataLogging
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11774	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11775	self osiROSEPresent value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11776	self osiROSEErrorLogging value:OSI::ROSE errorLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11777	self osiROSEInvokationLogging value:OSI::ROSE invocationLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11778	self osiROSEResponseLogging value:OSI::ROSE responseLogging
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11779	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11780	self osiCMISEPresent value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11781	self osiCMISEErrorLogging value:OSI::CMISE errorLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11782	self osiCMISEMessageLogging value:OSI::CMISE messageLogging
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11783	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11784	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	11785
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11786	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11787
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11788	self osiACSEPresent value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11789	OSI::ACSE errorLogging:self osiACSEErrorLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11790	OSI::ACSE connectionLogging:self osiACSEConnectionLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11791	OSI::ACSE dataLogging:self osiACSEDataLogging value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11792	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11793	self osiROSEPresent value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11794	OSI::ROSE errorLogging:self osiROSEErrorLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11795	OSI::ROSE invocationLogging:self osiROSEInvokationLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11796	OSI::ROSE responseLogging:self osiROSEResponseLogging value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11797	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11798	self osiCMISEPresent value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11799	OSI::CMISE errorLogging:self osiCMISEErrorLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11800	OSI::CMISE messageLogging:self osiCMISEMessageLogging value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	11801	].
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11802	!
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11803
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11804	updateOSIPackagePresentHolders
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11805	self osiACSEPresent value:(OSI::ACSE notNil and:[OSI::ACSE isLoaded]).
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11806	self osiROSEPresent value:(OSI::ROSE notNil and:[OSI::ROSE isLoaded]).
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11807	self osiCMISEPresent value:(OSI::CMISE notNil and:[OSI::CMISE isLoaded]).
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11808	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11809
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11810	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11811
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11812	osiACSEConnectionLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11813	osiACSEConnectionLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11814	osiACSEConnectionLogging := true asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11815	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11816	^ osiACSEConnectionLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11817	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11818
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11819	osiACSEDataLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11820
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11821	osiACSEDataLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11822	osiACSEDataLogging := true asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11823	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11824	^ osiACSEDataLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11825	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11826
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11827	osiACSEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11828	osiACSEErrorLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11829	osiACSEErrorLogging := true asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11830	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11831	^ osiACSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11832	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11833
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11834	osiACSEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11835	osiACSEPresent isNil ifTrue:[
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11836	osiACSEPresent := OSI::ACSE notNil asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11837	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11838	^ osiACSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11839	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11840
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11841	osiCMISEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11842	osiCMISEErrorLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11843	osiCMISEErrorLogging := true asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11844	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11845	^ osiCMISEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11846	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11847
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11848	osiCMISEMessageLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11849	osiCMISEMessageLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11850	osiCMISEMessageLogging := true asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11851	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11852	^ osiCMISEMessageLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11853	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11854
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11855	osiCMISEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11856	osiCMISEPresent isNil ifTrue:[
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11857	osiCMISEPresent := OSI::CMISE notNil asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11858	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11859	^ osiCMISEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11860	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11861
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11862	osiROSEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11863	osiROSEErrorLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11864	osiROSEErrorLogging := true asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11865	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11866	^ osiROSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11867	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11868
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11869	osiROSEInvokationLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11870	osiROSEInvokationLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11871	osiROSEInvokationLogging := true asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11872	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11873	^ osiROSEInvokationLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11874	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11875
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11876	osiROSEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11877
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11878	osiROSEPresent isNil ifTrue:[
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11879	osiROSEPresent := OSI::ROSE notNil asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11880	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11881	^ osiROSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11882	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11883
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11884	osiROSEResponseLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11885
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11886	osiROSEResponseLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11887	osiROSEResponseLogging := true asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11888	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11889	^ osiROSEResponseLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11890	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11891
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11892	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11893
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11894	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11895	^ 'Launcher/communicationsSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11896	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	11897
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11898	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11899
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11900	hasUnsavedChanges
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11901	self updateOSIPackagePresentHolders.
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11902
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11903	(self osiACSEPresent value
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11904	and:[
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11905	self osiACSEErrorLogging value ~= OSI::ACSE errorLogging
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11906	or:[ self osiACSEConnectionLogging value ~= OSI::ACSE connectionLogging
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11907	or:[ self osiACSEDataLogging value ~= OSI::ACSE dataLogging]]]) ifTrue:[^ true].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11908
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11909	(self osiROSEPresent value
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11910	and:[
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11911	self osiROSEErrorLogging value ~= OSI::ROSE errorLogging
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11912	or:[ self osiROSEInvokationLogging value ~= OSI::ROSE invocationLogging
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11913	or:[ self osiROSEResponseLogging value ~= OSI::ROSE responseLogging]]]) ifTrue:[^ true].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11914
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11915	(self osiCMISEPresent value
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11916	and:[
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11917	self osiCMISEErrorLogging value ~= OSI::CMISE errorLogging
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11918	or:[ self osiCMISEMessageLogging value ~= OSI::CMISE messageLogging]])ifTrue:[^ true].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11919
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	11920	^ false.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11921	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11922
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11923	!AbstractSettingsApplication::PackagePathSettingsAppl class methodsFor:'image specs'!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11924
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11925	defaultIcon
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11926	<resource: #programImage>
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11927
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11928	^ ToolbarIconLibrary packageOpen24x24Icon
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11929	! !
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11930
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11931	!AbstractSettingsApplication::PackagePathSettingsAppl class methodsFor:'interface specs'!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11932
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11933	windowSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11934	"This resource specification was automatically generated
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11935	by the UIPainter of ST/X."
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11936
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11937	"Do not manually edit this!! If it is corrupted,
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11938	the UIPainter may not be able to read the specification."
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11939
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11940	"
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11941	UIPainter new openOnClass:AbstractSettingsApplication::PackagePathSettingsAppl andSelector:#windowSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11942	AbstractSettingsApplication::PackagePathSettingsAppl new openInterface:#windowSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11943	AbstractSettingsApplication::PackagePathSettingsAppl open
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11944	"
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11945
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11946	<resource: #canvas>
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11947
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11948	^
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11949	#(FullSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11950	name: windowSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11951	window:
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11952	(WindowSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11953	label: 'Package Path Settings'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11954	name: 'Package Path Settings'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11955	min: (Point 10 10)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11956	bounds: (Rectangle 0 0 659 287)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11957	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11958	component:
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11959	(SpecCollection
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11960	collection: (
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11961	(FramedBoxSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11962	label: 'Package Path'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11963	name: 'FramedBox1'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11964	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11965	labelPosition: topLeft
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11966	translateLabel: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11967	component:
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11968	(SpecCollection
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11969	collection: (
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11970	(LabelSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11971	label: 'Folders in Package Path'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11972	name: 'Label1'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11973	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	11974	translateLabel: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11975	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11976	(SequenceViewSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11977	name: 'List1'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11978	layout: (LayoutFrame 0 0 40 0 0 1 -40 1)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11979	model: selectedFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11980	hasHorizontalScrollBar: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11981	hasVerticalScrollBar: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11982	useIndex: false
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11983	sequenceList: listOfFoldersInPath
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11984	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11985	(HorizontalPanelViewSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11986	name: 'HorizontalPanel1'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11987	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	11988	horizontalLayout: right
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11989	verticalLayout: center
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11990	horizontalSpace: 3
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11991	verticalSpace: 3
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11992	component:
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11993	(SpecCollection
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11994	collection: (
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11995	(ActionButtonSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11996	label: 'Add...'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11997	name: 'Button1'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11998	translateLabel: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	11999	model: addFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12000	extent: (Point 93 31)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12001	usePreferredWidth: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12002	usePreferredHeight: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12003	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12004	(ActionButtonSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12005	label: 'Remove Selected'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12006	name: 'Button2'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12007	translateLabel: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12008	model: removeSelectedFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12009	extent: (Point 144 31)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12010	usePreferredWidth: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12011	usePreferredHeight: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12012	)
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	)
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
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12019	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12020	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12021	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12022
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12023	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12024	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12025	! !
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	!AbstractSettingsApplication::PackagePathSettingsAppl methodsFor:'actions'!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12028
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12029	addFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12030	\|folder\|
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12031
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12032	folder := Dialog requestDirectoryName:'Additional Folder with Packages:'.
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12033	folder isEmptyOrNil ifTrue:[^ self].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12034	(self listOfFoldersInPath includes:folder) ifFalse:[
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12035	self listOfFoldersInPath add:folder.
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12036	self updateModifiedChannel.
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12037	].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12038	!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12039
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12040	basicReadSettings
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12041	self listOfFoldersInPath contents:(Smalltalk packagePath).
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12042	!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12043
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12044	basicSaveSettings
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12045	Smalltalk packagePath:(self listOfFoldersInPath asOrderedCollection).
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12046	!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12047
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12048	removeSelectedFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12049	self listOfFoldersInPath remove:(self selectedFolder value) ifAbsent:[].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12050	self updateModifiedChannel.
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12051	! !
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12052
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12053	!AbstractSettingsApplication::PackagePathSettingsAppl methodsFor:'aspects'!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12054
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12055	aspects
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12056	^ #(
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12057	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12058	!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12059
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12060	listOfFoldersInPath
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12061	listOfFoldersInPath isNil ifTrue:[
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12062	listOfFoldersInPath := List new.
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12063	listOfFoldersInPath addAll:Smalltalk packagePath
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12064	].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12065	^ listOfFoldersInPath
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12066	!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12067
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12068	selectedFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12069	selectedFolder isNil ifTrue:[
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12070	selectedFolder := nil asValue.
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12071	].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12072	^ selectedFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12073	! !
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12074
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12075	!AbstractSettingsApplication::PackagePathSettingsAppl methodsFor:'help'!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12076
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12077	helpFilename
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12078	^ 'Launcher/packagePathSettings.html'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12079	! !
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12080
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12081	!AbstractSettingsApplication::PackagePathSettingsAppl methodsFor:'queries'!
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	hasUnsavedChanges
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12084	self listOfFoldersInPath asOrderedCollection ~= Smalltalk packagePath asOrderedCollection ifTrue:[^ true].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12085	^ false.
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
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12088	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12089
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12090	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	12091	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	12092
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	12093	^ ToolbarIconLibrary printerIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12094	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12095
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12096	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12097
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12098	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12099	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12100	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12101
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12102	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12103	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12104
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12105	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12106	UIPainter new openOnClass:AbstractSettingsApplication::PrinterSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12107	AbstractSettingsApplication::PrinterSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12108	AbstractSettingsApplication::PrinterSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12109	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12110
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12111	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12112
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12113	^
14241 e20d2a66f0b5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14240 diff changeset	12114	#(FullSpec
e20d2a66f0b5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14240 diff changeset	12115	name: windowSpec
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12116	window:
14241 e20d2a66f0b5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14240 diff changeset	12117	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12118	label: 'Printer Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12119	name: 'Printer Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12120	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12121	min: (Point 10 10)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12122	bounds: (Rectangle 0 0 601 474)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12123	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12124	component:
14241 e20d2a66f0b5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14240 diff changeset	12125	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12126	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12127	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12128	name: 'VerticalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12129	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	12130	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12131	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12132	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12133	verticalSpace: 3
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12134	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12135	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12136	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12137	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12138	name: 'PrinterSelectBox'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12139	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12140	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12141	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12142	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12143	label: 'Printer Type:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12144	name: 'PrinterTypeLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12145	layout: (LayoutFrame 0 0 5 0 181 0 35 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12146	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12147	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12148	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12149	(ComboListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12150	name: 'PrinterTypeComboList'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12151	layout: (LayoutFrame 183 0 5 0 -5 1 35 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12152	model: printerTypeSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12153	comboList: printerType
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12154	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12155	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12156	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12157	label: 'Print Command:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12158	name: 'PrinterCommandLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12159	layout: (LayoutFrame 0 0 38 0 181 0 68 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12160	visibilityChannel: printerIsDrivenByCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12161	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12162	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12163	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12164	(ComboBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12165	name: 'CommandComboBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12166	layout: (LayoutFrame 183 0 38 0 -5 1 68 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12167	visibilityChannel: printerIsDrivenByCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12168	enableChannel: printCommandEnabled
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12169	model: printCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12170	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12171	acceptOnPointerLeave: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12172	comboList: printCommandList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12173	useIndex: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12174	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12175	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12176	label: 'Print to File:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12177	name: 'PrinterFileLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12178	layout: (LayoutFrame 0 0 71 0 181 0 101 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12179	visibilityChannel: printerSupportsPrintingToFile
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12180	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12181	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12182	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12183	(FilenameInputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12184	name: 'PrinterFileEntryField'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12185	layout: (LayoutFrame 183 0 71 0 -5 1 101 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12186	visibilityChannel: printerSupportsPrintingToFile
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12187	model: printFilename
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12188	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12189	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12190	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12191	acceptOnPointerLeave: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12192	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12193	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12194
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12195	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12196	extent: (Point 601 108)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12197	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12198	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12199	name: 'FormatBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12200	visibilityChannel: supportsPageFormatSetting
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12201	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12202	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12203	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12204	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12205	name: 'Separator1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12206	layout: (LayoutFrame 0 0 4 0 0 1 7 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12207	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12208	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12209	label: 'Page Format:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12210	name: 'PageFormatLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12211	layout: (LayoutFrame 0 0 11 0 181 0 41 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12212	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12213	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12214	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12215	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12216	label: 'PopUp List'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12217	name: 'PageFormatPopUpList'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12218	layout: (LayoutFrame 183 0 11 0 333 0 41 0)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12219	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12220	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12221	model: pageFormat
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12222	enableChannel: enableFormat
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12223	menu: pageFormatList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12224	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12225	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12226	label: 'Landscape'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12227	name: 'LandscapeCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12228	layout: (LayoutFrame 380 0 11 0 -5 1 41 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12229	enableChannel: enablelandscape
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12230	model: landscape
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12231	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12232	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12233	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12234
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12235	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12236	extent: (Point 601 43)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12237	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12238	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12239	name: 'MarginBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12240	visibilityChannel: supportsMarginSetting
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12241	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12242	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12243	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12244	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12245	name: 'Separator5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12246	layout: (LayoutFrame 0 0 0 0 0 1 3 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12247	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12248	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12249	name: 'VerticalPanel2'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12250	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	12251	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12252	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12253	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12254	verticalSpace: 3
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12255	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12256	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12257	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12258	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12259	name: 'Box1'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12260	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12261	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12262	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12263	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12264	label: 'Top Margin:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12265	name: 'TopMarginLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12266	layout: (LayoutFrame 0 0 0 0 181 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12267	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12268	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12269	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12270	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12271	name: 'TopMarginEntryField'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12272	layout: (LayoutFrame 183 0 0 0 283 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12273	enableChannel: enableMargins
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12274	model: topMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12275	type: numberOrNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12276	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12277	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12278	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12279	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12280	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12281	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12282	label: 'PopUp List'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12283	name: 'PopUpList2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12284	layout: (LayoutFrame -155 1 0 0 -5 1 30 0)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12285	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12286	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12287	model: selectedUnit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12288	menu: unitList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12289	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12290	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12291	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12292
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12293	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12294	extent: (Point 601 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12295	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12296	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12297	name: 'Box2'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12298	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12299	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12300	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12301	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12302	label: 'Left Margin:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12303	name: 'LeftMarginLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12304	layout: (LayoutFrame 0 0 0 0 181 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12305	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12306	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12307	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12308	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12309	name: 'LeftMarginEntryField'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12310	layout: (LayoutFrame 183 0 0 0 283 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12311	enableChannel: enableMargins
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12312	model: leftMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12313	type: numberOrNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12314	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12315	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12316	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12317	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12318	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12319	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12320
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12321	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12322	extent: (Point 601 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12323	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12324	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12325	name: 'Box3'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12326	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12327	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12328	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12329	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12330	label: 'Right Margin:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12331	name: 'RightMarginLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12332	layout: (LayoutFrame 0 0 0 0 181 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12333	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12334	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12335	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12336	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12337	name: 'RightMarginEntryField'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12338	layout: (LayoutFrame 183 0 0 0 283 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12339	enableChannel: enableMargins
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12340	model: rightMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12341	type: numberOrNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12342	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12343	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12344	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12345	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12346	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12347	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12348
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12349	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12350	extent: (Point 601 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12351	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12352	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12353	name: 'Box4'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12354	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12355	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12356	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12357	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12358	label: 'Bottom Margin:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12359	name: 'BottomMarginLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12360	layout: (LayoutFrame 0 0 0 0 181 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12361	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12362	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12363	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12364	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12365	name: 'BottomMarginEntryField'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12366	layout: (LayoutFrame 183 0 0 0 283 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12367	enableChannel: enableMargins
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12368	model: bottomMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12369	type: numberOrNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12370	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12371	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12372	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12373	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12374	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12375	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12376
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12377	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12378	extent: (Point 601 32)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12379	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12380	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12381
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12382	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12383	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12384	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12385
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12386	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12387	extent: (Point 601 164)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12388	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12389	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12390	name: 'ColorBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12391	visibilityChannel: supportsColorSetting
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12392	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12393	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12394	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12395	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12396	name: 'Separator6'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12397	layout: (LayoutFrame 0 0 0 0 0 1 3 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12398	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12399	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12400	label: 'Color Printer'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12401	name: 'ColorPrinterCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12402	layout: (LayoutFrame 183 0 4 0 782 0 34 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12403	enableChannel: enableColorBox
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12404	model: supportsColor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12405	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12406	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12407	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12408
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12409	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12410	extent: (Point 601 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12411	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12412	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12413
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12414	)
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
14241 e20d2a66f0b5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14240 diff changeset	12418	)
e20d2a66f0b5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14240 diff changeset	12419	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12420	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12421
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12422	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12423
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12424	basicReadSettings
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12425	Printer notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12426	self
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12427	readAspects:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12428	#(
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12429	topMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12430	bottomMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12431	leftMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12432	rightMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12433	landscape
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12434	printCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12435	printFilename
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12436	supportsColor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12437	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12438	from:Printer.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12439	].
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12440
9811 6ac0aaf84f1e Fix printting under linux Stefan Vogel <sv@exept.de> parents: 9803 diff changeset	12441	self printerTypeSelection value:(self possiblePrinters identityIndexOf:Printer ifAbsent:1).
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12442	self pageFormatList notEmpty ifTrue:[ self pageFormat value:Printer pageFormat ].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12443	self printerTypeSelectionOrUnitListChanged.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12444
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12445	"Modified: / 07-08-2006 / 15:22:27 / fm"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12446	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12447
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12448	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12449
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12450	Printer := self possiblePrinters at:(self printerTypeSelection value).
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12451
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12452	Printer printCommand:self printCommand value.
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12453	Printer printFilename:(printFilename value isEmptyOrNil ifTrue:[nil] ifFalse:[printFilename value]).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12454
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12455	Printer supportsPageSizes ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12456	Printer pageFormat:(self pageFormat value).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12457	Printer landscape:(self landscape value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12458	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12459	Printer supportsMargins ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12460	\| unit \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12461	self selectedUnit value == 2 ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12462	unit := #mm
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12463	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12464	unit := #inch
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12465	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12466	Printer topMargin:(UnitConverter convert:(self topMargin value) from:unit to:#inch).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12467	Printer leftMargin:(UnitConverter convert:(self leftMargin value) from:unit to:#inch).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12468	Printer rightMargin:(UnitConverter convert:(self rightMargin value) from:unit to:#inch).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12469	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	12470	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12471	Printer supportsPostscript ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12472	Printer supportsColor:self supportsColor value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12473	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12474	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12475
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12476	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12477
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12478	bottomMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12479
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12480	bottomMargin isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12481	bottomMargin := Printer bottomMargin asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12482	bottomMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12483	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12484	^ bottomMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12485	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12486
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12487	enableColorBox
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12488
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12489	enableColorBox isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12490	enableColorBox := true asValue.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12491	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12492	^ enableColorBox.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12493	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12494
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12495	enableFormat
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12496
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12497	enableFormat isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12498	enableFormat := true asValue.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12499	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12500	^ enableFormat.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12501	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12502
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12503	enableMargins
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12504
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12505	enableMargins isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12506	enableMargins := true asValue.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12507	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12508	^ enableMargins.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12509	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12510
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12511	enablelandscape
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12512
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12513	enablelandscape isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12514	enablelandscape := true asValue.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12515	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12516	^ enablelandscape.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12517	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12518
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12519	landscape
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12520
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12521	landscape isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12522	landscape := (Printer isNil ifTrue:[ false ] ifFalse:[ Printer landscape]) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12523	landscape onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12524	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12525	^ landscape.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12526
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12527	"Modified: / 07-08-2006 / 15:22:44 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12528	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12529
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12530	leftMargin
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12531
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12532	leftMargin isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12533	leftMargin := Printer leftMargin asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12534	leftMargin onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12535	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12536	^ leftMargin.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12537	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12538
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12539	pageFormat
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12540
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12541	pageFormat isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12542	self pageFormatList notEmpty ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12543	\| index \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12544	(index := self pageFormatList indexOf:#a4) ~~ 0 ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12545	pageFormat := index asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12546	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12547	pageFormat := 1 asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12548	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12549	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12550	pageFormat onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12551	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12552	^ pageFormat.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12553	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12554
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12555	pageFormatList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12556
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12557	pageFormatList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12558	pageFormatList := (Printer isNil ifTrue:[ #() ] ifFalse: [Printer defaultPageFormats]) asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12559	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12560	^ pageFormatList.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12561
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12562	"Modified: / 07-08-2006 / 15:23:19 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12563	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12564
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12565	printCommand
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12566
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12567	printCommand isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12568	printCommand := Printer printCommand asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12569	printCommand onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12570	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12571	^ printCommand.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12572	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12573
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12574	printCommandEnabled
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12575	^ BlockValue
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12576	with:[:m \| m isEmptyOrNil]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12577	argument:(self printFilename).
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12578
06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12579	"Modified: / 08-03-2007 / 23:02:40 / cg"
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12580	!
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12581
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12582	printCommandList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12583
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12584	printCommandList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12585	printCommandList := self commandList asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12586	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12587	^ printCommandList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12588	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12589
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12590	printFilename
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12591	printFilename isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12592	printFilename := (Printer isNil ifTrue:[''] ifFalse:[Printer printFilename ? '']) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12593	printFilename onChangeSend:#updateModifiedChannel to:self
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12594	].
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12595	^ printFilename.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12596
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12597	"Modified: / 07-08-2006 / 15:24:45 / fm"
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12598	!
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12599
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12600	printerIsDrivenByCommand
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12601	printerIsDrivenByCommand isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12602	printerIsDrivenByCommand := BlockValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12603	with:[:m \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12604	\|printer\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12605
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12606	printer := self possiblePrinters at:m value ifAbsent:nil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12607	printer notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12608	printer isDrivenByCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12609	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12610	self breakPoint:#expecco.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12611	false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12612	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12613	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12614	argument:self printerTypeSelection.
7385 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	^ printerIsDrivenByCommand.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12617
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12618	"Created: / 10-10-2006 / 18:22:32 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12619	"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	12620	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12621
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12622	printerSupportsPrintingToFile
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12623	printerSupportsPrintingToFile isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12624	printerSupportsPrintingToFile := BlockValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12625	with:[:m \| (self possiblePrinters at:m) supportsPrintingToFile ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12626	argument:self printerTypeSelection.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12627	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12628	^ printerSupportsPrintingToFile.
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	"Created: / 10-10-2006 / 18:27:44 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12631	"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	12632	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12633
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12634	printerType
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12635	printerType isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12636	printerType := (self possiblePrinters collect:[:cls \| cls printerTypeName]) asList.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12637	printerType onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12638	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12639	^ printerType.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12640
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12641	"Modified: / 10-10-2006 / 18:09:43 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12642	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12643
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12644	printerTypeSelection
9811 6ac0aaf84f1e Fix printting under linux Stefan Vogel <sv@exept.de> parents: 9803 diff changeset	12645	\|printerIndex\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12646
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12647	printerTypeSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12648	printerIndex := self possiblePrinters identityIndexOf:Printer.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12649	printerIndex == 0 ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12650	self possiblePrinters isEmptyOrNil ifTrue:[self error:'no printer'].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12651	printerIndex := 1.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12652	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12653	printerTypeSelection := printerIndex asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12654
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12655	printerTypeSelection addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12656	printerTypeSelection changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12657	printerTypeSelection onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12658	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12659	^ printerTypeSelection.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12660
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12661	"Modified: / 10-10-2006 / 18:22:58 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12662	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12663
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12664	rightMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12665
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12666	rightMargin isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12667	rightMargin := Printer rightMargin asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12668	rightMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12669	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12670	^ rightMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12671	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12672
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12673	selectedUnit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12674
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12675	selectedUnit isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12676	selectedUnit := 1 asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12677	selectedUnit addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12678	selectedUnit changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12679	selectedUnit onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12680	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12681	^ selectedUnit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12682	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12683
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12684	supportsColor
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12685
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12686	supportsColor isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12687	supportsColor := (Printer notNil and:[Printer supportsColor]) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12688	supportsColor onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12689	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12690	^ supportsColor.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12691
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12692	"Modified: / 07-08-2006 / 15:24:22 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12693	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12694
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12695	supportsColorSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12696	supportsColorSetting isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12697	supportsColorSetting := BlockValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12698	with:[:m \| (self possiblePrinters at:m) supportsColor ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12699	argument:self printerTypeSelection.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12700	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12701	^ supportsColorSetting.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12702
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12703	"Created: / 10-10-2006 / 18:35:47 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12704	"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	12705	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12706
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12707	supportsMarginSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12708	supportsMarginSetting isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12709	supportsMarginSetting := BlockValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12710	with:[:m \| (self possiblePrinters at:m) supportsMargins ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12711	argument:self printerTypeSelection.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12712	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12713	^ supportsMarginSetting.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12714
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12715	"Created: / 10-10-2006 / 18:35:33 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12716	"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	12717	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12718
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12719	supportsPageFormatSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12720	supportsPageFormatSetting isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12721	supportsPageFormatSetting := BlockValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12722	with:[:m \| (self possiblePrinters at:m) supportsPageSizes ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12723	argument:self printerTypeSelection.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12724	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12725	^ supportsPageFormatSetting.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12726
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12727	"Created: / 10-10-2006 / 18:36:33 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12728	"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	12729	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12730
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12731	topMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12732
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12733	topMargin isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12734	topMargin := (Printer isNil ifTrue:[ 0 ] ifFalse:[ Printer topMargin ]) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12735	topMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12736	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12737	^ topMargin.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12738
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12739	"Modified: / 07-08-2006 / 15:21:50 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12740	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12741
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12742	unitList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12743
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12744	unitList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12745	unitList := #('inch' 'mm') asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12746	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12747	^ unitList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12748	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12749
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12750	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12751
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12752	printerTypeSelectionChanged
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12753	\| p hasPageSize hasMargins\|
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12754
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	12755	self printerType selectionIndex ~~ 0 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12756	p := self possiblePrinters at:(self printerType selectionIndex).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12757	hasPageSize := p supportsPageSizes.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12758	hasMargins := p supportsMargins.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12759	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12760	hasPageSize := false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12761	hasMargins := false.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12762	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12763	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12764
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12765	printerTypeSelectionOrUnitListChanged
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12766	\| p hasPageSize hasMargins unit printerSupportsPostscript\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12767
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12768	self printerTypeSelection value ~~ 0 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12769	p := self possiblePrinters at:(self printerTypeSelection value).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12770	hasPageSize := p supportsPageSizes.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12771	hasMargins := p supportsMargins.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12772	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12773	hasPageSize := false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12774	hasMargins := false.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12775	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12776	self enablelandscape value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12777	self enableFormat value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12778	hasPageSize ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12779	self pageFormat value:(p pageFormat).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12780	self landscape value:(p landscape).
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12781	] ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12782	self landscape value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12783	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12784	hasMargins ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12785	self selectedUnit value == 2 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12786	unit := #mm
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12787	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12788	unit := #inch
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12789	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12790
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	12791	self topMargin value:(UnitConverter convert:p topMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	12792	self leftMargin value:(UnitConverter convert:p leftMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	12793	self rightMargin value:(UnitConverter convert:p rightMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	12794	self bottomMargin value:(UnitConverter convert:p bottomMargin from:#inch to:unit).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12795
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12796	] ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12797	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12798	self enableMargins value:hasMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12799
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12800	p notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12801	\| newCommandList \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12802	newCommandList := p defaultCommands.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12803	newCommandList notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12804	self printCommandList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12805	contents:(newCommandList asList);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12806	changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12807	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12808	self printCommand value:(p printCommand).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12809	self printFilename value:(p printFilename ? '').
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12810	].
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12811	printerSupportsPostscript := p notNil and:[p supportsPostscript].
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12812	self enableColorBox value:printerSupportsPostscript.
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12813	printerSupportsPostscript ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12814	self supportsColor value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12815	] ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12816	self supportsColor value:(Printer supportsColor).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12817	]
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12818
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12819	"Modified: / 07-08-2006 / 15:24:06 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12820	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12821
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12822	unitListChanged
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12823	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12824
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12825	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12826	(changedObject == self selectedUnit or:[changedObject == self printerTypeSelection]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12827	self printerTypeSelectionOrUnitListChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12828	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12829	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12830
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12831	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12832	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12833
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12834	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12835
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12836	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12837	^ 'Launcher/printerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12838	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12839
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12840	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12841
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12842	commandList
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12843	commandList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12844	commandList := resources string:'PRINT_COMMANDS' default:nil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12845	commandList isNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12846	commandList := PrinterStream defaultCommands.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12847	commandList isNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12848	commandList := #('lpr' 'lp').
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12849	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12850	(commandList includes:self printCommand value) ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12851	commandList := commandList copyWith:self printCommand value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12852	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12853	].
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12854	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12855	^ commandList
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12856	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12857
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12858	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12859	\| printer unit\|
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12860
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12861	Printer isNil ifTrue:[^ false].
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12862
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12863	self selectedUnit value == 2 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12864	unit := #mm
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12865	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12866	unit := #inch
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12867	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12868	printer := self possiblePrinters at:(self printerTypeSelection value).
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12869
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12870	printer ~= Printer ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12871
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12872	Printer printCommand ~= self printCommand value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12873	(Printer printFilename ? '') ~= (self printFilename value ? '') ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12874
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12875	Printer supportsPageSizes ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12876	Printer pageFormat ~= self pageFormat value ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12877	Printer landscape ~= (self landscape value) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12878	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12879	Printer supportsMargins ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12880	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	12881	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	12882	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	12883	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	12884	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12885	Printer supportsPostscript ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12886	Printer supportsColor ~= self supportsColor value ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12887	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	12888	^ false
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12889
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12890	"Modified: / 07-08-2006 / 15:25:47 / fm"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12891	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12892
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12893	possiblePrinters
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12894	possiblePrinters isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12895	possiblePrinters := PrinterStream withAllSubclasses asArray.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12896	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12897	^ possiblePrinters
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12898	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12899
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12900	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'help specs'!
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12901
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	12902	helpSpec
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12903	"This resource specification was automatically generated
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12904	by the UIHelpTool of ST/X."
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12905
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12906	"Do not manually edit this!! If it is corrupted,
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12907	the UIHelpTool may not be able to read the specification."
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12908
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12909	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12910	UIHelpTool openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12911	"
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12912
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12913	<resource: #help>
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12914
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	12915	^ super helpSpec addPairsFrom:#(
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12916
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12917	#dynamicPriorities
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12918	'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	12919
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12920	#preemptiveScheduling
16992 01cd10d0a65a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16989 diff changeset	12921	'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	12922
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12923	)
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12924	! !
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	12925
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12926	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12927
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12928	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12929	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12930	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12931
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12932	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12933	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12934
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12935	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12936	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12937	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12938	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12939	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12940
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12941	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12942
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12943	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	12944	constantNamed:'AbstractSettingsApplication::ProcessorSchedulerSettingsAppl defaultIcon'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	12945	ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12946	@@@@@@@@@@@@@@@@@@@@ADQ@@@@@@@@@@DQBL2QD@@@@@@@DH"D3D"I@@@@@@DHQDSLQDRP@@@@DHQDQDQDQD$@@@DHQDQDQDQDQI@@@P!!DQDQDQDQD$@@AB
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	12947	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	12948	DQDQDQI@@@@@P!!DQDQDQI@@@@@@DH"DQD"I@@@@@@@ADP"H$Q@@@@@@@@@@DQD@@@@@@@@@@@@@@@@@@@@@b')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	12949	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	12950	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	12951	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12952
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12953	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12954
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12955	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12956	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12957	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12958
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12959	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12960	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12961
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12962	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12963	UIPainter new openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12964	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12965	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12966	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12967
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12968	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	12969
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12970	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	12971	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	12972	name: windowSpec
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12973	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	12974	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12975	label: 'Processor and Scheduler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12976	name: 'Processor and Scheduler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12977	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12978	bounds: (Rectangle 0 0 600 320)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12979	)
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12980	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	12981	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12982	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12983	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12984	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12985	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	12986	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12987	verticalLayout: topSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12988	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12989	verticalSpace: 5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12990	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12991	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12992	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12993	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12994	label: 'Preemptive Scheduling'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12995	name: 'CheckBox11'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12996	activeHelpKey: preemptiveScheduling
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12997	model: preemptive
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12998	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12999	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13000	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13001	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13002	name: 'Box2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13003	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13004	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13005	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13006	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13007	label: 'Dynamic Priorities'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13008	name: 'CheckBox12'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13009	layout: (LayoutFrame 30 0.0 0 0 0 1.0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13010	activeHelpKey: dynamicPriorities
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13011	enableChannel: preemptive
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13012	model: dynamicPrios
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13013	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13014	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13015	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13016
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13017	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13018	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13019	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13020	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13021
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13022	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13023	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13024	)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13025
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	13026	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	13027	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13028	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13029
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13030	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13031
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13032	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13033	self preemptive value:Processor isTimeSlicing.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13034	self dynamicPrios value:Processor supportDynamicPriorities.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13035	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13036
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13037	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13038
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13039	Processor isTimeSlicing ~~ self preemptive value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13040	self preemptive value ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13041	Processor startTimeSlicing
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13042	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13043	Processor stopTimeSlicing
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13044	]
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13045	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13046	Processor supportDynamicPriorities ~~ self dynamicPrios value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13047	Processor supportDynamicPriorities:self dynamicPrios value
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13048	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13049	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13050
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13051	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13052
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13053	dynamicPrios
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13054	dynamicPrios isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13055	dynamicPrios := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13056	dynamicPrios onChangeSend:#updateModifiedChannel to:self.
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	^ dynamicPrios.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13059	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13060
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13061	preemptive
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13062	preemptive isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13063	preemptive := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13064	preemptive onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13065	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13066	^ preemptive.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13067	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13068
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13069	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13070
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13071	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13072	^ 'Launcher/miscSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13073	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13074
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13075	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13076
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13077	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	13078	self preemptive value ~= Processor isTimeSlicing ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	13079	self dynamicPrios value ~= Processor supportDynamicPriorities ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	13080	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13081	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13082
16161 6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13083	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'help specs'!
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13084
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13085	helpSpec
16161 6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13086	"This resource specification was automatically generated
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13087	by the UIHelpTool of ST/X."
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13088
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13089	"Do not manually edit this!! If it is corrupted,
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13090	the UIHelpTool may not be able to read the specification."
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13091
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13092	"
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13093	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13094	"
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13095
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13096	<resource: #help>
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13097
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13098	^ super helpSpec addPairsFrom:#(
16161 6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13099
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13100	#rdoitDisabled
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13101	'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	13102
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13103	#rdoitSettings
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13104	'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	13105
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13106	#scriptingDisabled
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13107	'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	13108
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13109	#scriptingSettings
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13110	'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	13111	)
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13112	! !
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13113
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13114	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13115
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13116	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13117	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13118	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13119
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13120	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13121	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13122
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13123	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13124	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13125	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13126	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13127	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13128
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13129	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13130
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13131	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	13132	constantNamed:'AbstractSettingsApplication::RDoItServerSettingsAppl defaultIcon'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	13133	ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	13134	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&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	13135	''#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	13136	!!B D @A%T@@@@@BBP$IH @@@@@@@@HPHHB"@@@@@@@@@@@!!H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	13137	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	13138	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	13139	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13140
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13141	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13142
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13143	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13144	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13145	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13146
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13147	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13148	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13149
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13150	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13151	UIPainter new openOnClass:AbstractSettingsApplication::RDoItServerSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13152	AbstractSettingsApplication::RDoItServerSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13153	AbstractSettingsApplication::RDoItServerSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13154	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13155
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13156	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13157
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13158	^
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	13159	#(FullSpec
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	13160	name: windowSpec
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13161	window:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	13162	(WindowSpec
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13163	label: 'RDoIt Server Settings'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13164	name: 'RDoIt Server Settings'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13165	flags: 1
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13166	min: (Point 10 10)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13167	bounds: (Rectangle 0 0 601 535)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13168	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13169	component:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	13170	(SpecCollection
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13171	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13172	(FramedBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13173	label: 'RDoIt'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13174	name: 'RDoItFramedBox'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13175	layout: (LayoutFrame 0 0 0 0 0 1 232 0)
16162 c59b8f5ba4ae #FEATURE Claus Gittinger <cg@exept.de> parents: 16161 diff changeset	13176	activeHelpKey: rdoitSettings
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13177	labelPosition: topLeft
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13178	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13179	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13180	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13181	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13182	(VerticalPanelViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13183	name: 'VerticalPanel2'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13184	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	13185	horizontalLayout: fit
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13186	verticalLayout: top
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13187	horizontalSpace: 0
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13188	verticalSpace: 0
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13189	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13190	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13191	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13192	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13193	name: 'Box1'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13194	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13195	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13196	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13197	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13198	label: 'Remote doits enabled'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13199	name: 'CheckBox1'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13200	layout: (LayoutFrame 0 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13201	enableChannel: hasRDoitServerClass
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13202	model: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13203	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13204	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13205	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13206
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13207	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13208	extent: (Point 567 25)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13209	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13210	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13211	name: 'Box2'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13212	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13213	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13214	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13215	(LabelSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13216	label: 'Port/Path:'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13217	name: 'Label2'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13218	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13219	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13220	adjust: right
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13221	enableDisableColorChannel: rDoitsEnabled
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13222	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13223	(InputFieldSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13224	name: 'EntryField1'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13225	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13226	enableChannel: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13227	model: rDoitServerPortOrPath
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13228	acceptOnReturn: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13229	acceptOnTab: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13230	acceptOnLostFocus: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13231	acceptOnPointerLeave: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13232	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13233	(LabelSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13234	label: 'Port# for Tcp Socket; Path for Unix Domain Socket (Unix only).'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13235	name: 'Label3'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13236	layout: (LayoutFrame 150 0 28 0 596 0 50 0)
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	adjust: left
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13239	enableDisableColorChannel: rDoitsEnabled
16151 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	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13242
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13243	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13244	extent: (Point 567 60)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13245	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13246	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13247	name: 'Box13'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13248	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13249	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13250	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13251	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13252	label: 'Local Connections Only'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13253	name: 'CheckBox10'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13254	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13255	enableChannel: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13256	model: rDoitEnabledOnlyViaLocalConnection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13257	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13258	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13259	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13260
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13261	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13262	extent: (Point 567 25)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13263	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13264	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13265	name: 'Box3'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13266	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13267	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13268	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13269	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13270	label: 'Log errors'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13271	name: 'CheckBox2'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13272	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13273	enableChannel: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13274	model: rDoitErrorLogging
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13275	translateLabel: true
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	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13278
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13279	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13280	extent: (Point 567 25)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13281	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13282	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13283	name: 'Box4'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13284	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13285	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13286	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13287	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13288	label: 'Log requests'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13289	name: 'CheckBox3'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13290	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13291	enableChannel: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13292	model: rDoitLogging
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13293	translateLabel: true
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	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13296
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13297	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13298	extent: (Point 567 24)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13299	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13300	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13301	name: 'Box5'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13302	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13303	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13304	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13305	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13306	label: 'Debug errors'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13307	name: 'CheckBox4'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13308	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13309	enableChannel: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13310	model: rDoitErrorDebugging
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13311	translateLabel: true
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	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13314
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13315	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13316	extent: (Point 567 23)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13317	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13318	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13319
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13320	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13321	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13322	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13323
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13324	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13325	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13326	(FramedBoxSpec
16161 6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13327	label: 'JavaScript/Smalltalk-Scripting via Telnet'
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13328	name: 'ScriptingFramedBox'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13329	layout: (LayoutFrame 0 0 224 0 0 1 460 0)
16162 c59b8f5ba4ae #FEATURE Claus Gittinger <cg@exept.de> parents: 16161 diff changeset	13330	activeHelpKey: scriptingSettings
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13331	labelPosition: topLeft
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13332	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13333	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13334	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13335	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13336	(VerticalPanelViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13337	name: 'VerticalPanel3'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13338	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	13339	horizontalLayout: fit
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13340	verticalLayout: top
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13341	horizontalSpace: 0
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13342	verticalSpace: 0
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13343	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13344	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13345	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13346	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13347	name: 'Box6'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13348	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13349	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13350	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13351	(CheckBoxSpec
16162 c59b8f5ba4ae #FEATURE Claus Gittinger <cg@exept.de> parents: 16161 diff changeset	13352	label: 'Telnet Scripting enabled'
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13353	name: 'CheckBox5'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13354	layout: (LayoutFrame 0 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13355	enableChannel: hasScriptingServerClass
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13356	model: scriptingEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13357	translateLabel: true
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
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13361	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13362	extent: (Point 567 25)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13363	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13364	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13365	name: 'Box12'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13366	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13367	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13368	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13369	(LabelSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13370	label: 'Port:'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13371	name: 'Label4'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13372	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13373	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13374	adjust: right
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13375	enableDisableColorChannel: scriptingEnabled
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13376	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13377	(InputFieldSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13378	name: 'EntryField2'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13379	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13380	enableChannel: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13381	model: scriptingServerPortOrPath
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13382	isReadOnly: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13383	acceptOnReturn: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13384	acceptOnTab: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13385	acceptOnLostFocus: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13386	acceptOnPointerLeave: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13387	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13388	(LabelSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13389	label: 'Port# for Tcp Socket; Path for Unix Domain Socket (Unix only).'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13390	name: 'Label5'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13391	layout: (LayoutFrame 150 0 28 0 596 0 50 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13392	initiallyInvisible: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13393	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13394	adjust: left
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13395	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13396	)
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	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13399	extent: (Point 567 60)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13400	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13401	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13402	name: 'Box11'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13403	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13404	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13405	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13406	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13407	label: 'Local Connections Only'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13408	name: 'CheckBox9'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13409	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13410	enableChannel: scriptingEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13411	model: scriptingEnabledOnlyViaLocalConnection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13412	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13413	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13414	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13415
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13416	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13417	extent: (Point 567 25)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13418	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13419	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13420	name: 'Box8'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13421	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13422	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13423	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13424	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13425	label: 'Log errors'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13426	name: 'CheckBox6'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13427	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13428	enableChannel: scriptingEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13429	model: scriptingErrorLogging
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13430	translateLabel: true
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	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13433
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13434	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13435	extent: (Point 567 25)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13436	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13437	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13438	name: 'Box9'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13439	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13440	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13441	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13442	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13443	label: 'Log requests'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13444	name: 'CheckBox7'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13445	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13446	enableChannel: scriptingEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13447	model: scriptingLogging
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13448	translateLabel: true
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	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13451
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13452	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13453	extent: (Point 567 24)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13454	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13455	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13456	name: 'Box10'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13457	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13458	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13459	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13460	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13461	label: 'Debug errors'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13462	name: 'CheckBox8'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13463	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13464	enableChannel: scriptingEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13465	model: scriptingErrorDebugging
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13466	translateLabel: true
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	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13469
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13470	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13471	extent: (Point 567 23)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13472	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13473	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13474
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13475	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13476	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13477	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13478
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13479	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13480	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13481	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13482
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	13483	)
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	13484	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13485	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13486
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13487	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13488
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13489	basicReadSettings
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13490	\|rDoitsEnabled rDoitLogging rDoitErrorLogging rDoitErrorDebugging rDoitServerPortOrPath
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13491	rDoitEnabledOnlyViaLocalConnection
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13492	scriptingEnabled scriptingEnabledOnlyViaLocalConnection scriptingLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13493	scriptingErrorLogging scriptingErrorDebugging\|
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13494
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13495	rDoitsEnabled := false.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13496	rDoitLogging := false.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13497	rDoitErrorLogging := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13498	rDoitErrorDebugging := false.
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13499	rDoitServerPortOrPath := ''.
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13500	rDoitEnabledOnlyViaLocalConnection := true.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13501
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13502	scriptingEnabled := false.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13503	scriptingEnabledOnlyViaLocalConnection := true.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13504
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13505	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13506	rDoitsEnabled := RDoItServer serverRunning.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13507	rDoitEnabledOnlyViaLocalConnection := RDoItServer localConnectionsOnly.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13508	rDoitLogging := RDoItServer isLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13509	rDoitErrorLogging := RDoItServer isErrorLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13510	rDoitErrorDebugging := RDoItServer isErrorCatching not.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13511	rDoitServerPortOrPath := RDoItServer defaultPortNumberOrPath asString.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13512	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13513
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13514	(STXScriptingServer notNil
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13515	and:[ STXScriptingServer isLoaded ]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13516	scriptingEnabled := STXScriptingServer serverRunning.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13517	scriptingEnabledOnlyViaLocalConnection := STXScriptingServer localConnectionsOnly.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13518	scriptingLogging := STXScriptingServer isLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13519	scriptingErrorLogging := STXScriptingServer isErrorLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13520	scriptingErrorDebugging := STXScriptingServer isErrorDebugging.
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13521	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13522
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13523	self rDoitsEnabled value:rDoitsEnabled.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13524	self rDoitLogging value:rDoitLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13525	self rDoitErrorLogging value:rDoitErrorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13526	self rDoitErrorDebugging value:rDoitErrorDebugging.
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13527	self rDoitServerPortOrPath value:rDoitServerPortOrPath.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13528
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13529	self scriptingEnabled value:scriptingEnabled.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13530	self scriptingEnabledOnlyViaLocalConnection value:scriptingEnabledOnlyViaLocalConnection.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13531	self scriptingLogging value:scriptingLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13532	self scriptingErrorLogging value:scriptingErrorLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13533	self scriptingErrorDebugging value:scriptingErrorDebugging.
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13534
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13535	"Modified: / 20-05-2010 / 14:49:50 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13536	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13537
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13538	basicSaveSettings
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	13539	\|shouldRun portOrPath\|
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	13540
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13541	portOrPath := self getPortNumberOrPath.
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	13542
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13543	self hasRDoitServerClass ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13544	RDoItServer defaultPortNumberOrPath:portOrPath.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13545	RDoItServer logging:self rDoitLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13546	RDoItServer errorLogging:self rDoitErrorLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13547	RDoItServer errorCatching:(self rDoitErrorDebugging value not).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13548	RDoItServer localConnectionsOnly:(self rDoitEnabledOnlyViaLocalConnection value).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13549	shouldRun := self rDoitsEnabled value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13550	shouldRun ~~ RDoItServer serverRunning ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13551	shouldRun ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13552	RDoItServer stop
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13553	] ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13554	RDoItServer start.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13555	"/ must wait a bit; give it a chance to
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13556	"/ really start (before checking)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13557	Delay waitForSeconds:1.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13558	RDoItServer serverRunning ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13559	self warn:'RDoit startup failed (see stderr).'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13560	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13561	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13562	].
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13563	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13564
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13565	self hasScriptingServerClass ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13566	STXScriptingServer logging:self scriptingLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13567	STXScriptingServer errorLogging:self scriptingErrorLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13568	STXScriptingServer errorDebugging:(self scriptingErrorDebugging value).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13569	STXScriptingServer localConnectionsOnly:(self scriptingEnabledOnlyViaLocalConnection value).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13570	shouldRun := self scriptingEnabled value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13571	shouldRun ~~ STXScriptingServer serverRunning ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13572	shouldRun ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13573	STXScriptingServer stop
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13574	] ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13575	STXScriptingServer start.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13576	"/ must wait a bit; give it a chance to
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13577	"/ really start (before checking)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13578	Delay waitForSeconds:1.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13579	STXScriptingServer serverRunning ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13580	self warn:'STXScripting startup failed (see stderr).'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13581	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13582	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13583	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13584	].
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13585
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13586	"Modified: / 20-05-2010 / 14:50:44 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13587	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13588
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13589	getPortNumberOrPath
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13590	\|portOrPath nrOrNil\|
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13591
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13592	portOrPath := self rDoitServerPortOrPath value.
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13593	portOrPath isNumber ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13594	"a numeric string means it is a TCP port number"
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13595	nrOrNil := Integer readFrom:portOrPath onError:nil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13596	nrOrNil notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13597	portOrPath := nrOrNil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13598	]
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13599	].
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13600	^ portOrPath
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13601	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13602
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13603	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13604
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13605	rDoitEnabledOnlyViaLocalConnection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13606	rDoitEnabledOnlyViaLocalConnection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13607	rDoitEnabledOnlyViaLocalConnection := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13608	rDoitEnabledOnlyViaLocalConnection onChangeSend:#updateModifiedChannel to:self
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13609	].
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13610	^ rDoitEnabledOnlyViaLocalConnection.
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13611
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13612	"Created: / 20-05-2010 / 12:15:12 / cg"
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13613	!
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13614
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13615	rDoitErrorDebugging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13616	rDoitErrorDebugging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13617	rDoitErrorDebugging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13618	rDoitErrorDebugging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13619	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13620	^ rDoitErrorDebugging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13621	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13622
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13623	rDoitErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13624	rDoitErrorLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13625	rDoitErrorLogging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13626	rDoitErrorLogging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13627	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13628	^ rDoitErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13629	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13630
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13631	rDoitLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13632	rDoitLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13633	rDoitLogging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13634	rDoitLogging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13635	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13636	^ rDoitLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13637	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13638
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13639	rDoitOnlyViaLocalConnection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13640	rDoitOnlyViaLocalConnection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13641	rDoitOnlyViaLocalConnection := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13642	rDoitOnlyViaLocalConnection onChangeSend:#updateModifiedChannel to:self
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13643	].
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13644	^ rDoitOnlyViaLocalConnection.
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13645
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13646	"Created: / 20-05-2010 / 12:14:50 / cg"
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13647	!
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13648
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	13649	rDoitServerPortOrPath
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	13650	rDoitServerPortOrPath isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13651	rDoitServerPortOrPath := nil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13652	rDoitServerPortOrPath onChangeSend:#updateModifiedChannel to:self
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	13653	].
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	13654	^ rDoitServerPortOrPath.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13655	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13656
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13657	rDoitsEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13658	rDoitsEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13659	rDoitsEnabled := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13660	rDoitsEnabled onChangeSend:#rDoitsEnabledChanged to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13661	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13662	^ rDoitsEnabled.
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13663	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13664
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13665	scriptingEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13666	scriptingEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13667	scriptingEnabled := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13668	scriptingEnabled onChangeSend:#updateModifiedChannel to:self
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13669	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13670	^ scriptingEnabled.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13671	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13672
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13673	scriptingEnabledOnlyViaLocalConnection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13674	scriptingEnabledOnlyViaLocalConnection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13675	scriptingEnabledOnlyViaLocalConnection := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13676	scriptingEnabledOnlyViaLocalConnection onChangeSend:#updateModifiedChannel to:self
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13677	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13678	^ scriptingEnabledOnlyViaLocalConnection.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13679	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13680
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	scriptingErrorDebugging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13683	scriptingErrorDebugging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13684	scriptingErrorDebugging onChangeSend:#updateModifiedChannel to:self
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13685	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13686	^ scriptingErrorDebugging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13687	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13688
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13689	scriptingErrorLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13690	scriptingErrorLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13691	scriptingErrorLogging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13692	scriptingErrorLogging onChangeSend:#updateModifiedChannel to:self
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13693	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13694	^ scriptingErrorLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13695	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13696
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13697	scriptingLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13698	scriptingLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13699	scriptingLogging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13700	scriptingLogging onChangeSend:#updateModifiedChannel to:self
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13701	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13702	^ scriptingLogging.
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13703	!
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13704
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13705	scriptingServerPortOrPath
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13706	<resource: #uiAspect>
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13707
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13708	scriptingServerPortOrPath isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13709	STXScriptingServer notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13710	scriptingServerPortOrPath := STXScriptingServer defaultPortNumber asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13711	].
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13712	].
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13713	^ scriptingServerPortOrPath.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13714	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13715
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13716	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13717
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13718	rDoitsEnabledChanged
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13719	self updateModifiedChannel.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13720	self rDoitsEnabled value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13721	RDoItServer autoload.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13722	rDoitServerPortOrPath value isEmptyOrNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13723	rDoitServerPortOrPath value:(RDoItServer defaultPortNumberOrPath asString)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13724	]
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13725	]
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13726	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13727
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13728	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13729
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13730	helpFilename
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13731	^ 'Launcher/communicationsSettings.html'
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13732	!
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13733
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13734	helpTextForKey:aKey
16161 6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13735	\|usedKey\|
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13736
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13737	usedKey := aKey.
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13738	usedKey == #rdoitSettings ifTrue:[
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13739	self hasRDoitServerClass ifFalse:[
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13740	usedKey := #rdoitDisabled
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13741	].
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13742	].
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13743	usedKey == #scriptingSettings ifTrue:[
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13744	self hasScriptingServerClass ifFalse:[
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13745	usedKey := #scriptingDisabled
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13746	].
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13747	].
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13748	^ super helpTextForKey:usedKey.
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13749	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13750
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13751	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13752
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13753	hasRDoitServer
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13754	^ RDoItServer notNil and:[RDoItServer isLoaded]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13755	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13756
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13757	hasRDoitServerClass
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	13758	^ RDoItServer notNil
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	13759	!
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	13760
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13761	hasScriptingServer
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13762	^ STXScriptingServer notNil and:[STXScriptingServer isLoaded]
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13763	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13764
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13765	hasScriptingServerClass
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13766	^ STXScriptingServer notNil
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13767	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13768
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13769	hasUnsavedChanges
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13770	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13771	self rDoitsEnabled value ~= RDoItServer serverRunning ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13772	RDoItServer serverRunning ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13773	self rDoitLogging value ~= RDoItServer isLogging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13774	self rDoitErrorLogging value ~= RDoItServer isErrorLogging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13775	self rDoitErrorDebugging value ~= RDoItServer isErrorCatching not ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13776	self getPortNumberOrPath ~= RDoItServer defaultPortNumberOrPath ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13777	self rDoitEnabledOnlyViaLocalConnection value ~= RDoItServer localConnectionsOnly ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13778	]
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13779	].
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13780	(self hasScriptingServer and:[STXScriptingServer isLoaded]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13781	self scriptingEnabled value ~= STXScriptingServer serverRunning ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13782	STXScriptingServer serverRunning ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13783	self scriptingLogging value ~= STXScriptingServer isLogging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13784	self scriptingErrorLogging value ~= STXScriptingServer isErrorLogging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13785	self scriptingErrorDebugging value ~= STXScriptingServer isErrorDebugging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13786	self scriptingEnabledOnlyViaLocalConnection value ~= STXScriptingServer localConnectionsOnly ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13787	]
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13788	].
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13789	^ false
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13790
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13791	"Modified: / 20-05-2010 / 14:48:52 / cg"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13792	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13793
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13794	!AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'help specs'!
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13795
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13796	helpSpec
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13797	"This resource specification was automatically generated
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13798	by the UIHelpTool of ST/X."
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13799
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13800	"Do not manually edit this!! If it is corrupted,
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13801	the UIHelpTool may not be able to read the specification."
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13802
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13803	"
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13804	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13805	"
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13806
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13807	<resource: #help>
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13808
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13809	^ super helpSpec addPairsFrom:#(
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13810
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13811	#sqlServer
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13812	'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	13813
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13814	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13815	! !
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13816
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13817	!AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'image specs'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13818
8594 f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13819	dbIcon1
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13820	"This resource specification was automatically generated
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13821	by the ImageEditor of ST/X."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13822
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13823	"Do not manually edit this!! If it is corrupted,
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13824	the ImageEditor may not be able to read the specification."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13825
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13826	"
8594 f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13827	self dbIcon1 inspect
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13828	ImageEditor openOnClass:self andSelector:#dbIcon1
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13829	Icon flushCachedIcons
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13830	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13831
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13832	<resource: #image>
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13833
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13834	^Icon
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13835	constantNamed:#'AbstractSettingsApplication::SQLServerSettingsAppl class dbIcon1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13836	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	13837	H"H"H @@@@@@@@@@@@@@@@@@@@@"H"H"@@@@@@@@@@@@@@@@@@@@@@@@@@@"H"H"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH"@@@@@@@@@@@@J"(J"(@@@@
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13838	@@@@@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	13839	@@@@@@@@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	13840	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	13841	@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	13842	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	13843	@@@@@@@@@@@@@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	13844	!
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13845
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13846	dbIcon2
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13847	"This resource specification was automatically generated
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13848	by the ImageEditor of ST/X."
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13849
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13850	"Do not manually edit this!! If it is corrupted,
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13851	the ImageEditor may not be able to read the specification."
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13852
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13853	"
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13854	self dbIcon2 inspect
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13855	ImageEditor openOnClass:self andSelector:#dbIcon2
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13856	Icon flushCachedIcons
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13857	"
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13858
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13859	<resource: #image>
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13860
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13861	^Icon
17690 9a1a80e2cc0c #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17653 diff changeset	13862	constantNamed:'AbstractSettingsApplication::SQLServerSettingsAppl class dbIcon2'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13863	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	13864	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13865	@@@@@@@@@@@@@@@@@@@@!!!!"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	13866	"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	13867	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	13868	@@@@@@@@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	13869	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	13870	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; 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	13871
9a1a80e2cc0c #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17653 diff changeset	13872	"Modified: / 13-09-2017 / 18:34:43 / cg"
8594 f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13873	!
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13874
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13875	defaultIcon
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13876	<resource: #programImage>
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13877
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13878	"/ ^ self dbIcon1.
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	13879	^ self dbIcon2.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13880	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13881
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13882	!AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'interface specs'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13883
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13884	windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13885	"This resource specification was automatically generated
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13886	by the UIPainter of ST/X."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13887
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13888	"Do not manually edit this!! If it is corrupted,
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13889	the UIPainter may not be able to read the specification."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13890
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13891	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13892	UIPainter new openOnClass:AbstractSettingsApplication::SQLServerSettingsAppl andSelector:#windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13893	AbstractSettingsApplication::SQLServerSettingsAppl new openInterface:#windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13894	AbstractSettingsApplication::SQLServerSettingsAppl open
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13895	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13896
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13897	<resource: #canvas>
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	13898
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13899	^
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13900	#(FullSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13901	name: windowSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13902	window:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13903	(WindowSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13904	label: 'SQL Server Settings'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13905	name: 'SQL Server Settings'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13906	min: (Point 10 10)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13907	bounds: (Rectangle 0 0 600 550)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13908	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13909	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13910	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13911	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13912	(VerticalPanelViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13913	activeHelpKey: #sqlServer
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13914	name: 'VerticalPanel2'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13915	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	13916	horizontalLayout: fit
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13917	verticalLayout: top
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13918	horizontalSpace: 3
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13919	verticalSpace: 3
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13920	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13921	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13922	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13923	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13924	name: 'EnableBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13925	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13926	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13927	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13928	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13929	label: 'SQL Server Enabled'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13930	name: 'EnableCheckBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13931	layout: (LayoutFrame 5 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13932	enableChannel: hasSQLServerClass
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13933	model: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13934	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13935	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13936	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13937
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13938	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13939	extent: (Point 600 25)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13940	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13941	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13942	name: 'PortBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13943	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13944	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13945	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13946	(LabelSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13947	label: 'MySQL Port:'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13948	name: 'Label2'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13949	layout: (LayoutFrame 5 0 0 0 150 0 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13950	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13951	adjust: right
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13952	enableDisableColorChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13953	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13954	(InputFieldSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13955	name: 'EntryField1'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13956	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13957	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13958	model: sqlServerPort
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13959	acceptOnReturn: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13960	acceptOnTab: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13961	acceptOnLostFocus: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13962	acceptOnPointerLeave: true
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	(LabelSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13965	label: 'MySQL Port-Number (ODBC)'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13966	name: 'Label3'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13967	layout: (LayoutFrame 150 0 28 0 596 0 50 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13968	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13969	adjust: left
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13970	enableDisableColorChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13971	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13972	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13973
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13974	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13975	extent: (Point 600 72)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13976	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13977	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13978	name: 'LogErrorsBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13979	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13980	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13981	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13982	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13983	label: 'Log Errors'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13984	name: 'ErrorLoggingCheckBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13985	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13986	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13987	model: sqlErrorLogging
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13988	translateLabel: 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	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13991
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13992	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13993	extent: (Point 600 25)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13994	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13995	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13996	name: 'LogDataBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13997	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13998	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	13999	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14000	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14001	label: 'Log Data'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14002	name: 'LogDataCheckBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14003	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14004	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14005	model: sqlDataLogging
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14006	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14007	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14008	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14009
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14010	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14011	extent: (Point 600 23)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14012	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14013	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14014	name: 'LogRequestsBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14015	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14016	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14017	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14018	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14019	label: 'Log Requests'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14020	name: 'LogRequestsCheckBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14021	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14022	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14023	model: sqlLogging
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14024	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14025	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14026	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14027
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14028	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14029	extent: (Point 600 24)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14030	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14031	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14032	name: 'LogSQLBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14033	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14034	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14035	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14036	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14037	label: 'Log SQL'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14038	name: 'CheckBox1'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14039	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14040	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14041	model: sqlStatementLogging
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14042	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14043	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14044	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14045
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14046	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14047	extent: (Point 600 24)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14048	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14049	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14050	name: 'DebugErrorsBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14051	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14052	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14053	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14054	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14055	label: 'Debug Errors'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14056	name: 'DebugErrorsCheckBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14057	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14058	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14059	model: sqlErrorDebugging
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14060	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14061	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14062	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14063
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14064	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14065	extent: (Point 600 23)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14066	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14067	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14068	name: 'Box1'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14069	extent: (Point 600 10)
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	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14072	name: 'EnableSmalltalkBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14073	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14074	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14075	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14076	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14077	label: 'Virtual Smalltalk Tables Enabled'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14078	name: 'EnableSmalltalkCheckBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14079	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14080	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14081	model: sqlSmalltalkServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14082	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14083	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14084	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14085
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14086	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14087	extent: (Point 600 24)
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	)
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	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14094
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14095	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14096	)
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14097	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14098
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14099	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'actions'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14100
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14101	basicReadSettings
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14102	\|sqlServerClass\|
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14103
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14104	sqlServerClass := self sqlServerClass.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14105	(sqlServerClass notNil and:[sqlServerClass isLoaded]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14106	self sqlServerEnabled value:sqlServerClass serverRunning.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14107	self sqlSmalltalkServerEnabled value:sqlServerClass isSmalltalkServerEnabled.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14108	self sqlLogging value:sqlServerClass isLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14109	self sqlStatementLogging value:sqlServerClass isSQLLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14110	self sqlErrorLogging value:sqlServerClass isErrorLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14111	self sqlDataLogging value:sqlServerClass isDataLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14112	self sqlErrorDebugging value:sqlServerClass isErrorCatching not.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14113	self sqlServerPort value:sqlServerClass defaultPort
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14114	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14115	self sqlServerEnabled value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14116	self sqlSmalltalkServerEnabled value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14117	self sqlLogging value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14118	self sqlStatementLogging value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14119	self sqlErrorLogging value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14120	self sqlDataLogging value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14121	self sqlErrorDebugging value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14122	self sqlServerPort value:nil
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14123	].
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14124
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14125	"Modified: / 25-01-2007 / 17:40:53 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14126	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14127
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14128	basicSaveSettings
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14129	\|sqlServerClass shouldRun port\|
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14130
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14131	sqlServerClass := self sqlServerClass.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14132
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14133	port := self sqlServerPort value.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14134	port isNumber ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14135	port := port asInteger.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14136	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14137
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14138	sqlServerClass defaultPort:port.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14139	sqlServerClass logging:self sqlLogging value.
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	14140	sqlServerClass sqlLogging:self sqlStatementLogging value.
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14141	sqlServerClass errorLogging:self sqlErrorLogging value.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14142	sqlServerClass dataLogging:self sqlDataLogging value.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14143	sqlServerClass errorCatching:(self sqlErrorDebugging value not).
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14144	sqlServerClass smalltalkServerEnabled:(self sqlSmalltalkServerEnabled value).
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14145
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14146	shouldRun := self sqlServerEnabled value.
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14147	shouldRun ~~ sqlServerClass serverRunning ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14148	shouldRun ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14149	sqlServerClass stop
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14150	] ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14151	sqlServerClass start.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14152	"/ must wait a bit; give it a chance to
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14153	"/ really start (before checking)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14154	Delay waitForSeconds:1.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14155	sqlServerClass serverRunning ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14156	self warn:'SQLServer startup failed (see stderr).'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14157	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14158	]
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14159	].
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14160
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14161	"Modified: / 25-01-2007 / 17:41:20 / cg"
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
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14164	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'aspects'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14165
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	14166	sqlDataLogging
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	14167	sqlDataLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14168	sqlDataLogging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14169	sqlDataLogging onChangeSend:#updateModifiedChannel to:self
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	14170	].
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	14171	^ sqlDataLogging.
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	14172	!
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	14173
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14174	sqlErrorDebugging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14175	sqlErrorDebugging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14176	sqlErrorDebugging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14177	sqlErrorDebugging onChangeSend:#updateModifiedChannel to:self
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14178	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14179	^ sqlErrorDebugging.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14180	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14181
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14182	sqlErrorLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14183	sqlErrorLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14184	sqlErrorLogging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14185	sqlErrorLogging onChangeSend:#updateModifiedChannel to:self
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14186	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14187	^ sqlErrorLogging.
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	sqlLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14191	sqlLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14192	sqlLogging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14193	sqlLogging onChangeSend:#updateModifiedChannel to:self
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14194	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14195	^ sqlLogging.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14196	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14197
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14198	sqlServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14199	sqlServerEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14200	sqlServerEnabled := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14201	sqlServerEnabled onChangeSend:#sqlServerEnabledChanged to:self
6427 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	^ sqlServerEnabled.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14204	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14205
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14206	sqlServerPort
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14207	sqlServerPort isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14208	sqlServerPort := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14209	sqlServerPort onChangeSend:#updateModifiedChannel to:self
6427 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	^ sqlServerPort.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14212	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14213
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14214	sqlSmalltalkServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14215	sqlSmalltalkServerEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14216	sqlSmalltalkServerEnabled := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14217	sqlSmalltalkServerEnabled onChangeSend:#sqlSmalltalkServerEnabledChanged to:self
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14218	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14219	^ sqlSmalltalkServerEnabled.
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	14220	!
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	14221
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	14222	sqlStatementLogging
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	14223	sqlStatementLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14224	sqlStatementLogging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14225	sqlStatementLogging onChangeSend:#updateModifiedChannel to:self
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	14226	].
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	14227	^ sqlStatementLogging.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14228	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14229
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14230	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'change & update'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14231
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14232	sqlServerEnabledChanged
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14233	self updateModifiedChannel.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14234	self sqlServerEnabled value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14235	sqlServerPort value isEmptyOrNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14236	sqlServerPort value:(self sqlServerClass defaultPort)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14237	]
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14238	]
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14239
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14240	"Modified: / 25-01-2007 / 17:46:07 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14241	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14242
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14243	sqlSmalltalkServerEnabledChanged
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14244	self updateModifiedChannel.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14245	self sqlSmalltalkServerEnabled value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14246	sqlServerPort value isEmptyOrNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14247	sqlServerPort value:(self sqlServerClass defaultPort)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14248	]
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14249	]
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14250
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14251	"Modified: / 25-01-2007 / 17:40:03 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14252	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14253
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14254	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14255
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14256	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14257	^ 'Launcher/communicationsSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14258	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14259
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14260	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'queries'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14261
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14262	hasSQLServerClass
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14263	^ self sqlServerClass notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14264
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14265	"Created: / 25-01-2007 / 17:45:54 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14266	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14267
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14268	hasUnsavedChanges
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14269	\|sqlServerClass\|
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14270
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14271	sqlServerClass := self sqlServerClass.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14272	(sqlServerClass notNil and:[sqlServerClass isLoaded]) ifFalse:[^ false ].
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14273
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14274	self sqlServerEnabled value ~= sqlServerClass serverRunning ifTrue:[^ true].
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14275	sqlServerClass serverRunning ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14276	self sqlSmalltalkServerEnabled value ~= sqlServerClass isSmalltalkServerEnabled ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14277	self sqlLogging value ~= sqlServerClass isLogging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14278	self sqlStatementLogging value ~= sqlServerClass isSQLLogging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14279	self sqlErrorLogging value ~= sqlServerClass isErrorLogging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14280	self sqlDataLogging value ~= sqlServerClass isDataLogging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14281	self sqlErrorDebugging value ~= sqlServerClass isErrorCatching not ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14282	self sqlServerPort value ~= sqlServerClass defaultPort ifTrue:[^ true].
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14283	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14284	^ false
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14285
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14286	"Modified: / 25-01-2007 / 17:47:32 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14287	!
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	sqlServerClass
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14290	^ SQLServer::SQLServer
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14291
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14292	"Created: / 25-01-2007 / 17:29:59 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14293	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14294
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14295	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14296
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14297	stcCompilationOptions
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	14298	^ #(default never)
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	14299	!
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	14300
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	14301	stcCompilationStrings
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	14302
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	14303	^ #('primitive code only' 'never')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14304	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14305
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14306	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'help specs'!
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14307
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14308	helpSpec
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14309	"This resource specification was automatically generated
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14310	by the UIHelpTool of ST/X."
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14311
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14312	"Do not manually edit this!! If it is corrupted,
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14313	the UIHelpTool may not be able to read the specification."
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14314
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14315	"
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14316	UIHelpTool openOnClass:AbstractSettingsApplication::STCCompilerSettingsAppl
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14317	"
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14318
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14319	<resource: #help>
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14320
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14321	^ super helpSpec addPairsFrom:#(
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14322
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14323	#stcCommand
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14324	'Path to the stc compiler (compiles Smalltalk to C-code)'
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14325	#stcCommandOptions
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14326	'Options to the stc compiler (see stc man-page)'
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14327	#stcKeepCIntermediate
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14328	'Keep the intermediate C-file (for st/x developers)'
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14329	#stcIncluedDirectories
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14330	'Include directories (for stc and cc)'
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14331	#ccCommand
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14332	'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	14333	#ccCommandOptions
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14334	'Options to the c compiler'
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	)
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14337
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14338	"Modified: / 22-04-2019 / 10:23:35 / Claus Gittinger"
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
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14341	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14342
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14343	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	14344	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	14345
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14346	^ self defaultIcon4
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	14347
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	14348	"Modified: / 17-09-2007 / 11:35:12 / cg"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14349	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14350
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14351	defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14352	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14353	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14354
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14355	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14356	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14357
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14358	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14359	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14360	ImageEditor openOnClass:self andSelector:#defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14361	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14362	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14363
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14364	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14365
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14366	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	14367	constantNamed:'AbstractSettingsApplication::STCCompilerSettingsAppl defaultIcon1'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	14368	ifAbsentPut:[(Depth2Image width:22 height:22) bits:(ByteArray fromPackedString:'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	14369	@@@@@@@@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	14370	CUU")UWICUUR%UWJCUUR!!UWACUUTEUW@CUUUUUW@C??????@@@@@@@@B')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	14371	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	14372	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	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	defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14376	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14377	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14378
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14379	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14380	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14381
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14382	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14383	self defaultIcon2 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14384	ImageEditor openOnClass:self andSelector:#defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14385	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14386	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14387
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14388	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14389
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14390	^Icon
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14391	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14392	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	14393	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	14394	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	14395	@@@@@@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	14396	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	14397	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	14398	@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	14399	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	14400	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14401
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14402	defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14403	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14404	by the ImageEditor of ST/X."
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	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14407	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14408
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14409	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14410	self defaultIcon3 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14411	ImageEditor openOnClass:self andSelector:#defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14412	Icon flushCachedIcons
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
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14415	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14416
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14417	^Icon
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14418	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14419	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	14420	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	14421	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	14422	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	14423	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	14424	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	14425	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	14426	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	14427	!
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14428
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14429	defaultIcon4
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14430	"This resource specification was automatically generated
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14431	by the ImageEditor of ST/X."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14432
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14433	"Do not manually edit this!! If it is corrupted,
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14434	the ImageEditor may not be able to read the specification."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14435
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14436	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14437	self defaultIcon4 inspect
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14438	ImageEditor openOnClass:self andSelector:#defaultIcon4
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14439	Icon flushCachedIcons
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14440	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14441
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14442	<resource: #image>
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14443
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14444	^Icon
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14445	constantNamed:'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14446	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	14447	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	14448	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	14449	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	14450	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	14451	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	14452	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	14453	@@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	14454	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14455
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14456	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14457
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14458	windowSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14459	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14460	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14461
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14462	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14463	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14464
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14465	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14466	UIPainter new openOnClass:AbstractSettingsApplication::STCCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14467	AbstractSettingsApplication::STCCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14468	AbstractSettingsApplication::STCCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14469	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14470
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14471	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14472
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14473	^
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	14474	#(FullSpec
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	14475	name: windowSpec
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14476	window:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	14477	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14478	label: 'STC Compiler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14479	name: 'STC Compiler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14480	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14481	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14482	bounds: (Rectangle 0 0 600 602)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14483	)
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14484	component:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	14485	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14486	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14487	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14488	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14489	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	14490	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14491	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14492	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14493	verticalSpace: 0
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14494	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14495	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14496	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14497	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14498	name: 'SeparatingBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14499	extent: (Point 600 4)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14500	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14501	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14502	name: 'InfoTextBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14503	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14504	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14505	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14506	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14507	name: 'Label14'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14508	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14509	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14510	labelChannel: helpText
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14511	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14512	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14513	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14514
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14515	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14516	extent: (Point 600 90)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14517	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14518	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14519	name: 'STCCompilationBox11'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14520	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14521	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14522	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14523	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14524	label: 'STC Compilation to Machine Code:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14525	name: 'Label11'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14526	layout: (LayoutFrame 0 0 0 0 240 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14527	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14528	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14529	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14530	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14531	label: 'PopUp List'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14532	name: 'StcCompilation'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14533	layout: (LayoutFrame 241 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14534	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14535	model: stcCompilationSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14536	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14537	menu: stcCompilationList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14538	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14539	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14540	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14541
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14542	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14543	extent: (Point 600 29)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14544	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14545	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14546	name: 'STCCommandBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14547	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14548	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14549	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14550	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14551	label: 'STC Command:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14552	name: 'Label1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14553	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14554	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14555	adjust: right
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14556	activeHelpKey: stcCommand
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14557	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14558	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14559	name: 'EntryField1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14560	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14561	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14562	model: stc
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14563	activeHelpKey: stcCommand
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14564	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14565	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14566	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14567	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14568	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14569	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14570	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14571
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14572	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14573	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14574	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14575	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14576	name: 'STCOptionsBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14577	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14578	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14579	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14580	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14581	label: 'STC Options:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14582	name: 'Label2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14583	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14584	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14585	adjust: right
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14586	activeHelpKey: stcCommandOptions
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14587	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14588	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14589	name: 'EntryField2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14590	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14591	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14592	model: stcOptions
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14593	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14594	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14595	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14596	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14597	acceptOnPointerLeave: true
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14598	activeHelpKey: stcCommandOptions
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14599	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14600	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14601
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14602	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14603	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14604	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14605	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14606	name: 'KeepCIntermediateBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14607	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14608	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14609	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14610	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14611	label: 'Keep Intermediate C File:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14612	name: 'Label15'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14613	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14614	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14615	adjust: right
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14616	activeHelpKey: stcKeepCIntermediate
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14617	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14618	(CheckToggleSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14619	name: 'CheckToggle1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14620	layout: (LayoutOrigin 203 0 4 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14621	model: stcKeepCIntermediate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14622	isTriggerOnDown: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14623	showLamp: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14624	lampColor: (Color 100.0 100.0 0.0)
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14625	activeHelpKey: stcKeepCIntermediate
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14626	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14627	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14628
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14629	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14630	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14631	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14632	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14633	name: 'CCCommandBox3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14634	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14635	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14636	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14637	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14638	label: 'CC Command:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14639	name: 'Label3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14640	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14641	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14642	adjust: right
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14643	activeHelpKey: ccCommand
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14644	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14645	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14646	name: 'EntryField3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14647	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14648	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14649	model: cc
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14650	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14651	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14652	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14653	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14654	acceptOnPointerLeave: true
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14655	activeHelpKey: ccCommand
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14656	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14657	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14658
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14659	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14660	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14661	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14662	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14663	name: 'CCOptionsBox4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14664	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14665	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14666	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14667	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14668	label: 'CC Options:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14669	name: 'Label4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14670	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14671	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14672	adjust: right
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14673	activeHelpKey: ccCommandOptions
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14674	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14675	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14676	name: 'EntryField4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14677	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14678	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14679	model: ccOptions
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14680	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14681	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14682	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14683	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14684	acceptOnPointerLeave: true
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14685	activeHelpKey: ccCommandOptions
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14686	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14687	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14688
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14689	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14690	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14691	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14692	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14693	name: 'IncludeDirectoriesBox5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14694	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14695	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14696	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14697	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14698	label: 'Include Directories:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14699	name: 'Label5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14700	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14701	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14702	adjust: right
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14703	activeHelpKey: stcIncluedDirectories
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14704	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14705	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14706	name: 'EntryField5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14707	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14708	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14709	model: stcIncludes
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14710	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14711	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14712	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14713	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14714	acceptOnPointerLeave: true
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14715	activeHelpKey: stcIncluedDirectories
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14716	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14717	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14718
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14719	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14720	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14721	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14722	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14723	name: 'STCDefinesBox6'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14724	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14725	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14726	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14727	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14728	label: 'Defines:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14729	name: 'Label6'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14730	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14731	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14732	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14733	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14734	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14735	name: 'EntryField6'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14736	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14737	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14738	model: stcDefines
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14739	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14740	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14741	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14742	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14743	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14744	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14745	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14746
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14747	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14748	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14749	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14750	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14751	name: 'LinkCommandBox7'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14752	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14753	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14754	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14755	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14756	label: 'Link Command:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14757	name: 'Label7'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14758	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14759	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14760	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14761	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14762	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14763	name: 'EntryField7'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14764	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14765	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14766	model: linkCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14767	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14768	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14769	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14770	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14771	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14772	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14773	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14774
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14775	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14776	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14777	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14778	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14779	name: 'LinkArgumentsBox8'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14780	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14781	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14782	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14783	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14784	label: 'Link Arguments:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14785	name: 'Label8'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14786	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14787	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14788	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14789	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14790	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14791	name: 'EntryField8'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14792	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14793	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14794	model: linkArgs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14795	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14796	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14797	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14798	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14799	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14800	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14801	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14802
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14803	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14804	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14805	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14806	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14807	name: 'LinkSharedArgumentsBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14808	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14809	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14810	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14811	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14812	label: 'Link Shared Arguments:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14813	name: 'Label12'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14814	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14815	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14816	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14817	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14818	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14819	name: 'EntryField11'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14820	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14821	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14822	model: linkSharedArgs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14823	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14824	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14825	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14826	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14827	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14828	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14829	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14830
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14831	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14832	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14833	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14834	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14835	name: 'CLibrariesBox9'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14836	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14837	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14838	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14839	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14840	label: 'C-Libraries:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14841	name: 'Label9'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14842	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14843	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14844	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14845	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14846	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14847	name: 'EntryField9'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14848	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14849	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14850	model: stcLibraries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14851	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14852	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14853	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14854	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14855	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14856	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14857	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14858
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14859	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14860	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14861	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14862	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14863	name: 'STCLibraryPathBox10'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14864	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14865	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14866	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14867	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14868	label: 'STC Library Path:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14869	name: 'Label10'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14870	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14871	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14872	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14873	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14874	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14875	name: 'EntryField10'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14876	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14877	enableChannel: enableStcLibraryPath
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14878	model: stcLibraryPath
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14879	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14880	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14881	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14882	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14883	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14884	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14885	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14886
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14887	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14888	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14889	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14890	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14891	name: 'MakeCommandBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14892	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14893	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14894	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14895	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14896	label: 'Make Command:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14897	name: 'Label13'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14898	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14899	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14900	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14901	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14902	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14903	name: 'EntryField12'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14904	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14905	model: makeCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14906	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14907	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14908	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14909	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14910	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14911	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14912	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14913
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14914	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14915	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14916	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14917	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14918	name: 'SeparatingBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14919	extent: (Point 600 12)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14920	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14921	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14922	name: 'SetupForBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14923	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14924	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14925	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14926	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14927	label: 'Set above Options for:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14928	name: 'Label16'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14929	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14930	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14931	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14932	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14933	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14934	name: 'PopUpList1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14935	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14936	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14937	model: supportedCCompilerSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14938	menu: supportedCCompilerList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14939	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14940	stateChangeCallBackSelector: supportedCCompilerSelectionChanged
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14941	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14942	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14943
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14944	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14945	extent: (Point 600 29)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14946	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14947	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14948	name: 'Box1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14949	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14950	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14951	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14952	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14953	label: 'Verbose (Trace Commands):'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14954	name: 'Label17'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14955	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14956	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14957	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14958	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14959	(CheckToggleSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14960	name: 'CheckToggle2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14961	layout: (LayoutOrigin 203 0 4 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14962	model: verbose
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14963	isTriggerOnDown: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14964	showLamp: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14965	lampColor: (Color 100.0 100.0 0.0)
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	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14970	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14971	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14972	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14973
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14974	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14975	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14976	)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14977
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	14978	)
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	14979	)
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14980
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14981	"Modified: / 22-04-2019 / 10:23:13 / Claus Gittinger"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14982	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14983
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14984	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14985
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14986	basicReadSettings
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	14987	\|t\|
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	14988
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14989	self canLoadBinaries
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14990	value:(ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]).
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	14991
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	14992	self verbose value:(STCCompilerInterface verbose ? false).
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	14993
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	14994	self stcIncludes value:ParserFlags stcCompilationIncludes.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	14995	self stcDefines value:ParserFlags stcCompilationDefines.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	14996	self stcOptions value:ParserFlags stcCompilationOptions.
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	14997	self stcKeepCIntermediate value:ParserFlags stcKeepCIntermediate.
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	14998	self ccOptions value:ParserFlags ccCompilationOptions.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	14999	self cc value:ParserFlags ccPath.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15000	self stc value:ParserFlags stcPath.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	15001	self makeCommand value:ParserFlags makeCommand.
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15002
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15003	self linkCommand value:ParserFlags linkCommand.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15004	self linkArgs value:ParserFlags linkArgs.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15005	self linkSharedArgs value:ParserFlags linkSharedArgs.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15006
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15007	(t := ParserFlags searchedLibraries) notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15008	self stcLibraries value:(String fromStringCollection:t separatedBy:' ')
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15009	].
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15010	(t := ParserFlags libPath) notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15011	self stcLibraryPath value:t
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15012	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15013
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15014	self stcCompilationSelection value:(self class stcCompilationOptions
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15015	indexOf:(ParserFlags stcCompilation)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15016	ifAbsent:1).
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	15017
ec908ed4b944 make command fm parents: 6860 diff changeset	15018	"Modified: / 09-08-2006 / 18:49:38 / fm"
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15019	"Modified: / 16-09-2011 / 18:45:15 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15020	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15021
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15022	basicSaveSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15023
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15024	STCCompilerInterface verbose:self verbose value.
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15025
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15026	ParserFlags stcCompilation:(self class stcCompilationOptions at:self stcCompilationSelection value).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15027	ParserFlags stcCompilationIncludes:self stcIncludes value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15028	ParserFlags stcCompilationDefines:self stcDefines value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15029	ParserFlags stcCompilationOptions:self stcOptions value.
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15030	ParserFlags stcKeepCIntermediate:self stcKeepCIntermediate value.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15031	ParserFlags ccCompilationOptions:self ccOptions value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15032	ParserFlags ccPath:self cc value.
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	15033	ParserFlags makeCommand:self makeCommand value.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	15034
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15035	self stc value ~= ParserFlags stcPath ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15036	ParserFlags stcPath:self stc value
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15037	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15038	ParserFlags linkCommand:self linkCommand value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15039	ParserFlags linkArgs:self linkArgs value.
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15040	ParserFlags linkSharedArgs:self linkSharedArgs value.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15041	self stcLibraries value notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15042	ParserFlags searchedLibraries:(self stcLibraries value asCollectionOfWords).
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15043	].
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15044	stcLibraryPath notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15045	ParserFlags libPath:(self stcLibraryPath value).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15046	].
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	15047
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	15048	"Modified: / 09-08-2006 / 19:33:10 / fm"
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15049	"Modified: / 16-09-2011 / 18:45:28 / cg"
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15050	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15051
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15052	setupForBCC
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15053	"set values for using borland C (windows)"
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15054
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15055	\|bccDir\|
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15056
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15057	bccDir := 'c:\borland\bcc55'.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15058
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15059	bccDir asFilename exists ifFalse:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15060	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	15061	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15062
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15063	self cc value:(bccDir,'\bin\bcc32').
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15064	self ccOptions value:'-w-'.
17531 e5f01f829695 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17530 diff changeset	15065	self stcIncludes value:('-I..\..\include -I',bccDir,'\Include').
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15066	self linkCommand value:(bccDir,'\bin\ilink32').
17531 e5f01f829695 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17530 diff changeset	15067	self linkArgs value:('-L..\..\lib\bc -L',bccDir,'\Lib -L',bccDir,'\Lib\PSDK -r -c -ap -Tpd -Gi -w-dup').
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15068	self stcLibraries value:'import32.lib odbc32.lib glu32.lib opengl32.lib'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15069	self makeCommand value:'bmake'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15070
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15071	self updateModifiedChannel.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15072	self supportedCCompilerSelection value:0
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15073
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15074	"Modified: / 14-06-2017 / 11:04:00 / cg"
12411 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
16820 8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15077	setupForCLANG
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15078	"set values for using CLANG"
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15079
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15080	\|cpuType ccOptions linkArgs linkSharedArgs\|
16820 8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15081
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15082	self cc value:'clang'.
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15083	cpuType := OperatingSystem getCPUType.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15084
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15085	ccOptions := '-O3 -arch ',cpuType.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15086	linkArgs := '-arch ',cpuType.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15087	linkSharedArgs := '-shared -arch ',cpuType.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15088
16820 8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15089	OperatingSystem isOSXlike ifTrue:[
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15090	ccOptions := ccOptions , ' -mmacosx-version-min=10.3'.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15091	linkSharedArgs := linkSharedArgs , ' -mmacosx-version-min=10.3 librun.so'
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15092	].
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15093
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15094	self ccOptions value:ccOptions.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15095	self linkArgs value:linkArgs.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15096	self linkSharedArgs value:linkSharedArgs.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15097	self stcIncludes value:'-I../../include -I/usr/include/freetype2'.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15098	self linkCommand value:'clang'.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15099	self stcLibraries value:''.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15100	self makeCommand value:'make'.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15101
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15102	self updateModifiedChannel.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15103	self supportedCCompilerSelection value:0
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15104
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15105	"Modified (comment): / 14-06-2017 / 10:48:34 / cg"
16820 8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15106	!
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15107
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15108	setupForGCC
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15109	"set values for using gcc (linux/unix)"
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15110
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15111	self cc value:'gcc'.
18108 cf744b854f74 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18075 diff changeset	15112	ExternalBytes sizeofPointer == 4 ifTrue:[
15744 6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	15113	self ccOptions value:'-m32'.
6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	15114	self linkArgs value:'-m32'.
6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	15115	self linkSharedArgs value:'-shared -m32'.
6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	15116	] ifFalse:[
17693 ea835103d495 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 17690 diff changeset	15117	self ccOptions value:'-m64 -fPIC'.
15744 6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	15118	self linkArgs value:'-m64'.
6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	15119	self linkSharedArgs value:'-shared -m64'.
6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	15120	].
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15121	self stcIncludes value:'-I../../include -I/usr/include/freetype2'.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15122	self linkCommand value:'gcc'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15123	self stcLibraries value:''.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15124	self makeCommand value:'make'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15125
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15126	self updateModifiedChannel.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15127	self 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: / 14-06-2017 / 11:09:07 / cg"
17693 ea835103d495 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 17690 diff changeset	15130	"Modified: / 20-09-2017 / 19:48:10 / stefan"
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15131	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15132
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15133	setupForMINGW
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15134	"set values for using mingw (windows)"
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15135
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15136	\|programFiles programFilesX86 mingwFolder\|
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15137
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15138	programFiles := OperatingSystem getEnvironment:'ProgramFiles'.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15139	programFiles isEmptyOrNil ifTrue:[ programFiles := 'C:\Program Files' ].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15140	programFilesX86 := OperatingSystem getEnvironment:'ProgramFiles(x86)'.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15141	programFilesX86 isEmptyOrNil ifTrue:[ programFilesX86 := 'C:\Program Files (x86)' ].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15142
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15143	"/ where to search
18108 cf744b854f74 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18075 diff changeset	15144	ExternalBytes sizeofPointer == 4 ifTrue:[
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15145	mingwFolder := 'C:\mingw32'.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15146	] ifFalse:[
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15147	mingwFolder := 'C:\mingw64'.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15148	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15149
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15150	{ programFilesX86 . programFiles . 'C:\' . 'C:\mingw' } do:[:triedFolder \|
18108 cf744b854f74 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18075 diff changeset	15151	ExternalBytes sizeofPointer == 4 ifTrue:[
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15152	(triedFolder asFilename / 'mingw32') exists ifTrue:[
17531 e5f01f829695 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17530 diff changeset	15153	mingwFolder := triedFolder asFilename constructString: 'mingw32'
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15154	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15155	] ifFalse:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15156	(triedFolder asFilename / 'mingw64') exists ifTrue:[
17531 e5f01f829695 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17530 diff changeset	15157	mingwFolder := triedFolder asFilename constructString: 'mingw64'
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15158	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15159	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15160	].
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	self cc value:(mingwFolder,'\bin\gcc').
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15163	self linkArgs value:('-L..\..\lib\mingw -L',mingwFolder,'\lib').
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15164	self ccOptions value:''.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15165	self stcIncludes value:'-I..\..\include'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15166	self linkCommand value:(self cc value).
16812 d9494aeded9d #BUGFIX by sr sr parents: 16788 diff changeset	15167	self stcLibraries value:'-lkernel32 -luser32 -lgdi32 -lodbc32 -lglu32 -lopengl32 -luuid -liphlpapi -lws2_32 -lwsock32 -lversion -lwinmm'.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15168	self makeCommand value:'mingwmake'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15169
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15170	self updateModifiedChannel.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15171	self supportedCCompilerSelection value:0
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15172
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15173	"Modified: / 14-06-2017 / 11:08:33 / cg"
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15174	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15175
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15176	setupForMSVC
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15177	"set values for using msvc (windows)"
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15178
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15179	\|programFiles programFilesX86 nothingFound found\|
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15180
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15181	programFiles := OperatingSystem getEnvironment:'ProgramFiles'.
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15182	programFiles isEmptyOrNil ifTrue:[ programFiles := 'C:\Program Files' ].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15183	programFilesX86 := OperatingSystem getEnvironment:'ProgramFiles(x86)'.
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15184	programFilesX86 isEmptyOrNil ifTrue:[ programFilesX86 := 'C:\Program Files (x86)' ].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15185
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15186	self cc value:('cl.exe').
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15187	self linkCommand value:('ilink32.exe').
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15188	self ccOptions value:'/O1'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15189	self stcIncludes value:'-I..\..\include'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15190	self linkArgs value:'-L..\..\lib\vc'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15191	self stcLibraries value:'import32.lib odbc32.lib glu32.lib opengl32.lib'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15192	self makeCommand value:'vcmake'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15193
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15194	"/ no try to find cl and ilink32
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15195	nothingFound := false.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15196
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15197	programFilesX86 asFilename exists ifFalse:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15198	programFiles asFilename exists ifFalse:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15199	nothingFound := true.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15200	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15201	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15202	nothingFound ifFalse:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15203	#('13.0' '12.0' '11.0' '10.0') do:[:triedVersion \|
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15204	{ programFilesX86 . programFiles } do:[:triedFolder \|
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15205	\|each\|
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15206
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15207	found ifFalse:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15208	each := triedFolder,'\Microsoft Visual Studio ',triedVersion,'\VC\bin'.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15209	each asFilename exists ifTrue:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15210	self cc value:(each,'\cl.exe').
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15211	self linkCommand value:(each,'\ilink32.exe').
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15212	found := true.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15213	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15214	]
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15215	]
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	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15218
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15219	self updateModifiedChannel.
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15220	self supportedCCompilerSelection value:0.
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 ifTrue:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15223	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	15224	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15225
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15226	"Modified: / 14-06-2017 / 11:04:11 / cg"
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15227	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15228
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15229	supportedCCompilerSelectionChanged
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15230	\|idx spec compiler\|
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15231
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15232	idx := self supportedCCompilerSelection value.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15233	idx == 0 ifTrue:[^ self].
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15234
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15235	spec := self supportedCCompilerListSpec at:idx ifAbsent:[^ self].
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15236	compiler := spec second.
16820 8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15237	compiler == #clang ifTrue:[
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15238	self setupForCLANG.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15239	^ self.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15240	].
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15241	compiler == #gcc ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15242	self setupForGCC.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15243	^ self.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15244	].
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15245	compiler == #bcc ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15246	self setupForBCC.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15247	^ self.
12411 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	compiler == #msvc ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15250	self setupForMSVC.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15251	^ self.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15252	].
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15253	compiler == #mingw ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15254	self setupForMINGW.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15255	^ self.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15256	].
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15257	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15258
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15259	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15260
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15261	canLoadBinaries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15262
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15263	canLoadBinaries isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15264	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15265	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15266	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15267	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15268
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15269	cc
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15270
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15271	cc isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15272	cc := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15273	cc onChangeSend:#updateModifiedChannel to:self.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15274	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15275	^ cc.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15276	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15277
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15278	ccOptions
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15279
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15280	ccOptions isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15281	ccOptions := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15282	ccOptions onChangeSend:#updateModifiedChannel to:self.
4387 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	^ ccOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15285	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15286
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15287	enableStcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15288
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15289	^ (ObjectFileLoader libPath notNil and:[self canLoadBinaries])
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15290	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15291
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15292	linkArgs
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15293
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15294	linkArgs isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15295	linkArgs := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15296	linkArgs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15297	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15298	^ linkArgs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15299	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15300
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15301	linkCommand
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15302
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15303	linkCommand isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15304	linkCommand := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15305	linkCommand onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15306	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15307	^ linkCommand.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15308	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15309
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15310	linkSharedArgs
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15311
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15312	linkSharedArgs isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15313	linkSharedArgs := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15314	linkSharedArgs onChangeSend:#updateModifiedChannel to:self.
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15315	].
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15316	^ linkSharedArgs.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15317	!
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15318
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	15319	makeCommand
ec908ed4b944 make command fm parents: 6860 diff changeset	15320
ec908ed4b944 make command fm parents: 6860 diff changeset	15321	makeCommand isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15322	makeCommand := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15323	makeCommand onChangeSend:#updateModifiedChannel to:self.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	15324	].
ec908ed4b944 make command fm parents: 6860 diff changeset	15325	^ makeCommand.
ec908ed4b944 make command fm parents: 6860 diff changeset	15326
ec908ed4b944 make command fm parents: 6860 diff changeset	15327	"Created: / 09-08-2006 / 18:49:52 / fm"
ec908ed4b944 make command fm parents: 6860 diff changeset	15328	!
ec908ed4b944 make command fm parents: 6860 diff changeset	15329
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15330	stc
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15331
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15332	stc isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15333	stc := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15334	stc onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15335	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15336	^ stc.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15337	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15338
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15339	stcCompilationList
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15340
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15341	stcCompilationList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15342	stcCompilationList := (resources array:(self class stcCompilationStrings)) asList.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15343	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15344	^ stcCompilationList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15345	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15346
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15347	stcCompilationSelection
4387 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	stcCompilationSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15350	stcCompilationSelection := (self class stcCompilationOptions indexOf:(ParserFlags stcCompilation) ifAbsent:1) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15351	stcCompilationSelection onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15352	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15353	^ stcCompilationSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15354	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15355
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15356	stcDefines
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15357
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15358	stcDefines isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15359	stcDefines := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15360	stcDefines onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15361	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15362	^ stcDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15363	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15364
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15365	stcIncludes
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15366
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15367	stcIncludes isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15368	stcIncludes := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15369	stcIncludes onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15370	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15371	^ stcIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15372	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15373
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15374	stcKeepCIntermediate
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15375	stcKeepCIntermediate isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15376	stcKeepCIntermediate := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15377	stcKeepCIntermediate onChangeSend:#updateModifiedChannel to:self.
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15378	].
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15379	^ stcKeepCIntermediate.
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15380
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15381	"Created: / 16-09-2011 / 18:42:10 / cg"
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15382	!
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15383
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15384	stcLibraries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15385
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15386	stcLibraries isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15387	stcLibraries := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15388	stcLibraries onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15389	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15390	^ stcLibraries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15391	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15392
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15393	stcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15394
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15395	stcLibraryPath isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15396	stcLibraryPath := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15397	stcLibraryPath onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15398	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15399	^ stcLibraryPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15400	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15401
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15402	stcOptions
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15403
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15404	stcOptions isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15405	stcOptions := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15406	stcOptions onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15407	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15408	^ stcOptions.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15409	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15410
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15411	supportedCCompilerList
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15412	^ self supportedCCompilerListSpec collect:[:s \| s first].
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15413	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15414
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15415	supportedCCompilerListSpec
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15416	OperatingSystem isMSWINDOWSlike ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15417	^ #(
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15418	('Borland CC v5.5 (bcc)' #bcc)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15419	('Microsoft Visual C (cl)' #msvc)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15420	('Mingw (gcc)' #mingw)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15421	).
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15422	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15423
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15424	^ #(
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15425	('GNU gcc' #gcc)
16820 8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15426	('clang' #clang)
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15427	).
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15428	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15429
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15430	supportedCCompilerSelection
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15431	supportedCCompilerSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15432	supportedCCompilerSelection := ValueHolder new.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15433	].
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15434	^ supportedCCompilerSelection.
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15435	!
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15436
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15437	verbose
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15438
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15439	verbose isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15440	verbose := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15441	verbose onChangeSend:#updateModifiedChannel to:self.
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15442	].
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15443	^ verbose.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15444	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15445
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15446	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15447
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15448	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15449	^ 'Launcher/compilerSettings.html'
10707 25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15450	!
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15451
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15452	helpText
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15453	^ 'These settings are only relevant if methods are to be compiled directly to
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15454	machine code (i.e. using the external stc, not the builtin bytecode compiler).
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15455	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	15456	for plain Smalltalk code, it is not needed.'
10707 25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15457
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15458	"Created: / 16-09-2011 / 18:18:32 / cg"
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	15459	"Modified: / 22-04-2019 / 10:14:16 / Claus Gittinger"
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15460	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15461
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15462	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15463
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15464	hasUnsavedChanges
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15465	\| searchedLibs \|
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15466
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15467	((ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) ~= self canLoadBinaries value ) ifTrue:[^ true].
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15468
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15469	((STCCompilerInterface verbose) ~= (self verbose value)) ifTrue:[^ true].
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15470
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15471	((ParserFlags stcCompilation ? #default) ~= (self class stcCompilationOptions at:self stcCompilationSelection value)) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15472	((ParserFlags stcCompilationIncludes) ~= self stcIncludes value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15473	((ParserFlags stcCompilationDefines) ~= self stcDefines value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15474	((ParserFlags stcCompilationOptions) ~= self stcOptions value) ifTrue:[^ true].
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15475	((ParserFlags stcKeepCIntermediate) ~= self stcKeepCIntermediate value) ifTrue:[^ true].
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15476	((ParserFlags ccCompilationOptions) ~= self ccOptions value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15477	((ParserFlags ccPath) ~= self cc value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15478	((ParserFlags stcPath) ~= self stc value) ifTrue:[^ true].
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	15479	((ParserFlags makeCommand) ~= self makeCommand value) ifTrue:[^ true].
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15480	((ParserFlags linkCommand) ~= self linkCommand value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15481	((ParserFlags linkArgs) ~= self linkArgs value) ifTrue:[^ true].
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15482	((ParserFlags linkSharedArgs) ~= self linkSharedArgs value) ifTrue:[^ true].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15483	(ParserFlags libPath ~= self stcLibraryPath value) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15484
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15485	searchedLibs := ParserFlags searchedLibraries.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15486	searchedLibs notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15487	(String fromStringCollection:searchedLibs separatedBy:' ') ~= self stcLibraries value ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15488	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15489	^ false.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	15490
ec908ed4b944 make command fm parents: 6860 diff changeset	15491	"Modified: / 09-08-2006 / 18:50:36 / fm"
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15492	"Modified: / 16-09-2011 / 18:42:00 / cg"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15493	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15494
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15495	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15496
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15497	exampleText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15498
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15499	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15500	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15501	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15502
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15503	\|index\|
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	"/ another comment ...
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15506	self at:index+1. "/ a message
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15507	self at:index put:methodArg. "/ a two arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15508	self from:1 to:index put:methodArg. "/ a three arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15509	methodArg ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15510	Transcript showCR:''hello''. "/ condition
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15511	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15512	methodArg ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15513	Transcript showCR:''hello''. "/ condition
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15514	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15515	Transcript showCR:''world''.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15516	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15517	[methodArg] whileTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15518	Transcript showCR:''hello''. "/ looping
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15519	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15520	[self aVeryLongConditionBlock and:[self toMakeBlockLonger]] whileTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15521	Transcript showCR:''hello''. "/ long blocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15522	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15523	methodArg do:[:element \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15524	Transcript showCR:''hello''. "/ looping
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15525	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15526	1 to:methodArg size do:[:index \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15527	Transcript showCR:''hello''. "/ looping
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15528	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15529	methodArg keysAndValuesDo:[:index \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15530	Transcript showCR:''hello''. "/ looping
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15531	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15532	Object errorSignal handle:[:ex \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15533	ex return
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15534	] do:[ "/ exception handling
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15535	self someAction "/ blocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15536	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15537	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15538	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15539	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15540
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15541	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15542
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15543	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15544	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15545	by the ImageEditor of ST/X."
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15546
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15547	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15548	the ImageEditor may not be able to read the specification."
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15549
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15550	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15551	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15552	ImageEditor openOnClass:self andSelector:#defaultIcon
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15553	Icon flushCachedIcons
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15554	"
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15555
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15556	<resource: #image>
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15557
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15558	^Icon
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15559	constantNamed:'AbstractSettingsApplication::SourceCodeFormatSettingsAppl defaultIcon'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15560	ifAbsentPut:[(Depth4Image new) width:22; height:22; bits:(ByteArray fromPackedString:'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15561	@@@@@@@@@@@@@@@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	15562	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	15563	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	15564	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15565
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15566	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15567
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15568	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15569	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15570	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15571
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15572	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15573	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15574
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15575	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15576	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeFormatSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15577	AbstractSettingsApplication::SourceCodeFormatSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15578	AbstractSettingsApplication::SourceCodeFormatSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15579	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15580
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15581	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15582
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15583	^
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	15584	#(FullSpec
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	15585	name: windowSpec
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15586	window:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	15587	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15588	label: 'Code Format Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15589	name: 'Code Format Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15590	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15591	bounds: (Rectangle 0 0 613 685)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15592	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15593	component:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	15594	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15595	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15596	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15597	name: 'VerticalPanel3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15598	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	15599	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15600	verticalLayout: topSpaceFit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15601	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15602	verticalSpace: 3
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15603	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15604	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15605	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15606	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15607	name: 'VerticalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15608	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15609	verticalLayout: bottom
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15610	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15611	verticalSpace: 3
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15612	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15613	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15614	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15615	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15616	name: 'Box1'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15617	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15618	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15619	collection: (
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: 'Space around Temporaries'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15622	name: 'CheckBox3'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15623	layout: (LayoutFrame 0 0 0 0 270 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15624	model: spaceAroundTemporaries
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	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15628	label: 'Blank line after local Var Declaration'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15629	name: 'CheckBox4'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15630	layout: (LayoutFrame 270 0 0 0 0 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15631	model: emptyLineAfterTemporaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15632	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15633	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15634	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15635
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15636	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15637	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15638	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15639	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15640	name: 'Box11'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15641	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15642	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15643	collection: (
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 ''^'''
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15646	name: 'CheckBox5'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15647	layout: (LayoutFrame 0 0 0 0 270 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15648	model: spaceAfterReturnToken
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	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15652	label: 'Space after '':'' in Keywords'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15653	name: 'CheckBox6'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15654	layout: (LayoutFrame 270 0 0 0 -5 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15655	model: spaceAfterKeywordSelector
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15656	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15657	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15658	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15659
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15660	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15661	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15662	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15663	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15664	name: 'Box15'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15665	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15666	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15667	collection: (
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 after ''['''
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15670	name: 'CheckBox9'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15671	layout: (LayoutFrame 0 0 0 0 270 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15672	model: spaceAfterBlockStart
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	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15676	label: 'Space before '']'''
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15677	name: 'CheckBox10'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15678	layout: (LayoutFrame 270 0 0 0 -5 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15679	model: spaceBeforeBlockEnd
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15680	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15681	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15682	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15683
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15684	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15685	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15686	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15687	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15688	name: 'Box12'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15689	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15690	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15691	collection: (
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: 'C-Style Blocks'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15694	name: 'CheckBox8'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15695	layout: (LayoutFrame 0 0 0 0 270 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15696	model: cStyleBlocks
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	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15700	label: 'Block Args on new Line'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15701	name: 'CheckBox7'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15702	layout: (LayoutFrame 270 0 0 0 -5 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15703	model: blockArgumentsOnNewLine
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15704	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15705	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15706	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15707
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15708	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15709	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15710	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15711	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15712	name: 'Box13'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15713	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15714	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15715	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15716	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15717	label: 'Indent:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15718	name: 'Label1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15719	layout: (LayoutFrame 0 0 0 0 327 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15720	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15721	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15722	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15723	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15724	name: 'EntryField1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15725	layout: (LayoutFrame 334 0 0 0 381 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15726	model: tabIndent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15727	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15728	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15729	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15730	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15731	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15732	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15733	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15734
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15735	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15736	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15737	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15738	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15739	name: 'Box16'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15740	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15741	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15742	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15743	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15744	label: 'Max Length for Single Line Blocks:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15745	name: 'Label5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15746	layout: (LayoutFrame 0 0 0 0 327 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15747	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15748	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15749	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15750	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15751	name: 'EntryField4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15752	layout: (LayoutFrame 334 0 0 0 381 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15753	model: maxLengthForSingleLineBlocks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15754	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15755	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15756	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15757	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15758	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15759	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15760	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15761
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15762	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15763	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15764	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15765	(HorizontalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15766	name: 'HorizontalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15767	horizontalLayout: fitSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15768	verticalLayout: bottom
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15769	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15770	verticalSpace: 3
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15771	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15772	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15773	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15774	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15775	label: 'Reset to ST/X Default'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15776	name: 'Button1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15777	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15778	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15779	model: resetToStxDefault
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15780	extent: (Point 300 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15781	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15782	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15783	label: 'Reset to RefactoryBrowser Default'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15784	name: 'Button2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15785	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15786	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15787	model: resetToRBDefault
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15788	extent: (Point 301 22)
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15789	)
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15790	)
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15791
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15792	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15793	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15794	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15795	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15796
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15797	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15798	extent: (Point 613 180)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15799	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15800	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15801	name: 'SpacingBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15802	extent: (Point 613 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15803	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15804	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15805	name: 'Box14'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15806	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15807	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15808	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15809	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15810	label: 'Sample Output:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15811	name: 'Label3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15812	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15813	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15814	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15815	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15816	(TextEditorSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15817	name: 'TextEditor3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15818	layout: (LayoutFrame 0 0 30 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15819	model: editorText
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15820	hasHorizontalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15821	hasVerticalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15822	isReadOnly: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15823	hasKeyboardFocusInitially: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15824	postBuildCallback: postBuildTextEditor:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15825	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15826	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15827
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15828	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15829	extent: (Point 613 453)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15830	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15831	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15832
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15833	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15834	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15835	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15836	label: 'Auto Format'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15837	name: 'CheckBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15838	layout: (LayoutFrame 3 0 -30 1 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15839	model: autoFormat
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15840	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15841	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15842	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15843
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	15844	)
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	15845	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15846	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15847
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15848	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15849
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15850	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15851	reformatLocked := true.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15852
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15853	self
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15854	readAspects:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15855	#(
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15856	tabIndent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15857	spaceAroundTemporaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15858	emptyLineAfterTemporaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15859	spaceAfterReturnToken
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15860	spaceAfterKeywordSelector
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15861	spaceAfterBlockStart
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15862	spaceBeforeBlockEnd
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15863	cStyleBlocks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15864	blockArgumentsOnNewLine
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15865	maxLengthForSingleLineBlocks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15866	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15867	from:RBFormatter.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	15868
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15869	self autoFormat value:currentUserPrefs autoFormatting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15870	self updateModifiedChannel.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15871	reformatLocked := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15872	self reformat.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15873	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15874
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15875	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15876
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15877	currentUserPrefs autoFormatting:self autoFormat value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15878	currentUserPrefs at:#'formatter.tabIndent' put:self tabIndent value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15879	currentUserPrefs at:#'formatter.spaceAroundTemporaries' put:self spaceAroundTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15880	currentUserPrefs at:#'formatter.emptyLineAfterTemporaries' put:self emptyLineAfterTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15881	currentUserPrefs at:#'formatter.spaceAfterReturnToken' put:self spaceAfterReturnToken value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15882	currentUserPrefs at:#'formatter.spaceAfterKeywordSelector' put:self spaceAfterKeywordSelector value.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15883	currentUserPrefs at:#'formatter.spaceAfterBlockStart' put:self spaceAfterBlockStart value.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15884	currentUserPrefs at:#'formatter.spaceBeforeBlockEnd' put:self spaceBeforeBlockEnd value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15885	currentUserPrefs at:#'formatter.cStyleBlocks' put:self cStyleBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15886	currentUserPrefs at:#'formatter.blockArgumentsOnNewLine' put:self blockArgumentsOnNewLine value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15887	currentUserPrefs at:#'formatter.maxLengthForSingleLineBlocks' put:self maxLengthForSingleLineBlocks value.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15888	RBFormatter
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15889	tabIndent:self tabIndent value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15890	spaceAroundTemporaries:self spaceAroundTemporaries value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15891	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15892	spaceAfterReturnToken:self spaceAfterReturnToken value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15893	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15894	spaceAfterBlockStart:self spaceAfterBlockStart value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15895	spaceBeforeBlockEnd:self spaceBeforeBlockEnd value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15896	cStyleBlocks:self cStyleBlocks value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15897	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15898	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value asInteger.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15899	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	15900
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15901	reformat
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15902
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15903	\|tree s_tabIndent s_spaceAroundTemporaries s_emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15904	s_spaceAfterReturnToken s_spaceAfterKeywordSelector s_cStyleBlocks
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15905	s_maxLengthForSingleLineBlocks s_blockArgumentsOnNewLine
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15906	s_spaceAfterBlockStart s_spaceBeforeBlockEnd\|
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15907
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15908	reformatLocked ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15909	"/
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15910	"/ temporary change the RBFormatters settings ...
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15911	"/
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15912	s_tabIndent := RBFormatter tabIndent.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15913	s_spaceAroundTemporaries := RBFormatter spaceAroundTemporaries.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15914	s_emptyLineAfterTemporaries := RBFormatter emptyLineAfterTemporaries.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15915	s_spaceAfterReturnToken := RBFormatter spaceAfterReturnToken.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15916	s_spaceAfterKeywordSelector := RBFormatter spaceAfterKeywordSelector.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15917	s_spaceAfterBlockStart := RBFormatter spaceAfterBlockStart.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15918	s_spaceBeforeBlockEnd := RBFormatter spaceBeforeBlockEnd.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15919	s_cStyleBlocks := RBFormatter cStyleBlocks.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15920	s_blockArgumentsOnNewLine := RBFormatter blockArgumentsOnNewLine.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15921	s_maxLengthForSingleLineBlocks := RBFormatter maxLengthForSingleLineBlocks.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15922
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15923	RBFormatter
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15924	tabIndent:self tabIndent value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15925	spaceAroundTemporaries:self spaceAroundTemporaries value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15926	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15927	spaceAfterReturnToken:self spaceAfterReturnToken value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15928	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15929	spaceAfterBlockStart:self spaceAfterBlockStart value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15930	spaceBeforeBlockEnd:self spaceBeforeBlockEnd value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15931	cStyleBlocks:self cStyleBlocks value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15932	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15933	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15934
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15935	"/ tree := RBParser
5076 c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	15936	"/ parseMethod:self class exampleText
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	15937	"/ onError: [:aString :position \| nil].
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	15938	"/ tree do:[:node \|
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	15939	"/ (node ~~ tree and:[node parent isNil]) ifTrue:[
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	15940	"/ self error:'No parent for node'.
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	15941	"/ ]
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	15942	"/ ].
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	15943	"/ self editorText value:tree printString.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15944	self editorText value:(RBFormatter format:(self class exampleText)).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15945
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15946	RBFormatter
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15947	tabIndent:s_tabIndent;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15948	spaceAroundTemporaries:s_spaceAroundTemporaries;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15949	emptyLineAfterTemporaries:s_emptyLineAfterTemporaries;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15950	spaceAfterReturnToken:s_spaceAfterReturnToken;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15951	spaceAfterKeywordSelector:s_spaceAfterKeywordSelector;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15952	spaceAfterBlockStart:s_spaceAfterBlockStart;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15953	spaceBeforeBlockEnd:s_spaceBeforeBlockEnd;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15954	cStyleBlocks:s_cStyleBlocks;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15955	blockArgumentsOnNewLine:s_blockArgumentsOnNewLine;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15956	maxLengthForSingleLineBlocks:s_maxLengthForSingleLineBlocks.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15957	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15958	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15959
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15960	resetToRBDefault
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15961
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15962	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15963	self tabIndent value: 8.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15964	self spaceAfterReturnToken value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15965	self spaceAfterKeywordSelector value:true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15966	self spaceAroundTemporaries value:true.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15967	self spaceAfterBlockStart value:true.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15968	self spaceBeforeBlockEnd value:true.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15969	self emptyLineAfterTemporaries value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15970	self cStyleBlocks value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15971	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15972	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15973	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15974	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15975	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15976
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15977	resetToStxDefault
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15978
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15979	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15980	self tabIndent value: 4.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15981	self spaceAfterReturnToken value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15982	self spaceAfterKeywordSelector value: false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15983	self spaceAroundTemporaries value: false.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15984	self spaceAfterBlockStart value:false.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15985	self spaceBeforeBlockEnd value:false.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15986	self emptyLineAfterTemporaries value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15987	self cStyleBlocks value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15988	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15989	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15990	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15991	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15992	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15993
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15994	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15995
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15996	autoFormat
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15997
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15998	autoFormat isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15999	autoFormat := currentUserPrefs autoFormatting asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16000	autoFormat onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16001	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16002	^ autoFormat.
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	blockArgumentsOnNewLine
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16006
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16007	blockArgumentsOnNewLine isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16008	blockArgumentsOnNewLine := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16009	blockArgumentsOnNewLine addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16010	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16011	^ blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16012	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16013
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16014	cStyleBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16015
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16016	cStyleBlocks isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16017	cStyleBlocks := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16018	cStyleBlocks addDependent:self.
4398 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	^ cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16021	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16022
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16023	editorText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16024
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16025	editorText isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16026	editorText := ValueHolder new.
4398 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	^ editorText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16029	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16030
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16031	emptyLineAfterTemporaries
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16032
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16033	emptyLineAfterTemporaries isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16034	emptyLineAfterTemporaries := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16035	emptyLineAfterTemporaries addDependent:self.
4398 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	^ emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16038	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16039
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16040	maxLengthForSingleLineBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16041
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16042	maxLengthForSingleLineBlocks isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16043	maxLengthForSingleLineBlocks := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16044	maxLengthForSingleLineBlocks addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16045	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16046	^ maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16047	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16048
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16049	spaceAfterBlockStart
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16050
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16051	spaceAfterBlockStart isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16052	spaceAfterBlockStart := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16053	spaceAfterBlockStart addDependent:self.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16054	].
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16055	^ spaceAfterBlockStart.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16056	!
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16057
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16058	spaceAfterKeywordSelector
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16059
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16060	spaceAfterKeywordSelector isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16061	spaceAfterKeywordSelector := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16062	spaceAfterKeywordSelector addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16063	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16064	^ spaceAfterKeywordSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16065	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16066
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16067	spaceAfterReturnToken
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16068
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16069	spaceAfterReturnToken isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16070	spaceAfterReturnToken := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16071	spaceAfterReturnToken addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16072	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16073	^ spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16074	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16075
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16076	spaceAroundTemporaries
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16077
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16078	spaceAroundTemporaries isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16079	spaceAroundTemporaries := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16080	spaceAroundTemporaries addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16081	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16082	^ spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16083	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16084
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16085	spaceBeforeBlockEnd
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16086
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16087	spaceBeforeBlockEnd isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16088	spaceBeforeBlockEnd := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16089	spaceBeforeBlockEnd addDependent:self.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16090	].
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16091	^ spaceBeforeBlockEnd.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16092	!
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16093
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16094	tabIndent
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16095
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16096	tabIndent isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16097	tabIndent := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16098	tabIndent addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16099	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16100	^ tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16101	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16102
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16103	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16104
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16105	update:something with:aParameter from:changedObject
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16106	(changedObject == self blockArgumentsOnNewLine
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16107	or:[ changedObject == self cStyleBlocks
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16108	or:[ changedObject == self emptyLineAfterTemporaries
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16109	or:[ changedObject == self maxLengthForSingleLineBlocks
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16110	or:[ changedObject == self spaceAfterKeywordSelector
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16111	or:[ changedObject == self spaceAfterReturnToken
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16112	or:[ changedObject == self spaceAfterBlockStart
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16113	or:[ changedObject == self spaceBeforeBlockEnd
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16114	or:[ changedObject == self spaceAroundTemporaries
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16115	or:[ changedObject == self tabIndent]]]]]]]]])
8502 b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	16116	ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16117	self updateModifiedChannel.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16118	self reformat.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16119	^ self
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16120	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16121	super
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16122	update:something
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16123	with:aParameter
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16124	from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16125	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16126
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16127	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16128
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16129	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16130	^ 'Launcher/sourceFormatSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16131	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16132
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16133	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16134
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16135	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	16136	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	16137
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16138	super initialize.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16139	RBFormatter isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16140	^ self warn:'Sorry, no RBFormatter class'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16141	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16142	RBFormatter isLoaded ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16143	WindowGroup activeGroup withWaitCursorDo:[RBFormatter autoload]
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16144	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16145	reformatLocked := false.
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	16146
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	16147	"Modified: / 08-02-2017 / 00:30:17 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16148	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16149
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16150	postBuildTextEditor:aWidget
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16151
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16152	aWidget cursorMovementWhenUpdating:nil;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16153	scrollWhenUpdating:nil.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16154	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16155
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16156	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16157
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16158	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	16159	self autoFormat value ~= currentUserPrefs autoFormatting ? false ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16160
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16161	(self
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16162	hasChangedAspectIn:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16163	#(
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16164	tabIndent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16165	spaceAroundTemporaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16166	emptyLineAfterTemporaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16167	spaceAfterReturnToken
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16168	spaceAfterKeywordSelector
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16169	spaceAfterBlockStart
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16170	spaceBeforeBlockEnd
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16171	cStyleBlocks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16172	blockArgumentsOnNewLine
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16173	maxLengthForSingleLineBlocks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16174	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16175	asComparedTo:RBFormatter) ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16176
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	16177	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16178	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16179
11325 0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16180	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'documentation'!
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16181
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16182	documentation
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16183	"
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16184	this is the old (now obsolete) settings app, which was used until multiple
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16185	managers were supported (i.e. when only the CVSSourceCodeManager was available).
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16186	It has been split into a generic part (manager-to-module assignment),
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16187	and per-manager subapplications.
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16188	"
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16189	! !
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16190
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16191	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'help specs'!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16192
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16193	helpSpec
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16194	"This resource specification was automatically generated
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16195	by the UIHelpTool of ST/X."
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16196
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16197	"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	16198	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	16199
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16200	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16201	UIHelpTool openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16202	"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16203
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16204	<resource: #help>
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16205
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16206	^ super helpSpec addPairsFrom:#(
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16207
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16208	#addPerPackageManager
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16209	'Add a new per-package manager definition'
9835 b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	16210
10738 9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	16211	#browseSourceCache
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	16212	'Open a file browser on the source cache directory'
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	16213
11005 449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16214	#checkClassesWhenCheckingIn
17453 67a6373fd536 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	16215	'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	16216
449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16217	#checkPerPackageManager
11732 67c6691a705a help texts Claus Gittinger <cg@exept.de> parents: 11711 diff changeset	16218	'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	16219
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16220	#condenseSourceCache
10978 d9418bcfdc4d help specs Claus Gittinger <cg@exept.de> parents: 10951 diff changeset	16221	'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	16222
11005 449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16223	#defaultManagerType
449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16224	'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	16225
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16226	#editPerPackageManager
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16227	'Modify the selected per-package manager definition'
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16228
12872 2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16229	#fillSourceCache
2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16230	'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	16231
10738 9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	16232	#flushSourceCache
10978 d9418bcfdc4d help specs Claus Gittinger <cg@exept.de> parents: 10951 diff changeset	16233	'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	16234
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16235	#keepMethodSourceInImage
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16236	'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	16237
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16238	#moveManagerDown
11732 67c6691a705a help texts Claus Gittinger <cg@exept.de> parents: 11711 diff changeset	16239	'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	16240
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16241	#moveManagerUp
11732 67c6691a705a help texts Claus Gittinger <cg@exept.de> parents: 11711 diff changeset	16242	'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	16243
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16244	#perPackageConfiguration
11732 67c6691a705a help texts Claus Gittinger <cg@exept.de> parents: 11711 diff changeset	16245	'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	16246
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16247	#removePerPackageManager
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16248	'Remove the selected per-package manager definition'
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16249
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16250	#sourceCache
10978 d9418bcfdc4d help specs Claus Gittinger <cg@exept.de> parents: 10951 diff changeset	16251	'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	16252
b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	16253	#useLocalSources
13222 e5ff6ff1acb5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13220 diff changeset	16254	'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	16255
11005 449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16256	#useManager
449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16257	'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	16258
d9418bcfdc4d help specs Claus Gittinger <cg@exept.de> parents: 10951 diff changeset	16259	#verboseSourceCodeAccess
d9418bcfdc4d help specs Claus Gittinger <cg@exept.de> parents: 10951 diff changeset	16260	'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	16261
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16262	)
17453 67a6373fd536 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	16263
67a6373fd536 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	16264	"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	16265	! !
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16266
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16267	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16268
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16269	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16270	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16271	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16272
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16273	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16274	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16275
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16276	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16277	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16278	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16279	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16280	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16281
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16282	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16283
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16284	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	16285	constantNamed:'AbstractSettingsApplication::SourceCodeManagementSettingsAppl defaultIcon'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	16286	ifAbsentPut:[(Depth8Image width:22 height:22) bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	16287	@@@@@@@@@@@A@PHB@0P@@@@@@@@@@@@@@@@@@@HEA \HA $JB0HD@@@@@@@@@@@@@@HLA04NC0HD@@L@@ P@@@@@@@@@@@@ED@ NDP@@@@@@@@@D@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	16288	@@@BA \FAPP@@@@@@@@@@@P@@@@@@@@@AQ@RC0@@@@@@@@@@@@@@@@@@@@@@@@TGA!!DD@@@@@@@@@@@@@@@@@@@D@PDIA08OA@@@@@@@@@@@@@@@@@@@AP S
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	16289	A0XIBPXGC0P@@@@@@@@@@@@@@@@ECAPLBPXOAP@@@@@@EQX@@@@@@@@@@@TIE@XOAP@@@@@@EQ\XE @@@@@@@@@@AP$OAP@@@@@@FQ\ZE!! V@@@@@@@@@@@E
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	16290	F0@@@@@@EQ\ZF!!(VFAX@@@@@@@@@@@@@@@@ZEQ\VE!!(ZF!!XWF @@@@@@@@@@@@@@@@@@@A\ZE!!(@@@@@@@@@@@@@@@@@@@@@@@@XE!!XZ@@@@@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	16291	@@@@@@@@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	16292	EQXVE @@@@@@@@@@@@@@@@@@@@@@@A(Z@@@@@@@@@@@@@@@a')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	16293	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	16294	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	16295	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16296
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16297	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16298
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16299	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16300	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16301	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16302
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16303	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16304	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16305
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16306	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16307	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16308	AbstractSettingsApplication::SourceCodeManagementSettingsAppl new openInterface:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16309	AbstractSettingsApplication::SourceCodeManagementSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16310	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16311
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16312	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16313
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16314	^
13189 895b7f28de37 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13163 diff changeset	16315	#(FullSpec
895b7f28de37 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13163 diff changeset	16316	name: windowSpec
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16317	window:
13189 895b7f28de37 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13163 diff changeset	16318	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16319	label: 'Source Code Manager Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16320	name: 'Source Code Manager Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16321	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16322	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16323	bounds: (Rectangle 0 0 660 639)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16324	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16325	component:
13189 895b7f28de37 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13163 diff changeset	16326	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16327	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16328	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16329	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16330	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	16331	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16332	verticalLayout: topSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16333	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16334	verticalSpace: 20
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16335	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16336	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16337	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16338	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16339	name: 'VerticalPanel3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16340	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16341	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16342	horizontalSpace: 3
17453 67a6373fd536 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	16343	verticalSpace: 2
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16344	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16345	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16346	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16347	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16348	name: 'Box3'
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16349	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16350	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16351	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16352	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16353	label: 'Sourcecode Management'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16354	name: 'SourcecodeManagementCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16355	layout: (LayoutFrame 5 0 0 0.0 332 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16356	activeHelpKey: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16357	model: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16358	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16359	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16360	(ComboListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16361	name: 'ComboList1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16362	layout: (LayoutFrame -151 1 0 0 -5 1 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16363	activeHelpKey: defaultManagerType
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16364	visibilityChannel: moreThanOneManagerTypesAvailable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16365	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16366	model: selectedManagerTypeIndexHolder
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16367	comboList: availableManagerTypeNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16368	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16369	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16370	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16371	label: 'Default Repository Type:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16372	name: 'Label14'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16373	layout: (AlignmentOrigin -154 1 16 0 1 0.5)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16374	activeHelpKey: defaultManagerType
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16375	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16376	resizeForLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16377	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16378	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16379	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16380
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16381	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16382	extent: (Point 660 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16383	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16384	(FramedBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16385	label: 'Per Package Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16386	name: 'PerPackageConfiguration'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16387	activeHelpKey: perPackageConfiguration
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16388	labelPosition: topLeft
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16389	translateLabel: true
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16390	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16391	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16392	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16393	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16394	name: 'RepositoryConfigurations'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16395	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16396	activeHelpKey: perPackageConfiguration
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16397	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16398	verticalLayout: bottomFit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16399	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16400	verticalSpace: 3
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16401	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16402	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16403	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16404	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16405	name: 'RepositoryConfigurationListBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16406	activeHelpKey: perPackageConfiguration
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16407	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16408	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16409	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16410	(DataSetSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16411	name: 'RepositoryConfigurationList'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16412	layout: (LayoutFrame 0 0 0 0 -122 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16413	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16414	model: selectedManagerPerMatchingModuleHolder
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16415	hasHorizontalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16416	hasVerticalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16417	dataList: managerPerMatchingModule
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16418	columnHolder: managerPerMatchingModuleColumns
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16419	beDependentOfRows: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16420	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16421	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16422	name: 'Buttons1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16423	layout: (LayoutFrame -121 1 0 0 0 1 -22 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16424	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16425	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16426	horizontalSpace: 5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16427	verticalSpace: 3
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16428	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16429	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16430	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16431	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16432	label: 'Add...'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16433	name: 'ButtonAdd'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16434	activeHelpKey: addPerPackageManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16435	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16436	model: actionAdd
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16437	extent: (Point 119 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16438	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16439	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16440	label: 'Edit...'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16441	name: 'ButtonEdit'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16442	activeHelpKey: editPerPackageManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16443	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16444	model: actionEdit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16445	enableChannel: canRemoveManagerPerPackageEntry
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16446	extent: (Point 119 30)
16167 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: 'Move Up'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16450	name: 'ButtonModeUp'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16451	activeHelpKey: moveManagerUp
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16452	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16453	model: actionMoveUp
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16454	enableChannel: canMoveUp
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16455	extent: (Point 119 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16456	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16457	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16458	label: 'Move Down'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16459	name: 'ButtonModeDown'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16460	activeHelpKey: moveManagerDown
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16461	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16462	model: actionMoveDown
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16463	enableChannel: canMoveDown
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16464	extent: (Point 119 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16465	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16466	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16467	name: 'SpacingLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16468	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16469	extent: (Point 121 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16470	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16471	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16472	label: 'Remove'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16473	name: 'ButtonRemove'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16474	activeHelpKey: removePerPackageManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16475	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16476	model: actionRemove
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16477	enableChannel: canRemoveManagerPerPackageEntry
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16478	extent: (Point 119 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16479	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16480	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16481
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16482	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16483	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16484	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16485	label: 'Test'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16486	name: 'Button2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16487	layout: (LayoutFrame -90 1 -30 1 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16488	activeHelpKey: checkPerPackageManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16489	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16490	model: actionTest
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16491	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16492	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16493
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16494	)
17453 67a6373fd536 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	16495	extent: (Point 618 258)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16496	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16497	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16498
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16499	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16500	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16501	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16502
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16503	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16504	extent: (Point 660 300)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16505	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16506	(FramedBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16507	label: 'Source Cache'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16508	name: 'SourceCacheBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16509	activeHelpKey: sourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16510	labelPosition: topLeft
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16511	translateLabel: true
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16512	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16513	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16514	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16515	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16516	name: 'SourceCacheDirBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16517	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	16518	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16519	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16520	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16521	(FilenameInputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16522	name: 'FilenameEntryField1'
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16523	layout: (LayoutFrame 64 0.25 0 0 -2 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16524	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16525	model: sourceCacheDir
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16526	immediateAccept: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16527	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16528	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16529	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16530	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16531	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16532	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16533	label: 'Source Cache Dir:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16534	name: 'SourceCacheDirLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16535	layout: (LayoutFrame 0 0.0 0 0 60 0.25 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16536	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16537	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16538	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16539	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16540
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16541	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16542	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16543	(HorizontalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16544	name: 'CacheActionsHorizontalPanel1'
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16545	layout: (LayoutFrame 0 0 37 0 -1 1 67 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16546	horizontalLayout: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16547	verticalLayout: center
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16548	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16549	verticalSpace: 3
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16550	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16551	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16552	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16553	(ActionButtonSpec
16673 72965741529d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16644 diff changeset	16554	label: 'Fill Cache'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16555	name: 'FillCacheInBackgroundButton'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16556	activeHelpKey: fillSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16557	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16558	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16559	model: fillSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16560	enableChannel: useManager
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16561	extent: (Point 150 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16562	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16563	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16564
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16565	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16566	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16567	(HorizontalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16568	name: 'CacheActionsHorizontalPanel2'
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16569	layout: (LayoutFrame 0 0 70 0 -1 1 100 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16570	horizontalLayout: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16571	verticalLayout: center
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16572	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16573	verticalSpace: 3
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16574	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16575	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16576	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16577	(ActionButtonSpec
16673 72965741529d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16644 diff changeset	16578	label: 'Browse'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16579	name: 'Button3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16580	activeHelpKey: browseSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16581	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16582	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16583	model: browseSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16584	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16585	extent: (Point 171 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16586	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16587	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16588	name: 'Box5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16589	extent: (Point 20 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16590	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16591	(ActionButtonSpec
16673 72965741529d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16644 diff changeset	16592	label: 'Flush'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16593	name: 'Button4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16594	activeHelpKey: flushSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16595	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16596	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16597	model: flushSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16598	enableChannel: useManager
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16599	extent: (Point 150 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16600	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16601	(ActionButtonSpec
16673 72965741529d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16644 diff changeset	16602	label: 'Condense'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16603	name: 'Button5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16604	activeHelpKey: condenseSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16605	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16606	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16607	model: condenseSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16608	enableChannel: useManager
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16609	extent: (Point 150 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16610	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16611	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16612
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16613	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16614	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16615	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16616
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16617	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16618	extent: (Point 660 136)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16619	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16620	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16621	name: 'UseLocalSourceBox'
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16622	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16623	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16624	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16625	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16626	label: 'If Present, Use Local Source (Suppress Checkout)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16627	name: 'CheckBox4'
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16628	layout: (LayoutFrame 30 0 1 0 -5 1 29 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16629	activeHelpKey: useLocalSources
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16630	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16631	model: localSourceFirst
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16632	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16633	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16634	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16635
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16636	)
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16637	extent: (Point 660 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16638	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16639	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16640	name: 'KeepMethodSourceBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16641	activeHelpKey: keepMethodSourceInImage
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16642	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16643	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16644	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16645	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16646	label: 'Keep Method Source (In Image)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16647	name: 'CheckBox7'
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16648	layout: (LayoutFrame 30 0 1 0 -5 1 29 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16649	activeHelpKey: keepMethodSourceInImage
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16650	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16651	model: keepMethodSource
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16652	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16653	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16654	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16655
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16656	)
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16657	extent: (Point 660 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16658	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16659	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16660	name: 'CheckForHaltSendsBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16661	activeHelpKey: checkClassesWhenCheckingIn
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16662	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16663	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16664	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16665	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16666	label: 'Check for halt/error-Sends when Checking in'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16667	name: 'CheckBox5'
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16668	layout: (LayoutFrame 30 0 1 0 -5 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16669	activeHelpKey: checkClassesWhenCheckingIn
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16670	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16671	model: checkClassesWhenCheckingIn
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16672	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16673	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16674	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16675
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16676	)
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16677	extent: (Point 660 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16678	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16679	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16680	name: 'VerboseBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16681	activeHelpKey: verboseSourceCodeAccess
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16682	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16683	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16684	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16685	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16686	label: 'Verbose (Trace Operations on Transcript)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16687	name: 'CheckBox6'
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16688	layout: (LayoutFrame 30 0 1 0 -5 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16689	activeHelpKey: verboseSourceCodeAccess
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16690	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16691	model: verboseSourceCodeAccess
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16692	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16693	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16694	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16695
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16696	)
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16697	extent: (Point 660 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16698	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16699	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16700
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16701	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16702	extent: (Point 660 768)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16703	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16704	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16705
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16706	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16707	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16708	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16709
13189 895b7f28de37 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13163 diff changeset	16710	)
895b7f28de37 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13163 diff changeset	16711	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16712	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16713
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16714	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'tableColumns specs'!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16715
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16716	managerPerMatchingModuleColumns
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16717	"This resource specification was automatically generated
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16718	by the DataSetBuilder of ST/X."
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16719
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16720	"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	16721	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	16722
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16723	"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16724	DataSetBuilder new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#managerPerMatchingModuleColumns
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16725	"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16726
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16727	<resource: #tableColumns>
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16728
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16729	^#(
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16730	(DataSetColumnSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16731	label: 'Module (PackageID Match)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16732	labelButtonType: Button
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16733	width: 0.5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16734	model: displayStringForPackage
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16735	menuFromApplication: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16736	writeSelector: package:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16737	canSelect: false
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16738	)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16739	(DataSetColumnSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16740	label: 'Repository Type'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16741	labelButtonType: Button
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16742	width: 0.5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16743	model: displayStringForManagerTypeName
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16744	menuFromApplication: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16745	writeSelector: manager:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16746	canSelect: false
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16747	)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16748	)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16749
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16750	! !
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16751
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16752	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'accessing'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16753
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16754	manager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16755
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16756	^ Smalltalk at:#SourceCodeManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16757	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16758
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16759	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16760
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16761	actionAdd
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16762	\|dlg package mgr oldEntry idx\|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16763
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16764	dlg := PerModuleManagerSettingDialog new.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16765	dlg open ifFalse:[ ^ self ].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16766	package := dlg package.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16767	mgr := dlg manager.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16768	oldEntry := managerPerMatchingModule
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16769	detect:[:entry \| entry package = package and:[ entry manager = mgr ] ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16770	ifNone:nil.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16771	oldEntry notNil
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16772	ifTrue:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16773	[ oldEntry manager:mgr.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16774	managerPerMatchingModule changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16775	idx := managerPerMatchingModule indexOf:oldEntry. ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16776	ifFalse:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16777	[ managerPerMatchingModule
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16778	add:(AbstractSourceCodeManager::PackageAndManager package:package manager:mgr).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16779	idx := managerPerMatchingModule size. ].
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16780	selectedManagerPerMatchingModuleHolder value:idx.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16781
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16782	"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	16783	"Modified: / 18-04-2011 / 21:24:52 / cg"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16784	"Modified: / 09-07-2011 / 14:07:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16785	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16786
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16787	actionEdit
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16788	<resource: #uiCallback>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16789
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16790	\| entry dlg \|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16791	entry := managerPerMatchingModule at: selectedManagerPerMatchingModuleHolder value.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	16792	dlg := PerModuleManagerSettingDialog new.
10301 1ec2ef0050ca Fix vrany parents: 10299 diff changeset	16793	dlg package: entry package.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16794	dlg manager: entry manager.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16795	dlg open ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16796	entry package: dlg package.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16797	entry manager: dlg manager.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16798	entry changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16799	self updateModifiedChannel.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16800	]
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16801
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	16802	"Modified: / 29-03-2012 / 11:53:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16803	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16804
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16805	actionMoveDown
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16806	<resource: #uiCallback>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16807
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16808	\| idx \|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16809	idx := selectedManagerPerMatchingModuleHolder value.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16810	idx == managerPerMatchingModule size ifTrue:[^self].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16811	managerPerMatchingModule swap: idx with: idx + 1.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16812	selectedManagerPerMatchingModuleHolder value: idx + 1
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16813
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16814	"Modified: / 09-07-2011 / 13:23:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16815	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16816
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16817	actionMoveUp
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16818	<resource: #uiCallback>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16819
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16820	\| idx \|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16821	idx := selectedManagerPerMatchingModuleHolder value.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16822	idx == 1 ifTrue:[^self].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16823	managerPerMatchingModule swap: idx - 1 with: idx.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16824	selectedManagerPerMatchingModuleHolder value: idx - 1
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16825
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16826	"Modified: / 09-07-2011 / 13:23:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16827	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16828
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16829	actionRemove
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16830	\|idx\|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16831
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16832	idx := self selectedManagerPerMatchingModuleHolder value.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16833	managerPerMatchingModule removeIndex:idx.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16834	managerPerMatchingModule size >= idx
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16835	ifTrue:[ selectedManagerPerMatchingModuleHolder value:idx. ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16836	ifFalse:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16837	[ managerPerMatchingModule size >= (idx - 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16838	ifTrue:[ selectedManagerPerMatchingModuleHolder value:idx - 1. ]. ].
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16839
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16840	"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	16841	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16842
10796 2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	16843	actionTest
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	16844	<resource: #uiCallback>
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	16845
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	16846	Tools::SourceCodeManagerConfigurationTestTool open
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	16847
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	16848	"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	16849	!
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	16850
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16851	addModule:module withData:data
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16852	(self listOfModules includes:module) ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16853	self listOfModules add:module; sort.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16854	].
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16855	rootsPerModule at:module put:data.
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16856
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16857	self updateModifiedChannel.
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16858
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16859	"Created: / 08-11-2006 / 19:25:21 / cg"
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16860	!
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	16861
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16862	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16863	self initialize.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16864
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	16865	self verboseSourceCodeAccess value:(AbstractSourceCodeManager verboseSourceCodeAccess).
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	16866	self keepMethodSource value:(currentUserPrefs keepMethodSourceCode).
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	16867
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16868	self hasManager ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16869	self useManager value:(manager := Smalltalk at:#SourceCodeManager) notNil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16870	self localSourceFirst value:Class tryLocalSourceFirst.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16871	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16872
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16873	manager notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16874	manager forgetDisabledModules.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16875	].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16876	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16877	self useManager value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16878	self localSourceFirst value:false.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16879	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16880
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16881	self managerPerMatchingModule removeAll.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16882	AbstractSourceCodeManager managerPerMatchingModuleDefinitions do:[:each \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16883	self managerPerMatchingModule add: each copy
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16884	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16885
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16886	self availableManagers do:[:eachManager \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16887	\|infoPerModule\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16888
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16889	infoPerModule := eachManager repositoryInfoPerModule.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16890	infoPerModule keysAndValuesDo:[:module :info \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16891	rootsPerModule at:module put:(Array with:eachManager with:info).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16892	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16893	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16894
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	16895	self updateSelectedManager.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	16896
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16897	self checkClassesWhenCheckingIn value:(currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16898
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16899	rootsPerModule notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16900	self listOfModules removeAll.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16901	listOfModules addAll:rootsPerModule keys asList.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16902	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16903	"/ self selectedPerModuleRootChanged.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	16904
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16905	"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	16906	"Modified (format): / 27-07-2012 / 12:36:19 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16907	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16908
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16909	basicSaveSettings
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16910	\|modules\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16911
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	16912	AbstractSourceCodeManager verboseSourceCodeAccess:(self verboseSourceCodeAccess value).
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16913	currentUserPrefs at:#checkClassesWhenCheckingIn put:self checkClassesWhenCheckingIn value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	16914	Class tryLocalSourceFirst:self localSourceFirst value.
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	16915	currentUserPrefs keepMethodSourceCode:(self keepMethodSource value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16916
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16917	(self hasManager and:[self useManager value]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16918	manager ~~ self selectedManager ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16919	manager := nil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16920	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16921
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16922	manager isNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16923	manager := self selectedManager.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16924	manager isNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16925	manager := self availableManagers first.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16926	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16927	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16928	Smalltalk at:#SourceCodeManager put:manager.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16929
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16930	manager notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16931	\| nm fn\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16932
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16933	nm := self sourceCacheDir value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16934	nm notEmptyOrNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16935	(fn := nm asFilename) exists ifFalse:[
19041 7e56f18cb39e #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 18957 diff changeset	16936	(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	16937	fn recursiveMakeDirectory;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16938	makeReadableForAll;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16939	makeWritableForAll;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16940	makeExecutableForAll.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16941	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16942	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16943	(fn isWritableDirectory and:[fn isReadable]) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16944	AbstractSourceCodeManager cacheDirectoryName:nm.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16945	] ifFalse:[
19041 7e56f18cb39e #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 18957 diff changeset	16946	self warn:'Invalid sourceCache directory (not a read/writable directory).'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16947	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16948	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16949	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16950
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16951	AbstractSourceCodeManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16952	managerPerMatchingModuleDefinitions:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16953	managerPerMatchingModule asOrderedCollection.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16954
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16955	self availableManagers do:[:eachManager \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16956	\|infoPerModule\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16957
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16958	modules := rootsPerModule select:[:entry \| entry first == eachManager].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16959	infoPerModule := Dictionary new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16960	modules keysAndValuesDo:[:module :entry \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16961	entry first == eachManager ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16962	infoPerModule at:module put:(entry second).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16963	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16964	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16965	eachManager repositoryInfoPerModule:infoPerModule.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16966	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16967
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16968	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16969
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16970	DebugView newDebugger. "/ ???
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16971	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16972	Smalltalk at:#SourceCodeManager put:nil
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16973	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16974
7494 6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	16975	self acceptChannel value.
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	16976
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	16977	"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	16978	"Modified: / 27-07-2012 / 12:36:44 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16979	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16980
10811 2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	16981	browseSourceCache
2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	16982	<resource: #uiCallback>
2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	16983
16387 f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16984	\|cacheDir\|
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16985
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16986	cacheDir := self sourceCacheDir value.
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16987	cacheDir isNil ifTrue:[
16629 940c80b32393 #OTHER by mawalch mawalch parents: 16625 diff changeset	16988	AbstractSourceCodeManager cachingSources ifTrue:[
16387 f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16989	AbstractSourceCodeManager initCacheDirPath.
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16990	cacheDir := self sourceCacheDir value.
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16991	cacheDir isNil ifTrue:[
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16992	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	16993	^ self.
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	16994	].
16629 940c80b32393 #OTHER by mawalch mawalch parents: 16625 diff changeset	16995	] ifFalse:[
940c80b32393 #OTHER by mawalch mawalch parents: 16625 diff changeset	16996	(Dialog confirm:'No cache directory defined. Setup now?') ifTrue:[
940c80b32393 #OTHER by mawalch mawalch parents: 16625 diff changeset	16997	AbstractSourceCodeManager cachingSources:true.
940c80b32393 #OTHER by mawalch mawalch parents: 16625 diff changeset	16998	self browseSourceCache
940c80b32393 #OTHER by mawalch mawalch parents: 16625 diff changeset	16999	].
16387 f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	17000	].
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	17001	].
17653 091a927c9578 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17644 diff changeset	17002	FileBrowser default openOn:cacheDir
091a927c9578 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17644 diff changeset	17003
10811 2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	17004	"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	17005	"Modified: / 01-09-2017 / 14:03:40 / cg"
10811 2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	17006	!
2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	17007
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17008	condenseSourceCache
7549 68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	17009	self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ].
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	17010	Method flushSourceStreamCache.
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	17011
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	17012	"Modified: / 28-11-2006 / 12:21:33 / cg"
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17013	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17014
12872 2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	17015	fillSourceCache
2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	17016	\|p\|
2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	17017
2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	17018	FillCacheProcess notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17019	FillCacheProcess terminate
12872 2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	17020	].
2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	17021	FillCacheProcess := p :=
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17022	[
17536 37d42dd27be8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 17532 diff changeset	17023	Transcript showCR:'Fill cache background process started...'.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17024	[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17025	Smalltalk allClasses do:[:eachClass \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17026	eachClass source
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17027	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17028	] ensure:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17029	(FillCacheProcess == p) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17030	FillCacheProcess := nil
17536 37d42dd27be8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 17532 diff changeset	17031	].
37d42dd27be8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 17532 diff changeset	17032	Transcript showCR:'Fill cache background process finished.'.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17033	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17034	] forkAt:(Processor systemBackgroundPriority)
17536 37d42dd27be8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 17532 diff changeset	17035
37d42dd27be8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 17532 diff changeset	17036	"Modified: / 19-06-2017 / 17:26:29 / cg"
12872 2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	17037	!
2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	17038
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17039	flushSourceCache
7549 68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	17040	self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ].
10738 9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	17041
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	17042	"Modified: / 30-09-2011 / 13:34:01 / cg"
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17043	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17044
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17045	removePerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17046
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17047	\|module\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17048
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17049	acceptChannel value:true.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17050	module := self perModuleRootModule value.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	17051	self listOfModules remove:module ifAbsent:nil.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17052	rootsPerModule removeKey:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17053	self perModuleRootModule value:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17054	self perModuleRoot value:nil.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	17055	self updateModifiedChannel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17056	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17057
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17058	setupSourceCodeManager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17059
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17060	AbstractLauncherApplication::LauncherDialogs cvsConfigurationDialog.
18722 be7f278206d9 #DOCUMENTATION by stefan Stefan Vogel <sv@exept.de> parents: 18720 diff changeset	17061	manager := Smalltalk at:#SourceCodeManager.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17062	manager notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17063	repositoryHolder value: manager repositoryName.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17064	sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17065	].
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17066
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17067	"Modified: / 16-08-2006 / 11:07:51 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	17068	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	17069
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	17070	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17071
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17072	acceptChannel
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17073
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17074	acceptChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17075	acceptChannel := TriggerValue new.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17076	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17077	^ acceptChannel.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17078	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17079
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17080	availableManagerTypeNames
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17081	^ self availableManagers collect:[:cls \| cls managerTypeName].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17082
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17083	"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	17084	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17085
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17086	availableManagers
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17087	availableManagers isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17088	availableManagers := AbstractSourceCodeManager availableManagers copy.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17089	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	17090	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17091	^ availableManagers.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17092
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17093	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17094	self basicNew availableManagers
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17095	"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17096
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17097	"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	17098	"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	17099	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17100
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17101	canMoveDown
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17102	^ BlockValue
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17103	with:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17104	[:sel \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17105	sel notNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17106	and:[sel ~~ 0
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17107	and:[sel ~~ managerPerMatchingModule size]]]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17108	argument:(self selectedManagerPerMatchingModuleHolder)
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17109
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17110	"Created: / 18-04-2011 / 20:52:48 / cg"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17111	"Created: / 09-07-2011 / 14:18:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17112	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17113
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17114	canMoveUp
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17115	^ BlockValue
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17116	with:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17117	[:sel \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17118	sel notNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17119	and:[sel > 1]]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17120	argument:(self selectedManagerPerMatchingModuleHolder)
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17121
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17122	"Created: / 18-04-2011 / 20:52:48 / cg"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17123	"Created: / 09-07-2011 / 14:18:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17124	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17125
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17126	canRemoveManagerPerPackageEntry
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17127	^ BlockValue
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17128	with:[:sel :use \| sel notNil and:[sel ~~ 0 and:[use]] ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17129	argument:(self selectedManagerPerMatchingModuleHolder)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17130	argument:(self useManager)
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17131
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17132	"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	17133	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17134
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17135	checkClassesWhenCheckingIn
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17136
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17137	checkClassesWhenCheckingIn isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17138	checkClassesWhenCheckingIn := (currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17139	checkClassesWhenCheckingIn onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17140	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17141	^ checkClassesWhenCheckingIn.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17142	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17143
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17144	keepMethodSource
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17145
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17146	keepMethodSource isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17147	keepMethodSource := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17148	keepMethodSource onChangeSend:#updateModifiedChannel to:self
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17149	].
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17150	^ keepMethodSource.
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17151	!
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17152
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17153	listOfModules
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17154
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17155	listOfModules isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17156	rootsPerModule notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17157	listOfModules := rootsPerModule keys asList.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17158	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17159	listOfModules sort.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17160	listOfModules onChangeSend:#updateModifiedChannel to:self
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17161	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17162	^ listOfModules.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17163	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17164
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17165	localSourceFirst
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17166
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17167	localSourceFirst isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17168	localSourceFirst := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17169	localSourceFirst onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17170	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17171	^ localSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17172	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17173
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17174	managerIsCVSSourceCodeManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17175	managerIsCVSSourceCodeManager isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17176	managerIsCVSSourceCodeManager := (SourceCodeManager notNil and:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17177	[SourceCodeManager isCVS]) asValue.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17178	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17179	^ managerIsCVSSourceCodeManager.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17180
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17181	"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	17182	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17183
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17184	managerIsSmallTeamSourceCodeManager
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17185	managerIsSmallTeamSourceCodeManager isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17186	managerIsSmallTeamSourceCodeManager := (SourceCodeManager notNil and:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17187	[SourceCodeManager isSmallTeam]) asValue.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17188	].
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17189	^ managerIsSmallTeamSourceCodeManager.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17190
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17191	"Created: / 09-11-2006 / 14:33:53 / cg"
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17192	!
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17193
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17194	managerIsStoreSourceCodeManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17195	managerIsStoreSourceCodeManager isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17196	managerIsStoreSourceCodeManager := (SourceCodeManager notNil and:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17197	[SourceCodeManager isStore]) asValue.
6897 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	^ managerIsStoreSourceCodeManager.
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	"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	17202	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17203
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17204	managerPerMatchingModule
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17205	managerPerMatchingModule isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17206	managerPerMatchingModule := List new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17207	managerPerMatchingModule onChangeSend:#updateModifiedChannel to:self
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17208	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17209	^ managerPerMatchingModule.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17210
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17211	"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	17212	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17213
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17214	managerTypeIndexToAddHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17215	managerTypeIndexToAddHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17216	managerTypeIndexToAddHolder := ValueHolder new.
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17217	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17218	^ managerTypeIndexToAddHolder.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17219
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17220	"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	17221	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17222
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17223	managerTypeToAddHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17224	managerTypeToAddHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17225	managerTypeToAddHolder := ValueHolder new.
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17226	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17227	^ managerTypeToAddHolder.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17228
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17229	"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	17230	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17231
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17232	moreThanOneManagerTypesAvailable
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17233	^ self availableManagers size > 1
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17234
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17235	"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	17236	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17237
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17238	packageToAddHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17239	packageToAddHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17240	packageToAddHolder := ValueHolder new.
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17241	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17242	^ packageToAddHolder.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17243
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17244	"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	17245	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17246
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17247	perModuleFieldsEnableHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17248
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17249	perModuleFieldsEnableHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17250	perModuleFieldsEnableHolder := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17251	perModuleFieldsEnableHolder addDependent:self.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17252	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17253	^ perModuleFieldsEnableHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17254	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17255
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17256	perModuleRoot
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	17257	perModuleRoot isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17258	perModuleRoot := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17259	perModuleRoot addDependent:self.
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	17260	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17261	^ perModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17262	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17263
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17264	perModuleRootModule
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	17265	perModuleRootModule isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17266	perModuleRootModule := ValueHolder new.
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	17267	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17268	^ perModuleRootModule.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17269	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17270
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17271	removeEnabled
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17272
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17273	removeEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17274	removeEnabled := false asValue.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17275	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17276	^ removeEnabled.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17277	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17278
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17279	selectedManager
13580 5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17280	\|idx availableManagers\|
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17281
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17282	availableManagers := self availableManagers.
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17283	availableManagers size == 1 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17284	^ availableManagers anElement
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	17285	].
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	17286
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17287	idx := self selectedManagerTypeIndexHolder value.
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	17288	(idx == 0 or:[idx isNil]) ifTrue:[ ^ nil].
13580 5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17289	^ availableManagers at:idx
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17290
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17291	"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	17292	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17293
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17294	selectedManagerPerMatchingModuleHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17295	selectedManagerPerMatchingModuleHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17296	selectedManagerPerMatchingModuleHolder := nil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17297	selectedManagerPerMatchingModuleHolder addDependent:self.
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17298	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17299	^ selectedManagerPerMatchingModuleHolder.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17300
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17301	"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	17302	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17303
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17304	selectedManagerTypeIndexHolder
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17305	\|selectedManager\|
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17306
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17307	selectedManagerTypeIndexHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17308	selectedManagerTypeIndexHolder := nil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17309	selectedManagerTypeIndexHolder onChangeEvaluate:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17310	selectedManager := self selectedManager.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17311	self managerIsCVSSourceCodeManager value:( selectedManager notNil and:[ selectedManager isCVS] ).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17312	self managerIsStoreSourceCodeManager value:( selectedManager notNil and:[ selectedManager isStore] ).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17313	self managerIsSmallTeamSourceCodeManager value:( selectedManager notNil and:[ selectedManager isSmallTeam] ).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17314	self updateModifiedChannel
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17315	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17316
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17317	self updateSelectedManager.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17318	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17319	^ selectedManagerTypeIndexHolder.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17320
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17321	"Created: / 16-08-2006 / 11:17:20 / cg"
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17322	"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	17323	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17324
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17325	selectedPerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17326	selectedPerModuleRoot isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17327	selectedPerModuleRoot := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17328	selectedPerModuleRoot addDependent:self.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17329	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17330	^ selectedPerModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17331	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17332
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17333	sourceCacheDir
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	17334	sourceCacheDir isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17335	sourceCacheDir := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17336	sourceCacheDir onChangeSend:#updateModifiedChannel to:self
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	17337	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17338	^ sourceCacheDir.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17339	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17340
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17341	useManager
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	17342	useManager isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17343	useManager := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17344	useManager onChangeSend:#updateModifiedChannel to:self
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	17345	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17346	^ useManager.
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	17347	!
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	17348
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	17349	verboseSourceCodeAccess
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	17350	verboseSourceCodeAccess isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17351	verboseSourceCodeAccess := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17352	verboseSourceCodeAccess onChangeSend:#updateModifiedChannel to:self
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	17353	].
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	17354	^ verboseSourceCodeAccess.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17355	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17356
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	17357	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17358
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17359	selectedPerModuleRootChanged
16584 6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17360	\|module entry firstEntry
18925 15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17361	newRemoveEnabled newPerModuleRootModule newPerModuleRoot\|
16584 6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17362
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17363	self acceptChannel value:true.
18925 15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17364
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17365	newRemoveEnabled := false.
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17366	newPerModuleRootModule := ' '.
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17367	newPerModuleRoot := ''.
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17368
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17369	module := self selectedPerModuleRoot value.
18925 15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17370	module notNil ifTrue:[
16584 6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17371	entry := rootsPerModule at:module ifAbsent:#().
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17372	firstEntry := entry first.
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17373	(firstEntry = CVSSourceCodeManager) ifTrue:[
18925 15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17374	newRemoveEnabled := true.
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17375	newPerModuleRootModule := module.
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17376	newPerModuleRoot := (entry at:2).
16584 6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17377	] ifFalse:[
18925 15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17378	newPerModuleRootModule := module, ' ',('<< use ',firstEntry managerTypeName,' >>') allBold.
16584 6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17379	].
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17380	].
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17381
18925 15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17382	self removeEnabled value:newRemoveEnabled.
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17383	self perModuleRootModule value:newPerModuleRootModule.
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17384	self perModuleRoot value:newPerModuleRoot.
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17385
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17386	"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	17387	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17388
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17389	sourceDirChanged
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17390	\|nm fn previousDir\|
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17391
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17392	manager isNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17393
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17394	previousDir := AbstractSourceCodeManager cacheDirectoryName.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17395
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17396	nm := self sourceCacheDir value.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17397	nm isEmptyOrNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17398
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17399	(fn := nm asFilename) exists ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17400	(self confirm:(resources
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17401	stringWithCRs:'SourceCache directory "%1" does not exist.\Create ?'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17402	with:nm)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17403	) ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17404	self sourceCacheDir value:previousDir.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17405	^ self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17406	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17407	fn
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17408	recursiveMakeDirectory;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17409	makeReadableForAll;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17410	makeWritableForAll;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17411	makeExecutableForAll.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17412	^ self.
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17413	].
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17414
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17415	(fn isDirectory) ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17416	self warn:(resources
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17417	stringWithCRs:'Not a directory: "%1"'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17418	with:nm).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17419	self sourceCacheDir value:previousDir.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17420	^ self.
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17421	].
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17422
13243 6184dc32e5cb Use #isWritableDirectory Stefan Vogel <sv@exept.de> parents: 13224 diff changeset	17423	(fn isWritableDirectory and:[fn isReadable]) ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17424	(self confirm:(resources
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17425	stringWithCRs:'SourceCache directory "%1" is not both readable and writable.\Change ?'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17426	with:nm)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17427	) ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17428	self sourceCacheDir value:previousDir.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17429	^ self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17430	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17431	fn
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17432	makeReadableForAll;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17433	makeWritableForAll;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17434	makeExecutableForAll.
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17435	].
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17436	"/ (fn isReadableForAll and:[fn isWritableForAll]) ifFalse:[
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17437	"/ (self confirm:(resources
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17438	"/ 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	17439	"/ with:nm)
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17440	"/ ) ifTrue:[
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17441	"/ fn
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17442	"/ makeReadableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17443	"/ makeWritableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17444	"/ makeExecutableForAll.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17445	"/ ]
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17446	"/ ].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17447	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17448
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17449	update:something with:aParameter from:changedObject
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17450	\|idx entry\|
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17451
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17452	changedObject == sourceCacheDir ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17453	self sourceDirChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17454	self updateModifiedChannel.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17455	^ self
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17456	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17457
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17458	changedObject == selectedManagerPerMatchingModuleHolder ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17459	idx := changedObject value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17460	(idx notNil and:[idx ~~ 0]) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17461	entry := self managerPerMatchingModule at:idx.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17462	self packageToAddHolder value:(entry package).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17463	self managerTypeToAddHolder value:(entry managerTypeName).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17464	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17465	^ self.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17466	].
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17467
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17468	super update:something with:aParameter from:changedObject
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17469
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17470	"Modified: / 18-04-2011 / 21:23:08 / cg"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17471	"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	17472	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17473
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17474	updateSelectedManager
13580 5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17475	\|selectedManagerTypeIndex availableManagers\|
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17476
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17477	availableManagers := self availableManagers.
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17478
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17479	selectedManagerTypeIndex := availableManagers indexOf:SourceCodeManager.
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17480	selectedManagerTypeIndex == 0 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17481	availableManagers size == 1 ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17482	selectedManagerTypeIndex := 1.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17483	].
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17484	].
7178 1f33a61499e6 * empty log message * ca parents: 7175 diff changeset	17485	self selectedManagerTypeIndexHolder value:selectedManagerTypeIndex.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17486	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17487
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	17488	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	17489
14252 0a96c65c7c90 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14242 diff changeset	17490	editorHelpRelativeWikiURL
0a96c65c7c90 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14242 diff changeset	17491	"the relative URL of the dialog-description in the Wiki"
0a96c65c7c90 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14242 diff changeset	17492
0a96c65c7c90 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14242 diff changeset	17493	^ 'Settings_SourceCodeManagerSettings'
0a96c65c7c90 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14242 diff changeset	17494	!
0a96c65c7c90 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14242 diff changeset	17495
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	17496	helpFilename
10125 8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	17497	^ 'Launcher/sourceRepositorySetup.html'
8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	17498
8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	17499	"Modified: / 04-07-2011 / 17:22:39 / cg"
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	17500	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	17501
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	17502	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17503
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17504	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	17505	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	17506
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17507	(AbstractSourceCodeManager notNil) ifTrue:[ AbstractSourceCodeManager autoload ].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17508
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17509	managerTypePerModule := Dictionary new.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17510
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17511	useManager := false asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	17512	useManager onChangeSend:#updateModifiedChannel to:self.
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17513
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17514	sourceCacheDir := nil asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17515	sourceCacheDir addDependent:self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17516
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17517	repositoryHolder := '' asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17518	rootsPerModule := Dictionary new.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17519
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17520	self availableManagers do:[:eachManager \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17521	eachManager repositoryInfoPerModule
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17522	keysAndValuesDo:[:module :info \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17523	module withoutSeparators ~= module ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17524	self halt:'should not happen any longer'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17525	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17526	rootsPerModule at:module put:(Array with:eachManager with:info)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17527	].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17528	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17529
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	17530	super initialize.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17531
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	17532	"Modified: / 08-02-2017 / 00:30:14 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17533	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17534
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	17535	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17536
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17537	cvsRootFromCVSRootFileOrNil
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17538	\|cvsDir cvsRootFile cvsRoot\|
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17539
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17540	cvsDir := 'CVS' asFilename.
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17541	cvsDir isDirectory ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17542	cvsRootFile := cvsDir construct:'Root'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17543	cvsRootFile isReadable ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17544	cvsRoot := cvsRootFile contents firstIfEmpty:nil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17545	].
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17546	].
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17547	^ cvsRoot
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17548	!
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17549
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17550	hasManager
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17551	"true if ANY source code management class is available"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17552
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17553	^ AbstractSourceCodeManager notNil and:[AbstractSourceCodeManager isLoaded]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17554	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17555
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17556	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	17557	(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	17558	(Smalltalk at:#SourceCodeManager) ~~ self selectedManager ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	17559	(self hasManager and:[self useManager value]) ifFalse:[^ false].
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	17560
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17561	(Class tryLocalSourceFirst ~= self localSourceFirst value) ifTrue:[^ true].
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17562	((self selectedManager cacheDirectoryName ? '') ~= (self sourceCacheDir value ? '')) ifTrue:[^ true].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17563
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17564	((currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) ~= self checkClassesWhenCheckingIn value)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17565	ifTrue:[^ true].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17566
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17567	((currentUserPrefs keepMethodSourceCode) ~= self keepMethodSource value)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17568	ifTrue:[^ true].
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17569
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17570	((AbstractSourceCodeManager managerPerMatchingModuleDefinitions)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17571	~= (self managerPerMatchingModule asOrderedCollection)) ifTrue:[^ true].
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	17572
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	17573	(AbstractSourceCodeManager verboseSourceCodeAccess
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17574	~= self verboseSourceCodeAccess value) ifTrue:[^ true].
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17575
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17576	self availableManagers do:[:mgr \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17577	\|modules\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17578
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17579	modules := rootsPerModule select:[:entry \| entry first == mgr].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17580
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17581	mgr repositoryInfoPerModule keysAndValuesDo:[:module :info \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17582	((modules includesKey:module) and:[info = (modules at:module) second])
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17583	ifFalse:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17584	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17585	modules keysAndValuesDo:[:module :info\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17586	((mgr repositoryInfoPerModule includesKey:module) and:[(mgr repositoryInfoPerModule at:module) = info second])
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17587	ifFalse:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17588	].
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17589	].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17590
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17591	^ false
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	17592
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17593	"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	17594	"Modified: / 27-07-2012 / 12:35:40 / cg"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17595	! !
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17596
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17597	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog class methodsFor:'help specs'!
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17598
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	17599	helpSpec
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17600	"This resource specification was automatically generated
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17601	by the UIHelpTool of ST/X."
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17602
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17603	"Do not manually edit this!! If it is corrupted,
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17604	the UIHelpTool may not be able to read the specification."
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17605
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17606	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17607	UIHelpTool openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17608	"
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17609
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17610	<resource: #help>
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17611
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	17612	^ super helpSpec addPairsFrom:#(
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17613
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17614	#manager
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17615	'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	17616
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17617	#packageMatchPattern
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17618	'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	17619
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17620	)
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17621
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17622	"Created: / 01-12-2011 / 19:52:19 / cg"
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17623	! !
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17624
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17625	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog class methodsFor:'interface specs'!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17626
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17627	windowSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17628	"This resource specification was automatically generated
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17629	by the UIPainter of ST/X."
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17630
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17631	"Do not manually edit this!! If it is corrupted,
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17632	the UIPainter may not be able to read the specification."
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17633
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17634	"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17635	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog andSelector:#windowSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17636	AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog new openInterface:#windowSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17637	AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog open
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17638	"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17639
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17640	<resource: #canvas>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17641
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17642	^
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17643	#(FullSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17644	name: windowSpec
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17645	uuid: '60fff4f4-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17646	window:
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17647	(WindowSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17648	label: 'Per Module Source Code Manager'
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17649	name: 'Per Module Source Code Manager'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17650	uuid: '60fff846-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17651	min: (Point 10 10)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17652	bounds: (Rectangle 0 0 581 98)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17653	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17654	component:
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17655	(SpecCollection
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17656	collection: (
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17657	(ViewSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17658	name: 'Content'
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17659	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	17660	uuid: '60fffab2-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17661	component:
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17662	(SpecCollection
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17663	collection: (
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17664	(LabelSpec
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17665	label: 'Package ID (Matchpattern):'
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17666	name: 'Label15'
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17667	layout: (LayoutFrame 2 0 9 0 250 0 31 0)
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17668	activeHelpKey: packageMatchPattern
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17669	uuid: '60fffc10-d9d9-11e7-a8cd-c42c033b4871'
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17670	translateLabel: true
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17671	adjust: left
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17672	)
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17673	(ComboBoxSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17674	name: 'ComboBox1'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17675	layout: (LayoutFrame 250 0 9 0 -2 1 31 0)
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17676	activeHelpKey: packageMatchPattern
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17677	uuid: '60fffdb4-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17678	enableChannel: useManager
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17679	model: packageHolder
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17680	comboList: samplePackageList
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17681	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17682	(LabelSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17683	label: 'Manager:'
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17684	name: 'Label16'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17685	layout: (LayoutFrame 2 0 37 0 250 0 59 0)
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17686	activeHelpKey: manager
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17687	uuid: '61000048-d9d9-11e7-a8cd-c42c033b4871'
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17688	translateLabel: true
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17689	adjust: left
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17690	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17691	(ComboListSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17692	name: 'ComboList2'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17693	layout: (LayoutFrame 250 0 39 0 -2 1 61 0)
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17694	activeHelpKey: manager
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17695	uuid: '61000188-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17696	model: managerNameHolder
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17697	comboList: availableManagerTypeNames
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17698	useIndex: false
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17699	hidePullDownMenuButton: true
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	)
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	(HorizontalPanelViewSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17706	name: 'Buttons'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17707	layout: (LayoutFrame 0 0 -30 1 -16 1 0 1)
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17708	uuid: '61000336-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17709	horizontalLayout: fit
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17710	verticalLayout: center
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17711	horizontalSpace: 3
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17712	verticalSpace: 3
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17713	reverseOrderIfOKAtLeft: true
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17714	component:
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17715	(SpecCollection
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17716	collection: (
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17717	(ActionButtonSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17718	label: 'Cancel'
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17719	name: 'Button2'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17720	uuid: '610004e4-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17721	translateLabel: true
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17722	model: doCancel
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17723	extent: (Point 279 28)
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17724	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17725	(ActionButtonSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17726	label: 'OK'
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17727	name: 'Button1'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17728	uuid: '610006c4-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17729	translateLabel: true
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17730	model: doAccept
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17731	enableChannel: doAcceptEnabled
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17732	extent: (Point 280 28)
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17733	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17734	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17735
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17736	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17737	keepSpaceForOSXResizeHandleH: true
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17738	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17739	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17740
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17741	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17742	)
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17743	! !
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17744
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17745	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog methodsFor:'accessing'!
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17746
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17747	manager
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17748
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17749	\| m mn\|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17750	mn := self managerNameHolder value.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17751	m := self availableManagers detect:[:mgr \| mgr managerTypeName = mn] ifNone:nil.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17752	^m
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17753
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17754	"Created: / 09-07-2011 / 13:07:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17755	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17756
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17757	manager: aSourceCodeManager
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17758
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17759	self managerNameHolder value: aSourceCodeManager managerTypeName
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17760
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17761	"Created: / 09-07-2011 / 13:02:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17762	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17763
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17764	package
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17765
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17766	^self packageHolder value
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17767
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17768	"Created: / 09-07-2011 / 13:06:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17769	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17770
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17771	package: aString
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17772
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17773	self packageHolder value: aString
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17774
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17775	"Created: / 09-07-2011 / 13:02:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17776	! !
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17777
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17778	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog methodsFor:'aspects'!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17779
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17780	availableManagerTypeNames
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17781	^ self availableManagers collect:[:cls \| cls managerTypeName].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17782
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17783	"Created: / 16-08-2006 / 11:16:25 / cg"
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	availableManagers
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17787	availableManagers isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17788	availableManagers := AbstractSourceCodeManager availableManagers copy.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17789	availableManagers := availableManagers sort:[:a :b \| a managerTypeName asLowercase < b managerTypeName asLowercase].
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17790	].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17791	^ availableManagers.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17792
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17793	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17794	self basicNew availableManagers
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	"Created: / 16-08-2006 / 11:01:10 / cg"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17798	"Modified: / 18-04-2011 / 19:05:47 / cg"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17799	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17800
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17801	doAcceptEnabled
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17802	<resource: #uiAspect>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17803
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17804	\|holder\|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17805
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17806	(holder := builder bindingAt:#doAcceptEnabled) isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17807	holder := BlockValue
18763 6a3d3a6ac24e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18744 diff changeset	17808	with:[:package :manager\|
6a3d3a6ac24e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18744 diff changeset	17809	package notEmptyOrNil and:[manager notNil]]
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17810	argument: self packageHolder
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17811	argument: self managerHolder.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17812
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17813	builder aspectAt:#doAcceptEnabled put:holder.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17814	].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17815	^ holder.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17816
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17817	"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	17818	"Modified: / 17-05-2019 / 15:30:00 / Stefan Vogel"
6a3d3a6ac24e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18744 diff changeset	17819	"Modified (format): / 17-05-2019 / 16:49:27 / Stefan Vogel"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17820	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17821
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17822	managerHolder
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17823	<resource: #uiAspect>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17824
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17825	managerNameHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17826	managerNameHolder := ValueHolder new.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17827	].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17828	^ managerNameHolder.
10951 a160d08cac9a comment/format in: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 10944 diff changeset	17829
a160d08cac9a comment/format in: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 10944 diff changeset	17830	"Modified (comment): / 03-12-2011 / 11:30:58 / cg"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17831	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17832
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17833	managerNameHolder
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17834	<resource: #uiAspect>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17835
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17836	managerNameHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17837	managerNameHolder := ValueHolder new.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17838	].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17839	^ managerNameHolder.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17840
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17841	"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	17842	"Modified (comment): / 03-12-2011 / 11:30:45 / cg"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17843	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17844
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17845	packageHolder
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17846	<resource: #uiAspect>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17847
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17848	packageHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17849	packageHolder := ValueHolder new.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17850	].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17851	^ packageHolder.
10951 a160d08cac9a comment/format in: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 10944 diff changeset	17852
a160d08cac9a comment/format in: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 10944 diff changeset	17853	"Modified (comment): / 03-12-2011 / 11:30:51 / cg"
11415 36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17854	!
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17855
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17856	samplePackageList
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17857	<resource: #uiAspect>
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17858
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17859	\|modules\|
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17860
16210 58264c7da774 #REFACTORING Claus Gittinger <cg@exept.de> parents: 16200 diff changeset	17861	modules := Smalltalk allPackageIDs
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17862	collect:[:packageId \| packageId asPackageId module ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17863	as:Set.
11415 36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17864
11420 7b46a38ae2c6 Fix in #sampleProjectList (__NoProject__ may not be present) vrany parents: 11415 diff changeset	17865	modules remove:(PackageId noProjectID) ifAbsent:[].
11415 36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17866	modules := modules collect:[:packageId \| packageId , ':*' ].
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17867	^ modules asSortedCollection
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17868
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	17869	"Created: / 12-03-2012 / 11:35:40 / cg"
11420 7b46a38ae2c6 Fix in #sampleProjectList (__NoProject__ may not be present) vrany parents: 11415 diff changeset	17870	"Modified: / 13-03-2012 / 13:12:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17871	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17872
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17873	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17874
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17875	standardStyles
15885 db029287dbf3 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15876 diff changeset	17876	"only those are presented initially"
db029287dbf3 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15876 diff changeset	17877
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17878	^ #(
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17879	'adwaita'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17880	"/ 'decWindows'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17881	'iris'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17882	'macosx'
15885 db029287dbf3 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15876 diff changeset	17883	'macosx_yosemite'
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17884	'motif'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17885	'mswindows8'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17886	'mswindows95'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17887	'mswindowsXP'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17888	'mswindowsxp'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17889	'mswindowsVista'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17890	'mswindowsvista'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17891	'napkin'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17892	"/ 'next'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17893	"/ 'normal'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17894	"/ 'os2'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17895	'sgmotif'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17896	"/ 'st80'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17897	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17898	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17899
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	17900	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	17901
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	17902	closePreviewButtonImage
18285 a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	17903	<resource: #programImage>
a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	17904	^ ToolbarIconLibrary removeTabIcon
a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	17905
a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	17906	"Modified: / 28-07-2018 / 09:59:43 / Claus Gittinger"
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	17907	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	17908
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17909	defaultIcon
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17910	"This resource specification was automatically generated
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17911	by the ImageEditor of ST/X."
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17912
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17913	"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	17914	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	17915
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17916	"
15083 f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	17917	self defaultIcon inspect
f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	17918	ImageEditor openOnClass:self andSelector:#defaultIcon
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17919	Icon flushCachedIcons
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17920	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17921
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17922	<resource: #image>
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17923
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	17924	^Icon
15083 f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	17925	constantNamed:'AbstractSettingsApplication::StyleSettingsAppl defaultIcon'
f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	17926	ifAbsentPut:[(Depth8Image new) width:22; height:22; bits:(ByteArray fromPackedString:'
f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	17927	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DB@ D@@@@@@@@@@@@@@@@@@@@@@@DB@ HB@P@@@@@@@@@@@@@@@@@@@@DCA@HB@ DA@@@@@@@@@@@@
f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	17928	@@@@@@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	17929	@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	17930	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	17931	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	17932	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	17933	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	17934
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17935	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17936
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17937	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17938	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17939	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17940
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17941	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17942	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17943
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17944	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	17945	UIPainter new openOnClass:AbstractSettingsApplication::StyleSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	17946	AbstractSettingsApplication::StyleSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	17947	AbstractSettingsApplication::StyleSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17948	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17949
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17950	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17951
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17952	^
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	17953	#(FullSpec
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	17954	name: windowSpec
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17955	window:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	17956	(WindowSpec
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17957	label: 'ViewStyle Selection'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17958	name: 'ViewStyle Selection'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17959	min: (Point 10 10)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17960	bounds: (Rectangle 0 0 562 661)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17961	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17962	component:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	17963	(SpecCollection
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17964	collection: (
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17965	(VariableVerticalPanelSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17966	name: 'VariableVerticalPanel1'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17967	layout: (LayoutFrame 0 0.0 0 0 0 1.0 -65 1)
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: (
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17971	(ViewSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17972	name: 'Box1'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17973	component:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17974	(SpecCollection
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17975	collection: (
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17976	(TextEditorSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17977	name: 'TextEditor1'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17978	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	17979	style: (FontDescription arial medium roman 9)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17980	model: noticeLabelHolder
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17981	hasHorizontalScrollBar: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17982	hasVerticalScrollBar: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17983	isReadOnly: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17984	hasKeyboardFocusInitially: false
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17985	postBuildCallback: postBuildHelpLabel:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17986	viewClassName: 'TextView'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17987	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17988	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17989
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17990	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17991	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17992	(ViewSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17993	name: 'Box2'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17994	component:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17995	(SpecCollection
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17996	collection: (
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17997	(VerticalPanelViewSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17998	name: 'VerticalPanel1'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	17999	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	18000	horizontalLayout: fit
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18001	verticalLayout: topFit
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18002	horizontalSpace: 3
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18003	verticalSpace: 3
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18004	component:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18005	(SpecCollection
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18006	collection: (
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18007	(ViewSpec
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18008	name: 'Box4'
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18009	component:
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18010	(SpecCollection
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18011	collection: (
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18012	(CheckBoxSpec
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18013	label: 'standard styles only'
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18014	name: 'CheckBox1'
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18015	layout: (LayoutFrame 0 0 0 0 -150 1 0 1)
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18016	model: showStandardStylesOnly
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18017	translateLabel: true
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18018	)
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18019	(CheckBoxSpec
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18020	label: 'Preview'
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18021	name: 'CheckBox2'
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18022	layout: (AlignmentOrigin 0 1 17 0 1 0.5)
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18023	model: previewVisibleHolder
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18024	translateLabel: true
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18025	)
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18026	)
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18027
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18028	)
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18029	extent: (Point 562 35)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18030	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18031	(SequenceViewSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18032	name: 'StyleList'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18033	model: selectedStyle
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18034	hasHorizontalScrollBar: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18035	hasVerticalScrollBar: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18036	doubleClickSelector: doubleClickAt:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18037	useIndex: false
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18038	sequenceList: styleList
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18039	extent: (Point 562 334)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18040	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18041	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18042
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18043	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18044	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18045	)
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	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18048	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18049	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18050
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18051	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18052	handles: (Any 0.37 1.0)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18053	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18054	(ViewSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18055	name: 'Box3'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18056	layout: (LayoutFrame 0 0 -65 1 0 1 0 1)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18057	component:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18058	(SpecCollection
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18059	collection: (
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18060	(LabelSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18061	label: 'Label'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18062	name: 'Label1'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18063	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	18064	translateLabel: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18065	labelChannel: infoLabelHolder
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18066	resizeForLabel: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18067	adjust: left
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18068	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18069	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18070
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18071	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18072	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18073	(LabelSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18074	label: 'Preview'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18075	name: 'PreviewLabel'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18076	layout: (LayoutFrame 29 0 39 0 129 0 61 0)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18077	level: 0
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18078	borderWidth: 1
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18079	visibilityChannel: previewVisibleHolder
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18080	backgroundColor: (Color 87.0 87.0 87.0)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18081	translateLabel: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18082	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18083	(NonScrollableArbitraryComponentSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18084	name: 'Preview'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18085	layout: (LayoutFrame 27 0 63 0 444 0 240 0)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18086	level: 1
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18087	visibilityChannel: previewVisibleHolder
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18088	hasBorder: false
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18089	component: ImageView
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18090	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18091	(ActionButtonSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18092	label: 'closePreviewButtonImage'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18093	name: 'ClosePreviewButton'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18094	layout: (LayoutFrame 423 0 41 0 443 0 63 0)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18095	visibilityChannel: previewVisibleHolder
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18096	hasCharacterOrientedLabel: false
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18097	translateLabel: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18098	model: closePreview
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18099	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18100	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18101
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	18102	)
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	18103	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18104	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18105
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18106	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18107
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18108	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18109	"nothing done here"
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18110	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18111
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18112	basicSaveSettings
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	18113	\|newStyle\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18114
17104 616d379392a9 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17073 diff changeset	18115	newStyle := self selectedStyle value asSymbol.
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	18116
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18117	self withWaitCursorDo:[
15899 ea88da97ae6c #BUGFIX Claus Gittinger <cg@exept.de> parents: 15888 diff changeset	18118	Transcript showCR:'Change style to ' , newStyle , ' ...'.
17104 616d379392a9 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17073 diff changeset	18119	View defaultStyle:newStyle.
616d379392a9 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17073 diff changeset	18120	currentUserPrefs viewStyle:newStyle.
15899 ea88da97ae6c #BUGFIX Claus Gittinger <cg@exept.de> parents: 15888 diff changeset	18121	currentUserPrefs fontPreferencesChanged. "/ force into class defaults
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18122	].
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	18123	self reopenToolsAfterChangedViewStyleSetting.
17104 616d379392a9 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17073 diff changeset	18124
616d379392a9 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17073 diff changeset	18125	"Modified: / 24-11-2016 / 18:02:04 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18126	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18127
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18128	closePreview
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18129	self previewVisibleHolder value:false.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18130	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18131
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18132	doubleClickAt:aLine
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18133
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18134	self saveSettings.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18135	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18136
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18137	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18138
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18139	infoLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18140
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18141	infoLabelHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18142	infoLabelHolder := '' asValue.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18143	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18144	^ infoLabelHolder.
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
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18147	noticeLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18148
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18149	noticeLabelHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18150	noticeLabelHolder := '' asValue.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18151	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18152	^ noticeLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18153	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18154
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18155	previewVisibleHolder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18156
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18157	previewVisibleHolder isNil ifTrue:[
16924 b1a7600d559b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16923 diff changeset	18158	previewVisibleHolder := false asValue.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18159	previewVisibleHolder onChangeSend:#changeInfoLabel to:self.
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18160	].
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18161	^ previewVisibleHolder.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18162	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18163
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18164	selectedStyle
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18165
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18166	selectedStyle isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18167	selectedStyle := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18168	selectedStyle addDependent:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18169	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18170	^ selectedStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18171	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18172
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18173	showStandardStylesOnly
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18174
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18175	showStandardStylesOnly isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18176	showStandardStylesOnly := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18177	showStandardStylesOnly addDependent:self.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18178	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18179	^ showStandardStylesOnly.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18180	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18181
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18182	styleList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18183
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18184	styleList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18185	styleList := List new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18186	styleList addDependent:self.
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18187	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18188	^ styleList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18189	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18190
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18191	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18192
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18193	changeInfoLabel
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18194	\|nm sheet comment previewFile previewImage imgView labelView\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18195
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18196	comment := ''.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18197	nm := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18198	nm notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18199	sheet := ViewStyle fromFile:(nm , '.style').
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18200	comment := (sheet at:#comment ifAbsent:'') withoutSeparators.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18201	previewFile := sheet at:#previewFileName ifAbsent:nil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18202	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18203	comment := comment withCRs asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18204	comment size == 1 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18205	comment := comment first
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18206	].
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18207	self infoLabelHolder value:comment.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18208
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18209	self previewVisibleHolder value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18210	self builder notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18211	labelView := self componentAt:#PreviewLabel.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18212	imgView := (self componentAt:#Preview).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18213
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18214	previewFile notEmptyOrNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18215	previewImage := Image fromFile:'../../doc/online/pictures' asFilename / previewFile.
16923 20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18216	].
20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18217	previewImage notNil ifTrue:[
20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18218	labelView label:'Preview'.
20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18219	imgView adjust:#fitBig; image:previewImage.
20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18220	] ifFalse:[
20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18221	labelView label:'Sorry - no preview available'.
20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18222	imgView image:nil.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18223	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18224	labelView forceResizeHorizontally.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18225	]
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18226	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18227	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18228
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18229	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18230	changedObject == self showStandardStylesOnly ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18231	self updateList.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18232	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18233	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18234	changedObject == self selectedStyle ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18235	self changeInfoLabel.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18236	self updateModifiedChannel.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18237	^ self
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18238	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18239	super
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18240	update:something
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18241	with:aParameter
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18242	from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18243	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18244
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18245	updateList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18246
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18247	\|listOfStyles lastSelection\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18248
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18249	lastSelection := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18250	listOfStyles := styleDirectoryContents select:[:aFileName \| aFileName asFilename hasSuffix:'style'].
7485 041323d3ca7b use nameWithoutSuffix Claus Gittinger <cg@exept.de> parents: 7440 diff changeset	18251	listOfStyles := listOfStyles collect:[:aFileName \| aFileName asFilename nameWithoutSuffix].
13912 75ca3cc82521 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13902 diff changeset	18252	"/ Filename isCaseSensitive ifFalse:[
75ca3cc82521 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13902 diff changeset	18253	"/ listOfStyles := listOfStyles collect:[:aStyleName \| aStyleName asLowercase].
75ca3cc82521 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13902 diff changeset	18254	"/ ].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18255	listOfStyles remove:'generic' ifAbsent:nil; remove:'mswindows3' ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18256	self showStandardStylesOnly value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18257	listOfStyles := listOfStyles select:[:aStyleName \| self class standardStyles includes:aStyleName asLowercase].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18258	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18259
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18260	listOfStyles sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18261	self styleList contents:listOfStyles.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18262	self selectedStyle value:lastSelection.
7485 041323d3ca7b use nameWithoutSuffix Claus Gittinger <cg@exept.de> parents: 7440 diff changeset	18263
13912 75ca3cc82521 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13902 diff changeset	18264	"Modified: / 06-02-2014 / 14:58:34 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18265	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18266
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18267	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18268
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18269	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18270	^ 'Launcher/styleSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18271	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18272
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18273	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18274
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18275	commonPostBuild
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18276	super commonPostBuild.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18277	self changeInfoLabel
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18278	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18279
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18280	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18281
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18282	\|someRsrcFile resourceDir\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18283
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	18284	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	18285
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18286	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18287
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18288	someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18289	someRsrcFile isNil ifTrue:[
16090 3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18290	someRsrcFile := Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'.
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18291	someRsrcFile isNil ifTrue:[
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18292	someRsrcFile := Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'.
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18293	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18294	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18295	someRsrcFile notNil ifTrue:[
16090 3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18296	resourceDir := someRsrcFile asFilename directoryName
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18297	] ifFalse:[
16090 3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18298	resourceDir := Smalltalk getSystemFileName:'resources'.
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18299	resourceDir isNil ifTrue:[
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18300	self warn:'no styles found (missing ''resources'' directory)'.
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18301	^ self
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18302	].
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	18303	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	18304
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	18305	[
16090 3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18306	styleDirectoryContents := resourceDir asFilename directoryContents.
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	18307	] on:FileStream openErrorSignal do:[:ex\|
16090 3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18308	self warn:'no styles found (unaccessible ''resources'' directory)'.
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18309	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18310	].
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	18311
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18312	self updateList.
6086 1d3d8652e87d * empty log message * Claus Gittinger <cg@exept.de> parents: 6081 diff changeset	18313	(self class standardStyles includes:View defaultStyle asLowercase) ifFalse:[
16090 3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18314	self showStandardStylesOnly value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18315	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18316	self selectedStyle value:(View defaultStyle).
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18317	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	18318
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	18319	"Modified: / 08-02-2017 / 00:29:59 / cg"
5378 4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	18320	!
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	18321
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	18322	postBuildHelpLabel:aWidget
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	18323	aWidget level:0.
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	18324	aWidget scrolledView backgroundColor:self window viewBackground.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18325	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18326
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18327	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18328
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18329	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18330
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18331	^ (self selectedStyle value ~= View defaultStyle)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18332	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18333
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18334	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18335
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18336	emphasisList
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18337	^ self emphasisMappingList collect:#first
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18338	!
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18339
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18340	emphasisMappingList
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18341	"self emphasisMappingList"
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18342
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18343	^ {
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18344	#( #'normal' #normal ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18345	#( #'underline' #underline) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18346	{ 'red underline' . { #underline . (#underlineColor->Color red) } } .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18347	#( #'underwave' #underwave) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18348	{ 'red underwave' . { #underwave . (#underlineColor->Color red) } } .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18349	#( #'bold' #bold ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18350	#( 'bold + underline' #(bold underline) ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18351	{ 'bold + red underline' . { #bold . #underline . (#underlineColor->Color red) } } .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18352	#( 'bold + underwave' #(bold underwave) ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18353	{ 'bold + red underwave' . { #bold . #underwave . (#underlineColor->Color red) } } .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18354	#( #'italic' #italic ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18355	#( 'italic + underline' #(italic underline) ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18356	{ 'italic + red underline'. { #italic . #underline . (#underlineColor->Color red) } } .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18357	#( 'italic + underwave' #(italic underwave) ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18358	{ 'italic + red underwave'. { #italic . #underwave . (#underlineColor->Color red) } } .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18359	#( #'reverse' #reverse )
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18360	}
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18361	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18362
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18363	exampleText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18364
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18365	^ 'methodSelector:methodArg
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18366	"method comment: some stupid code to show the current settings"
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18367
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18368	\|methodVar\| "/ an end-of-line comment...
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18369
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18370	self at:methodArg. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18371	self fooBarBaz:methodVar. "/ a bad message
13220 1c20a49c7223 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13189 diff changeset	18372	self halt. "/ a debug message
1c20a49c7223 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13189 diff changeset	18373	Error raise. "/ an error
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18374	methodVar := Array new:1.
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18375	instVar := 1234. "/ side effect
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18376	ClassVar := instVar. "/ side effect
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18377	methodVar := ClassVar + instVar. "/ not a side effect
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18378	unknonVar := 1. "/ a bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18379	UnknonVar := 1. "/ another bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18380	"self bar:methodVar. detect commented code easily"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18381	1 to:5 do:[:i \| self at:i + 1].
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18382	[:blockArg \| blockArg + 1].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18383	Transcript showCR:''some string'' , #someSymbol.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18384	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18385	'.
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18386
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18387	"Modified: / 14-02-2012 / 10:18:48 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18388	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18389
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18390	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'help specs'!
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18391
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	18392	helpSpec
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18393	"This resource specification was automatically generated
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18394	by the UIHelpTool of ST/X."
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18395
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18396	"Do not manually edit this!! If it is corrupted,
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18397	the UIHelpTool may not be able to read the specification."
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18398
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18399	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18400	UIHelpTool openOnClass:AbstractSettingsApplication::SyntaxColorSettingsAppl
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	<resource: #help>
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18404
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	18405	^ super helpSpec addPairsFrom:#(
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18406
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18407	#colorSelection
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18408	'Choose a color for the selected element type'
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18409
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18410	#commonStyleSelection
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18411	'Choose a common style, then change by clicking on the "Reset To" button'
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18412
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18413	#elementSelection
15624 50d08ec562c5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15496 diff changeset	18414	'Select the element which you want to define/modify'
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18415
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18416	#emphasisSelection
15624 50d08ec562c5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15496 diff changeset	18417	'Choose a presentation style for the selected element type'
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18418
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18419	#immediateSelectorCheck
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18420	'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	18421
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18422	#resetToCommonStyle
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18423	'Press to reset to the selected common style'
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18424
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18425	#syntaxColoringEnabled
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18426	'If checked, syntax coloring is enabled'
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18427
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18428	#individualStyleSetting
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18429	'Personal style configuration'
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18430
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18431	#commonStyleSetting
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18432	'Choose a common style'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18433
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18434	#sampleOutput
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18435	'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	18436
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18437	)
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18438
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18439	"Created: / 14-02-2012 / 10:44:21 / cg"
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18440	! !
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18441
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18442	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18443
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18444	defaultIcon
14411 858d91fea116 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14389 diff changeset	18445	<resource: #image>
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18446	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18447	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18448	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18449	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18450	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18451	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18452	ImageEditor openOnClass:self andSelector:#defaultIcon
14411 858d91fea116 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14389 diff changeset	18453	Icon flushCachedIcons"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18454
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18455	^ Icon
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18456	constantNamed:#'AbstractSettingsApplication::SyntaxColorSettingsAppl class defaultIcon'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18457	ifAbsentPut:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18458	(Depth4Image new)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18459	width:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18460	height:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18461	photometric:(#palette);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18462	bitsPerSample:(#( 4 ));
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18463	samplesPerPixel:(1);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18464	bits:(ByteArray
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18465	fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	18466	DQDQDQDQDQDQDQDTQDQDQDQDQDQDPQQ@QDADQBP$QDP!!E@QDQ@QDIBQDP$DTADQDADQDQDQBPQPDQDPDQDQDQBQAE@QDQ@QDQDQDIDDTADQDADQDQDIDPQPD
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	18467	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	18468	A@PDQDQDPQQ@QDADPDQ@QDQAEDQDQDQDQDQDQDDTMCP4MCP4QDQDPQQCP4MCP4MDQDQADQDQDQDQDQDQDQDb');
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18469	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	18470	mask:((ImageMask new)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18471	width:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18472	height:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18473	bits:(ByteArray
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18474	fromPackedString:'???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<');
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18475	yourself);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18476	yourself
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18477	]
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18478	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18479
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18480	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18481
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18482	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18483	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18484	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18485
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18486	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18487	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18488
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18489	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18490	UIPainter new openOnClass:AbstractSettingsApplication::SyntaxColorSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18491	AbstractSettingsApplication::SyntaxColorSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18492	AbstractSettingsApplication::SyntaxColorSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18493	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18494
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18495	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18496
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18497	^
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18498	#(FullSpec
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18499	name: windowSpec
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18500	window:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18501	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18502	label: 'Syntax Color Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18503	name: 'Syntax Color Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18504	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18505	bounds: (Rectangle 0 0 695 609)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18506	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18507	component:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18508	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18509	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18510	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18511	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18512	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	18513	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18514	verticalLayout: topSpaceFit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18515	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18516	verticalSpace: 3
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18517	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18518	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18519	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18520	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18521	label: 'Syntax Coloring'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18522	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18523	activeHelpKey: syntaxColoringEnabled
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18524	model: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18525	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18526	extent: (Point 695 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18527	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18528	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18529	label: 'Immediate Selector Check'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18530	name: 'ImmediateSelectorCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18531	activeHelpKey: immediateSelectorCheck
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18532	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18533	model: fullSelectorCheck
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18534	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18535	extent: (Point 695 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18536	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18537	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18538	name: 'SpacingBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18539	extent: (Point 695 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18540	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18541	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18542	label: 'Style:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18543	name: 'Label5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18544	activeHelpKey: individualStyleSetting
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18545	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18546	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18547	extent: (Point 695 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18548	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18549	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18550	name: 'ElementSelectionBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18551	activeHelpKey: elementSelection
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18552	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18553	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18554	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18555	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18556	label: 'Element:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18557	name: 'Label4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18558	layout: (LayoutFrame 4 0 0 0 140 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18559	activeHelpKey: elementSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18560	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18561	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18562	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18563	(ComboListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18564	name: 'ComboList3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18565	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	18566	activeHelpKey: elementSelection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18567	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18568	model: syntaxElementSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18569	comboList: syntaxElementList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18570	useIndex: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18571	hidePullDownMenuButton: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18572	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18573	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18574
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18575	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18576	extent: (Point 695 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18577	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18578	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18579	name: 'ColorBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18580	activeHelpKey: colorSelection
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18581	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18582	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18583	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18584	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18585	label: 'Color:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18586	name: 'Label2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18587	layout: (LayoutFrame 4 0 0 0 140 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18588	activeHelpKey: colorSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18589	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18590	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18591	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18592	(ColorMenuSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18593	name: 'ColorMenu2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18594	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	18595	activeHelpKey: colorSelection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18596	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18597	model: syntaxColor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18598	labelsAreColored: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18599	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18600	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18601
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18602	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18603	extent: (Point 695 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18604	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18605	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18606	name: 'EmphasisBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18607	activeHelpKey: emphasisSelection
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18608	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18609	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18610	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18611	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18612	label: 'Emphasis:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18613	name: 'Label1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18614	layout: (LayoutFrame 4 0 0 0 140 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18615	activeHelpKey: emphasisSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18616	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18617	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18618	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18619	(ComboListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18620	name: 'ComboList5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18621	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	18622	activeHelpKey: emphasisSelection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18623	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18624	model: syntaxEmphasisSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18625	comboList: syntaxEmphasisList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18626	useIndex: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18627	hidePullDownMenuButton: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18628	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18629	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18630
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18631	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18632	extent: (Point 695 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18633	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18634	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18635	name: 'ResetBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18636	activeHelpKey: resetToCommonStyle
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18637	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18638	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18639	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18640	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18641	label: 'Reset To:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18642	name: 'Button2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18643	layout: (LayoutFrame 0 0 -36 1 150 0 -6 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18644	activeHelpKey: resetToCommonStyle
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18645	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18646	model: resetToColorScheme
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18647	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18648	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18649	(ComboListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18650	name: 'ComboList4'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18651	layout: (LayoutFrame 152 0 -36 1 0 1 -6 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18652	activeHelpKey: commonStyleSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18653	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18654	model: resetListSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18655	comboList: resetList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18656	useIndex: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18657	hidePullDownMenuButton: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18658	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18659	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18660
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18661	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18662	extent: (Point 695 40)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18663	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18664	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18665	name: 'SpacingBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18666	extent: (Point 695 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18667	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18668	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18669	label: 'Sample Output:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18670	name: 'SampleLabel3'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18671	activeHelpKey: sampleOutput
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18672	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18673	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18674	extent: (Point 695 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18675	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18676	(TextEditorSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18677	name: 'TextEditor2'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18678	activeHelpKey: sampleOutput
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18679	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18680	model: coloredText
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18681	hasHorizontalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18682	hasVerticalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18683	isReadOnly: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18684	hasKeyboardFocusInitially: false
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18685	extent: (Point 695 291)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18686	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18687	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18688
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18689	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18690	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18691	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18692
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18693	)
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18694	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18695	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18696
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18697	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18698
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18699	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18700	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18701	syntaxColoring
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18702	fullSelectorCheck
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18703	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18704	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18705
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18706	basicReadSettings
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18707	\|elementColorList elementList resetListLoc\|
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18708
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18709	oldUserPreferences notNil ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18710	(UserPreferences reset; current) addAll:oldUserPreferences
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18711	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18712
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18713	super basicReadSettings.
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	18714
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18715	oldUserPreferences := currentUserPrefs copy.
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18716	elementColorList := UserPreferences syntaxColorNames.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18717	elementList := elementColorList
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18718	collect:[:each \|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18719	(each endsWith:' Color')
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18720	ifTrue:[ each copyButLast:' Color' size ]
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18721	ifFalse:[each]].
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18722
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18723	resetListLoc := currentUserPrefs listOfPredefinedSyntaxColoringSchemes
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18724	collect:[:entry \| entry second].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18725	self resetList value:resetListLoc.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18726	self resetListSelection value:resetListLoc first.
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18727	self syntaxElementList value:elementList.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18728	self syntaxElementSelection value:(elementList at:1).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18729	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18730
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18731	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18732
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18733	oldUserPreferences := currentUserPrefs copy.
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18734	super basicSaveSettings.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18735	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18736
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18737	discardChangesAndReadSettings
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18738	\|prefs\|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18739
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18740	"/ UserPreferences reset.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18741	prefs := currentUserPrefs. "/ UserPreferences current.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18742	changedSettings keysAndValuesDo:[:k :v \|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18743	prefs at:k put:v
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18744	].
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18745	changedSettings := Dictionary new.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18746	"/ self flyByHelpSettingChanged. "/ reinstall
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18747	self recolor.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18748	super discardChangesAndReadSettings.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18749	!
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18750
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18751	recolor
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18752	\|text dummyClass\|
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18753
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18754	self syntaxColoring value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18755	Class withoutUpdatingChangesDo:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18756	dummyClass := Object
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18757	subclass:#DummyClass
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18758	instanceVariableNames:'instVar'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18759	classVariableNames:'ClassVar'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18760	poolDictionaries:''
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18761	category:''
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18762	inEnvironment:nil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18763	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18764	text := SyntaxHighlighter
18048 ff4443f3cba5 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18035 diff changeset	18765	formatMethodSource:self class exampleText
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18766	in:dummyClass
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18767	using:currentUserPrefs.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18768	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18769	text := self class exampleText.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18770	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18771	self coloredText value:text
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18772
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18773	"Modified: / 14-02-2012 / 10:13:56 / cg"
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18776	resetToColorScheme
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18777	\|resetSelector\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18778
11428 2b0f4aec1c3b x Claus Gittinger <cg@exept.de> parents: 11420 diff changeset	18779	resetSelector := resetListDictionary keyAtValue:(self resetListSelection value).
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	18780	currentUserPrefs perform:resetSelector.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18781	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	18782	self updateModifiedChannel
11428 2b0f4aec1c3b x Claus Gittinger <cg@exept.de> parents: 11420 diff changeset	18783
2b0f4aec1c3b x Claus Gittinger <cg@exept.de> parents: 11420 diff changeset	18784	"Modified (format): / 16-03-2012 / 10:32:02 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18785	! !
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	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18788
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18789	coloredText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18790
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18791	coloredText isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18792	coloredText := ValueHolder new.
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	^ coloredText.
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	fullSelectorCheck
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18798
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18799	fullSelectorCheck isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18800	fullSelectorCheck := currentUserPrefs fullSelectorCheck asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18801	fullSelectorCheck onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18802	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18803	^ fullSelectorCheck.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18804	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18805
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18806	resetList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18807
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18808	resetList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18809	resetList := 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	^ resetList.
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:00:58 / 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	resetListSelection
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	resetListSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18819	resetListSelection := ValueHolder new.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18820	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18821	^ resetListSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18822	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18823
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18824	syntaxColor
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	syntaxColor isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18827	syntaxColor := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18828	syntaxColor addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18829	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18830	^ syntaxColor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18831	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18832
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18833	syntaxColoring
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18834
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18835	syntaxColoring isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18836	syntaxColoring := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18837	syntaxColoring addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18838	syntaxColoring onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18839	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18840	^ syntaxColoring.
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18843	syntaxElementList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18844	syntaxElementList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18845	syntaxElementList := ValueHolder new.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18846	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18847	^ syntaxElementList.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	18848
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	18849	"Modified: / 08-09-2006 / 16:01:05 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18850	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18851
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18852	syntaxElementSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18853
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18854	syntaxElementSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18855	syntaxElementSelection := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18856	syntaxElementSelection addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18857	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18858	^ syntaxElementSelection.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	18859
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	18860	"Modified: / 08-09-2006 / 16:01:08 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18861	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18862
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18863	syntaxEmphasisList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18864	syntaxEmphasisList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18865	syntaxEmphasisList := ValueHolder new.
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18866	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18867	^ syntaxEmphasisList.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	18868
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	18869	"Modified: / 08-09-2006 / 16:01:13 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18870	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18871
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18872	syntaxEmphasisSelection
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	syntaxEmphasisSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18875	syntaxEmphasisSelection := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18876	syntaxEmphasisSelection addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18877	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18878	^ syntaxEmphasisSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18879	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18880
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18881	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18882
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18883	getEmphasis:anEmphasisOrSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18884	" return emphasis Symbol for emphasis or emphasis for emphasis symbol "
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18885
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18886	^ emphasisDictionary at:anEmphasisOrSymbol ifAbsent:[nil]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18887	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18888
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18889	syntaxColorChanged
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18890	\|prefKey\|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18891
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18892	prefKey := self syntaxColorSelector.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18893	(changedSettings includesKey:prefKey) ifFalse:[
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18894	"/ remember previous value
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18895	changedSettings at:prefKey put:(currentUserPrefs at:prefKey ifAbsent:nil).
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18896	].
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18897	currentUserPrefs at:prefKey put:(self syntaxColor value).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18898	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	18899	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18900	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18901
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18902	syntaxElementSelectionChanged
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18903	\| syntaxEmphasisValue \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18904
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	18905	self syntaxColor value:(currentUserPrefs perform:(self syntaxColorSelector)).
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	18906	syntaxEmphasisValue := (currentUserPrefs perform:(self syntaxEmphasisSelector)).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18907	self syntaxEmphasisSelection value:(self getEmphasis:syntaxEmphasisValue).
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18908	"/ self recolor.
4398 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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18911	syntaxEmphasisSelectionChanged
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18912	\|em prefKey\|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18913
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18914	prefKey := self syntaxEmphasisSelector.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18915	(changedSettings includesKey:prefKey) ifFalse:[
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18916	"/ remember previous value
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18917	changedSettings at:prefKey put:(currentUserPrefs at:prefKey ifAbsent:nil).
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18918	].
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18919	em := self getEmphasis:(self syntaxEmphasisSelection value ? 'normal') string.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18920	currentUserPrefs at:prefKey put:em.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18921
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18922	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	18923	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18924	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18925
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18926	update:something with:aParameter from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18927	changedObject == self syntaxElementSelection ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18928	self syntaxElementSelectionChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18929	^ self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18930	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18931	changedObject == self syntaxColor ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18932	self syntaxColorChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18933	^ self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18934	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18935	changedObject == self syntaxEmphasisSelection ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18936	self syntaxEmphasisSelectionChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18937	^ self.
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	changedObject == self syntaxColoring ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18940	self recolor.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18941	^ self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18942	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18943
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18944	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18945	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18946
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18947	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18948
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18949	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18950	^ 'Launcher/sourceSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18951	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18952
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18953	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18954
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18955	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	18956	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	18957
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18958	self initializeEmphasisDictionary.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18959	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18960
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18961	self syntaxEmphasisList
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18962	value:(self class emphasisList
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18963	collect:[:lbl \|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18964	lbl emphasizeAllWith:( self getEmphasis:lbl )
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18965	]).
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18966
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18967	changedSettings := Dictionary new.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18968	resetListDictionary := Dictionary new.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18969	currentUserPrefs listOfPredefinedSyntaxColoringSchemes do:[:entry \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18970	resetListDictionary at:(entry at:1) put:(entry at:2)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18971	].
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	18972
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	18973	"Modified: / 08-02-2017 / 00:30:23 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18974	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18975
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18976	initializeEmphasisDictionary
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18977
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18978	emphasisDictionary := Dictionary new.
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18979	self class emphasisMappingList do:[ :mapping \|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18980	\|name emphasis\|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18981
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18982	name := mapping first.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18983	emphasis := mapping second.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18984	emphasisDictionary at:name put:emphasis.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18985	emphasisDictionary at:emphasis put:name.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18986	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18987	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18988
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18989	release
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18990
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18991	oldUserPreferences notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18992	(UserPreferences reset; current)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18993	addAll:oldUserPreferences;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18994	flyByHelpSettingChanged. "/ reinstall
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18995	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18996	super release
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18997
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18998	"Modified: / 14-02-2012 / 11:01:49 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18999	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19000
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19001	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19002
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19003	hasUnsavedChanges
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19004	\|colorList colorPerformer emphasisPerformer\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19005
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	19006	oldUserPreferences isNil ifTrue:[^ false].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	19007
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19008	colorList := UserPreferences syntaxColorNames.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19009	colorList do:[:syntaxElement \|
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19010	colorPerformer := (self syntaxColorSelectorForElement:syntaxElement).
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19011	emphasisPerformer := (self syntaxEmphasisSelectorForElement:syntaxElement).
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19012	((oldUserPreferences perform:colorPerformer) ~= (currentUserPrefs perform:colorPerformer)) ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19013	^ true
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19014	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19015	((oldUserPreferences perform:emphasisPerformer) ~= (currentUserPrefs perform:emphasisPerformer)) ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19016	^ true
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19017	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19018	syntaxElement
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19019	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19020
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19021	(super hasUnsavedChanges) ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	19022
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19023	^ false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19024	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19025
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19026	syntaxColorSelector
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19027	\|elementName key\|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19028
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19029	elementName := key := self syntaxElementSelection value.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19030	(elementName endsWith:' Color') ifFalse:[
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19031	key := elementName,' Color'.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19032	].
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19033	^ (self syntaxColorSelectorForElement:key)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19034	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19035
15166 eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	19036	syntaxColorSelectorForElement:aSyntaxElementsName
eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	19037	"/ old code - error prone
eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	19038	^ (UserPreferences syntaxColorNamesAndKeys detect:[:el \| el first = aSyntaxElementsName]) second
eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	19039	"/ ^ (aSyntaxElementsName replChar:$ withString: '') asLowercaseFirst asSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19040	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19041
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	19042	syntaxEmphasisSelector
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19043	\|elementName key\|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19044
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19045	elementName := self syntaxElementSelection value.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19046	key := elementName,' Color'.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19047	^ self syntaxEmphasisSelectorForElement:key
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	19048	!
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	19049
15166 eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	19050	syntaxEmphasisSelectorForElement:aSyntaxElementsName
eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	19051	^ (UserPreferences syntaxColorNamesAndKeys detect:[:el \| el first = aSyntaxElementsName]) third
eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	19052	"/ ^ (((self syntaxColorSelectorForElement:anEmElement) upToAll: 'Color'), 'Emphasis')
eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	19053	"/ asLowercaseFirst asSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19054	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19055
12478 6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19056	!AbstractSettingsApplication::SystemBrowserSettingsAppl class methodsFor:'help specs'!
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	helpSpec
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19059	"This resource specification was automatically generated
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19060	by the UIHelpTool of ST/X."
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19061
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19062	"Do not manually edit this!! If it is corrupted,
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19063	the UIHelpTool may not be able to read the specification."
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19064
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19065	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	19066	UIHelpTool openOnClass:AbstractSettingsApplication::SystemBrowserSettingsAppl
12478 6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19067	"
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19068
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19069	<resource: #help>
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19070
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19071	^ super helpSpec addPairsFrom:#(
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	#compactSCMLayout
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19074	'Arrange source code manager menu items in a compact layout'
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	#inPlaceSearch
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19077	'In-place search to browser lists'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19078
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19079	#inlineSCMLayout
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19080	'Arrange source code manager menu items in a falt inline layout'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19081
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19082	#oldSCMMenuLayout
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19083	'Arrange source code manager menu items in the old, traditional layout'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19084
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19085	#searchBarInBrowser
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19086	'Add a search bar to the browser (like in web browsers)'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19087
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19088	#showBookmarksBar
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19089	'Show the bookmarks bar'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19090
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19091	#showGlobalHistory
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19092	'Show a toolbar button to navigate the global visited classes history'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19093
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19094	#showLocalHistory
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19095	'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	19096
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19097	#showMarqueeInfo
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19098	'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	19099
12478 6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19100	#showMethodTemplate
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19101	'Show a method code template when no method is selected'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19102
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19103	#sortAndIndentClassesByInheritance
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19104	'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	19105
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19106	#useEmbeddedTestRunner
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19107	'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	19108
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19109	#webBrowserLikeLayout
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19110	'Use a layout similar to web browsers'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19111
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19112	)
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19113	! !
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19114
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19115	!AbstractSettingsApplication::SystemBrowserSettingsAppl class methodsFor:'image specs'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19116
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19117	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	19118	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	19119
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19120	^ ToolbarIconLibrary systemBrowser24x24Icon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	19121
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	19122	"Modified: / 17-09-2007 / 11:35:15 / cg"
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19123	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19124
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19125	!AbstractSettingsApplication::SystemBrowserSettingsAppl class methodsFor:'interface specs'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19126
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19127	windowSpec
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19128	"This resource specification was automatically generated
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19129	by the UIPainter of ST/X."
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19130
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19131	"Do not manually edit this!! If it is corrupted,
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19132	the UIPainter may not be able to read the specification."
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19133
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19134	"
8203 3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	19135	UIPainter new openOnClass:AbstractSettingsApplication::SystemBrowserSettingsAppl andSelector:#windowSpec
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	19136	AbstractSettingsApplication::SystemBrowserSettingsAppl new openInterface:#windowSpec
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	19137	AbstractSettingsApplication::SystemBrowserSettingsAppl open
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19138	"
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19139
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19140	<resource: #canvas>
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19141
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19142	^
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	19143	#(FullSpec
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	19144	name: windowSpec
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19145	window:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	19146	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19147	label: 'System Browser Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19148	name: 'System Browser Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19149	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19150	min: (Point 10 10)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19151	bounds: (Rectangle 0 0 569 590)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19152	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19153	component:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	19154	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19155	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19156	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19157	name: 'SettingsPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19158	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19159	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19160	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19161	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19162	verticalSpace: 3
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19163	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19164	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19165	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19166	(FramedBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19167	label: 'Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19168	name: 'ToolsSettingsPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19169	labelPosition: topLeft
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	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19172	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19173	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19174	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19175	name: 'ToolSettingsVPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19176	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19177	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19178	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19179	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19180	verticalSpace: 3
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19181	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19182	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19183	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19184	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19185	label: 'Use the Embedded Test Runner'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19186	name: 'UseEmbeddedTestRunner'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19187	activeHelpKey: useEmbeddedTestRunner
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19188	model: showEmbeddedTestRunnerInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19189	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19190	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19191	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19192	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19193	label: 'Web Browser Like Layout (Toolbars are Part of the Tab - experimental)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19194	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19195	activeHelpKey: webBrowserLikeLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19196	initiallyInvisible: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19197	model: webBrowserLikeLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19198	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19199	extent: (Point 607 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19200	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19201	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19202	label: 'Show Bookmarks Bar'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19203	name: 'ShowBookmarksBar'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19204	activeHelpKey: showBookmarksBar
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19205	model: showBookmarkBar
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19206	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19207	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19208	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19209	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19210	label: 'Sort and Indent Classes by Inheritance'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19211	name: 'SortAndIndentClassesByInheritance'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19212	activeHelpKey: sortAndIndentClassesByInheritance
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19213	model: sortAndIndentClassesByInheritance
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19214	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19215	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19216	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19217	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19218	label: 'Show Local Navigation History (Separate History per Browser Tab)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19219	name: 'CheckBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19220	activeHelpKey: showLocalHistory
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19221	model: showLocalHistory
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19222	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19223	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19224	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19225	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19226	label: 'Show Global Navigation History (Global History for all Browsers)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19227	name: 'CheckBox3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19228	activeHelpKey: showGlobalHistory
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19229	model: showGlobalHistory
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19230	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19231	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19232	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19233	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19234	label: 'Show Search Bar in Browser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19235	name: 'ShowSearchBarInBrowser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19236	activeHelpKey: searchBarInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19237	model: useSearchBarInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19238	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19239	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19240	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19241	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19242	label: 'Use in-place Search in Browser Lists (experimental)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19243	name: 'CheckBox4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19244	activeHelpKey: inPlaceSearch
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19245	model: useInPlaceSearchInBrowserLists
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19246	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19247	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19248	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19249	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19250	label: 'Show Method Template'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19251	name: 'MethodTemplate'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19252	activeHelpKey: showMethodTemplate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19253	model: showMethodTemplate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19254	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19255	extent: (Point 533 30)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19256	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19257	(CheckBoxSpec
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19258	label: 'Marquee Info'
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19259	name: 'CheckBox5'
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19260	activeHelpKey: showMarqueeInfo
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19261	model: showMarqueeInfo
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19262	translateLabel: true
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19263	extent: (Point 533 30)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19264	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19265	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19266
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19267	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19268	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19269	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19270
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19271	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19272	extent: (Point 569 333)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19273	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19274	(FramedBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19275	label: 'Sourcecode Management Menu Layout'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19276	name: 'MenuLayoutPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19277	labelPosition: topLeft
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19278	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19279	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19280	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19281	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19282	(VerticalPanelViewSpec
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19283	name: 'MenuLayoutVPanel'
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19284	layout: (LayoutFrame 0 0 5 0 0 1 0 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19285	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19286	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19287	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19288	verticalSpace: 3
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19289	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19290	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19291	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19292	(RadioButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19293	label: 'Old'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19294	name: 'SCMMenuLayoutOld'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19295	activeHelpKey: oldSCMMenuLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19296	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19297	model: sourceCodeManagementMenuLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19298	isTriggerOnDown: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19299	select: 'old'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19300	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19301	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19302	(RadioButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19303	label: 'Inline'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19304	name: 'SCMMenuLayoutInline'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19305	activeHelpKey: inlineSCMLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19306	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19307	model: sourceCodeManagementMenuLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19308	isTriggerOnDown: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19309	select: 'inline'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19310	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19311	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19312	(RadioButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19313	label: 'Compact'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19314	name: 'SCMMenuLayoutCompact'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19315	activeHelpKey: compactSCMLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19316	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19317	model: sourceCodeManagementMenuLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19318	isTriggerOnDown: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19319	select: 'compact'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19320	extent: (Point 533 30)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19321	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19322	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19323
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19324	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19325	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19326	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19327
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19328	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19329	extent: (Point 569 135)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19330	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19331	(FramedBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19332	label: 'Static Analysis (Lint)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19333	name: 'LintPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19334	labelPosition: topLeft
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19335	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19336	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19337	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19338	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19339	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19340	name: 'LintPanelContent'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19341	layout: (LayoutFrame 0 0 0 0 0 1 53 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19342	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19343	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19344	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19345	verticalSpace: 3
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19346	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19347	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19348	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19349	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19350	name: 'DefaultRulesetBox'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19351	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19352	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19353	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19354	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19355	label: 'Default Rules:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19356	name: 'DefaultRulesetLabel'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19357	layout: (LayoutFrame 0 0 0 0 138 0 0 1)
16167 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: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19360	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19361	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19362	name: 'DefaultRuleset'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19363	layout: (LayoutFrame 144 0 0 0 -100 1 0 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19364	model: smallLintRulesetDefault
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19365	isReadOnly: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19366	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19367	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19368	converter: smallLintRulesetDefaultAdaptor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19369	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19370	emptyFieldReplacementText: 'Default'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19371	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19372	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19373	label: 'Select'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19374	name: 'DefaultRulesetSelectButton'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19375	layout: (LayoutFrame -100 1 0 0 0 1 0 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19376	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19377	model: doSelectDefaultRuleset
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19378	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19379	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19380
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19381	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19382	extent: (Point 533 25)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19383	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19384	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19385	name: 'Box1'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19386	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19387	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19388	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19389	(LinkButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19390	label: 'Configure Rule Sets...'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19391	name: 'Button1'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19392	layout: (LayoutFrame -200 1 -20 1 0 1 0 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19393	foregroundColor: (Color 0.0 0.0 100.0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19394	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19395	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19396	model: doConfigureRulesets
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19397	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19398	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19399
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19400	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19401	extent: (Point 533 25)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19402	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19403	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19404
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19405	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19406	useDynamicPreferredHeight: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19407	usePreferredHeight: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19408	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19409	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19410
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19411	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19412	extent: (Point 569 92)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19413	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19414	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19415
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19416	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19417	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19418	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19419
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	19420	)
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	19421	)
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19422	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19423
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19424	!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'actions'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19425
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	19426	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	19427	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	19428	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	19429
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	19430	"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	19431	!
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	19432
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	19433	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	19434	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	19435
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	19436	"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	19437	!
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	19438
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	19439	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	19440	<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	19441
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	19442	\| 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	19443
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	19444	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	19445	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	19446	dialog accepted ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19447	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	19448	]
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	19449
14771 65840e41c10f UI tweaks in browser settings application, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14759 diff changeset	19450	"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	19451	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19452
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19453	!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'aspects'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19454
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19455	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19456	^ #(
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19457	"/ showAcceptCancelBarInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19458	useSearchBarInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19459	showMethodTemplate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19460	"/ useCodeView2InTools
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19461	showEmbeddedTestRunnerInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19462	showBookmarkBar
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19463	webBrowserLikeLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19464	sortAndIndentClassesByInheritance
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19465	showGlobalHistory
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19466	showLocalHistory
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19467	useInPlaceSearchInBrowserLists
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19468	sourceCodeManagementMenuLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19469	confirmRefactorings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19470	smallLintRulesetDefault
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19471	showMarqueeInfo
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19472	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19473
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19474	"Created: / 25-11-2011 / 15:09:28 / cg"
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19475	"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	19476	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19477
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19478	confirmRefactorings
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19479
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19480	confirmRefactorings isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19481	confirmRefactorings := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19482	confirmRefactorings onChangeSend:#updateModifiedChannel to:self
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19483	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19484	^ confirmRefactorings.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19485
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19486	"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	19487	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19488
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19489	showAcceptCancelBarInBrowser
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19490	showAcceptCancelBarInBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19491	showAcceptCancelBarInBrowser := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19492	showAcceptCancelBarInBrowser onChangeSend:#updateModifiedChannel to:self
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19493	].
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19494	^ showAcceptCancelBarInBrowser.
8203 3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	19495	!
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	19496
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19497	showBookmarkBar
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19498	"return/create the 'showMethodTemplate' value holder (automatically generated)"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19499
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19500	showBookmarkBar isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19501	showBookmarkBar := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19502	showBookmarkBar onChangeSend:#updateModifiedChannel to:self
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19503
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19504	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19505	^ showBookmarkBar
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19506
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19507	"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	19508	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19509
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19510	showEmbeddedTestRunnerInBrowser
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19511	"return/create the 'showEmbeddedTestRunnerInBrowser' value holder (automatically generated)"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19512
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19513	showEmbeddedTestRunnerInBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19514	showEmbeddedTestRunnerInBrowser := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19515	showEmbeddedTestRunnerInBrowser onChangeSend:#updateModifiedChannel to:self
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19516	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19517	^ showEmbeddedTestRunnerInBrowser
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	"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	19520	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19521
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19522	showGlobalHistory
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19523
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19524	showGlobalHistory isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19525	showGlobalHistory := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19526	showGlobalHistory onChangeSend:#updateModifiedChannel to:self
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19527	].
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19528	^ showGlobalHistory.
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19529
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19530	"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	19531	!
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19532
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19533	showLocalHistory
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19534
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19535	showLocalHistory isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19536	showLocalHistory := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19537	showLocalHistory onChangeSend:#updateModifiedChannel to:self
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19538	].
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19539	^ showLocalHistory.
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19540
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19541	"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	19542	!
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19543
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19544	showMarqueeInfo
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19545	showMarqueeInfo isNil ifTrue:[
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19546	showMarqueeInfo := true asValue.
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19547	showMarqueeInfo onChangeSend:#updateModifiedChannel to:self
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19548	].
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19549	^ showMarqueeInfo.
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19550	!
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19551
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19552	showMethodTemplate
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19553	"return/create the 'showMethodTemplate' value holder (automatically generated)"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19554
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19555	showMethodTemplate isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19556	showMethodTemplate := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19557	showMethodTemplate onChangeSend:#updateModifiedChannel to:self
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19558
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19559	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19560	^ showMethodTemplate
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19561
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19562	"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	19563	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19564
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	19565	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	19566	<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	19567
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	19568	smallLintRulesetDefault isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19569	smallLintRulesetDefault := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19570	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	19571	].
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	19572	^ 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	19573
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	19574	"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	19575	"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	19576	!
65840e41c10f UI tweaks in browser settings application, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14759 diff changeset	19577
65840e41c10f UI tweaks in browser settings application, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14759 diff changeset	19578	smallLintRulesetDefaultAdaptor
65840e41c10f UI tweaks in browser settings application, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14759 diff changeset	19579	^ PluggableAdaptor new
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19580	getter:[ :model \| model value isNil ifTrue:[nil] ifFalse:[model value name]]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19581	setter:[ :model :value \| ]
14771 65840e41c10f UI tweaks in browser settings application, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14759 diff changeset	19582
65840e41c10f UI tweaks in browser settings application, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14759 diff changeset	19583	"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	19584	!
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	19585
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19586	sortAndIndentClassesByInheritance
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19587
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19588	sortAndIndentClassesByInheritance isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19589	sortAndIndentClassesByInheritance := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19590	sortAndIndentClassesByInheritance onChangeSend:#updateModifiedChannel to:self
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19591	].
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19592	^ sortAndIndentClassesByInheritance.
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19593
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19594	"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	19595	!
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19596
10778 c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19597	sourceCodeManagementMenuLayout
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19598	sourceCodeManagementMenuLayout isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19599	sourceCodeManagementMenuLayout := #inline "#old" asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19600	sourceCodeManagementMenuLayout onChangeSend:#updateModifiedChannel to:self
10778 c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19601	].
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19602	^ sourceCodeManagementMenuLayout.
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19603
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19604	"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	19605	!
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19606
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19607	useCodeView2InTools
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19608	"return/create the 'useCodeView2InTools' value holder (automatically generated)"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19609
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19610	useCodeView2InTools isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19611	useCodeView2InTools := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19612	useCodeView2InTools onChangeSend:#updateModifiedChannel to:self
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19613
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	^ useCodeView2InTools
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19616
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19617	"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	19618	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19619
10418 d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19620	useInPlaceSearchInBrowserLists
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19621	useInPlaceSearchInBrowserLists isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19622	useInPlaceSearchInBrowserLists := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19623	useInPlaceSearchInBrowserLists onChangeSend:#updateModifiedChannel to:self
10418 d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19624	].
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19625	^ useInPlaceSearchInBrowserLists.
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19626
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19627	"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	19628	!
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19629
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	19630	useSearchBarInBrowser
8325 1a34a35f4eec * empty log message * Claus Gittinger <cg@exept.de> parents: 8296 diff changeset	19631	"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	19632	(like in firefox). False if a dialog is to be opened."
1a34a35f4eec * empty log message * Claus Gittinger <cg@exept.de> parents: 8296 diff changeset	19633
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	19634	useSearchBarInBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19635	useSearchBarInBrowser := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19636	useSearchBarInBrowser onChangeSend:#updateModifiedChannel to:self
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	19637	].
1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	19638	^ useSearchBarInBrowser.
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19639	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19640
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19641	webBrowserLikeLayout
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19642	"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	19643	(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	19644
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19645	webBrowserLikeLayout isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19646	webBrowserLikeLayout := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19647	webBrowserLikeLayout onChangeSend:#updateModifiedChannel to:self
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19648	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19649	^ webBrowserLikeLayout.
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19650
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19651	"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	19652	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19653
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19654	!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19655
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19656	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19657	^ 'Launcher/browserSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19658	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19659
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19660	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'help specs'!
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19661
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	19662	helpSpec
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19663	"This resource specification was automatically generated
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19664	by the UIHelpTool of ST/X."
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19665
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19666	"Do not manually edit this!! If it is corrupted,
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19667	the UIHelpTool may not be able to read the specification."
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19668
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19669	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	19670	UIHelpTool openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19671	"
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19672
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19673	<resource: #help>
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19674
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	19675	^ super helpSpec addPairsFrom:#(
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19676
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19677	#vmInfo
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19678	'Enable/disable information messages from the Virtual Machine (VM)'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19679
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19680	#vmErrors
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19681	'Enable/disable error messages from the Virtual Machine (VM)'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19682
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19683	#displayErrors
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19684	'Enable/disable error messages from the display (X or Windows screen connection)'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19685
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19686	#classInfos
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19687	'Enable/disable messages from the class library'
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19688
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19689	#showToolTips
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19690	'Show tooltips (fly-by help)'
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19691
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19692	#toolTipAutoHideDelay
14373 61a21c44e7f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14330 diff changeset	19693	'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	19694
14547 9a51a43e4327 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14515 diff changeset	19695	#onlyShowTooltipsForActiveWindow
9a51a43e4327 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14515 diff changeset	19696	'Show tooltips only for the active window. Not for any passive windows underneath'
9a51a43e4327 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14515 diff changeset	19697
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19698	#beepEnabled
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19699	'Enable/disable audible beeps altogether'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19700
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19701	#beepInEditor
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19702	'Enable/disable audible beeps from the editor (search found nothing, etc.)'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19703
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19704	#beepForInfoDialog
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19705	'Enable/disable audible beeps when an info dialog is opened'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19706
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19707	#beepForWarningDialog
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19708	'Enable/disable audible beeps when a warning dialog is opened'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19709
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19710	#beepForErrorDialog
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19711	'Enable/disable audible beeps when an error dialog is opened'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19712
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19713	#flyByHelpActive
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19714	'Enable/disable tooltips'
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19715
14278 bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	19716	#sendMessagesAlsoToTranscript
bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	19717	'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	19718	)
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19719	! !
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19720
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19721	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19722
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19723	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19724	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19725	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19726
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19727	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19728	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19729
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19730	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19731	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19732	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19733	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19734	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19735
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19736	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19737
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19738	^Icon
18653 590ea11e403e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18624 diff changeset	19739	constantNamed:'AbstractSettingsApplication::SystemMessageSettingsAppl class defaultIcon'
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	19740	ifAbsentPut:[(Depth8Image width:22 height:22) bits:(ByteArray fromPackedString:'
18653 590ea11e403e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18624 diff changeset	19741	@@@@@@@@@@@@@PDAA @@@@@@@@@@@@@@@@@@@@@@@PHB@0D@@@@@@@@@@@@@@@@@@@@@@PHDAPLC@P@@@@@@@@@@@@@@@@@@@@DBA PGA0 @@@@@@@@@@@@@
590ea11e403e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18624 diff changeset	19742	@@@@@@@A@ XDA0\H@@@@@@@@@@@@@@@@@@@@@PHIA@(J@@@@@@@@@@@@@@@@@@@@@@@AB00MCP@@@@@@@@@@@@@@@@@@@@@@@@DN@@@@@@@@@@@@@@@@@@@@
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	19743	@@@@@@@AC @@@@@@@@@@@@@@@@@@@@@@@@@@@P8@@@@@@@@@@@@@@@@@@@@@@@<OC0PNDA@@DQD@@@@@@@@@@@@@@@<RD1LTEQXVE1 XDP@@@@@@@@@@@@@O
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	19744	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	19745	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	19746	F!!(ZF!!(ZF@@@@@@@@@@@@@@ODQ0\H"H"H @@@@@@@@@@@@@a')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	19747	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	19748	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	19749	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19750
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19751	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19752
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19753	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19754	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19755	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19756
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19757	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19758	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19759
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19760	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	19761	UIPainter new openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	19762	AbstractSettingsApplication::SystemMessageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	19763	AbstractSettingsApplication::SystemMessageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19764	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19765
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19766	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19767
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19768	^
13694 8a0442b537f7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13692 diff changeset	19769	#(FullSpec
8a0442b537f7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13692 diff changeset	19770	name: windowSpec
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19771	window:
13694 8a0442b537f7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13692 diff changeset	19772	(WindowSpec
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19773	label: 'Messages Settings'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19774	name: 'Messages Settings'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19775	flags: 1
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19776	min: (Point 10 10)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19777	bounds: (Rectangle 0 0 574 602)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19778	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19779	component:
13694 8a0442b537f7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13692 diff changeset	19780	(SpecCollection
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19781	collection: (
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19782	(VerticalPanelViewSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19783	name: 'VerticalPanel2'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19784	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19785	horizontalLayout: fitSpace
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19786	verticalLayout: topSpace
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19787	horizontalSpace: 5
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19788	verticalSpace: 5
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19789	component:
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19790	(SpecCollection
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19791	collection: (
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19792	(FramedBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19793	label: 'Info & Error Messages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19794	name: 'FramedBox1'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19795	labelPosition: topLeft
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19796	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19797	component:
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19798	(SpecCollection
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19799	collection: (
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19800	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19801	label: 'VM Info Messages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19802	name: 'VMInfoMessages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19803	layout: (LayoutFrame 5 0 5 0 -5 1 35 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19804	activeHelpKey: vmInfo
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19805	model: vmInfo
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19806	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19807	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19808	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19809	label: 'VM Error Messages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19810	name: 'VMErrorMessages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19811	layout: (LayoutFrame 5 0 35 0 -5 1 65 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19812	activeHelpKey: vmErrors
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19813	model: vmErrors
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19814	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19815	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19816	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19817	label: 'Display Error Messages (Xlib, Xtlib, WinAPI ...)'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19818	name: 'DisplayErrorMessages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19819	layout: (LayoutFrame 5 0 65 0 -5 1 95 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19820	activeHelpKey: displayErrors
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19821	model: displayErrors
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	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19824	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19825	label: 'Other Info Messages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19826	name: 'OtherInfoMessages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19827	layout: (LayoutFrame 5 0 95 0 -5 1 125 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19828	activeHelpKey: classInfos
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19829	model: classInfos
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19830	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19831	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19832	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19833	label: 'Send also to Transcript (in addition to Stderr)'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19834	name: 'CheckBox8'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19835	layout: (LayoutFrame 5 0 149 0 -5 1 179 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19836	activeHelpKey: sendMessagesAlsoToTranscript
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19837	model: sendMessagesAlsoToTranscript
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19838	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19839	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19840	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19841
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19842	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19843	extent: (Point 564 213)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19844	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19845	(FramedBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19846	label: 'Audible Bell'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19847	name: 'FramedBox3'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19848	labelPosition: topLeft
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19849	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19850	component:
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19851	(SpecCollection
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19852	collection: (
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19853	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19854	label: 'Beep Generally Enabled'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19855	name: 'beepEnabled'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	19856	layout: (LayoutFrame 5 0 10 0 0 1 40 0)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19857	activeHelpKey: beepEnabled
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19858	model: beepEnabled
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19859	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19860	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19861	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19862	label: 'Beep in Editor'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19863	name: 'CheckBox7'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	19864	layout: (LayoutFrame 40 0 35 0 0 1 65 0)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19865	activeHelpKey: beepInEditor
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19866	enableChannel: beepEnabled
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19867	model: beepInEditor
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19868	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19869	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19870	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19871	label: 'Beep for Info Dialogs'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19872	name: 'CheckBox3'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	19873	layout: (LayoutFrame 40 0 60 0 0 1 90 0)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19874	activeHelpKey: beepForInfoDialog
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19875	enableChannel: beepEnabled
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19876	model: beepForInfoDialog
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19877	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19878	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19879	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19880	label: 'Beep for Warning Dialogs'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19881	name: 'CheckBox4'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	19882	layout: (LayoutFrame 40 0 85 0 0 1 115 0)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19883	activeHelpKey: beepForWarningDialog
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19884	enableChannel: beepEnabled
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19885	model: beepForWarningDialog
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19886	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19887	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19888	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19889	label: 'Beep for Error Dialogs'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19890	name: 'CheckBox5'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	19891	layout: (LayoutFrame 40 0 111 0 0 1 141 0)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19892	activeHelpKey: beepForErrorDialog
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19893	enableChannel: beepEnabled
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19894	model: beepForErrorDialog
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19895	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19896	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19897	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19898
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19899	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	19900	extent: (Point 564 178)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19901	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19902	(FramedBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19903	label: 'Help'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19904	name: 'FramedBox4'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19905	labelPosition: topLeft
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19906	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19907	component:
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19908	(SpecCollection
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19909	collection: (
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: 'Tooltips (FlyBy Help)'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19912	name: 'CheckBox6'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19913	layout: (LayoutFrame 5 0 7 0 -5 1 37 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19914	activeHelpKey: flyByHelpActive
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19915	model: flyByHelpActive
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19916	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19917	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19918	(InputFieldSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19919	name: 'EntryField1'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19920	layout: (LayoutFrame -90 1 5 0 -34 1 35 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19921	activeHelpKey: toolTipAutoHideDelay
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19922	enableChannel: flyByHelpActive
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19923	model: toolTipAutoHideDelay
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19924	type: timeDurationOrNil
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19925	acceptOnReturn: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19926	acceptOnTab: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19927	acceptOnPointerLeave: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19928	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19929	(LabelSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19930	label: 'Autohide after:'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19931	name: 'Label1'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19932	layout: (AlignmentOrigin -94 1 21 0 1 0.5)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19933	activeHelpKey: toolTipAutoHideDelay
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19934	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19935	adjust: right
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19936	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19937	(LabelSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19938	label: '(s)'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19939	name: 'Label2'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19940	layout: (LayoutFrame -31 1 6 0 0 1 36 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19941	activeHelpKey: toolTipAutoHideDelay
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19942	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19943	adjust: left
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19944	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19945	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19946	label: 'Only Show Tooltips for Active Window'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19947	name: 'CheckBox9'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19948	layout: (LayoutFrame 40 0 42 0 0 1 72 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19949	activeHelpKey: onlyShowTooltipsForActiveWindow
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19950	enableChannel: flyByHelpActive
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19951	model: onlyShowTooltipsForActiveWindow
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19952	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19953	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19954	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19955
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19956	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19957	extent: (Point 564 108)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19958	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19959	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19960
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19961	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19962	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19963	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	19964
13694 8a0442b537f7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13692 diff changeset	19965	)
8a0442b537f7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13692 diff changeset	19966	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19967	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19968
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19969	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19970
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19971	basicReadSettings
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19972	super basicReadSettings.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	19973
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	19974	self vmInfo value:ObjectMemory infoPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	19975	self vmErrors value:ObjectMemory debugPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	19976	self classInfos value:Object infoPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	19977	self displayErrors value:DeviceWorkstation errorPrinting.
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	19978
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19979	"Modified: / 10-11-2010 / 12:08:03 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	19980	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	19981
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19982	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	19983
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	19984	ObjectMemory infoPrinting:self vmInfo value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	19985	ObjectMemory debugPrinting:self vmErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	19986	Object infoPrinting:self classInfos value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	19987	DeviceWorkstation errorPrinting:self displayErrors value.
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	19988
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19989	super basicSaveSettings.
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19990
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19991	"Modified: / 10-11-2010 / 12:08:14 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19992	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19993
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19994	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	19995
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19996	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19997	^ #(
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19998	beepEnabled
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19999	beepInEditor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20000	beepForInfoDialog
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20001	beepForWarningDialog
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20002	beepForErrorDialog
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20003	flyByHelpActive
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20004	toolTipAutoHideDelay
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20005	sendMessagesAlsoToTranscript
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20006	onlyShowTooltipsForActiveWindow
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20007	)
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20008
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20009	"Created: / 10-11-2010 / 12:07:42 / cg"
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20010	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20011
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	20012	beepEnabled
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	20013	beepEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20014	beepEnabled := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20015	beepEnabled onChangeSend:#updateModifiedChannel to:self
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	20016	].
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	20017	^ beepEnabled.
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	20018	!
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	20019
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20020	beepForErrorDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20021	beepForErrorDialog isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20022	beepForErrorDialog := currentUserPrefs beepForErrorDialog asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20023	beepForErrorDialog onChangeSend:#updateModifiedChannel to:self
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20024	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20025	^ beepForErrorDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20026	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20027
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20028	beepForInfoDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20029	beepForInfoDialog isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20030	beepForInfoDialog := currentUserPrefs beepForInfoDialog asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20031	beepForInfoDialog onChangeSend:#updateModifiedChannel to:self
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20032	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20033	^ beepForInfoDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20034	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20035
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20036	beepForWarningDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20037	beepForWarningDialog isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20038	beepForWarningDialog := currentUserPrefs beepForWarningDialog asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20039	beepForWarningDialog onChangeSend:#updateModifiedChannel to:self
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20040	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20041	^ beepForWarningDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20042	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20043
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	20044	beepInEditor
17943 b2efb0175eab #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17939 diff changeset	20045	"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	20046	should beep or not."
b2efb0175eab #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17939 diff changeset	20047
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	20048	beepInEditor isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20049	beepInEditor := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20050	beepInEditor onChangeSend:#updateModifiedChannel to:self
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	20051	].
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	20052	^ beepInEditor.
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	20053	!
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	20054
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20055	changeFileName
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	20056
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	20057	changeFileName isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20058	changeFileName := ObjectMemory nameForChanges asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20059	changeFileName onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	20060	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	20061	^ changeFileName.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	20062	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	20063
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20064	classInfos
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20065
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20066	classInfos isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20067	classInfos := Object infoPrinting asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20068	classInfos onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20069	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20070	^ classInfos.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20071	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20072
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20073	displayErrors
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20074
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20075	displayErrors isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20076	displayErrors := DeviceWorkstation errorPrinting asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20077	displayErrors onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20078	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20079	^ displayErrors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20080	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20081
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	20082	flyByHelpActive
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	20083	flyByHelp isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20084	flyByHelp := currentUserPrefs flyByHelpActive asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20085	flyByHelp onChangeSend:#updateModifiedChannel to:self
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	20086	].
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	20087	^ flyByHelp.
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	20088	!
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	20089
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20090	logDoits
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	20091
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	20092	logDoits isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20093	logDoits := Smalltalk logDoits asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20094	logDoits onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	20095	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	20096	^ logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	20097	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	20098
14515 14584fa647c7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14514 diff changeset	20099	onlyShowTooltipsForActiveWindow
14584fa647c7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14514 diff changeset	20100	onlyShowTooltipsForActiveWindow isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20101	onlyShowTooltipsForActiveWindow := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20102	onlyShowTooltipsForActiveWindow onChangeSend:#updateModifiedChannel to:self
14515 14584fa647c7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14514 diff changeset	20103	].
14584fa647c7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14514 diff changeset	20104	^ onlyShowTooltipsForActiveWindow.
14584fa647c7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14514 diff changeset	20105	!
14584fa647c7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14514 diff changeset	20106
14278 bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	20107	sendMessagesAlsoToTranscript
bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	20108	sendMessagesAlsoToTranscript isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20109	sendMessagesAlsoToTranscript := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20110	sendMessagesAlsoToTranscript onChangeSend:#updateModifiedChannel to:self
14278 bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	20111	].
bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	20112	^ sendMessagesAlsoToTranscript.
bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	20113	!
bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	20114
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20115	toolTipAutoHideDelay
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20116	toolTipAutoHideDelay isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20117	toolTipAutoHideDelay := 10 seconds asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20118	toolTipAutoHideDelay onChangeSend:#updateModifiedChannel to:self
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20119	].
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20120	^ toolTipAutoHideDelay.
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20121
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20122	"Created: / 10-11-2010 / 12:07:10 / cg"
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20123	!
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20124
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20125	updChanges
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20126
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20127	updChanges isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20128	updChanges := Class updatingChanges asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20129	updChanges onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20130	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20131	^ updChanges.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20132	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20133
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20134	vmErrors
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	20135
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	20136	vmErrors isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20137	vmErrors := ObjectMemory debugPrinting asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20138	vmErrors onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	20139	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	20140	^ vmErrors.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	20141	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	20142
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20143	vmInfo
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20144
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20145	vmInfo isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20146	vmInfo := ObjectMemory infoPrinting asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20147	vmInfo onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20148	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20149	^ vmInfo.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20150	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20151
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	20152	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	20153
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	20154	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	20155	^ 'Launcher/messageSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	20156	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	20157
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20158	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20159
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20160	hasUnsavedChanges
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20161	(super hasUnsavedChanges) ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	20162
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	20163	self vmInfo value ~= ObjectMemory infoPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	20164	self vmErrors value ~= ObjectMemory debugPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	20165	self classInfos value ~= Object infoPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	20166	self displayErrors value ~= DeviceWorkstation errorPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	20167	^ false
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	20168
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20169	"Modified: / 10-11-2010 / 12:08:25 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20170	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20171
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20172	!AbstractSettingsApplication::TerminalViewSettingsAppl class methodsFor:'help specs'!
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20173
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	20174	helpSpec
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20175	"This resource specification was automatically generated
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20176	by the UIHelpTool of ST/X."
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20177
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20178	"Do not manually edit this!! If it is corrupted,
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20179	the UIHelpTool may not be able to read the specification."
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20180
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20181	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	20182	UIHelpTool openOnClass:AbstractSettingsApplication::FontSettingsAppl
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20183	"
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20184
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20185	<resource: #help>
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20186
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	20187	^ super helpSpec addPairsFrom:#(
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20188
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20189	#terminalOutputIsUTF8
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20190	'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	20191
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20192	#terminalInputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20193	'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	20194
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20195	)
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20196	! !
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20197
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20198	!AbstractSettingsApplication::TerminalViewSettingsAppl class methodsFor:'image specs'!
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20199
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20200	defaultIcon
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20201	<resource: #programImage>
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20202
16953 9ad8c3d47cf2 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16951 diff changeset	20203	OperatingSystem isUNIXlike ifTrue:[
9ad8c3d47cf2 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16951 diff changeset	20204	^ ToolbarIconLibrary unixShellTerminal22x22Icon
9ad8c3d47cf2 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16951 diff changeset	20205	].
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20206	^ ToolbarIconLibrary terminal16x16Icon
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20207	! !
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20208
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20209	!AbstractSettingsApplication::TerminalViewSettingsAppl class methodsFor:'interface specs'!
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20210
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20211	windowSpec
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20212	"This resource specification was automatically generated
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20213	by the UIPainter of ST/X."
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20214
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20215	"Do not manually edit this!! If it is corrupted,
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20216	the UIPainter may not be able to read the specification."
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20217
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20218	"
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20219	UIPainter new openOnClass:AbstractSettingsApplication::TerminalViewSettingsAppl andSelector:#windowSpec
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20220	AbstractSettingsApplication::TerminalViewSettingsAppl new openInterface:#windowSpec
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20221	AbstractSettingsApplication::TerminalViewSettingsAppl open
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20222	"
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20223
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20224	<resource: #canvas>
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20225
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20226	^
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20227	#(FullSpec
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20228	name: windowSpec
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20229	window:
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20230	(WindowSpec
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	20231	label: 'Terminalview Settings'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	20232	name: 'Terminalview Settings'
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20233	flags: 1
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20234	min: (Point 10 10)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20235	bounds: (Rectangle 0 0 658 543)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20236	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20237	component:
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20238	(SpecCollection
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20239	collection: (
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20240	(VerticalPanelViewSpec
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20241	name: 'VerticalPanel1'
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20242	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20243	horizontalLayout: fit
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20244	verticalLayout: top
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20245	horizontalSpace: 3
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20246	verticalSpace: 3
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20247	component:
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20248	(SpecCollection
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20249	collection: (
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20250	(CheckBoxSpec
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20251	label: 'Shell / Command Output is UTF8 encoded'
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20252	name: 'UserCodeView2'
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20253	activeHelpKey: terminalOutputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20254	model: terminalOutputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20255	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	20256	extent: (Point 658 30)
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20257	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20258	(CheckBoxSpec
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20259	label: 'Shell / Command Input is UTF8 encoded'
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20260	name: 'CheckBox1'
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20261	activeHelpKey: terminalInputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20262	model: terminalInputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20263	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	20264	extent: (Point 658 30)
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20265	)
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
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20268	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20269	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20270	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20271
14477 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	)
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
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20276	!AbstractSettingsApplication::TerminalViewSettingsAppl methodsFor:'aspects'!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20277
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20278	aspects
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	20279	^ #(
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20280	#terminalOutputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20281	#terminalInputIsUTF8
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20282	)
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20283	!
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20284
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20285	terminalInputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20286	terminalInputIsUTF8 isNil ifTrue:[
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20287	terminalInputIsUTF8 := false asValue.
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20288	terminalInputIsUTF8 onChangeSend:#updateModifiedChannel to:self.
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20289	].
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20290	^ terminalInputIsUTF8.
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20291	!
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20292
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20293	terminalOutputIsUTF8
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20294	terminalOutputIsUTF8 isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20295	terminalOutputIsUTF8 := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20296	terminalOutputIsUTF8 onChangeSend:#updateModifiedChannel to:self.
14477 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	^ terminalOutputIsUTF8.
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20299	! !
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20300
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20301	!AbstractSettingsApplication::TerminalViewSettingsAppl methodsFor:'help'!
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20302
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20303	helpFilename
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20304	^ 'Launcher/terminalSettings.html'
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20305	! !
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20306
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20307	!AbstractSettingsApplication::ToolboxSettingsAppl class methodsFor:'image specs'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20308
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20309	defaultIcon
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20310	"This resource specification was automatically generated
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20311	by the ImageEditor of ST/X."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20312
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20313	"Do not manually edit this!! If it is corrupted,
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20314	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	20315
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20316	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20317	self defaultIcon inspect
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20318	ImageEditor openOnClass:self andSelector:#defaultIcon
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20319	Icon flushCachedIcons
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20320	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20321
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20322	<resource: #image>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20323
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20324	^Icon
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	20325	constantNamed:'AbstractSettingsApplication::ToolboxSettingsAppl defaultIcon'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	20326	ifAbsentPut:[(Depth4Image new) width:24; height:24; bits:(ByteArray fromPackedString:'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	20327	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	20328	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	20329	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	20330	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	20331	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20332
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20333	!AbstractSettingsApplication::ToolboxSettingsAppl class methodsFor:'interface specs'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20334
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20335	developmentToolsSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20336	"This resource specification was automatically generated
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20337	by the UIPainter of ST/X."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20338
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20339	"Do not manually edit this!! If it is corrupted,
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20340	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	20341
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20342	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20343	UIPainter new openOnClass:AbstractSettingsApplication::ToolboxSettingsAppl andSelector:#developmentToolsSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20344	AbstractSettingsApplication::ToolboxSettingsAppl new openInterface:#developmentToolsSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20345	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20346
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20347	<resource: #canvas>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20348
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20349	^
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20350	#(FullSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20351	name: developmentToolsSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20352	window:
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20353	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20354	label: 'Development'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20355	name: 'Development'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20356	bounds: (Rectangle 0 0 674 614)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20357	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20358	component:
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20359	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20360	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20361	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20362	name: 'DevToolsPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20363	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20364	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20365	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20366	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20367	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20368	postBuildCallback: developmentToolSettingsInto:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20369	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20370	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20371
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20372	)
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20373	)
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20374
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20375	"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	20376	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20377
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20378	miscToolsSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20379	"This resource specification was automatically generated
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20380	by the UIPainter of ST/X."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20381
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20382	"Do not manually edit this!! If it is corrupted,
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20383	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	20384
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20385	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20386	UIPainter new openOnClass:AbstractSettingsApplication::ToolboxSettingsAppl andSelector:#developmentToolsSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20387	AbstractSettingsApplication::ToolboxSettingsAppl new openInterface:#developmentToolsSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20388	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20389
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20390	<resource: #canvas>
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	^
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20393	#(FullSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20394	name: miscToolsSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20395	window:
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20396	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20397	label: 'Other'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20398	name: 'Other'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20399	bounds: (Rectangle 0 0 674 614)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20400	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20401	component:
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20402	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20403	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20404	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20405	name: 'DevToolsPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20406	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20407	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20408	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20409	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20410	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20411	postBuildCallback: miscToolSettingsInto:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20412	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20413	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20414
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20415	)
13849 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	"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	20419	!
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	windowSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20422	"This resource specification was automatically generated
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20423	by the UIPainter of ST/X."
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	"Do not manually edit this!! If it is corrupted,
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20426	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	20427
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20428	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20429	UIPainter new openOnClass:AbstractSettingsApplication::ToolboxSettingsAppl andSelector:#windowSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20430	AbstractSettingsApplication::ToolboxSettingsAppl new openInterface:#windowSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20431	AbstractSettingsApplication::ToolboxSettingsAppl open
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20432	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20433
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20434	<resource: #canvas>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20435
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20436	^
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20437	#(FullSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20438	name: windowSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20439	window:
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20440	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20441	label: 'Toolbox Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20442	name: 'Toolbox Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20443	bounds: (Rectangle 0 0 551 561)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20444	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20445	component:
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20446	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20447	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20448	(NoteBookViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20449	name: 'NoteBook'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20450	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20451	menu: notebookTabList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20452	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20453	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20454
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20455	)
13849 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	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20458
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20459	!AbstractSettingsApplication::ToolboxSettingsAppl class methodsFor:'list specs'!
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	notebookTabList
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20462	"This resource specification was automatically generated
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20463	by the TabListEditor of ST/X."
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	"Do not manually edit this!! If it is corrupted,
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20466	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	20467
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20468	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20469	TabListEditor new openOnClass: self andSelector:#notebookTabList
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20470	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20471
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20472	<resource: #tabList>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20473
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20474	^ #(
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20475	(TabItem
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20476	label: 'Development'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20477	minorKey: developmentToolsSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20478	createNewBuilder: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20479	)
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20480	(TabItem
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20481	label: 'Miscellaneous'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20482	minorKey: miscToolsSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20483	createNewBuilder: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20484	)
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20485
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20486	)
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20487
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20488	collect:[:aTab\| TabItem new fromLiteralArrayEncoding:aTab ]
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20489
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20490	"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	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	!AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'aspects'!
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	aspects
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20496
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20497	^#(
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20498	"Development"
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20499	changesBrowserClassName
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20500
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20501	"Misc"
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20502	fileBrowserClassName
13849 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
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20505	"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	20506	!
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	changesBrowserClassName
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20509	<resource: #uiAspect>
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	changesBrowserClassName isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20512	changesBrowserClassName := ValueHolder new.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20513	changesBrowserClassName onChangeSend:#updateModifiedChannel to:self.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20514	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20515	^ changesBrowserClassName.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20516
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20517	"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	20518	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20519
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20520	fileBrowserClassName
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20521	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20522
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20523	fileBrowserClassName isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20524	fileBrowserClassName := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20525	fileBrowserClassName onChangeSend:#updateModifiedChannel to:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20526	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20527	^ fileBrowserClassName.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20528
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20529	"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	20530	"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	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	notebookTabList
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20534	"Generated by the TabListEditor"
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	\|list\|
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20537
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20538	(list := builder bindingAt:#notebookTabList) isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20539	builder aspectAt:#notebookTabList put:(list := self class notebookTabList).
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20540	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20541	^ list
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	!AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'hooks'!
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	developmentToolSettingsInto:panel
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20547
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20548	(self addClassToolSettingTo: panel)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20549	label: 'Changes Browser';
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20550	classes:#( #ChangesBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20551	#NewChangesBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20552	#Tools::ChangeSetBrowser2 );
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20553	labels: #( 'ChangesBrowser - default'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20554	'NewChangesBrowser - experimental, not maintained'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20555	'Tools::ChangeSetBrowser2 - experimental' );
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20556	model: self changesBrowserClassName
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20557
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20558	"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	20559	!
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	miscToolSettingsInto:panel
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	(self addClassToolSettingTo: panel)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20564	label: 'File Browser';
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20565	classes:#( #FileBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20566	#FileBrowserV2
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20567	#FileBrowserV3 );
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20568	labels: #( 'FileBrowser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20569	'FileBrowserV2 - default'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20570	'FileBrowserV3 - experimental' );
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20571	model: self fileBrowserClassName
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20572
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20573	"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	20574	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20575
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20576	!AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'private'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20577
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20578	addClassToolSettingTo: panel
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	\| model setting canvas \|
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20581	canvas := ApplicationSubView new.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20582	setting := ClassToolSetting new.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20583	setting createBuilder.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20584	setting model: model.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20585	setting window: canvas.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20586	canvas client: setting.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20587	canvas height: 30.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20588	panel addSubView: canvas.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20589	^setting
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20590
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20591	"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	20592	! !
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	!AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'protocol'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20595
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20596	helpFilename
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20597	"subclasses must return the relative name of a helpFile
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20598	in the doc/online/<language>/help directory.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20599	Or nil, if no help is available."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20600
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20601	^ self shouldImplement
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20602	! !
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	!AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting class methodsFor:'interface specs'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20605
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20606	windowSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20607	"This resource specification was automatically generated
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20608	by the UIPainter of ST/X."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20609
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20610	"Do not manually edit this!! If it is corrupted,
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20611	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	20612
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20613	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20614	UIPainter new openOnClass:AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting andSelector:#windowSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20615	AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting new openInterface:#windowSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20616	AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting open
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	<resource: #canvas>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20620
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20621	^
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20622	#(FullSpec
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20623	name: windowSpec
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20624	window:
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20625	(WindowSpec
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20626	label: 'ToolSetting'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20627	name: 'ToolSetting'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20628	min: (Point 10 10)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20629	bounds: (Rectangle 0 0 431 60)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20630	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20631	component:
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20632	(SpecCollection
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20633	collection: (
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20634	(LabelSpec
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20635	label: 'Tool...'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20636	name: 'Label'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20637	layout: (LayoutFrame 0 0 0 0 250 0 30 0)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20638	translateLabel: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20639	labelChannel: optionLabelHolder
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20640	adjust: left
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20641	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20642	(PopUpListSpec
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20643	label: 'Please select...'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20644	name: 'OptionList'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20645	layout: (LayoutFrame 250 0 3 0 0 1 27 0)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20646	translateLabel: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20647	model: optionSelectionHolder
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20648	menu: optionLabelList
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20649	useIndex: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20650	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20651	(InputFieldSpec
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20652	name: 'EntryField1'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20653	layout: (LayoutFrame 250 0 33 0 0 1 56 0)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20654	visibilityChannel: optionCustomValueVisibleHolder
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20655	backgroundChannel: optionCustomValueBackgroundHolder
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20656	model: optionCustomValueHolder
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20657	type: string
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20658	immediateAccept: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20659	acceptOnReturn: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20660	acceptOnTab: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20661	acceptOnPointerLeave: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20662	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20663	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20664
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20665	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20666	)
13849 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::ClassToolSetting methodsFor:'accessing'!
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	classes: aCollection
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20672
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20673	optionValueList := aCollection.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20674
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20675	"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	20676	!
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	label: aString
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20679
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20680	self optionLabelHolder value: aString
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20681
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20682	"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	20683	!
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	labels: aCollection
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20686
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20687	\| labels \|
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20688	labels := aCollection asOrderedCollection.
18692 a12a8ca6179e #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18653 diff changeset	20689	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	20690	self optionLabelList value: labels.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20691
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20692	"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	20693	"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	20694	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20695
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20696	model: aValueHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20697
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20698	self optionValueHolder: aValueHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20699
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20700	"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	20701	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20702
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20703	!AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting methodsFor:'aspects'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20704
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20705	optionCustomValueBackgroundHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20706	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20707
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20708	optionCustomValueBackgroundHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20709	optionCustomValueBackgroundHolder := ValueHolder new.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20710	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20711	^ optionCustomValueBackgroundHolder.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20712	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20713
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20714	optionCustomValueBackgroundHolder:something
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20715	"set the 'optionCustomValueBackgroundHolder' value holder (automatically generated)"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20716
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20717	optionCustomValueBackgroundHolder := something.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20718	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20719
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20720	optionCustomValueHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20721	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20722
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20723	optionCustomValueHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20724	optionCustomValueHolder := ValueHolder new.
16189 0386621f56dc x Claus Gittinger <cg@exept.de> parents: 16173 diff changeset	20725	optionCustomValueHolder addDependent:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20726	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20727	^ optionCustomValueHolder.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20728
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20729	"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	20730	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20731
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20732	optionCustomValueVisibleHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20733	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20734
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20735	optionCustomValueVisibleHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20736	optionCustomValueVisibleHolder := false asValue.
16189 0386621f56dc x Claus Gittinger <cg@exept.de> parents: 16173 diff changeset	20737	optionCustomValueVisibleHolder addDependent:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20738	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20739	^ optionCustomValueVisibleHolder.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20740
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20741	"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	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	optionLabelHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20745	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20746
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20747	optionLabelHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20748	optionLabelHolder := ValueHolder new.
13849 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	^ optionLabelHolder.
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	optionLabelList
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20754	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20755
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20756	optionLabelList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20757	optionLabelList := ValueHolder new.
13849 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	^ optionLabelList.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20760	!
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	optionLabelList:something
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20763	"set the 'optionLabelList' value holder (automatically generated)"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20764
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20765	optionLabelList := something.
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
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20768	optionSelectionHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20769	<resource: #uiAspect>
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	optionSelectionHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20772	optionSelectionHolder := ValueHolder new.
16189 0386621f56dc x Claus Gittinger <cg@exept.de> parents: 16173 diff changeset	20773	optionSelectionHolder addDependent:self.
13849 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	^ optionSelectionHolder.
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	"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	20778	!
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	optionSelectionHolder:something
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20781	"set the 'optionSelectionHolder' value holder (automatically generated)"
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	\|oldValue newValue\|
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20784
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20785	optionSelectionHolder notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20786	oldValue := optionSelectionHolder value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20787	optionSelectionHolder removeDependent:self.
13849 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	optionSelectionHolder := something.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20790	optionSelectionHolder notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20791	optionSelectionHolder addDependent:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20792	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20793	newValue := optionSelectionHolder value.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20794	oldValue ~~ newValue ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20795	self update:#value with:newValue from:optionSelectionHolder.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20796	].
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
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20799	optionValueHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20800	"return/create the 'optionValueHolder' value holder (automatically generated)"
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	optionValueHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20803	optionValueHolder := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20804	optionValueHolder addDependent:self.
13849 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	^ optionValueHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20807	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20808
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20809	optionValueHolder:something
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20810	"set the 'optionValueHolder' value holder (automatically generated)"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20811
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20812	\|oldValue newValue\|
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	optionValueHolder notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20815	oldValue := optionValueHolder value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20816	optionValueHolder removeDependent:self.
13849 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	optionValueHolder := something.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20819	optionValueHolder notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20820	optionValueHolder addDependent:self.
13849 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	newValue := optionValueHolder value.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20823	oldValue ~~ newValue ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20824	self update:#value with:newValue from:optionValueHolder.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20825	].
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	!AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting methodsFor:'change & update'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20829
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20830	update:something with:aParameter from:changedObject
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20831	"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	20832
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20833	"stub code automatically generated - please change as required"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20834
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20835	changedObject == optionSelectionHolder ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20836	\| idx \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20837
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20838	idx := self optionSelectionHolder value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20839	self optionCustomValueVisibleHolder value: (idx == optionLabelList value size).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20840	idx <= optionValueList size ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20841	self optionValueHolder value: (optionValueList at: idx)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20842	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20843	^ self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20844	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20845	changedObject == optionCustomValueVisibleHolder ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20846	self window notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20847	optionCustomValueVisibleHolder value ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20848	self window height: 60
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20849	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20850	self window height: 30
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20851	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20852	]
13849 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	changedObject == optionValueHolder ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20856	\| idx \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20857
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20858	self optionSelectionHolder value: ((optionValueList ? #()) indexOf: optionValueHolder value ifAbsent:[optionLabelList value size]).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20859	self optionCustomValueHolder value: optionValueHolder value.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20860
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20861	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20862
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	super update:something with:aParameter from:changedObject
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20865
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20866	"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	20867	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20868
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20869	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'help specs'!
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20870
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	20871	helpSpec
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20872	"This resource specification was automatically generated
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20873	by the UIHelpTool of ST/X."
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20874
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20875	"Do not manually edit this!! If it is corrupted,
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20876	the UIHelpTool may not be able to read the specification."
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20877
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20878	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	20879	UIHelpTool openOnClass:AbstractSettingsApplication::ToolsSettingsAppl
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20880	"
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20881
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20882	<resource: #help>
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20883
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	20884	^ super helpSpec addPairsFrom:#(
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20885
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20886	#autoRaiseTranscript
11732 67c6691a705a help texts Claus Gittinger <cg@exept.de> parents: 11711 diff changeset	20887	'Autoraise the Transcript window when messages are added'
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20888
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20889	#useNewFileBrowser
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20890	'Use the new, improved FileBrowser (as opposed to the simpler, older version)'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20891
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20892	#useNewSystemBrowser
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20893	'Use the new, improved SystemBrowser (as opposed to the simpler, older version)'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20894
11293 65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20895	#useHierarchicalInspector
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20896	'Use the new, hierarchical inspector (unfinished, experimental)'
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20897
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20898	#showDidYouKnowTips
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20899	'Show the "Did you Know?" tip browser at startup'
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20900
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20901	#showClockInLauncher
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20902	'Show the current time in the Launcher'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20903
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20904	#transcriptBufferSize
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20905	'Number of lines that are remembered in the Transcript'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20906
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20907	#useSmalltalkDocumentView
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20908	'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	20909
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20910	#eclipseStyleMenus
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20911	'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	20912	)
11293 65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	20913
11732 67c6691a705a help texts Claus Gittinger <cg@exept.de> parents: 11711 diff changeset	20914	"Modified: / 09-08-2012 / 09:34:41 / cg"
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20915	! !
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	20916
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20917	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20918
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20919	defaultIcon
14411 858d91fea116 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14389 diff changeset	20920	<resource: #image>
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20921	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20922	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20923	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20924	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20925	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20926	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20927	ImageEditor openOnClass:self andSelector:#defaultIcon
14411 858d91fea116 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14389 diff changeset	20928	Icon flushCachedIcons"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	20929
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	20930	^ Icon
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20931	constantNamed:#'AbstractSettingsApplication::ToolsSettingsAppl class defaultIcon'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20932	ifAbsentPut:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20933	(Depth4Image new)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20934	width:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20935	height:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20936	photometric:(#palette);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20937	bitsPerSample:(#( 4 ));
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20938	samplesPerPixel:(1);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20939	bits:(ByteArray
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20940	fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	20941	*****************************@@@@@@@@@@@@@J(@@@@@@@@@@@@@ @@@F(QD@@@@@B@@@@B((QD@@@@J(@@@@@@JLQ@@@@ @B$@@@)CD@@@B*@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	20942	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	20943	@@@@@@H0B@@@@@@@@@@@@@J(@@@@@@@@@@@@@ @@@@@@@@@@@@B*****************************(b');
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20944	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	20945	mask:((ImageMask new)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20946	width:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20947	height:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20948	bits:(ByteArray
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20949	fromPackedString:'@@@@@@@@@@@@@?@@@?0@@_8@GO<@G3<@G?>@G??@G?? G?? C?? @?? @G? @@_ @@G @@A @@@@@@@@@@@@@@@@');
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20950	yourself);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20951	yourself
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20952	]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20953	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20954
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20955	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20956
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20957	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20958	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20959	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20960
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20961	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20962	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20963
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20964	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	20965	UIPainter new openOnClass:AbstractSettingsApplication::ToolsSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	20966	AbstractSettingsApplication::ToolsSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	20967	AbstractSettingsApplication::ToolsSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20968	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20969
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20970	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20971
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	20972	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	20973	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	20974	name: windowSpec
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	20975	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	20976	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20977	label: 'Tool Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20978	name: 'Tool Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20979	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20980	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20981	bounds: (Rectangle 0 0 594 584)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	20982	)
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	20983	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	20984	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20985	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20986	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20987	name: 'VerticalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20988	layout: (LayoutFrame 0 0.0 0 0 0 1.0 562 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20989	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20990	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20991	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20992	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20993	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20994	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20995	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20996	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20997	label: 'Use the New System Browser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20998	name: 'NewSystemBrowser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20999	activeHelpKey: useNewSystemBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21000	visibilityChannel: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21001	model: useNewSystemBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21002	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21003	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21004	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21005	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21006	label: 'Use the New File Browser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21007	name: 'NewFileBrowser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21008	activeHelpKey: useNewFileBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21009	visibilityChannel: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21010	model: useNewFileBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21011	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21012	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21013	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21014	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21015	label: 'Use the New VersionDiff Browser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21016	name: 'VersionDiffBrowser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21017	model: useNewVersionDiffBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21018	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21019	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21020	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21021	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21022	label: 'Use the New FileTree File Dialog'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21023	name: 'UseNewFileDialogCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21024	model: useNewFileDialog
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21025	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21026	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21027	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21028	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21029	label: 'Use the New Settings Dialog'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21030	name: 'UseNewSettinsApplicationCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21031	visibilityChannel: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21032	model: useNewSettingsApplication
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21033	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21034	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21035	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21036	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21037	label: 'Use the New Process Monitor'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21038	name: 'UseNewProcessMonitor'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21039	model: useProcessMonitorV2
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21040	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21041	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21042	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21043	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21044	label: 'Use the New TestRunner2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21045	name: 'CheckBox3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21046	model: useTestRunner2
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21047	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21048	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21049	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21050	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21051	label: 'Use the New Changes Browser for Changefiles (not yet recommended)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21052	name: 'ChangesBrowser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21053	model: useNewChangesBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21054	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21055	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21056	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21057	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21058	label: 'Use the New ChangeSet Browser for Internal ChangeSets'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21059	name: 'CheckBox5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21060	model: useNewChangeSetBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21061	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21062	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21063	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21064	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21065	label: 'Use Hierarchical Inspector (not yet recommended)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21066	name: 'HierarchicalInspector'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21067	activeHelpKey: useHierarchicalInspector
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21068	model: useNewInspector
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21069	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21070	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21071	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21072	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21073	label: 'Use the Smalltalk Document Viewer'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21074	name: 'UseSmalltalkDocumentViewer'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21075	activeHelpKey: useSmalltalkDocumentView
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21076	model: useSmalltalkDocumentViewer
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	(HorizontalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21081	name: 'HorizontalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21082	horizontalLayout: leftFit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21083	verticalLayout: center
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21084	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21085	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21086	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21087	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21088	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21089	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21090	label: 'External Diff Tool:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21091	name: 'Label3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21092	activeHelpKey: transcriptBufferSize
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	resizeForLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21095	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21096	useDefaultExtent: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21097	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21098	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21099	name: 'EntryField1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21100	activeHelpKey: transcriptBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21101	model: externalDiffCommandTemplate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21102	type: string
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21103	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21104	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21105	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21106	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21107	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21108	extent: (Point 480 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21109	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21110	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21111
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21112	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21113	extent: (Point 594 35)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21114	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21115	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21116	name: 'Separator3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21117	extent: (Point 594 4)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21118	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21119	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21120	label: 'Show "Tip Of The Day" at Startup'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21121	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21122	activeHelpKey: showDidYouKnowTips
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21123	model: showTipOfTheDayAtStartup
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21124	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21125	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21126	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21127	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21128	label: 'Show Clock in Launcher'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21129	name: 'Clock'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21130	activeHelpKey: showClockInLauncher
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21131	model: showClockInLauncher
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21132	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21133	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21134	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21135	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21136	name: 'Separator2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21137	extent: (Point 594 4)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21138	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21139	(HorizontalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21140	name: 'HorizontalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21141	horizontalLayout: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21142	verticalLayout: center
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21143	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21144	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21145	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21146	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21147	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21148	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21149	name: 'Box4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21150	extent: (Point 20 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21151	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21152	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21153	label: 'Transcript''s Buffer Size:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21154	name: 'Label1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21155	activeHelpKey: transcriptBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21156	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21157	resizeForLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21158	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21159	useDefaultExtent: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21160	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21161	(InputFieldSpec
18403 779374848f98 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18335 diff changeset	21162	name: 'Transcript''s Buffer Size'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21163	activeHelpKey: transcriptBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21164	model: transcriptBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21165	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21166	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21167	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21168	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21169	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21170	numChars: 8
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21171	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21172	extent: (Point 78 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21173	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21174	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21175	label: '(Lines)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21176	name: 'Label2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21177	activeHelpKey: transcriptBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21178	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21179	resizeForLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21180	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21181	useDefaultExtent: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21182	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21183	)
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	extent: (Point 594 35)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21187	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21188	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21189	label: 'Autoraise Transcript'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21190	name: 'CheckBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21191	activeHelpKey: autoRaiseTranscript
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21192	model: autoRaiseTranscript
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21193	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21194	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21195	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21196	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21197	name: 'Separator1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21198	extent: (Point 594 4)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21199	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21200	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21201	label: 'Eclipse Style Menus (where implemented)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21202	name: 'CheckBox4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21203	activeHelpKey: eclipseStyleMenus
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21204	model: eclipseStyleMenus
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21205	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21206	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21207	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21208	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21209
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21210	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21211	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21212	)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	21213
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	21214	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	21215	)
18403 779374848f98 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18335 diff changeset	21216
779374848f98 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18335 diff changeset	21217	"Modified: / 21-09-2018 / 11:19:16 / Claus Gittinger"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21218	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21219
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21220	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21221
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	21222	basicReadSettings
15494 dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21223	\|transcript\|
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21224
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21225	super basicReadSettings.
15494 dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21226
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21227	transcript := Transcript current.
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21228	transcript isTextCollector ifTrue:[
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21229	self transcriptBufferSize value:transcript lineLimit.
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21230	"/ now already in userprefs
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21231	"/ self autoRaiseTranscript value:transcript autoRaise.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	21232	].
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21233
13399 589ada002149 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13372 diff changeset	21234	"Modified: / 29-08-2013 / 11:40:23 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	21235	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	21236
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21237	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	21238	\|showClock launcher reopenLauncher newSystemBrowserClass transcript\|
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	21239
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21240	reopenLauncher := false.
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21241
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	21242	newSystemBrowserClass := Tools::NewSystemBrowser ? NewSystemBrowser.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	21243
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21244	super basicSaveSettings.
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21245
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	21246	currentUserPrefs useNewSettingsApplication ~= self useNewSettingsApplication value ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21247	currentUserPrefs useNewSettingsApplication:self useNewSettingsApplication value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	21248	].
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	21249
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	21250	currentUserPrefs useNewSystemBrowser ~= self useNewSystemBrowser value ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21251	currentUserPrefs useNewSystemBrowser:self useNewSystemBrowser value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21252	(self useNewSystemBrowser value and:[newSystemBrowserClass isLoaded]) ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21253	newSystemBrowserClass installInLauncher.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21254	] ifFalse:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21255	newSystemBrowserClass removeFromLauncher.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21256	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21257	reopenLauncher := true.
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	21258	].
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	21259
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21260	(Smalltalk at:#FileBrowserV2) isBehavior ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21261	currentUserPrefs useNewFileBrowser ~= self useNewFileBrowser value ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21262	currentUserPrefs useNewFileBrowser:self useNewFileBrowser value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21263	(self useNewFileBrowser value and:[FileBrowserV2 isLoaded]) ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21264	FileBrowserV2 installInLauncher.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21265	] ifFalse:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21266	FileBrowserV2 removeFromLauncher.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21267	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21268	reopenLauncher := true.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21269	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21270	].
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21271
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21272	transcript := Transcript current.
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21273	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21274	transcript lineLimit:self transcriptBufferSize value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21275	"/ now already done by UserPreferences
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21276	"/ transcript autoRaise:self autoRaiseTranscript value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21277	launcher := transcript application.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21278	].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21279
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21280	showClock := self showClockInLauncher value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21281	currentUserPrefs showClockInLauncher ~= showClock ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21282	currentUserPrefs showClockInLauncher:showClock.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21283	launcher notNil ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21284	showClock ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21285	launcher startClock
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21286	] ifFalse:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21287	launcher stopClock
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21288	]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21289	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21290	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21291	Inspector := currentUserPrefs inspectorClassSetting.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21292
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	21293	reopenLauncher ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21294	launcher notNil ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21295	launcher reopenLauncher.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21296	]
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	21297	].
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21298
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21299	"Modified: / 27-07-2012 / 20:51:46 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21300	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21301
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21302	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21303
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21304	aspects
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21305	^ #(
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21306	#eclipseStyleMenus
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21307	#useTestRunner2
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21308	"/ #useCodeView2InTools
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21309	#useNewInspector
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21310	#useNewChangesBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21311	#useNewChangeSetBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21312	"/ #useNewSystemBrowser -- no longer an option
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21313	#useNewVersionDiffBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21314	"/ #useNewFileBrowser -- no longer an option
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21315	#useNewFileDialog
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21316	"/ #useNewSettingsApplication -- no longer an option
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21317	#useProcessMonitorV2
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21318	#useSmalltalkDocumentViewer
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21319	#showClockInLauncher
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21320	#showTipOfTheDayAtStartup
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21321	#externalDiffCommandTemplate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21322	#autoRaiseTranscript
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21323	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21324
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21325	"Created: / 27-07-2012 / 20:48:18 / cg"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21326	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21327
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21328	autoRaiseTranscript
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21329	autoRaiseTranscript isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21330	autoRaiseTranscript := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21331	autoRaiseTranscript onChangeSend:#updateModifiedChannel to:self
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21332	].
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21333	^ autoRaiseTranscript.
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21334
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21335	"Modified: / 21-09-2006 / 00:39:54 / cg"
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21336	!
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21337
10294 123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21338	eclipseStyleMenus
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21339	eclipseStyleMenus isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21340	eclipseStyleMenus := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21341	eclipseStyleMenus onChangeSend:#updateModifiedChannel to:self
10294 123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21342	].
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21343	^ eclipseStyleMenus.
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21344
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21345	"Modified: / 21-09-2006 / 00:39:54 / cg"
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21346	"Created: / 08-07-2011 / 13:42:13 / cg"
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21347	!
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21348
12359 1f12210b8551 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12352 diff changeset	21349	externalDiffCommandTemplate
1f12210b8551 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12352 diff changeset	21350	externalDiffCommandTemplate isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21351	externalDiffCommandTemplate := UserPreferences current externalDiffCommandTemplate asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21352	externalDiffCommandTemplate onChangeSend:#updateModifiedChannel to:self
12359 1f12210b8551 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12352 diff changeset	21353	].
1f12210b8551 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12352 diff changeset	21354	^ externalDiffCommandTemplate.
1f12210b8551 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12352 diff changeset	21355	!
1f12210b8551 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12352 diff changeset	21356
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21357	showClockInLauncher
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21358	showClockInLauncher isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21359	showClockInLauncher := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21360	showClockInLauncher onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21361	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21362	^ showClockInLauncher.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21363
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21364	"Modified: / 21-09-2006 / 00:39:54 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21365	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21366
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21367	showTipOfTheDayAtStartup
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21368	showTipOfTheDayAtStartup isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21369	showTipOfTheDayAtStartup := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21370	showTipOfTheDayAtStartup onChangeSend:#updateModifiedChannel to:self
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21371	].
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21372	^ showTipOfTheDayAtStartup.
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21373
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21374	"Modified: / 21-09-2006 / 00:39:54 / cg"
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21375	!
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21376
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21377	transcriptBufferSize
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21378	transcriptBufferSize isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21379	transcriptBufferSize := 600 asValue. "/ Transcript current lineLimit asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21380	transcriptBufferSize onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21381	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21382	^ transcriptBufferSize.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21383	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21384
11985 4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21385	useCodeView2InTools
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21386	useCodeView2InTools isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21387	useCodeView2InTools := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21388	useCodeView2InTools onChangeSend:#updateModifiedChannel to:self
11985 4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21389
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21390	].
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21391	^ useCodeView2InTools
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21392
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21393	"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	21394	!
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21395
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21396	useNewChangeSetBrowser
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21397	useNewChangeSetBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21398	useNewChangeSetBrowser := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21399	useNewChangeSetBrowser onChangeSend:#updateModifiedChannel to:self
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21400	].
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21401	^ useNewChangeSetBrowser.
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21402
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21403	"Modified: / 21-09-2006 / 00:39:37 / cg"
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21404	"Created: / 27-07-2012 / 20:45:41 / cg"
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21405	!
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21406
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21407	useNewChangesBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21408	useNewChangesBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21409	useNewChangesBrowser := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21410	useNewChangesBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21411	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21412	^ useNewChangesBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21413
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21414	"Modified: / 21-09-2006 / 00:39:37 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21415	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21416
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21417	useNewFileBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21418	useNewFileBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21419	useNewFileBrowser := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21420	useNewFileBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21421	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21422	^ useNewFileBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21423
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21424	"Modified: / 21-09-2006 / 00:39:19 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21425	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21426
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21427	useNewFileDialog
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21428	useNewFileDialog isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21429	useNewFileDialog := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21430	useNewFileDialog onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21431	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21432	^ useNewFileDialog.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21433	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21434
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21435	useNewInspector
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21436	useNewInspector isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21437	useNewInspector := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21438	useNewInspector onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21439	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21440	^ useNewInspector.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21441
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21442	"Modified: / 21-09-2006 / 00:38:41 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21443	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21444
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21445	useNewSettingsApplication
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21446	useNewSettingsApplication isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21447	useNewSettingsApplication := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21448	useNewSettingsApplication onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21449	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21450	^ useNewSettingsApplication.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21451	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21452
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21453	useNewSystemBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21454	useNewSystemBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21455	useNewSystemBrowser := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21456	useNewSystemBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21457	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21458	^ useNewSystemBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21459
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21460	"Modified: / 21-09-2006 / 00:39:02 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21461	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21462
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21463	useNewVersionDiffBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21464	useNewVersionDiffBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21465	useNewVersionDiffBrowser := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21466	useNewVersionDiffBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21467	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21468	^ useNewVersionDiffBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21469
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21470	"Modified: / 21-09-2006 / 00:38:56 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21471	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21472
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21473	useProcessMonitorV2
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21474	useProcessMonitorV2 isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21475	useProcessMonitorV2 := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21476	useProcessMonitorV2 onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21477	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21478	^ useProcessMonitorV2.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21479
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21480	"Modified: / 21-09-2006 / 00:38:50 / cg"
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21481	!
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21482
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21483	useSmalltalkDocumentViewer
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21484	useSmalltalkDocumentViewer isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21485	useSmalltalkDocumentViewer := nil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21486	useSmalltalkDocumentViewer onChangeSend:#updateModifiedChannel to:self
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21487	].
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21488	^ useSmalltalkDocumentViewer.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21489
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21490	"Modified: / 21-09-2006 / 00:03:13 / cg"
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21491	!
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21492
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21493	useTestRunner2
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21494	useTestRunner2 isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21495	useTestRunner2 := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21496	useTestRunner2 onChangeSend:#updateModifiedChannel to:self
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21497	].
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21498	^ useTestRunner2.
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21499
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21500	"Modified: / 21-09-2006 / 00:39:19 / cg"
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21501	"Created: / 06-07-2011 / 13:52:33 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21502	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21503
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	21504	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	21505
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	21506	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	21507	^ 'Launcher/toolSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	21508	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	21509
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21510	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21511
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21512	hasUnsavedChanges
15494 dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21513	\|transcript\|
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21514
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21515	super hasUnsavedChanges ifTrue:[^ true].
15494 dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21516
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21517	transcript := Transcript current.
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21518	transcript isTextCollector ifTrue:[
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21519	(self transcriptBufferSize value ~= transcript lineLimit) ifTrue:[^ true].
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21520	"/ now already in UserPreferences
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21521	"/ (self autoRaiseTranscript value ~= transcript autoRaise) ifTrue:[^ true].
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21522	].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21523	^ false.
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21524
13399 589ada002149 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13372 diff changeset	21525	"Modified: / 29-08-2013 / 11:40:55 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21526	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21527
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21528	!AbstractSettingsApplication::WorkspaceSettingsAppl class methodsFor:'help specs'!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21529
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	21530	helpSpec
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21531	"This resource specification was automatically generated
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21532	by the UIHelpTool of ST/X."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21533
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21534	"Do not manually edit this!! If it is corrupted,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21535	the UIHelpTool may not be able to read the specification."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21536
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21537	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21538	UIHelpTool openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21539	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21540
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21541	<resource: #help>
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21542
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	21543	^ super helpSpec addPairsFrom:#(
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21544
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21545	#usersModuleName
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	21546	'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	21547
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21548	#workspaceDirectory
17388 f835818f96c2 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17369 diff changeset	21549	'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	21550
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21551	)
17388 f835818f96c2 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17369 diff changeset	21552
f835818f96c2 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17369 diff changeset	21553	"Modified: / 11-02-2017 / 15:28:42 / cg"
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21554	! !
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21555
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21556	!AbstractSettingsApplication::WorkspaceSettingsAppl class methodsFor:'image specs'!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21557
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21558	defaultIcon
18285 a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	21559	<resource: #programImage>
a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	21560
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21561	^ self defaultIcon2
18285 a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	21562
a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	21563	"Modified: / 28-07-2018 / 09:59:55 / Claus Gittinger"
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21564	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21565
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21566	defaultIcon1
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21567	"This resource specification was automatically generated
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21568	by the ImageEditor of ST/X."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21569
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21570	"Do not manually edit this!! If it is corrupted,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21571	the ImageEditor may not be able to read the specification."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21572
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21573	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21574	self defaultIcon1 inspect
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21575	ImageEditor openOnClass:self andSelector:#defaultIcon1
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21576	Icon flushCachedIcons
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21577	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21578
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21579	<resource: #image>
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21580
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21581	^Icon
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21582	constantNamed:'AbstractSettingsApplication::WorkspaceSettingsAppl defaultIcon1'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21583	ifAbsentPut:[(Depth4Image width:24 height:24) bits:(ByteArray fromPackedString:'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21584	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@AH@@@@@@@@@@@HP@UTP@R@@@@@@@@MQEU
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21585	UQES@@@@@@@@@%UUUUT @@@@@@@@@UT#H%TP@@@@@@@@EUH0@2UQ@@@@@@@QUULDPCUUDP@@@@@3UUHDPBUUL0@@@@@@H%TP@UT"@@@@@@@@@%UQEUT @@@@
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21586	@@@@@UUUUUTP@@@@@@@@ESIUURMQ@@@@@@@@H0@UTP@2@@@@@@@@@@@AL@@@@@@@@@@@@@@AL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21587	@@@@@@@@@@@@@@@@@@@@@@@@') 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	21588	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21589
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21590	defaultIcon2
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21591	"This resource specification was automatically generated
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21592	by the ImageEditor of ST/X."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21593
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21594	"Do not manually edit this!! If it is corrupted,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21595	the ImageEditor may not be able to read the specification."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21596
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21597	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21598	self defaultIcon2 inspect
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21599	ImageEditor openOnClass:self andSelector:#defaultIcon2
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21600	Icon flushCachedIcons
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21601	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21602
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21603	<resource: #image>
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21604
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21605	^Icon
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21606	constantNamed:'AbstractSettingsApplication::WorkspaceSettingsAppl defaultIcon2'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21607	ifAbsentPut:[(Depth8Image width:24 height:24) bits:(ByteArray fromPackedString:'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21608	@@]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	21609	@@@@@@@@\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	21610	@@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	21611	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	21612	@@@@@@@@@@@B@ TE@P@@@PTE@ H@@@@@@@@@@@@@@@@@@ TEAPDAAPTE@ @@@@@@@@@@@@@@@@@@@PTEAPTEAPTE@P@@@@@@@@@@@@@@@@@AAPHBAPTEAPHC
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21613	APD@@@@@@@@@@@@@@@@B@ @@@PTE@P@@@0H@@@@@@@@@@@@@@@@@@@@@@@TB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DB@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21614	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') 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	21615	! !
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21616
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21617	!AbstractSettingsApplication::WorkspaceSettingsAppl class methodsFor:'interface specs'!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21618
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21619	windowSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21620	"This resource specification was automatically generated
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21621	by the UIPainter of ST/X."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21622
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21623	"Do not manually edit this!! If it is corrupted,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21624	the UIPainter may not be able to read the specification."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21625
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21626	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21627	UIPainter new openOnClass:AbstractSettingsApplication::WorkspaceSettingsAppl andSelector:#windowSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21628	AbstractSettingsApplication::WorkspaceSettingsAppl new openInterface:#windowSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21629	AbstractSettingsApplication::WorkspaceSettingsAppl open
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21630	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21631
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21632	<resource: #canvas>
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21633
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21634	^
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21635	#(FullSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21636	name: windowSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21637	window:
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21638	(WindowSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21639	label: 'Workspace Settings'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21640	name: 'Workspace Settings'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21641	min: (Point 10 10)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21642	bounds: (Rectangle 0 0 600 320)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21643	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21644	component:
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21645	(SpecCollection
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21646	collection: (
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21647	(VerticalPanelViewSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21648	name: 'VerticalPanel2'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21649	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	21650	horizontalLayout: fit
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21651	verticalLayout: topSpace
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21652	horizontalSpace: 3
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21653	verticalSpace: 5
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21654	component:
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21655	(SpecCollection
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21656	collection: (
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21657	(HorizontalPanelViewSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21658	name: 'HorizontalPanel1'
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21659	activeHelpKey: usersModuleName
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21660	horizontalLayout: leftSpaceFit
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21661	verticalLayout: center
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21662	horizontalSpace: 3
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21663	verticalSpace: 3
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21664	component:
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21665	(SpecCollection
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21666	collection: (
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21667	(LabelSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21668	label: 'Top Level Module ID:'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21669	name: 'Label1'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21670	translateLabel: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21671	adjust: left
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21672	extent: (Point 200 22)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21673	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21674	(InputFieldSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21675	name: 'EntryField1'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21676	model: usersModuleName
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21677	acceptOnReturn: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21678	acceptOnTab: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21679	acceptOnPointerLeave: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21680	useDefaultExtent: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21681	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21682	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21683
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21684	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21685	extent: (Point 600 35)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21686	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21687	(HorizontalPanelViewSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21688	name: 'HorizontalPanel2'
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21689	activeHelpKey: workspaceDirectory
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21690	horizontalLayout: leftSpaceFit
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21691	verticalLayout: center
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21692	horizontalSpace: 3
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21693	verticalSpace: 3
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21694	component:
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21695	(SpecCollection
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21696	collection: (
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21697	(LabelSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21698	label: 'Workspace Directory:'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21699	name: 'Label2'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21700	translateLabel: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21701	adjust: left
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21702	extent: (Point 200 22)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21703	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21704	(InputFieldSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21705	name: 'EntryField2'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21706	model: workspaceDirectory
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21707	acceptOnReturn: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21708	acceptOnTab: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21709	acceptOnPointerLeave: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21710	useDefaultExtent: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21711	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21712	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21713
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21714	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21715	extent: (Point 600 35)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21716	)
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21717	(HorizontalPanelViewSpec
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21718	name: 'HorizontalPanel3'
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21719	activeHelpKey: workspaceDirectory
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21720	horizontalLayout: rightSpace
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21721	verticalLayout: center
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21722	horizontalSpace: 3
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21723	verticalSpace: 3
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21724	component:
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21725	(SpecCollection
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21726	collection: (
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21727	(ActionButtonSpec
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21728	label: 'Create Workspace Directory'
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21729	name: 'Button1'
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21730	translateLabel: true
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21731	model: createWorkspaceDirectory
17389 6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21732	enableChannel: workspaceDirectoryDoesNotExist
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21733	useDefaultExtent: true
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21734	)
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21735	(ActionButtonSpec
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21736	label: 'Browse'
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21737	name: 'Button2'
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21738	translateLabel: true
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21739	model: browseWorkspaceDirectory
17389 6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21740	enableChannel: workspaceDirectoryDoesExist
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21741	useDefaultExtent: true
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21742	)
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21743	)
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21744
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21745	)
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21746	extent: (Point 600 35)
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21747	)
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21748	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21749
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21750	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21751	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21752	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21753
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21754	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21755	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21756	! !
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21757
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21758	!AbstractSettingsApplication::WorkspaceSettingsAppl methodsFor:'actions'!
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21759
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21760	browseWorkspaceDirectory
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21761	\|fn\|
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21762
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21763	(fn := workspaceDirectory value) notEmptyOrNil ifTrue:[
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21764	(fn := fn asFilename) exists ifFalse:[
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21765	Dialog warn:'Directory does not exist'.
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21766	] ifTrue:[
17644 6a159f066e9a #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17641 diff changeset	21767	FileBrowser default openOn:fn
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21768	]
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21769	]
17644 6a159f066e9a #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17641 diff changeset	21770
6a159f066e9a #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17641 diff changeset	21771	"Modified: / 01-09-2017 / 14:01:36 / cg"
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21772	!
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21773
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21774	createWorkspaceDirectory
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21775	\|fn\|
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21776
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21777	(fn := workspaceDirectory value) notEmptyOrNil ifTrue:[
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21778	(fn := fn asFilename) exists ifFalse:[
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21779	fn recursiveMakeDirectory
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21780	]
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21781	]
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21782	! !
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21783
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21784	!AbstractSettingsApplication::WorkspaceSettingsAppl methodsFor:'aspects'!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21785
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21786	aspects
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21787	^ #(
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21788	#usersModuleName
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21789	#workspaceDirectory
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21790	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21791	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21792
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21793	usersModuleName
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21794	usersModuleName isNil ifTrue:[
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21795	usersModuleName := '' asValue.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21796	usersModuleName onChangeSend:#updateModifiedChannel to:self.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21797	].
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21798	^ usersModuleName.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21799	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21800
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21801	workspaceDirectory
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21802	workspaceDirectory isNil ifTrue:[
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21803	workspaceDirectory := '~/.smalltalk/workspace' asValue.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21804	workspaceDirectory onChangeSend:#updateModifiedChannel to:self.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21805	].
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21806	^ workspaceDirectory.
17389 6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21807	!
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21808
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21809	workspaceDirectoryDoesExist
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21810	^ BlockValue
18763 6a3d3a6ac24e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18744 diff changeset	21811	with:[:workspaceDirectory \|
6a3d3a6ac24e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18744 diff changeset	21812	workspaceDirectory notEmptyOrNil
6a3d3a6ac24e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18744 diff changeset	21813	and:[workspaceDirectory asFilename exists]
17389 6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21814	]
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21815	argument:self workspaceDirectory
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21816
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21817	"Created: / 11-02-2017 / 15:43:59 / cg"
18763 6a3d3a6ac24e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18744 diff changeset	21818	"Modified: / 17-05-2019 / 15:33:01 / Stefan Vogel"
17389 6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21819	!
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21820
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21821	workspaceDirectoryDoesNotExist
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21822	^ BlockValue
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21823	with:[:entry \|
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21824	\|fn\|
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21825
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21826	((fn := entry) notEmptyOrNil)
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21827	and:[ entry asFilename exists not ].
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21828	]
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21829	argument:(self workspaceDirectory)
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21830
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21831	"Created: / 11-02-2017 / 15:42:02 / cg"
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21832	! !
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21833
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21834	!AbstractSettingsApplication::WorkspaceSettingsAppl methodsFor:'help'!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21835
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21836	helpFilename
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21837	^ 'Launcher/workspaceSettings.html'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21838	! !
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21839
4226 44e2f83cc526 initial checkin penk parents: diff changeset	21840	!AbstractSettingsApplication class methodsFor:'documentation'!
44e2f83cc526 initial checkin penk parents: diff changeset	21841
10295 7c7b9ba6a2c2 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10294 diff changeset	21842	version
15744 6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	21843	^ '$Header$'
10295 7c7b9ba6a2c2 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10294 diff changeset	21844	!
7c7b9ba6a2c2 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10294 diff changeset	21845
8846 a5a4031ee2cc Smalltalk language -> UserPreferences current language Claus Gittinger <cg@exept.de> parents: 8793 diff changeset	21846	version_CVS
15744 6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	21847	^ '$Header$'
6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	21848	! !
6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	21849

author	sr
	Wed, 27 Nov 2019 17:24:20 +0100
changeset 19303	c3b1432b84c2
parent 19299	96cf341a4989
child 19309	2abb52959be0
permissions	-rw-r--r--