hg/stx-libtool: AbstractSettingsApplication.st@a810beaf09a5 (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
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	204	nativeFileDialogs cartoonToolTipStyle
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	205	markThisApplicationAsHighDpiAwareHolder'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	206	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	207	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	208	privateIn:AbstractSettingsApplication
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	209	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	210
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	211	AbstractSettingsApplication subclass:#MiscDisplaySettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	212	instanceVariableNames:'returnFocus focusFollowsMouse mouseWheelFocusFollowsMouse
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	213	beepEnabled takeFocus activateOnClick
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	214	formatHostNameinWindowLabels hostNameInLabelHolder
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	215	showAccelerators newWindowLabelFormat formatHostNameWindowLabel
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	216	selectOnRightClick popUpMenuOnRelease
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	217	showRightButtonMenuOnRelease formatHostNameWindowLabel1
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	218	formatHostNameWindowLabel2 allowMouseWheelZoom
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	219	forceWindowsIntoMonitorBounds button2WithAltKey
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	220	autoRaiseOnFocusIn menuPanelTakesFocusOnClick
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	221	shouldRememberLastExtentHolder'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	222	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	223	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	224	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	225	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	226
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	227	AbstractSettingsApplication subclass:#MiscSmalltalkCommunicationSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	228	instanceVariableNames:'remoteBrowsingEnabled windowMigrationEnabled
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	229	windowMigrationPassword windowMigrationAuthenticate
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	230	enablePasswordCheck smallTeamServerEnabled selectedSmallTeamHost
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	231	listOfSmallTeamHosts smallTeamHostEntry addHostEnabled
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	232	removeHostEnabled smalltalkBridgeEnabled smalltalkBridgeVerbose
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	233	smallTeamViaXMPPEnabled selectedXMPPSmallTeamUser
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	234	xmppSmallTeamUserEntry listOfXMPPSmallTeamUsers
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	235	smallteamXMPPServer smallteamXMPPUser smallteamXMPPPassword'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	236	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	237	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	238	privateIn:AbstractSettingsApplication
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	239	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	240
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	241	AbstractSettingsApplication subclass:#OsiSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	242	instanceVariableNames:'osiACSEConnectionLogging osiROSEErrorLogging osiCMISEErrorLogging
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	243	osiACSEErrorLogging osiROSEPresent osiCMISEPresent
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	244	osiCMISEMessageLogging osiACSEDataLogging
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	245	osiROSEInvokationLogging osiACSEPresent osiROSEResponseLogging'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	246	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	247	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	248	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	249	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	250
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	251	AbstractSettingsApplication subclass:#PackagePathSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	252	instanceVariableNames:'listOfFoldersInPath selectedFolder'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	253	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	254	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	255	privateIn:AbstractSettingsApplication
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	256	!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	257
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	258	AbstractSettingsApplication subclass:#PrinterSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	259	instanceVariableNames:'selectedUnit supportsColor topMargin rightMargin bottomMargin
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	260	landscape pageFormatList pageFormat unitList leftMargin
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	261	possiblePrinters printerType printerTypeSelection
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	262	printCommandList commandList printCommand printFilename
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	263	enableFormat enablelandscape enableMargins enableColorBox
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	264	printerIsDrivenByCommand printerSupportsPrintingToFile
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	265	supportsPageFormatSetting supportsMarginSetting
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	266	supportsColorSetting'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	267	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	268	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	269	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	270	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	271
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	272	AbstractSettingsApplication subclass:#ProcessorSchedulerSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	273	instanceVariableNames:'dynamicPrios preemptive'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	274	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	275	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	276	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	277	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	278
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	279	AbstractSettingsApplication subclass:#RDoItServerSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	280	instanceVariableNames:'rDoitLogging rDoitsEnabled rDoitErrorLogging hasRDoitServer
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	281	rDoitErrorDebugging rDoitServerPortOrPath
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	282	rDoitEnabledOnlyViaLocalConnection scriptingEnabled
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	283	scriptingEnabledOnlyViaLocalConnection scriptingErrorDebugging
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	284	scriptingErrorLogging scriptingLogging scriptingServerPortOrPath
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	285	rDoitOnlyViaLocalConnection'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	286	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	287	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	288	privateIn:AbstractSettingsApplication
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	289	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	290
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	291	AbstractSettingsApplication subclass:#SQLServerSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	292	instanceVariableNames:'sqlServerEnabled sqlSmalltalkServerEnabled sqlLogging
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	293	sqlDataLogging sqlErrorLogging hasSQLServer sqlErrorDebugging
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	294	sqlServerPort sqlStatementLogging'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	295	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	296	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	297	privateIn:AbstractSettingsApplication
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	298	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	299
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	300	AbstractSettingsApplication subclass:#STCCompilerSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	301	instanceVariableNames:'cc ccOptions stcIncludes linkCommand stc linkArgs linkSharedArgs
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	302	canLoadBinaries stcDefines stcLibraries stcOptions stcLibraryPath
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	303	stcCompilationSelection stcCompilationList makeCommand
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	304	stcKeepCIntermediate supportedCCompilerSelection verbose'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	305	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	306	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	307	privateIn:AbstractSettingsApplication
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	308	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	309
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	310	AbstractSettingsApplication subclass:#SourceCodeFormatSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	311	instanceVariableNames:'spaceAfterKeywordSelector emptyLineAfterTemporaries tabIndent
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	312	autoFormat cStyleBlocks editorText maxLengthForSingleLineBlocks
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	313	blockArgumentsOnNewLine spaceAfterReturnToken
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	314	spaceAroundTemporaries spaceAfterBlockStart spaceBeforeBlockEnd
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	315	oldUserPreferences reformatLocked'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	316	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	317	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	318	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	319	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	320
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	321	AbstractSettingsApplication subclass:#SourceCodeManagementSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	322	instanceVariableNames:'sourceCacheDir useManager availableManagers condenseSourceCache
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	323	setupSourceCodeManager checkClassesWhenCheckingIn
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	324	formattingConfiguration flushSourceCache localSourceFirst
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	325	repositoryHolder manager repository listOfModules
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	326	managerTypePerModule addPerModuleRoot removeEnabled
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	327	perModuleRootModule removePerModuleRoot perModuleRoot
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	328	selectedPerModuleRoot rootsPerModule
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	329	selectedManagerTypeIndexHolder managerIsCVSSourceCodeManager
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	330	managerIsStoreSourceCodeManager perModuleFieldsEnableHolder
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	331	managerIsSmallTeamSourceCodeManager verboseSourceCodeAccess
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	332	keepMethodSource packageToAddHolder managerTypeIndexToAddHolder
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	333	managerTypeToAddHolder managerPerMatchingModule
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	334	selectedManagerPerMatchingModuleHolder'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	335	classVariableNames:'RecentlyUsedCVSRoots RecentlyUsedStoreHosts
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	336	RecentlyUsedSmallTeamHosts LastStoreHost LastStoreUser
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	337	LastStorePassword FillCacheProcess'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	338	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	339	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	340	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	341
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	342	SimpleDialog subclass:#PerModuleManagerSettingDialog
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	343	instanceVariableNames:'packageHolder managerNameHolder availableManagers'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	344	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	345	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	346	privateIn:AbstractSettingsApplication::SourceCodeManagementSettingsAppl
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	347	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	348
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	349	AbstractSettingsApplication subclass:#StyleSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	350	instanceVariableNames:'showStandardStylesOnly styleList selectedStyle
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	351	styleDirectoryContents infoLabelHolder noticeLabelHolder
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	352	previewVisibleHolder'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	353	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	354	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	355	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	356	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	357
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	358	AbstractSettingsApplication subclass:#SyntaxColorSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	359	instanceVariableNames:'coloredText syntaxColor syntaxColors resetList resetListSelection
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	360	fullSelectorCheck syntaxColoring oldUserPreferences
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	361	syntaxFontSelector syntaxFonts syntaxElementList
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	362	syntaxElementSelection syntaxEmphasisList syntaxEmphasisSelection
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	363	emphasisDictionary resetListDictionary changedSettings'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	364	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	365	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	366	privateIn:AbstractSettingsApplication
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	367	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	368
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	369	AbstractSettingsApplication subclass:#SystemBrowserSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	370	instanceVariableNames:'showAcceptCancelBarInBrowser useSearchBarInBrowser
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	371	showMethodTemplate useCodeView2InTools
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	372	showEmbeddedTestRunnerInBrowser showBookmarkBar
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	373	webBrowserLikeLayout sortAndIndentClassesByInheritance
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	374	showLocalHistory showGlobalHistory useInPlaceSearchInBrowserLists
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	375	sourceCodeManagementMenuLayout confirmRefactorings
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	376	smallLintRulesetDefault showMarqueeInfo'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	377	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	378	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	379	privateIn:AbstractSettingsApplication
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	380	!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	381
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	382	AbstractSettingsApplication subclass:#SystemMessageSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	383	instanceVariableNames:'classInfos vmInfo vmErrors displayErrors logDoits updChanges
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	384	changeFileName beepForInfoDialog beepForWarningDialog
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	385	beepForErrorDialog flyByHelp beepEnabled beepInEditor
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	386	toolTipAutoHideDelay sendMessagesAlsoToTranscript
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	387	onlyShowTooltipsForActiveWindow'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	388	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	389	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	390	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	391	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	392
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	393	AbstractSettingsApplication subclass:#TerminalViewSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	394	instanceVariableNames:'terminalOutputIsUTF8 terminalInputIsUTF8'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	395	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	396	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	397	privateIn:AbstractSettingsApplication
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	398	!
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	399
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	400	AbstractSettingsApplication subclass:#ToolboxSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	401	instanceVariableNames:'changesBrowserClassName fileBrowserClassName'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	402	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	403	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	404	privateIn:AbstractSettingsApplication
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	405	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	406
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	407	ApplicationModel subclass:#ClassToolSetting
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	408	instanceVariableNames:'optionValueHolder optionValueList optionLabelHolder
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	409	optionSelectionHolder optionLabelList optionCustomValueHolder
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	410	optionCustomValueVisibleHolder optionCustomValueBackgroundHolder'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	411	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	412	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	413	privateIn:AbstractSettingsApplication::ToolboxSettingsAppl
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	414	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	415
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	416	AbstractSettingsApplication subclass:#ToolsSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	417	instanceVariableNames:'useNewVersionDiffBrowser transcriptBufferSize useNewInspector
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	418	showClockInLauncher useNewChangesBrowser useNewFileBrowser
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	419	useNewSystemBrowser useNewFileDialog useNewSettingsApplication
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	420	useProcessMonitorV2 useSmalltalkDocumentViewer useTestRunner2
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	421	showTipOfTheDayAtStartup autoRaiseTranscript eclipseStyleMenus
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	422	useNewChangeSetBrowser useCodeView2InTools
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	423	externalDiffCommandTemplate'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	424	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	425	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	426	privateIn:AbstractSettingsApplication
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	427	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	428
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	429	AbstractSettingsApplication subclass:#WorkspaceSettingsAppl
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	430	instanceVariableNames:'usersModuleName workspaceDirectory'
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	431	classVariableNames:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	432	poolDictionaries:''
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	433	privateIn:AbstractSettingsApplication
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	434	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	435
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	436	!AbstractSettingsApplication class methodsFor:'documentation'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	437
5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	438	copyright
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	439	"
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	440	COPYRIGHT (c) 2002 by eXept Software AG
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	441	All Rights Reserved
5140 36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	442
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	443	This software is furnished under a license and may be used
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	444	only in accordance with the terms of that license and with the
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	445	inclusion of the above copyright notice. This software may not
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	446	be provided or otherwise made available to, or used by, any
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	447	other person. No title to or ownership of the software is
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	448	hereby transferred.
36c7da05d814 * empty log message * Claus Gittinger <cg@exept.de> parents: 5116 diff changeset	449	"
7557 c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	450	!
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	451
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	452	documentation
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	453	"
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	454	This is an abstract framework for settings applications.
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	455	For a real settings dialog, you need a concrete settings dialog class to hold the pages
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	456	(as an example, see SettingsDialog)
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	457	and someone who specifies the hierarchy of settings-pages in a spec.
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	458	(as an example, see SettingsDialog class>>defaultSettingsApplicationList)
7557 c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	459
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	460	typical use:
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	461
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	462	\|settingsList settingsApp\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	463
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	464	settingsList := NewLauncher settingsList.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	465
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	466	settingsApp := SettingsDialog new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	467	'settingsApp requestor:requestingApplication'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	468	settingsApp installSettingsEntries:settingsList.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	469	settingsApp allButOpen.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	470	settingsApp window label:('ST/X Settings').
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	471	settingsApp openWindow.
7557 c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	472
c0701f39eaf4 * empty log message * Claus Gittinger <cg@exept.de> parents: 7549 diff changeset	473	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	474	! !
4226 44e2f83cc526 initial checkin penk parents: diff changeset	475
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	476	!AbstractSettingsApplication class methodsFor:'defaults'!
68504047f229 * empty log message * penk parents: 4286 diff changeset	477
68504047f229 * empty log message * penk parents: 4286 diff changeset	478	classResources
15490 6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	479	self package == AbstractLauncherApplication package ifTrue:[
6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	480	^ AbstractLauncherApplication classResources
6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	481	].
6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	482	^ super classResources
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	483	!
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	484
5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	485	resourcePackName
7872 d35c66ad7c8f comment Claus Gittinger <cg@exept.de> parents: 7846 diff changeset	486	"return the name which is used as the fileNameBase of my resource file.
d35c66ad7c8f comment Claus Gittinger <cg@exept.de> parents: 7846 diff changeset	487	Here, use the same resources as the Launcher"
d35c66ad7c8f comment Claus Gittinger <cg@exept.de> parents: 7846 diff changeset	488
15490 6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	489	self package == AbstractLauncherApplication package ifTrue:[
6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	490	^ AbstractLauncherApplication resourcePackName
6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	491	].
6c36db8ba766 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15486 diff changeset	492	^ super resourcePackName
9595 e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	493	!
e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	494
e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	495	subEntryRawSettingsList
10893 b90f27b8dfd4 changed: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 10811 diff changeset	496	"redefine if I have sub-settings entries"
b90f27b8dfd4 changed: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 10811 diff changeset	497
9595 e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	498	^ #()
e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	499
e4e29683ecc2 added: #subEntryRawSettingsList Claus Gittinger <cg@exept.de> parents: 9592 diff changeset	500	"Created: / 25-10-2010 / 09:37:21 / cg"
4292 68504047f229 * empty log message * penk parents: 4286 diff changeset	501	! !
68504047f229 * empty log message * penk parents: 4286 diff changeset	502
5283 9264c15059e7 category change penk parents: 5280 diff changeset	503	!AbstractSettingsApplication class methodsFor:'interface specs'!
9264c15059e7 category change penk parents: 5280 diff changeset	504
9264c15059e7 category change penk parents: 5280 diff changeset	505	windowSpec
9264c15059e7 category change penk parents: 5280 diff changeset	506	self subclassResponsibility
14759 47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	507	!
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	508
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	509	windowSpecForDialog
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	510	"This resource specification was automatically generated
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	511	by the UIPainter of ST/X."
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	512
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	513	"Do not manually edit this!! If it is corrupted,
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	514	the UIPainter may not be able to read the specification."
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	515
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	516	"
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	517	UIPainter new openOnClass:AbstractSettingsApplication andSelector:#windowSpecForDialog
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	518	AbstractSettingsApplication new openInterface:#windowSpecForDialog
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	519	"
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	520
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	521	<resource: #canvas>
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	522
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	523	^
14759 47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	524	#(FullSpec
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	525	name: windowSpecForDialog
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	526	window:
14759 47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	527	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	528	label: 'NewApplication'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	529	name: 'NewApplication'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	530	labelChannel: settingsString
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	531	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	532	bounds: (Rectangle 0 0 531 488)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	533	)
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	534	component:
14759 47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	535	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	536	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	537	(SubCanvasSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	538	name: 'Content'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	539	layout: (LayoutFrame 7 0 0 0 -7 1 -40 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	540	level: 0
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	541	hasHorizontalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	542	hasVerticalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	543	minorKey: windowSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	544	createNewBuilder: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	545	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	546	(HorizontalPanelViewSpec
16593 6f7fc11a4ab4 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16585 diff changeset	547	name: 'ButtonPanel'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	548	layout: (LayoutFrame 5 0 -40 1 -7 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	549	horizontalLayout: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	550	verticalLayout: center
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	551	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	552	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	553	reverseOrderIfOKAtLeft: true
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	554	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	555	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	556	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	557	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	558	label: 'Cancel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	559	name: 'CancelButton'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	560	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	561	model: doCancel
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	562	extent: (Point 159 25)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	563	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	564	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	565	label: 'OK'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	566	name: 'OKButton'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	567	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	568	model: doAccept
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	569	enableChannel: modifiedChannel
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	570	isDefault: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	571	defaultable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	572	extent: (Point 159 25)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	573	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	574	)
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	575
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	576	)
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	577	keepSpaceForOSXResizeHandleH: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	578	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	579	)
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	580
14759 47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	581	)
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	582	)
5283 9264c15059e7 category change penk parents: 5280 diff changeset	583	! !
9264c15059e7 category change penk parents: 5280 diff changeset	584
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	585	!AbstractSettingsApplication class methodsFor:'queries'!
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	586
15947 4d3269f7b832 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 15921 diff changeset	587	isAbstract
4d3269f7b832 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 15921 diff changeset	588	^ (self == AbstractSettingsApplication)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	589	!
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	590
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	591	quickSearchStrings
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	592	"returns a set of words to match in the quickSearch.
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	593	Here, as a fallback, the keys from the help spec,
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	594	the widget names and label aspects are returned
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	595	Notice that both all words and its current language translation are included
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	596	in the set and will be matched against the word in the quick search field"
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	597
18239 d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	598	\|words helpKeys resources withoutSpecialChars
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	599	addSingleWord addEachWord addEachWordXLated\|
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	600
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	601	"/ translate
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	602	resources := self classResources.
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	603
18239 d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	604	withoutSpecialChars :=
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	605	[:word \|
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	606	\|w\|
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	607
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	608	w := word.
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	609	[w startsWithAnyOf:'.,-'] whileTrue:[w := w copyButFirst].
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	610	[w endsWithAnyOf:'.,-'] whileTrue:[w := w copyButLast].
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	611	w
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	612	].
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	613
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	614	addSingleWord :=
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	615	[:word :origin\|
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	616	true "(w first isLetter)" ifTrue:[
18239 d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	617	words add:(withoutSpecialChars value:word asLowercase).
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	618	].
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	619	].
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	620
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	621	addEachWord :=
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	622	[:aString :origin\|
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	623	aString asCollectionOfWordsDo:[:w \|
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	624	addSingleWord value:w value:origin
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	625	].
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	626	].
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	627
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	628	addEachWordXLated :=
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	629	[:aString :origin \|
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	630	\|xlation\|
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	631
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	632	aString notNil ifTrue:[
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	633	addEachWord value:aString value:origin.
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	634	(xlation := resources string:aString) notNil ifTrue:[
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	635	xlation ~= aString ifTrue:[
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	636	addEachWord value:xlation value:origin.
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	637	].
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	638	].
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	639	].
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	640	].
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	641
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	642	words := Set new.
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	643	helpKeys := Set new.
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	644
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	645	self windowSpec decodeAsLiteralArray do:[:eachSpec \|
18239 d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	646	\|helpKey label name\|
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	647
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	648	label := eachSpec perform:#label ifNotUnderstood:nil.
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	649	label notNil ifTrue:[
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	650	addEachWordXLated value:label value:(#label->eachSpec).
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	651	].
18239 d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	652	name := eachSpec perform:#name ifNotUnderstood:nil.
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	653	name notNil ifTrue:[
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	654	addEachWordXLated value:name value:(#name->eachSpec).
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	655	].
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	656
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	657	(helpKey := eachSpec activeHelpKey) notNil ifTrue:[
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	658	helpKeys add:helpKey.
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	659	"/ words add:helpKey string asLowercase.
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	660	addSingleWord value:helpKey string value:(#helpKey->eachSpec)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	661	].
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	662	].
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	663	self helpSpec keys do:[:k \|
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	664	helpKeys add:k.
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	665	addSingleWord value:k value:#helpKeyTop
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	666	].
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	667
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	668	helpKeys do:[:eachKey \|
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	669	\|helpText\|
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	670
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	671	helpText := self helpSpec at:eachKey ifAbsent:nil.
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	672	addEachWordXLated value:helpText value:(#helpText->eachKey).
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	673	].
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	674	^ words
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	675
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	676	"
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	677	AbstractSettingsApplication::BuildSettingsAppl quickSearchStrings
18239 d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	678	Expecco::HotkeysSettingsApp quickSearchStrings
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	679	"
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	680
d4266aa37928 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18208 diff changeset	681	"Modified: / 25-06-2018 / 14:26:05 / Claus Gittinger"
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	682	! !
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	683
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	684	!AbstractSettingsApplication methodsFor:'accessing'!
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	685
15486 e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	686	clearDidModifySettings
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	687	"clear the flag that any settings was changed.
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	688	Not to confuse with the modified flag, which means that a settings app's
16125 a3bfff28fd3c #DOCUMENTATION Stefan Vogel <sv@exept.de> parents: 16090 diff changeset	689	changes must be stored into the UserPreferences.
15486 e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	690	This one tells if any UserPreferences has been changed, and the userPrefs
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	691	should be saved back to the settings.rc file"
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	692
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	693	didModifySettings := false.
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	694	!
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	695
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	696	didModifySettings
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	697	"true, if any settings was changed.
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	698	Not to confuse with the modified flag, which means that a settings app's
16125 a3bfff28fd3c #DOCUMENTATION Stefan Vogel <sv@exept.de> parents: 16090 diff changeset	699	changes must be stored into the UserPreferences.
15486 e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	700	This one tells if any UserPreferences has been changed, and the userPrefs
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	701	should be saved back to the settings.rc file"
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	702
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	703	^ didModifySettings
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	704	!
e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	705
9484 206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	706	requestor:anotherApplication
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	707	requestor := anotherApplication.
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	708
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	709	"Modified: / 12-05-2010 / 17:16:37 / cg"
5031 86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	710	!
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	711
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	712	settingsDialog
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	713	^ settingsDialog
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	714	!
86e42a86ea6b fix errors happend on checkin/checkout penk parents: 5030 diff changeset	715
9484 206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	716	settingsDialog:aSettingsDialog
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	717	settingsDialog := aSettingsDialog.
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	718
206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	719	"Modified: / 12-05-2010 / 18:44:09 / cg"
14759 47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	720	!
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	721
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	722	settingsString
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	723	^ settingsString
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	724	! !
16cfb945d591 * empty log message * penk parents: 4675 diff changeset	725
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	726	!AbstractSettingsApplication methodsFor:'actions'!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	727
14759 47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	728	accept
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	729	self saveSettings
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	730
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	731	"Created: / 14-10-2014 / 09:18:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	732	!
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	733
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	734	discardChangesAndReadSettings
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	735	self readSettings.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	736	!
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	737
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	738	evaluateModified
8553 0e83301fc922 Mark obsolete methods Stefan Vogel <sv@exept.de> parents: 8550 diff changeset	739	<resource: #obsolete>
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	740	self obsoleteMethodWarning.
c72e35116b13 instable state penk parents: 5040 diff changeset	741	^ self updateModifiedChannel.
4598 330907eab7e0 * empty log message * penk parents: 4581 diff changeset	742	!
330907eab7e0 * empty log message * penk parents: 4581 diff changeset	743
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	744	readSettings
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	745	self basicReadSettings.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	746
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	747	self modifiedChannel value:false.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	748	!
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	749
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	750	reopenToolsAfterChangedViewStyleSetting
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	751	\|app transcript\|
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	752
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	753	DebugView newDebugger.
15888 1d7798d909c8 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 15885 diff changeset	754
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	755	transcript := Transcript current.
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	756	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
14967 e92d9ac3f138 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14954 diff changeset	757	app := transcript topView application.
e92d9ac3f138 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14954 diff changeset	758	app perform:#reopenLauncher ifNotUnderstood:[].
e92d9ac3f138 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14954 diff changeset	759	].
15888 1d7798d909c8 #DOCUMENTATION Claus Gittinger <cg@exept.de> parents: 15885 diff changeset	760
14967 e92d9ac3f138 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14954 diff changeset	761	self window topView raise.
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	762	!
40b96dc2621d * empty log message * ca parents: 6025 diff changeset	763
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	764	saveRequest
4944 fce7d52d36da * empty log message * Claus Gittinger <cg@exept.de> parents: 4941 diff changeset	765	^ self saveRequestAsking:self askForChangeOnRelease
4941 42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	766	!
42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	767
42d9b274824d askForSaving fixed Claus Gittinger <cg@exept.de> parents: 4899 diff changeset	768	saveRequestAsking:askForChangeOnRelease
17958 947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	769	\|result holder notAgainText\|
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	770
6383 62aec07a7f42 * empty log message * Claus Gittinger <cg@exept.de> parents: 6358 diff changeset	771	self hasUnsavedChanges ifTrue:[
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	772	"/ debugging
18189 1d48a832c7b8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18179 diff changeset	773	false ifTrue:[
1d48a832c7b8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18179 diff changeset	774	self whichUnsavedChangesInto:[:aspect \|
1d48a832c7b8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18179 diff changeset	775	Transcript show:'different: '; showCR:aspect.
1d48a832c7b8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18179 diff changeset	776	].
1d48a832c7b8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18179 diff changeset	777	].
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	778
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	779	askForChangeOnRelease ifTrue:[
17958 947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	780	notAgainText := resources string:'Do not ask this again (always save changes when closing)'.
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	781
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	782	Dialog
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	783	modifyingBoxWith:[:box \|
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	784	holder := false asValue.
18035 bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	785
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	786	"sr: bugfix: sorry but #confirmWithCancel:
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	787	does not support #noButton like #confirm: does.
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	788	Problem #noButton is always nil.
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	789	Seams like copy&paste code from #closeRequest but #confirm replaced by #confirmWithCancel.
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	790	I did a quick look, about how to support #noButton also for #confirmWithCancel:
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	791	but the effort and stability risks are too high for me for such a gimmick"
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	792	"/ holder onChangeEvaluate:[
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	793	"/ box noButton enabled:(holder value not)
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	794	"/ ].
bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	795
17958 947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	796	box verticalPanel add:((CheckBox label:notAgainText) model:holder).
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	797	]
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	798	do:[
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	799	result := self confirmWithCancel:
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	800	(self resources
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	801	string:'Apply changes made in %1 ?'
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	802	with:(resources string:settingsString) allBold).
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	803	].
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	804
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	805	SettingsDialog autoSaveChangedSettingsOnClose:(holder value).
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	806	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	807	result := true.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	808	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	809
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	810	result isNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	811	^ false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	812	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	813	result ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	814	self saveSettings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	815	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	816	"/ reload current settings to show the right thing when re-entering.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	817	self readSettings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	818	]
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	819	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	820	^ true
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	821
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	822	"Modified: / 20-09-2006 / 23:56:25 / cg"
18035 bd6d78114752 #BUGFIX by sr sr parents: 18007 diff changeset	823	"Modified (comment): / 10-04-2018 / 16:55:30 / sr"
18189 1d48a832c7b8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18179 diff changeset	824	"Modified: / 09-06-2018 / 11:03:26 / Claus Gittinger"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	825	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	826
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	827	saveSettings
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	828	self basicSaveSettings.
15486 e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	829	didModifySettings := true.
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	830	self modifiedChannel value:false.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	831	!
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	832
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	833	saveSettingsIfUnsavedChangesArePresent
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	834	self hasUnsavedChanges ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	835	self saveSettings.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	836	self modifiedChannel value:false
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	837	].
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	838	!
c72e35116b13 instable state penk parents: 5040 diff changeset	839
c72e35116b13 instable state penk parents: 5040 diff changeset	840	updateModifiedChannel
c72e35116b13 instable state penk parents: 5040 diff changeset	841	self modifiedChannel value:self hasUnsavedChanges
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	842	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	843
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	844	!AbstractSettingsApplication methodsFor:'aspects'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	845
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	846	aspects
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	847	"if redefined to return a non-nil list of preference-key aspects,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	848	you can then use the basicSaveSettings/basicReadSettings/hasUnsavedChanges
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	849	as inherited from here.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	850	Otherwise, if you do not want the aspect-list-keys to be read/saved in the settings,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	851	you MUST redefine all of the 3 above mentioned methods."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	852
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	853	^ nil
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	854	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	855
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	856	modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	857
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	858	modifiedChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	859	modifiedChannel := false asValue.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	860	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	861	^ modifiedChannel
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	862	! !
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	863
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	864	!AbstractSettingsApplication methodsFor:'helpers'!
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	865
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	866	hasChangedAspectIn:aListOfAspects asComparedTo:anAspectProvider
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	867	"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	868	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	869	as ParserFlags.
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	870	Using this, and a list of aspect selectors replaces code like:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	871	someone aspect1 ~= (self aspect1 value) ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	872	someone aspect2 ~= (self aspect2 value) ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	873	...
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	874	someone aspectN ~= (self aspectN value) ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	875	^ false
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	876	Prerequisite:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	877	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	878	"
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	879
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	880	aListOfAspects do:[:eachAspectSymbol \|
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	881	(self myAspectFor:eachAspectSymbol) value ~= (anAspectProvider perform:eachAspectSymbol) ifTrue:[
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	882	"/ to debug missing apply-enablements
18551 15acc9248294 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18425 diff changeset	883	"/ Smalltalk enableBreakPoint:#cg.
15acc9248294 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18425 diff changeset	884	"/ Smalltalk disableBreakPoint:#cg.
15acc9248294 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18425 diff changeset	885
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	886	self debuggingCodeFor:#cg is:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	887	Transcript showCR:'settings aspect is different: ',eachAspectSymbol.
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	888	Transcript showCR:' here: ',((self myAspectFor:eachAspectSymbol) value) printString.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	889	Transcript showCR:' there: ',((anAspectProvider perform:eachAspectSymbol) value) printString.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	890	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	891	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	892	].
6782 8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	893	].
8557c7ca8898 * empty log message * Claus Gittinger <cg@exept.de> parents: 6781 diff changeset	894	^ false
9797 76995c67487f comment/format in: #hasChangedAspectIn:asComparedTo: Claus Gittinger <cg@exept.de> parents: 9792 diff changeset	895
76995c67487f comment/format in: #hasChangedAspectIn:asComparedTo: Claus Gittinger <cg@exept.de> parents: 9792 diff changeset	896	"Modified: / 23-03-2011 / 15:45:11 / cg"
18551 15acc9248294 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18425 diff changeset	897	"Modified (format): / 21-12-2018 / 14:57:12 / Claus Gittinger"
18179 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
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	900	myAspectFor:aspectSymbol
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	901	"/ used to be (self perform:aspectSymbol),
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	902	"/ 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	903
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	904	^ self
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	905	perform:aspectSymbol
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	906	ifNotUnderstood:[
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	907	\|holder\|
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	908
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	909	self createBuilder.
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	910	(holder := builder bindingAt:aspectSymbol) isNil ifTrue:[
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	911	builder aspectAt:aspectSymbol put:(holder := nil asValue).
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	912	holder onChangeSend:#updateModifiedChannel to:self.
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	913	].
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	914	holder
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
943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	917	"Created: / 04-06-2018 / 13:45:09 / Claus Gittinger"
14505 a45081b27fc3 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14485 diff changeset	918	!
a45081b27fc3 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14485 diff changeset	919
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	920	readAspects:aListOfAspects from:anAspectProvider
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	921	"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	922	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	923	as ParserFlags.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	924	Using this, and a list of aspect selectors replaces code like:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	925	self aspect1 value:(someone aspect1).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	926	self aspect2 value:(someone aspect2).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	927	...
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	928	self aspectN value:(someone aspectN).
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	929	Prerequisite:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	930	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	931	"
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	932
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	933	aListOfAspects do:[:eachAspectSymbol \|
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	934	(self myAspectFor:eachAspectSymbol)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	935	value:(anAspectProvider perform:eachAspectSymbol)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	936	withoutNotifying:self
9738 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
7dd722970a40 changed: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 9657 diff changeset	939	"Modified: / 08-02-2011 / 09:11:03 / cg"
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	940	"Modified: / 04-06-2018 / 13:45:55 / Claus Gittinger"
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	941	!
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	942
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	943	whichChangedAspectIn:aListOfAspects asComparedTo:anAspectProvider
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	944	"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	945	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	946	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	947	as ParserFlags.
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	948	Using this, and a list of aspect selectors replaces code like:
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	949	someone aspect1 ~= (self aspect1 value) ifTrue:[^ true].
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	950	someone aspect2 ~= (self aspect2 value) ifTrue:[^ true].
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	951	...
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	952	someone aspectN ~= (self aspectN value) ifTrue:[^ true].
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	953	^ false
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	954	Prerequisite:
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	955	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	956	"
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	957
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	958	^ aListOfAspects select:[:eachAspectSymbol \|
18176 96c61c107803 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18174 diff changeset	959	(self aspectFor:eachAspectSymbol) value ~= (anAspectProvider perform:eachAspectSymbol)
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	960	]
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	961
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	962	"Created: / 31-05-2018 / 12:53:05 / Claus Gittinger"
18176 96c61c107803 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18174 diff changeset	963	"Modified: / 02-06-2018 / 05:14:30 / Claus Gittinger"
18174 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
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	966	whichChangedAspectIn:aListOfAspects asComparedTo:anAspectProvider into:aBlock
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	967	"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	968	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	969
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	970	^ aListOfAspects select:[:eachAspectSymbol \|
18176 96c61c107803 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18174 diff changeset	971	(self aspectFor:eachAspectSymbol) value ~= (anAspectProvider perform:eachAspectSymbol)
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	972	ifTrue:[ aBlock value:eachAspectSymbol ]
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
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	975	"Created: / 31-05-2018 / 12:57:19 / Claus Gittinger"
18176 96c61c107803 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18174 diff changeset	976	"Modified: / 02-06-2018 / 05:14:33 / Claus Gittinger"
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	977	!
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	978
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	979	writeAspects:aListOfAspects to:anAspectProvider
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	980	"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	981	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	982	as ParserFlags.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	983	Using this, and a list of aspect selectors replaces code like:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	984	someone aspect1:(self aspect1 value).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	985	someone aspect2:(self aspect2 value).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	986	...
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	987	someone aspectN:(self aspectN value).
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	988	Prerequisite:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	989	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	990	"
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	991
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	992	aListOfAspects do:[:eachAspectSymbol \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	993	anAspectProvider
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	994	perform:eachAspectSymbol asMutator
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	995	with:(self myAspectFor:eachAspectSymbol) value
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	996	].
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	997
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	998	"Modified: / 24-08-2010 / 16:52:42 / sr"
18179 943dd10229de #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18176 diff changeset	999	"Modified: / 04-06-2018 / 13:45:48 / Claus Gittinger"
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1000	! !
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	1001
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	1002	!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	1003
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	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	1005	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	1006
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	"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	1008	! !
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	1009
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1010	!AbstractSettingsApplication methodsFor:'initialization'!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1011
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1012	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	1013	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	1014
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1015	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1016	resources := self class classResources.
9484 206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	1017	currentUserPrefs isNil ifTrue:[ self initializeCurrentUserPreferences ].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1018	settingsString := (UISpecification from:(self class windowSpec)) window label.
15486 e9b02016d975 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15483 diff changeset	1019	didModifySettings := false.
15483 7142c70e4a6b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15388 diff changeset	1020
4886 4fcb51786045 readSettings is no longer done in Claus Gittinger <cg@exept.de> parents: 4883 diff changeset	1021	"/ self readSettings.
9484 206c09792b80 : Claus Gittinger <cg@exept.de> parents: 9477 diff changeset	1022
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	1023	"Modified: / 08-02-2017 / 00:29:53 / cg"
6125 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
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	1026	initializeCurrentUserPreferences
09320e47ccb2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6108 diff changeset	1027	currentUserPrefs := UserPreferences current.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1028	! !
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	1029
5078 9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	1030	!AbstractSettingsApplication methodsFor:'menu'!
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	1031
5080 9c9736712295 middleButtonMenu fix penk parents: 5078 diff changeset	1032	settingsDialogPopUpMenu
5078 9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	1033	^ nil
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	1034	! !
9fafc6b058bc new middleButtonMenu for remove service in SettingsDialog penk parents: 5076 diff changeset	1035
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	1036	!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	1037
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
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	"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	1040	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	1041
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1042	^ 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	1043
47e9d7d9bfed Added support for opening individual settings applications as standalone dialogs (with OK/Cancel buttons) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14745 diff changeset	1044	"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	1045	! !
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	1046
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	1047	!AbstractSettingsApplication methodsFor:'protocol'!
289972d3e455 * empty log message * penk parents: 4319 diff changeset	1048
4873 3ffb8a8812ec * empty log message * penk parents: 4851 diff changeset	1049	askForChangeOnRelease
17958 947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	1050	"shall we ask if changed settings should be saved, when closing?"
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	1051
947fa7e596dc #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17943 diff changeset	1052	^ SettingsDialog autoSaveChangedSettingsOnClose not
4825 97ccd5a946f4 next step penk parents: 4813 diff changeset	1053	!
97ccd5a946f4 next step penk parents: 4813 diff changeset	1054
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1055	basicReadSettings
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1056	"utility to read aspects as listed in the aspects method.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1057	If that has not been redefined, an error will be reported,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1058	as you should then redefine this method in a subclass"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1059
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1060	\|aspects\|
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1061
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1062	(aspects := self aspects) notNil ifTrue:[
17964 45bb084eb341 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17958 diff changeset	1063	self readAspects: aspects from:currentUserPrefs.
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1064	^ self
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1065	].
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1066	^ self subclassResponsibility:'either basicReadSettings or aspects must be redefined'
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1067	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	1068
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1069	basicSaveSettings
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1070	"utility to save aspects as listed in the aspects method.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1071	If that has not been redefined, an error will be reported,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1072	as you should then redefine this method in a subclass"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1073
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1074	\|aspects\|
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1075
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1076	(aspects := self aspects) notNil ifTrue:[
17964 45bb084eb341 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17958 diff changeset	1077	self writeAspects:aspects to:currentUserPrefs.
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1078	^ self
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1079	].
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1080	^ self subclassResponsibility
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1081	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1082
17792 c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1083	editorHelpRelativeWikiURL
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1084	"the relative URL of the dialog-description in the Wiki"
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1085
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1086	^ nil
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1087
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1088	"Created: / 25-11-2017 / 23:43:05 / cg"
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1089	!
c7b03dcdf381 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17693 diff changeset	1090
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1091	hasUnsavedChanges
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1092	"utility to check for changed aspects as listed in the aspects method.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1093	If that has not been redefined, an error will be reported,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1094	as you should then redefine this method in a subclass"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1095
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1096	\|aspects\|
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1097
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1098	(aspects := self aspects) notNil ifTrue:[
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1099	^ (self
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1100	hasChangedAspectIn:(self aspects)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1101	asComparedTo:currentUserPrefs)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1102	].
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1103	^ self subclassResponsibility
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1104	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	1105
4324 289972d3e455 * empty log message * penk parents: 4319 diff changeset	1106	help
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1107	\|filename\|
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1108
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1109	filename := self helpFilename.
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1110	filename isNil ifTrue:[
18335 a93c65ae395c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18329 diff changeset	1111	self warn:('Sorry - no Help available here.').
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1112	^ self.
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1113	].
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1114	self withWaitCursorDo:[
18075 0e328a880264 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18048 diff changeset	1115	Warning handle:[:ex \|
0e328a880264 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18048 diff changeset	1116	Dialog warn:ex description
0e328a880264 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18048 diff changeset	1117	] do:[
0e328a880264 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18048 diff changeset	1118	HTMLDocumentView openFullOnHelpFile:filename
0e328a880264 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18048 diff changeset	1119	].
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1120	].
18335 a93c65ae395c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18329 diff changeset	1121
a93c65ae395c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18329 diff changeset	1122	"Modified: / 09-08-2018 / 15:29:59 / Claus Gittinger"
5101 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
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1125	helpFilename
15492 8a58c96052b4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15490 diff changeset	1126	"subclasses must return either the relative path of a helpFile
8a58c96052b4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15490 diff changeset	1127	in the doc/online/<language>/help directory,
8a58c96052b4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15490 diff changeset	1128	or an absolute path (typically in its packageDirectory).
8a58c96052b4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15490 diff changeset	1129	If an absolute filename is returned, the %(lang) sequence is replaced
8a58c96052b4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15490 diff changeset	1130	by the current user's language.
5101 4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1131	Or nil, if no help is available."
4d410e6a8000 help handling Claus Gittinger <cg@exept.de> parents: 5099 diff changeset	1132
8031 ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	1133	Smalltalk isStandAloneApp ifFalse:[
15492 8a58c96052b4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15490 diff changeset	1134	self subclassResponsibility.
8031 ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	1135	].
ba64e63d66ae national language strings Claus Gittinger <cg@exept.de> parents: 8009 diff changeset	1136	^ nil.
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1137	!
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1138
18174 2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1139	whichUnsavedChangesInto:aBlock
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1140	"utility to return a list of changed aspects through aBlock.
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1141	(for info only, in a confirmer)"
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1142
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1143	\|aspects\|
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1144
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1145	(aspects := self aspects) notNil ifTrue:[
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1146	self
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1147	whichChangedAspectIn:(self aspects)
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1148	asComparedTo:currentUserPrefs
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1149	into:aBlock.
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1150	^ self
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1151	].
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1152	^ self subclassResponsibility
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1153
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1154	"Created: / 31-05-2018 / 12:56:53 / Claus Gittinger"
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1155	!
2bb8e22801bc #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18143 diff changeset	1156
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1157	widgetsWithChangedSettingsDo:aBlock
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1158	"/ to be redefined in subclasses...
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1159
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1160	\|mySpec\|
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1161
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1162	self hasValuesDifferentFromDefault ifTrue:[
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1163	mySpec := self class windowSpec decodeAsLiteralArray.
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1164	(self aspects ? #()) do:[:aspect \|
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1165	\|subSpec widget\|
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1166
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1167	(UserPreferences default perform:aspect) ~= (currentUserPrefs perform:aspect) ifTrue:[
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1168	subSpec := mySpec findSpecForWhich:[:spec \| spec model = aspect].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1169	widget := self window
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1170	allSubViewsDetect:[:w \| w name = subSpec name]
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1171	ifNone:nil.
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1172	aBlock value:widget.
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	].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1175	].
4226 44e2f83cc526 initial checkin penk parents: diff changeset	1176	! !
44e2f83cc526 initial checkin penk parents: diff changeset	1177
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	1178	!AbstractSettingsApplication methodsFor:'queries'!
1bde09704293 * empty log message * penk parents: 4893 diff changeset	1179
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1180	hasValuesDifferentFromDefault
18584 8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1181	\|savedCurrent\|
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1182
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1183	self hasUnsavedChanges ifTrue:[
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1184	^ true
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1185	].
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1186
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1187	savedCurrent := currentUserPrefs.
18584 8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1188	currentUserPrefs := UserPreferences default.
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1189	^ [self hasUnsavedChanges] ensure:[currentUserPrefs := savedCurrent].
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1190
8cb5f9161e9e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18551 diff changeset	1191	"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	1192	!
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1193
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	1194	isEnabledInSettingsDialog:aSettingsDialog
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	1195	^ true
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	1196
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	1197	"Created: / 25-01-2007 / 16:47:45 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	1198	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	1199
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	1200	itemPathName
16309 77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	1201	settingsDialog isNil ifTrue:[^ ''].
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	1202	^ settingsDialog getNameOfApplication:self.
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1203	!
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1204
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1205	quickSearchStrings
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	1206	"returns a set of keywords to match in the quickSearch.
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1207	Notice that both the word and its current language translation is matched against
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1208	the text in the quick search field"
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1209
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1210	^ self class quickSearchStrings
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	1211	! !
1bde09704293 * empty log message * penk parents: 4893 diff changeset	1212
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1213	!AbstractSettingsApplication::AllSettingsAppl class methodsFor:'documentation'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1214
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1215	documentation
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1216	"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1217	this little app provides an alternative view on all settings keys.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1218	This offers a name-list of settings values, and thus allows for
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1219	settings to be changed for which no 'real' UI has been programmed.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1220	(i.e. a fallback for missing things)
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1221	"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1222	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1223
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1224	!AbstractSettingsApplication::AllSettingsAppl class methodsFor:'interface specs'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1225
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1226	windowSpec
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1227	"This resource specification was automatically generated
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1228	by the UIPainter of ST/X."
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1229
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1230	"Do not manually edit this!! If it is corrupted,
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1231	the UIPainter may not be able to read the specification."
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1232
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1233	"
15956 786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1234	UIPainter new openOnClass:AbstractSettingsApplication::AllSettingsAppl andSelector:#windowSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1235	AbstractSettingsApplication::AllSettingsAppl new openInterface:#windowSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1236	AbstractSettingsApplication::AllSettingsAppl open
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1237	"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1238
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1239	<resource: #canvas>
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1240
15956 786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1241	^
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1242	#(FullSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1243	name: windowSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1244	window:
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1245	(WindowSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1246	label: 'All Settings'
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1247	name: 'All Settings'
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1248	min: (Point 10 10)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1249	bounds: (Rectangle 0 0 659 242)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1250	)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1251	component:
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1252	(SpecCollection
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1253	collection: (
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1254	(DataSetSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1255	name: 'Table1'
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1256	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1257	model: selectedSettingHolder
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1258	hasHorizontalScrollBar: true
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1259	hasVerticalScrollBar: true
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1260	dataList: settingsList
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1261	columns:
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1262	(OrderedCollection
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1263
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1264	(DataSetColumnSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1265	label: 'Name'
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1266	labelButtonType: Button
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1267	height: heightOfFirstRow
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1268	model: key
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1269	menuFromApplication: false
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1270	)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1271	(DataSetColumnSpec
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1272	label: 'Value'
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1273	labelButtonType: Button
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1274	height: heightOfFirstRow
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1275	model: value
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1276	menuFromApplication: false
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1277	)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1278	)
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1279	)
15956 786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1280	)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1281
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1282	)
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1283	)
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1284	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1285
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1286	!AbstractSettingsApplication::AllSettingsAppl methodsFor:'actions'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1287
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1288	basicReadSettings
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1289	super basicReadSettings.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1290
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1291	usedCompilerForBuild value isNil ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1292	currentUserPrefs usedCompilerForBuild:(Tools::ProjectBuilder defaultUsedCompiler).
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1293	usedCompilerForBuild value:(Tools::ProjectBuilder defaultUsedCompiler).
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1294	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1295
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1296	"Modified: / 26-07-2012 / 23:16:52 / cg"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1297	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1298
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1299	basicSaveSettings
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1300	\|buildDir\|
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1301
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1302	buildDir := buildDirectory value.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1303	buildDir notEmptyOrNil ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1304	buildDir := buildDir asFilename.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1305	buildDir isDirectory ifFalse:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1306	(Dialog confirm:(resources
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1307	stringWithCRs:'Build directory %1 does not exist.\\Create?'
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1308	with:buildDir pathName allBold))
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1309	ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1310	buildDir makeDirectory.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1311	]
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1312	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1313	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1314
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1315	super basicSaveSettings.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1316
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1317	"Modified: / 22-01-2012 / 10:50:09 / cg"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1318	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1319
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1320	cleanupBuildDirectory
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1321	\|buildDir\|
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1322
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1323	buildDir := buildDirectory value.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1324	buildDir isEmptyOrNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1325	^ self.
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1326	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1327	buildDir := buildDir asFilename.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1328	(buildDir exists and:[Dialog confirm:('Really delete <1p> ?' expandMacrosWith:buildDir physicalPathName)]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1329	buildDir recursiveRemove.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1330	buildDir makeDirectory.
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1331	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1332	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1333
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1334	!AbstractSettingsApplication::AllSettingsAppl methodsFor:'aspects'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1335
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1336	aspects
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1337	^ #(
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1338	buildDirectory
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1339	localBuild
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1340	usedCompilerForBuild
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1341	)
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1342	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1343
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1344	buildDirectory
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1345	buildDirectory isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1346	buildDirectory := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1347	buildDirectory onChangeSend:#updateModifiedChannel to:self
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1348	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1349	^ buildDirectory.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1350	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1351
15956 786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1352	fetchSettingsList
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1353	\|list\|
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1354
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1355	list := List new.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1356	UserPreferences selectorsAndMethodsDo:[:sel :mthd\|
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1357	\|setter getter getterMethod\|
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1358
19133 c41dbe689ab6 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19074 diff changeset	1359	sel argumentCount == 1 ifTrue:[
15956 786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1360	(sel endsWith:$:) ifTrue:[
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1361	setter := sel.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1362	getter := sel copyButLast asSymbolIfInterned.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1363	getter notNil ifTrue:[
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1364	(UserPreferences implements:getter) ifTrue:[
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1365	getterMethod := UserPreferences compiledMethodAt:getter.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1366	getterMethod isObsolete ifFalse:[
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1367	list add:(sel -> (UserPreferences current perform:getter)).
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	].
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1374	list sortBySelector:#key.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1375	^ list
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1376	!
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1377
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1378	hasSourceCodeManager
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1379	^ SourceCodeManager notNil
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1380	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1381
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1382	listOfPossibleCompilers
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1383	^ Tools::ProjectBuilder listOfPossibleCompilers
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1384
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1385	"Created: / 21-01-2012 / 14:05:43 / cg"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1386	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1387
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1388	localBuild
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1389	localBuild isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1390	localBuild := UserPreferences current localBuild asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1391	localBuild onChangeSend:#updateModifiedChannel to:self
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1392	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1393	^ localBuild.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1394	!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1395
15956 786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1396	selectedSettingHolder
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1397	<resource: #uiAspect>
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1398
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1399	selectedSettingHolder isNil ifTrue:[
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1400	selectedSettingHolder := ValueHolder new.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1401	].
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1402	^ selectedSettingHolder.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1403	!
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1404
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1405	settingsList
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1406	<resource: #uiAspect>
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1407
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1408	settingsList isNil ifTrue:[
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1409	settingsList := self fetchSettingsList.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1410
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1411	].
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1412	^ settingsList.
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1413	!
786250fa05b8 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15953 diff changeset	1414
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1415	usedCompilerForBuild
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1416	usedCompilerForBuild isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1417	usedCompilerForBuild := nil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1418	usedCompilerForBuild onChangeSend:#updateModifiedChannel to:self
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1419	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1420	^ usedCompilerForBuild.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1421
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1422	"Created: / 22-01-2012 / 10:59:30 / cg"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1423	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1424
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1425	!AbstractSettingsApplication::AllSettingsAppl methodsFor:'help'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1426
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1427	helpFilename
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1428	^ 'Launcher/buildSetup.html'
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1429	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1430
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1431	!AbstractSettingsApplication::AllSettingsAppl methodsFor:'initialization'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1432
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1433	postBuildDirectoryField:aField
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1434	aField historyList value:(Array
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1435	with:(OperatingSystem getHomeDirectory asFilename construct:'stx_build') pathName
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1436	with:(Filename currentDirectory construct:'stx_build') pathName)
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1437	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1438
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1439	!AbstractSettingsApplication::AllSettingsAppl methodsFor:'queries'!
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1440
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1441	hasUnsavedChanges
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1442	(super hasUnsavedChanges) ifTrue:[^ true].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1443	^ false
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1444
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1445	"Modified: / 22-01-2012 / 10:50:15 / cg"
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1446	! !
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	1447
17283 ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1448	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl class methodsFor:'documentation'!
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1449
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1450	documentation
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1451	"
17425 8e4e287d31c3 #DOCUMENTATION by mawalch mawalch parents: 17418 diff changeset	1452	I manage packages which are to be loaded automatically
8e4e287d31c3 #DOCUMENTATION by mawalch mawalch parents: 17418 diff changeset	1453	whenever st/x is started
17283 ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1454	"
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1455	! !
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1456
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1457	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl class methodsFor:'help specs'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1458
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1459	helpSpec
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1460	"This resource specification was automatically generated
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1461	by the UIHelpTool of ST/X."
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1462
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1463	"Do not manually edit this!! If it is corrupted,
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1464	the UIHelpTool may not be able to read the specification."
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1465
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1466	"
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1467	UIHelpTool openOnClass:AbstractSettingsApplication::MemorySettingsAppl
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1468	"
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1469
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1470	<resource: #help>
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1471
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1472	^ super helpSpec addPairsFrom:#(
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	1473	#autoloadedPackages
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	1474	'Select known packages from the left list, and click on ">>>" to add them to the autoloaded list.\These will be automatically loaded when ST/X is started without a snapshot image.\Packages are searched along the packagePath.'
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1475
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1476	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1477	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1478
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1479	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl class methodsFor:'image specs'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1480
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1481	defaultIcon
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1482	<resource: #programImage>
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1483
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1484	^ ToolbarIconLibrary packageOpen24x24Icon
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1485	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1486
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1487	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl class methodsFor:'interface specs'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1488
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1489	windowSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1490	"This resource specification was automatically generated
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1491	by the UIPainter of ST/X."
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1492
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1493	"Do not manually edit this!! If it is corrupted,
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1494	the UIPainter may not be able to read the specification."
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1495
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1496	"
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1497	UIPainter new openOnClass:AbstractSettingsApplication::AutoloadedPackagesSettingsAppl andSelector:#windowSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1498	AbstractSettingsApplication::AutoloadedPackagesSettingsAppl new openInterface:#windowSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1499	AbstractSettingsApplication::AutoloadedPackagesSettingsAppl open
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1500	"
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1501
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1502	<resource: #canvas>
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1503
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1504	^
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1505	#(FullSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1506	name: windowSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1507	window:
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1508	(WindowSpec
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	1509	label: 'Autoloaded Packages Settings'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	1510	name: 'Autoloaded Packages Settings'
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1511	min: (Point 10 10)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1512	bounds: (Rectangle 0 0 705 722)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1513	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1514	component:
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1515	(SpecCollection
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1516	collection: (
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1517	(FramedBoxSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1518	label: 'Packages Automatically Loaded at Startup'
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1519	name: 'FramedBox1'
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1520	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1521	labelPosition: topLeft
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1522	translateLabel: true
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	1523	activeHelpKey: autoloadedPackages
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1524	component:
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1525	(SpecCollection
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1526	collection: (
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1527	(SubCanvasSpec
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1528	name: 'SubCanvas1'
16214 3ed986359821 #FEATURE Claus Gittinger <cg@exept.de> parents: 16210 diff changeset	1529	layout: (LayoutFrame 0 0 8 0 0 1 0 1)
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1530	hasHorizontalScrollBar: false
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1531	hasVerticalScrollBar: false
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1532	majorKey: MultipleItemSelectionWidget
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1533	createNewApplication: true
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1534	createNewBuilder: false
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1535	postBuildCallback: postCreatePackageChooserWidget:
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1536	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1537	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1538
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1539	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1540	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1541	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1542
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1543	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1544	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1545	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1546
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1547	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl methodsFor:'actions'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1548
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1549	basicReadSettings
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1550	packageChooser notNil ifTrue:[
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1551	packageChooser listOfSelectedItems value:(UserPreferences current autoloadedPackages).
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1552	].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1553	!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1554
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1555	basicSaveSettings
16943 3e04cb80244f #BUGFIX by mawalch mawalch parents: 16925 diff changeset	1556	UserPreferences current
3e04cb80244f #BUGFIX by mawalch mawalch parents: 16925 diff changeset	1557	autoloadedPackages:(packageChooser listOfSelectedItems value asArray collect:[:each \| each asString string]).
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1558	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1559
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1560	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl methodsFor:'aspects'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1561
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1562	aspects
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1563	^ #(
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1564	autoloadedPackages
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1565	)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1566	!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1567
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1568	possibleItemsLabel
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1569	^ 'Available Packages'.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1570	!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1571
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1572	readPackageList
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1573	"self basicNew readPackageList"
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1574
16219 b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1575	\|packageDirPath list setOfPackages setOfAlreadySelectedPckages\|
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1576
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1577	packageDirPath := Smalltalk getSystemFileName:'packages'.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1578	packageDirPath isNil ifTrue:[
16257 7a7ff15e751b #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16219 diff changeset	1579	^ #()
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1580	].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1581
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1582	list := OrderedCollection new.
16218 25ee303ae609 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16216 diff changeset	1583	setOfPackages := Set new.
16219 b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1584	setOfAlreadySelectedPckages := UserPreferences current autoloadedPackages asSet.
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1585
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1586	packageDirPath asFilename directoryContentsAsFilenames sort do:[:fn \|
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1587	\|item base nm path parentPath parent isLibrary isApplication isAlreadyLoaded
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1588	defClass target packageID\|
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1589
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1590	((fn suffix = 'mcz')
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1591	or:[ fn isDirectory
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1592	or:[ (fn baseName startsWith:'.')
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1593	or:[ (fn baseName = 'README') ]]
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1594	]) ifFalse:[
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1595	base := fn withoutSuffix baseName.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1596	(base startsWith:'lib') ifTrue:[
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1597	nm := (base copyFrom:4).
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1598	fn suffix notEmptyOrNil ifTrue:[
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1599	isLibrary := true.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1600	isApplication := false.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1601	] ifFalse:[
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1602	isLibrary := false.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1603	isApplication := true.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1604	]
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1605	] ifFalse:[
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1606	nm := base.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1607	isLibrary := false.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1608	isApplication := true.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1609	].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1610
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1611	path := nm asCollectionOfSubstringsSeparatedBy:$_.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1612	packageID := (path size > 1)
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1613	ifTrue:[ path first , ':' , ((path copyFrom:2) asStringWith:$/) ]
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1614	ifFalse:[ path first ].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1615
16218 25ee303ae609 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16216 diff changeset	1616	(setOfPackages includes:packageID) ifFalse:[
16219 b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1617	(setOfAlreadySelectedPckages includes:packageID) ifFalse:[
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1618	setOfPackages add:packageID.
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1619	isAlreadyLoaded :=
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1620	(defClass := ProjectDefinition definitionClassForPackage:packageID) notNil
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1621	and:[ defClass isLoaded
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1622	and:[ defClass isFullyLoaded ]].
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1623
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1624	isAlreadyLoaded ifTrue:[
19074 47b266104e80 #OTHER by exept Claus Gittinger <cg@exept.de> parents: 19041 diff changeset	1625	list add:(packageID,(' (currently loaded)' allGray))
16219 b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1626	] ifFalse:[
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1627	list add:packageID
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1628	]
b8ac5da0e660 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16218 diff changeset	1629	].
16218 25ee303ae609 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16216 diff changeset	1630	].
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1631	].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1632	].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1633	list sort.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1634	^ list
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1635	!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1636
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1637	selectedItemsLabel
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1638	^ 'Packages Loaded at Startup'.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1639	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1640
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1641	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl methodsFor:'help'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1642
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1643	helpFilename
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1644	^ 'Launcher/autoloadedPackagesSettings.html'
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1645	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1646
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1647	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl methodsFor:'initialization'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1648
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1649	postCreatePackageChooserWidget:aPackageChooser
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1650	\|availPackages selectedPackages setOfSelectedPackages\|
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1651
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1652	availPackages := self readPackageList.
16210 58264c7da774 #REFACTORING Claus Gittinger <cg@exept.de> parents: 16200 diff changeset	1653	selectedPackages := UserPreferences current autoloadedPackages.
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1654	setOfSelectedPackages := selectedPackages asSet.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1655
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1656	availPackages := availPackages reject:[:el \| setOfSelectedPackages includes:el].
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1657
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1658	packageChooser := aPackageChooser application.
16214 3ed986359821 #FEATURE Claus Gittinger <cg@exept.de> parents: 16210 diff changeset	1659	packageChooser addAllButtonVisibleHolder value:false.
3ed986359821 #FEATURE Claus Gittinger <cg@exept.de> parents: 16210 diff changeset	1660	packageChooser removeAllButtonVisibleHolder value:false.
16210 58264c7da774 #REFACTORING Claus Gittinger <cg@exept.de> parents: 16200 diff changeset	1661	packageChooser listOfPossibleItems value:availPackages asOrderedCollection.
58264c7da774 #REFACTORING Claus Gittinger <cg@exept.de> parents: 16200 diff changeset	1662	packageChooser listOfSelectedItems value:selectedPackages asOrderedCollection.
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1663	packageChooser possibleItemsLabelHolder value:(resources string:self possibleItemsLabel).
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1664	packageChooser selectedItemsLabelHolder value:(resources string:self selectedItemsLabel).
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1665
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1666	packageChooser listOfSelectedItems onChangeSend:#updateModifiedChannel to:self.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1667	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1668
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1669	!AbstractSettingsApplication::AutoloadedPackagesSettingsAppl methodsFor:'queries'!
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1670
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1671	hasUnsavedChanges
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1672	packageChooser notNil ifTrue:[
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1673	packageChooser listOfSelectedItems value asArray = UserPreferences current autoloadedPackages asArray ifFalse:[^true].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	1674	].
16200 5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1675	^ false.
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1676	! !
5cb4a5fe7df0 #FEATURE Claus Gittinger <cg@exept.de> parents: 16189 diff changeset	1677
17283 ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1678	!AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'documentation'!
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1679
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1680	documentation
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1681	"
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1682	I manage parameters for package building (for deployment)
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1683	"
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1684	! !
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	1685
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1686	!AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'help specs'!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1687
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1688	helpSpec
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1689	"This resource specification was automatically generated
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1690	by the UIHelpTool of ST/X."
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1691
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1692	"Do not manually edit this!! If it is corrupted,
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1693	the UIHelpTool may not be able to read the specification."
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1694
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1695	"
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1696	UIHelpTool openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1697	"
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1698
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1699	<resource: #help>
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	1700
18624 46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1701	^ super helpSpec addPairsFrom:#(
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1702
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1703	#buildDirectory
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1704	'Temporary folder, where application packages are built for deployment.\If left unspecified, this defaults to the workspace folder or the current directory, if no workspace has been defined).'
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1705
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1706	#localBuild
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1707	'If checked, files are saved from the image to the build directory and compiled there.\If unchecked, files need to be checked into a repository and are fetched from there into a temporary for a build.'
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1708
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1709
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1710	)
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1711
46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	1712	"Modified: / 28-02-2019 / 12:52:31 / Claus Gittinger"
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1713	! !
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1714
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1715	!AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'image specs'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1716
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1717	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	1718	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	1719
9803 ca480beae977 set icon resource Stefan Vogel <sv@exept.de> parents: 9797 diff changeset	1720	^ AbstractSettingsApplication::ByteCodeCompilerSettingsAppl defaultIcon
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	1721
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	1722	"Modified: / 17-09-2007 / 11:35:02 / cg"
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1723	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1724
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1725	!AbstractSettingsApplication::BuildSettingsAppl class methodsFor:'interface specs'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1726
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1727	windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1728	"This resource specification was automatically generated
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1729	by the UIPainter of ST/X."
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1730
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1731	"Do not manually edit this!! If it is corrupted,
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1732	the UIPainter may not be able to read the specification."
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1733
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1734	"
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1735	UIPainter new openOnClass:AbstractSettingsApplication::BuildSettingsAppl andSelector:#windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1736	AbstractSettingsApplication::BuildSettingsAppl new openInterface:#windowSpec
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1737	AbstractSettingsApplication::BuildSettingsAppl open
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1738	"
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1739
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1740	<resource: #canvas>
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1741
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1742	^
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1743	#(FullSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1744	name: windowSpec
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1745	uuid: '71c633fe-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1746	window:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1747	(WindowSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1748	label: 'Build Settings'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1749	name: 'Build Settings'
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1750	uuid: '71c63796-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1751	min: (Point 10 10)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1752	bounds: (Rectangle 0 0 659 242)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1753	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1754	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1755	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1756	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1757	(VerticalPanelViewSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1758	name: 'VerticalPanel3'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1759	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1760	uuid: '71c63ad4-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1761	horizontalLayout: fit
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1762	verticalLayout: top
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1763	horizontalSpace: 3
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1764	verticalSpace: 4
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1765	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1766	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1767	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1768	(FramedBoxSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1769	label: 'Build Directory'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1770	name: 'FramedBox1'
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1771	uuid: '71c63dae-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1772	labelPosition: topLeft
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1773	translateLabel: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1774	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1775	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1776	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1777	(ViewSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1778	name: 'LocalBuild'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1779	layout: (LayoutFrame 0 0.0 0 0 0 1.0 25 0)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1780	activeHelpKey: localBuild
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1781	uuid: '71c63f7a-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1782	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1783	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1784	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1785	(CheckBoxSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1786	label: 'Local Build (Do not use Repository)'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1787	name: 'CheckBox4'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1788	layout: (LayoutFrame 2 0 5 0 -5 1 27 0)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1789	activeHelpKey: localBuild
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1790	uuid: '71c640ce-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1791	enableChannel: hasSourceCodeManager
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1792	model: localBuild
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1793	translateLabel: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1794	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1795	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1796
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1797	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1798	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1799	(ViewSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1800	name: 'Build Directory'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1801	layout: (LayoutFrame 0 0 40 0 0 1 70 0)
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1802	uuid: '71c64326-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1803	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1804	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1805	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1806	(LabelSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1807	label: 'Build Directory:'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1808	name: 'BuildDirDirLabel'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1809	layout: (LayoutFrame 0 0.0 0 0 200 0 22 0)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1810	activeHelpKey: buildDirectory
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1811	uuid: '71c64452-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1812	translateLabel: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1813	adjust: right
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1814	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1815	(FilenameInputFieldSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1816	name: 'FilenameEntryField1'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1817	layout: (LayoutFrame 202 0 0 0 0 1 22 0)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1818	activeHelpKey: buildDirectory
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1819	uuid: '71c64664-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1820	enableChannel: localBuild
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1821	model: buildDirectory
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1822	acceptOnReturn: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1823	acceptOnTab: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1824	acceptOnLostFocus: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1825	acceptOnPointerLeave: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1826	postBuildCallback: postBuildDirectoryField:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1827	viewClassName: FilenameWidgetWithHistory
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1828	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1829	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1830
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1831	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1832	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1833	(HorizontalPanelViewSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1834	name: 'ActionsHorizontalPanel'
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1835	layout: (LayoutFrame 62 0.25 71 0 0 1 100 0)
b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1836	uuid: '71c649ca-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1837	horizontalLayout: fitSpace
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1838	verticalLayout: center
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1839	horizontalSpace: 3
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1840	verticalSpace: 3
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1841	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1842	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1843	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1844	(ActionButtonSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1845	label: 'Cleanup Build Directory'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1846	name: 'CleanupBuildDirectoryButton'
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1847	uuid: '71c64bb4-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1848	translateLabel: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1849	tabable: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1850	model: cleanupBuildDirectory
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1851	extent: (Point 396 26)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1852	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1853	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1854
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1855	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1856	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1857	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1858
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1859	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1860	extent: (Point 659 136)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1861	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1862	(ViewSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1863	name: 'Box1'
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1864	uuid: '71c64e70-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1865	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1866	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1867	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1868	(LabelSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1869	label: 'Compiler for Build:'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1870	name: 'Label1'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1871	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1872	uuid: '71c64f92-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1873	translateLabel: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1874	adjust: right
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1875	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1876	(ComboListSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1877	name: 'ComboList1'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1878	layout: (LayoutFrame 150 0 0 0 300 0 20 0)
18007 b7ac416ae0ac #UI_ENHANCEMENT by mawalch mawalch parents: 18006 diff changeset	1879	uuid: '71c6510e-1f40-11b2-903e-3065ec8abe8a'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1880	model: usedCompilerForBuild
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1881	comboList: listOfPossibleCompilers
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1882	useIndex: false
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1883	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1884	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1885
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1886	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1887	extent: (Point 659 25)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1888	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1889	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1890
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1891	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1892	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1893	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1894
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1895	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	1896	)
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1897	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1898
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1899	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'actions'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1900
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1901	basicReadSettings
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1902	super basicReadSettings.
11168 bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1903
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1904	usedCompilerForBuild value isNil ifTrue:[
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1905	currentUserPrefs usedCompilerForBuild:(Tools::ProjectBuilder defaultUsedCompiler).
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1906	usedCompilerForBuild value:(Tools::ProjectBuilder defaultUsedCompiler).
11682 47a1f9417d38 fix hasChange Claus Gittinger <cg@exept.de> parents: 11585 diff changeset	1907	].
47a1f9417d38 fix hasChange Claus Gittinger <cg@exept.de> parents: 11585 diff changeset	1908
47a1f9417d38 fix hasChange Claus Gittinger <cg@exept.de> parents: 11585 diff changeset	1909	"Modified: / 26-07-2012 / 23:16:52 / cg"
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1910	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1911
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1912	basicSaveSettings
7962 ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1913	\|buildDir\|
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1914
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1915	buildDir := buildDirectory value.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1916	buildDir notEmptyOrNil ifTrue:[
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1917	buildDir := buildDir asFilename.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1918	buildDir isDirectory ifFalse:[
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1919	(Dialog confirm:(resources
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1920	stringWithCRs:'Build directory %1 does not exist.\\Create?'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1921	with:buildDir pathName allBold))
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1922	ifTrue:[
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1923	buildDir makeDirectory.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1924	]
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1925	].
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1926	].
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1927
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1928	super basicSaveSettings.
11168 bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1929
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1930	"Modified: / 22-01-2012 / 10:50:09 / cg"
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1931	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1932
7962 ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1933	cleanupBuildDirectory
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1934	\|buildDir\|
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1935
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1936	buildDir := buildDirectory value.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1937	buildDir isEmptyOrNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1938	^ self.
7962 ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1939	].
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1940	buildDir := buildDir asFilename.
ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1941	(buildDir exists and:[Dialog confirm:('Really delete <1p> ?' expandMacrosWith:buildDir physicalPathName)]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1942	buildDir recursiveRemove.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1943	buildDir makeDirectory.
7962 ca3b45f4b78c BuildSettingsAppl - create and clean up build directory Stefan Vogel <sv@exept.de> parents: 7954 diff changeset	1944	].
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1945	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1946
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1947	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'aspects'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1948
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1949	aspects
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1950	^ #(
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1951	buildDirectory
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1952	localBuild
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1953	usedCompilerForBuild
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1954	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1955	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	1956
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1957	buildDirectory
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1958	buildDirectory isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1959	buildDirectory := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1960	buildDirectory onChangeSend:#updateModifiedChannel to:self
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1961	].
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1962	^ buildDirectory.
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
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1965	hasSourceCodeManager
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1966	^ SourceCodeManager notNil
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1967	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1968
11168 bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1969	listOfPossibleCompilers
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1970	^ Tools::ProjectBuilder listOfPossibleCompilers
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1971
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1972	"Created: / 21-01-2012 / 14:05:43 / cg"
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1973	!
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1974
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1975	localBuild
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1976	localBuild isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1977	localBuild := UserPreferences current localBuild asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1978	localBuild onChangeSend:#updateModifiedChannel to:self
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1979	].
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1980	^ localBuild.
11168 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
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1983	usedCompilerForBuild
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1984	usedCompilerForBuild isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1985	usedCompilerForBuild := nil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	1986	usedCompilerForBuild onChangeSend:#updateModifiedChannel to:self
11168 bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1987	].
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1988	^ usedCompilerForBuild.
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1989
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	1990	"Created: / 22-01-2012 / 10:59:30 / cg"
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1991	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	1992
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1993	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1994
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1995	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1996	^ 'Launcher/buildSetup.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1997	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	1998
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	1999	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'initialization'!
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2000
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2001	postBuildDirectoryField:aField
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2002	aField historyList value:(Array
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2003	with:(OperatingSystem getHomeDirectory asFilename construct:'stx_build') pathName
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2004	with:(Filename currentDirectory construct:'stx_build') pathName)
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2005	! !
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2006
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	2007	!AbstractSettingsApplication::BuildSettingsAppl methodsFor:'queries'!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	2008
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	2009	hasUnsavedChanges
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	2010	(super hasUnsavedChanges) ifTrue:[^ true].
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	2011	^ false
11168 bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	2012
bf050575afaf build settings Claus Gittinger <cg@exept.de> parents: 11155 diff changeset	2013	"Modified: / 22-01-2012 / 10:50:15 / cg"
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	2014	! !
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	2015
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2016	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'defaults'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2017
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2018	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2019
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2020	^ #( nil #level1 #level2 #full )
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2021	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2022
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2023	constantFoldingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2024
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2025	^ #('disabled' 'level1 (always safe)' 'level2 (usually safe)' 'full')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2026	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2027
17283 ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2028	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'documentation'!
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2029
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2030	documentation
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2031	"
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2032	I manage settings for bytecode compilation.
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2033	Mostly controlling accepted syntax, warnings and errors.
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	! !
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	2036
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2037	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'help specs'!
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2038
18624 46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	2039	helpSpec
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2040	"This resource specification was automatically generated
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2041	by the UIHelpTool of ST/X."
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2042
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2043	"Do not manually edit this!! If it is corrupted,
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2044	the UIHelpTool may not be able to read the specification."
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2045
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2046	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2047	UIHelpTool openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl
12764 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
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2050	<resource: #help>
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2051
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2052	^ super helpSpec addPairsFrom:#(
12982 8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2053
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2054	#allowAssignmentToPoolVariable
17057 b18c8b16129d #DOCUMENTATION by mawalch mawalch parents: 17006 diff changeset	2055	'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	2056
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2057	#allowDollarInIdentifier
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2058	'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	2059
12982 8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2060	#allowDolphinExtensions
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2061	'Allow Dolphin-Smalltalk specific syntax extensions'
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2062
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2063	#allowEmptyStatements
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2064	'Allow empty statements'
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2065
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2066	#allowExtendedBinarySelectors
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2067	'Allow extended binary selectors (more than 2 characters, including "^", "\|" and "#")'
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2068
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2069	#allowFixedPointLiterals
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2070	'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	2071
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2072	#allowOldStyleAssignment
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2073	'Allow "_" as assignment. May be required to filein Squeak code'
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2074
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2075	#allowParagraphInIdentifier
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2076	'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	2077
12982 8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2078	#allowQualifiedNames
14485 9e8140add846 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14477 diff changeset	2079	'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	2080
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2081	#allowReservedWordsAsSelectors
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2082	'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	2083
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2084	#allowSqueakExtensions
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2085	'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	2086
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2087	#allowUnderscoreInIdentifier
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2088	'Allow underscore characters in identifiers. Not compatible with Squeak.'
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2089
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2090	#allowVisualAgeESSymbolLiterals
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2091	'Allow VisualAge ESsymbol literals (##xxx).\Will generate regular symbols when compiled'
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2092
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2093	#allowVisualAgePrimitives
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2094	'Allow VisualAge primitive specification syntax'
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2095
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2096	#arraysAreImmutable
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2097	'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	2098
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2099	#fullDebugInfo
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2100	'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	2101
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2102	#reenableSuppressedWarnings
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2103	'Reenable warnings which were previously suppressed for individual methods'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2104
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2105	#stringsAreImmutable
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2106	'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	2107
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2108	#warnAboutBadComments
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2109	'Warn if a comment is empty or consists of whitespace only'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2110
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2111	#warnAboutMissingMethodComment
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2112	'Warn if a method has no comment'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2113
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2114	#warnAboutNonLowercaseLocalVariableNames
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2115	'By convention, local variables should start with a lowercase character'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2116
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2117	#warnAboutPossiblyUnimplementedSelectors
14485 9e8140add846 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14477 diff changeset	2118	'Warn about a possibly unimplemented selector in a message send'
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2119
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2120	#warnAboutPossiblyUninitializedLocals
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2121	'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	2122
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2123	#warnAboutReferenceToPrivateClass
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2124	'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	2125
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2126	#warnAboutShortLocalVariableNames
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2127	'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	2128
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2129	#warnAboutWrongVariableNames
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2130	'Checks for bad articles in variable names (eg. "anUser")'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2131
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2132	#warnCommonMistakes
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2133	'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	2134
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2135	#warnDollarInIdentifier
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2136	'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	2137
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2138	#warnInconsistentReturnValues
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2139	'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	2140
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2141	#warnOldStyleAssignment
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2142	'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	2143
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2144	#warnParagraphInIdentifier
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2145	'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	2146
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2147	#warnPlausibilityChecks
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2148	'Perform plausibility checks and warn about any such possible problem'
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2149
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2150	#warnPossibleIncompatibilities
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2151	'Warn about other possible incompatibilities'
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2152
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2153	#warnSTXSpecials
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2154	'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	2155
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2156	#warnUnderscoreInIdentifier
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2157	'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	2158
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2159	#warnUnusedVars
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2160	'Warn if a local variable is never used'
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2161
12982 8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2162	#warnings
8918f716de19 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12970 diff changeset	2163	'Turn off all warnings'
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2164
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2165	)
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2166
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2167	"Modified: / 23-04-2019 / 23:23:03 / Claus Gittinger"
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2168	! !
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	2169
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2170	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2171
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2172	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	2173	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	2174
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2175	^ self defaultIcon5
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	2176
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	2177	"Modified: / 17-09-2007 / 11:35:05 / cg"
6346 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
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2180	defaultIcon1
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2181	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2182	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2183
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2184	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2185	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2186
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2187	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2188	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2189	ImageEditor openOnClass:self andSelector:#defaultIcon1
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2190	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2191	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2192
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2193	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2194
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2195	^Icon
15764 acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2196	constantNamed:'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl defaultIcon1'
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2197	ifAbsentPut:[(Depth2Image width:22 height:22) bits:(ByteArray fromPackedString:'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	2198	@@@@@@@@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	2199	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	2200	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2201
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2202	defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2203	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2204	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2205
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2206	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2207	the ImageEditor may not be able to read the specification."
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	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2210	self defaultIcon2 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2211	ImageEditor openOnClass:self andSelector:#defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2212	Icon flushCachedIcons
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
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2215	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2216
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2217	^Icon
15764 acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2218	constantNamed:'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl defaultIcon2'
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2219	ifAbsentPut:[(Depth4Image width:24 height:24) bits:(ByteArray fromPackedString:'
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2220	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HP@CL3L3L3L3L0@RHP@@@3L3L3L0@0@RY!!@AHCL3L3LBD@E&Y&DVPCL3
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2221	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	2222	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	2223	@@@@@@@@@@@@@@@@@@@@@@@@') 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	2224	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	2225
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2226	defaultIcon5
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2227	"This resource specification was automatically generated
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2228	by the ImageEditor of ST/X."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2229
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2230	"Do not manually edit this!! If it is corrupted,
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2231	the ImageEditor may not be able to read the specification."
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	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2234	self defaultIcon5 inspect
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2235	ImageEditor openOnClass:self andSelector:#defaultIcon5
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2236	Icon flushCachedIcons
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
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2239	<resource: #image>
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2240
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	2241	^Icon
15764 acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2242	constantNamed:'AbstractSettingsApplication::ByteCodeCompilerSettingsAppl defaultIcon5'
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2243	ifAbsentPut:[(Depth4Image width:24 height:24) bits:(ByteArray fromPackedString:'
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2244	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@AH@@@@@@@@@@@HP@UTP@R@@@@@@@@MQEU
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2245	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	2246	@@@@@UUUUUTP@@@@@@@@ESIUURMQ@@@@@@@@H0@UTP@2@@@@@@@@@@@AL@@@@@@@@@@@@@@AL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@L@@@@@@@@@@@@@@@
acd5196fb7ca class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15762 diff changeset	2247	@@@@@@@@@@@@@@@@@@@@@@@@') 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	2248	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	2249
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2250	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2251
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2252	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2253	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2254	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2255
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2256	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2257	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2258
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2259	"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2260	UIPainter new openOnClass:AbstractSettingsApplication::ByteCodeCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2261	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2262	AbstractSettingsApplication::ByteCodeCompilerSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2263	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2264
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2265	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2266
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2267	^
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2268	#(FullSpec
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2269	name: windowSpec
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2270	uuid: 'e0a1dd6e-660d-11e9-bfcd-b8f6b1108e05'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2271	window:
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2272	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2273	label: 'Byte Code Compiler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2274	name: 'Byte Code Compiler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2275	flags: 1
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2276	uuid: '9c92dc14-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2277	min: (Point 10 10)
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2278	bounds: (Rectangle 0 0 664 712)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2279	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2280	component:
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2281	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2282	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2283	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2284	name: 'VerticalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2285	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	2286	uuid: '9c92e3bc-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2287	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2288	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2289	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2290	verticalSpace: 3
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2291	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2292	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2293	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2294	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2295	label: 'Just in Time Compilation to Machine Code'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2296	name: 'JustInTimeCompilation'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2297	uuid: '9c92e8da-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2298	model: justInTimeCompilation
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2299	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2300	extent: (Point 664 25)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2301	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2302	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2303	name: 'Separator3'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2304	uuid: '9c92ed9e-1f3f-11b2-903e-3065ec8abe8a'
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2305	extent: (Point 664 3)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2306	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2307	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2308	name: 'Box1'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2309	uuid: '9c92f0aa-1f3f-11b2-903e-3065ec8abe8a'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2310	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2311	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2312	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2313	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2314	name: 'VerticalPanel1_1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2315	layout: (LayoutFrame 0 0 0 0 -20 0.5 0 1)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2316	uuid: '9c92f370-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2317	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2318	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2319	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2320	verticalSpace: 0
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2321	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2322	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2323	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2324	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2325	label: 'Allow Underscore in Identifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2326	name: 'AllowUnderscoreInIdentifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2327	activeHelpKey: allowUnderscoreInIdentifier
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2328	uuid: '9c92f618-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2329	model: allowUnderscoreInIdentifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2330	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2331	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2332	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2333	(CheckBoxSpec
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2334	label: 'Allow Dollar in Identifiers ($)'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2335	name: 'AllowDollarInIdentifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2336	activeHelpKey: allowDollarInIdentifier
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2337	uuid: '9c92f8e8-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2338	model: allowDollarInIdentifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2339	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2340	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2341	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2342	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2343	label: 'Allow VW3 QualifiedNames'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2344	name: 'AllowVW3QualifiedNames'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2345	activeHelpKey: allowQualifiedNames
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2346	uuid: '9c92fb40-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2347	model: allowQualifiedNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2348	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2349	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2350	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2351	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2352	label: 'Allow OldStyle Assignment (_)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2353	name: 'AllowOldStyleAssignment'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2354	activeHelpKey: allowOldStyleAssignment
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2355	uuid: '9c92fd7a-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2356	model: allowOldStyleAssignment
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2357	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2358	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2359	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2360	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2361	label: 'Allow Reserved Words as Selector (self)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2362	name: 'AllowReservedWordsAsSelector'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2363	activeHelpKey: allowReservedWordsAsSelectors
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2364	uuid: '9c92ffaa-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2365	model: allowReservedWordsAsSelectors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2366	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2367	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2368	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2369	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2370	label: 'Allow Extended Binary Selectors'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2371	name: 'CheckBox4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2372	activeHelpKey: allowExtendedBinarySelectors
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2373	uuid: '9c9301e4-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2374	model: allowExtendedBinarySelectors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2375	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2376	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2377	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2378	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2379	label: 'Allow Assignment to Pool Variable'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2380	name: 'CheckBox6'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2381	activeHelpKey: allowAssignmentToPoolVariable
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2382	uuid: '9c930450-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2383	model: allowAssignmentToPoolVariable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2384	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2385	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2386	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2387	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2388
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2389	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2390	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2391	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2392	name: 'VerticalPanel1_2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2393	layout: (LayoutFrame 0 0.5 0 0 0 1 0 1)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2394	uuid: '9c9306ee-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2395	horizontalLayout: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2396	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2397	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2398	verticalSpace: 0
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2399	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2400	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2401	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2402	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2403	label: 'Allow Squeak Extensions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2404	name: 'AllowSqueakExtensions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2405	activeHelpKey: allowSqueakExtensions
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2406	uuid: '9c93095a-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2407	model: allowSqueakExtensions
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2408	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2409	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2410	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2411	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2412	label: 'Allow Dolphin Extensions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2413	name: 'AllowDolphinExtensions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2414	activeHelpKey: allowDolphinExtensions
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2415	uuid: '9c930bb2-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2416	model: allowDolphinExtensions
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2417	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2418	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2419	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2420	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2421	label: 'Allow VisualAge ES-Symbols'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2422	name: 'AllowVisualAgeESSymbolLiterals'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2423	activeHelpKey: allowVisualAgeESSymbolLiterals
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2424	uuid: '9c930dec-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2425	model: allowVisualAgeESSymbolLiterals
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2426	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2427	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2428	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2429	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2430	label: 'Allow VisualAge Primitives'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2431	name: 'CheckBox8'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2432	activeHelpKey: allowVisualAgePrimitives
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2433	uuid: '9c931026-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2434	model: allowVisualAgePrimitives
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2435	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2436	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2437	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2438	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2439	label: 'Allow FixedPoint-Number Literals'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2440	name: 'AllowFixedPointLiterals'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2441	activeHelpKey: allowFixedPointLiterals
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2442	uuid: '9c931242-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2443	model: allowFixedPointLiterals
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2444	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2445	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2446	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2447	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2448	label: 'Allow Empty Statements'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2449	name: 'AllowEmptyStatements'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2450	activeHelpKey: allowEmptyStatements
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2451	uuid: '9c93147c-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2452	model: allowEmptyStatements
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2453	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2454	extent: (Point 665 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2455	)
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2456	(CheckBoxSpec
19133 c41dbe689ab6 #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 19074 diff changeset	2457	label: 'Allow Paragraph in Identifiers (§)'
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2458	name: 'CheckBox10'
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2459	activeHelpKey: allowParagraphInIdentifier
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2460	uuid: '9c9316ac-1f3f-11b2-903e-3065ec8abe8a'
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2461	model: allowParagraphInIdentifier
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2462	translateLabel: true
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2463	extent: (Point 665 22)
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2464	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2465	)
16317 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	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2470
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2471	)
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2472	extent: (Point 664 157)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2473	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2474	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2475	name: 'Separator4'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2476	uuid: '9c931954-1f3f-11b2-903e-3065ec8abe8a'
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2477	extent: (Point 664 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2478	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2479	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2480	label: 'Warnings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2481	name: 'Warnings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2482	activeHelpKey: warnings
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2483	uuid: '9c931b7a-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2484	model: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2485	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2486	extent: (Point 664 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2487	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2488	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2489	name: 'Box2'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2490	uuid: '9c931e36-1f3f-11b2-903e-3065ec8abe8a'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2491	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2492	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2493	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2494	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2495	name: 'VerticalPanel2_1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2496	layout: (LayoutFrame 20 0 0 0 0 0.5 0 1)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2497	uuid: '9c932052-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2498	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2499	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2500	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2501	verticalSpace: 0
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2502	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2503	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2504	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2505	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2506	label: 'ST/X Extensions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2507	name: 'STXExtensions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2508	activeHelpKey: warnSTXSpecials
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2509	uuid: '9c9322be-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2510	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2511	model: warnSTXSpecials
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2512	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2513	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2514	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2515	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2516	label: 'Reference to Private Class'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2517	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2518	activeHelpKey: warnAboutReferenceToPrivateClass
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2519	uuid: '9c932534-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2520	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2521	model: warnAboutReferenceToPrivateClass
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2522	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2523	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2524	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2525	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2526	label: 'Underscores in Identifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2527	name: 'UnderscoresInIdentifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2528	activeHelpKey: warnUnderscoreInIdentifier
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2529	uuid: '9c932778-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2530	enableChannel: enableUnderscore
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2531	model: warnUnderscoreInIdentifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2532	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2533	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2534	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2535	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2536	label: 'Dollars in Identifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2537	name: 'DollarsInIdentifiers'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2538	activeHelpKey: warnDollarInIdentifier
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2539	uuid: '9c9329b2-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2540	enableChannel: enableDollar
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2541	model: warnDollarInIdentifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2542	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2543	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2544	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2545	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2546	label: 'OldStyle Assignment'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2547	name: 'OldStyleAssignment'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2548	activeHelpKey: warnOldStyleAssignment
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2549	uuid: '9c932bec-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2550	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2551	model: warnOldStyleAssignment
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2552	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2553	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2554	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2555	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2556	label: 'Possible Incompatibilities'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2557	name: 'PossibleIncompatibilities'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2558	activeHelpKey: warnPossibleIncompatibilities
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2559	uuid: '9c932e1c-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2560	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2561	model: warnPossibleIncompatibilities
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2562	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2563	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2564	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2565	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2566	label: 'Possible STC Compilation Problems'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2567	name: 'PossibleSTCCompilationProblems'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2568	activeHelpKey: warnAboutPossibleSTCCompilationProblems
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2569	uuid: '9c933056-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2570	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2571	model: warnAboutPossibleSTCCompilationProblems
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2572	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2573	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2574	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2575	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2576	label: 'Possibly Unimplemented Selectors'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2577	name: 'CheckBox3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2578	activeHelpKey: warnAboutPossiblyUnimplementedSelectors
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2579	uuid: '9c93329a-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2580	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2581	model: warnAboutPossiblyUnimplementedSelectors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2582	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2583	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2584	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2585	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2586	label: 'Plausibility Checks'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2587	name: 'CheckBox7'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2588	activeHelpKey: warnPlausibilityChecks
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2589	uuid: '9c9334ca-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2590	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2591	model: warnPlausibilityChecks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2592	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2593	extent: (Point 312 22)
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2594	)
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2595	(CheckBoxSpec
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2596	label: 'Possibly Uninitialized Locals'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2597	name: 'CheckBox12'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2598	activeHelpKey: warnAboutPossiblyUninitializedLocals
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2599	uuid: '9c93329a-1f3f-11b2-903e-3065ec8abe8a'
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2600	enableChannel: warnings
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2601	model: warnAboutPossiblyUninitializedLocals
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2602	translateLabel: true
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2603	extent: (Point 312 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2604	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2605	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2606
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2607	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2608	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2609	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2610	name: 'VerticalPanel2_2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2611	layout: (LayoutFrame -1 0.5 0 0 0 1 0 1)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2612	uuid: '9c933736-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2613	horizontalLayout: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2614	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2615	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2616	verticalSpace: 0
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2617	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2618	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2619	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2620	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2621	label: 'Unused Method Variables'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2622	name: 'UnusedMethodVariables'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2623	activeHelpKey: warnUnusedVars
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2624	uuid: '9c933984-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2625	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2626	model: warnUnusedVars
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2627	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2628	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2629	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2630	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2631	label: 'Bad Variable Names (non-English article)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2632	name: 'BadVariableNames'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2633	activeHelpKey: warnAboutWrongVariableNames
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2634	uuid: '9c933c90-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2635	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2636	model: warnAboutWrongVariableNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2637	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2638	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2639	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2640	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2641	label: 'Bad (Non-Lowercase) Local Variable Names'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2642	name: 'BadLocalVariableNames'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2643	activeHelpKey: warnAboutNonLowercaseLocalVariableNames
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2644	uuid: '9c933ef2-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2645	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2646	model: warnAboutNonLowercaseLocalVariableNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2647	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2648	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2649	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2650	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2651	label: 'Bad (Short) Local Variable Names'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2652	name: 'CheckBox2'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2653	activeHelpKey: warnAboutShortLocalVariableNames
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2654	uuid: '9c934140-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2655	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2656	model: warnAboutShortLocalVariableNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2657	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2658	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2659	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2660	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2661	label: 'Bad (empty) Comments'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2662	name: 'BadComments'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2663	activeHelpKey: warnAboutBadComments
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2664	uuid: '9c93437a-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2665	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2666	model: warnAboutBadComments
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2667	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2668	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2669	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2670	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2671	label: 'Method-Comment Missing '
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2672	name: 'CheckBox5'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2673	activeHelpKey: warnAboutMissingMethodComment
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2674	uuid: '9c9345be-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2675	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2676	model: warnAboutMissingMethodComment
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2677	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2678	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2679	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2680	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2681	label: 'Inconsistent Return Values'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2682	name: 'InconsistentReturnValues'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2683	activeHelpKey: warnInconsistentReturnValues
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2684	uuid: '9c9347f8-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2685	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2686	model: warnInconsistentReturnValues
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2687	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2688	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2689	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2690	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2691	label: 'Common Mistakes'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2692	name: 'CommonMistakes'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2693	activeHelpKey: warnCommonMistakes
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2694	uuid: '9c934a32-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2695	enableChannel: warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2696	model: warnCommonMistakes
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2697	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2698	extent: (Point 600 22)
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2699	)
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2700	(CheckBoxSpec
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2701	label: 'Paragraph in Identifier'
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2702	name: 'CheckBox11'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2703	activeHelpKey: warnParagraphInIdentifier
f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2704	uuid: '9c934c6c-1f3f-11b2-903e-3065ec8abe8a'
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2705	enableChannel: enableParagraph
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2706	model: warnParagraphInIdentifier
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2707	translateLabel: true
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2708	extent: (Point 600 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2709	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2710	)
16317 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	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2715
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2716	)
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2717	extent: (Point 664 224)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2718	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2719	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2720	name: 'Box4'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2721	uuid: '9c934f00-1f3f-11b2-903e-3065ec8abe8a'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2722	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2723	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2724	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2725	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2726	label: 'Reenable Suppressed Warnings Now'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2727	name: 'Button1'
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2728	layout: (LayoutFrame 0 0.5 0 0 0 1 0 1)
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2729	activeHelpKey: reenableSuppressedWarnings
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2730	uuid: '9c93519e-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2731	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2732	model: reenableSuppressedWarnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2733	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2734	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2735
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2736	)
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2737	extent: (Point 664 33)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2738	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2739	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2740	name: 'Separator5'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2741	uuid: '9c9356ee-1f3f-11b2-903e-3065ec8abe8a'
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2742	extent: (Point 664 2)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2743	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2744	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2745	label: 'Literal Strings are Immutable'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2746	name: 'LiteralStringsAreImmutable'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2747	activeHelpKey: stringsAreImmutable
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2748	uuid: '9c935932-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2749	model: stringsAreImmutable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2750	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2751	extent: (Point 664 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2752	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2753	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2754	label: 'Literal Arrays are Immutable'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2755	name: 'CheckBox9'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2756	activeHelpKey: arraysAreImmutable
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2757	uuid: '9c935c02-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2758	model: arraysAreImmutable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2759	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2760	extent: (Point 664 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2761	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2762	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2763	label: 'Full Debug Info'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2764	name: 'FullDebugInfo'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2765	activeHelpKey: fullDebugInfo
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2766	uuid: '9c935ec8-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2767	model: fullDebugSupport
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2768	translateLabel: true
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2769	extent: (Point 664 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2770	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2771	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2772	name: 'Separator6'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2773	uuid: '9c936170-1f3f-11b2-903e-3065ec8abe8a'
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2774	extent: (Point 664 2)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2775	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2776	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2777	name: 'Box3'
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2778	uuid: '9c93636e-1f3f-11b2-903e-3065ec8abe8a'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2779	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2780	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2781	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2782	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2783	label: 'Constant Folding:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2784	name: 'ConstantFoldingLabel'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2785	layout: (LayoutFrame 0 0 0 0 328 0 22 0)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2786	uuid: '9c93658a-1f3f-11b2-903e-3065ec8abe8a'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2787	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2788	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2789	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2790	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2791	label: 'PopUp List'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2792	name: 'ConstantFolding'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2793	layout: (LayoutFrame 330 0 0 0 -5 1 22 0)
18006 f423bb49782d #UI_ENHANCEMENT by mawalch mawalch parents: 17964 diff changeset	2794	uuid: '9c9368f0-1f3f-11b2-903e-3065ec8abe8a'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2795	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2796	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2797	model: constantFoldingSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2798	menu: constantFolding
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2799	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2800	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2801	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2802
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2803	)
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2804	extent: (Point 664 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2805	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2806	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2807
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2808	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2809	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2810	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	2811
14307 8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2812	)
8198db379b53 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14278 diff changeset	2813	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2814	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2815
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2816	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2817
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2818	basicReadSettings
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2819	self
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2820	readAspects:(self simpleAspects)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2821	from:ParserFlags.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2822
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2823	self constantFoldingSelection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2824	value:(self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3).
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	2825
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2826	self supportsJustInTimeCompilation ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2827	self fullDebugSupport value:(ObjectMemory fullSingleStepSupport ? false)
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2828	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2829	self fullDebugSupport value:(ParserFlags fullLineNumberInfo)
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2830	].
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	2831
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2832	self supportsJustInTimeCompilation ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2833	self justInTimeCompilation value:(ObjectMemory justInTimeCompilation ? false)
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2834	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2835	self justInTimeCompilation value:false
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2836	].
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	2837
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	2838	self warnAboutMissingMethodComment value:(UserPreferences current enforceComment).
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	2839
11814 ffce903c0a2f lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 11774 diff changeset	2840	"Modified: / 26-09-2012 / 14:16:32 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2841	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2842
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2843	basicSaveSettings
17532 4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2844	\|extensionSettingsChanged\|
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2845
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2846	extensionSettingsChanged := ParserFlags allowSqueakExtensions ~= self allowSqueakExtensions.
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2847
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2848	self
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2849	writeAspects:(self simpleAspects)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2850	to:ParserFlags.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	2851
11814 ffce903c0a2f lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 11774 diff changeset	2852	ParserFlags lineNumberInfo:(self fullDebugSupport value ifTrue:[#full] ifFalse:[true]).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2853
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2854	Compiler foldConstants:(self class constantFoldingOptions at:self constantFoldingSelection value).
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2855
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2856	self supportsJustInTimeCompilation ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2857	\| justInTime \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2858	justInTime := self justInTimeCompilation value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2859	justInTime ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2860	Smalltalk allMethodsDo:[:m \| m checked:false].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2861	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2862	ObjectMemory justInTimeCompilation:justInTime.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2863	ObjectMemory fullSingleStepSupport:self fullDebugSupport value.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2864	].
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	2865
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	2866	UserPreferences current enforceComment:(self warnAboutMissingMethodComment value).
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	2867
17532 4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2868	extensionSettingsChanged ifTrue:[
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2869	ParserFlags allowSymbolsStartingWithDigit:(ParserFlags allowSqueakExtensions)
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
4089edd99c89 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 17531 diff changeset	2872	"Modified: / 18-06-2017 / 16:28:58 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2873	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	2874
11292 7b6d254246a5 per-method warnings Claus Gittinger <cg@exept.de> parents: 11268 diff changeset	2875	reenableSuppressedWarnings
7b6d254246a5 per-method warnings Claus Gittinger <cg@exept.de> parents: 11268 diff changeset	2876	ParserFlags reenableAllSuppressedFlags
7b6d254246a5 per-method warnings Claus Gittinger <cg@exept.de> parents: 11268 diff changeset	2877
7b6d254246a5 per-method warnings Claus Gittinger <cg@exept.de> parents: 11268 diff changeset	2878	"Created: / 28-02-2012 / 13:32:52 / cg"
7b6d254246a5 per-method warnings Claus Gittinger <cg@exept.de> parents: 11268 diff changeset	2879	!
7b6d254246a5 per-method warnings Claus Gittinger <cg@exept.de> parents: 11268 diff changeset	2880
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2881	simpleAspects
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	2882	^
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2883	#(
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2884	warnings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2885	warnCommonMistakes
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2886	warnPossibleIncompatibilities
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2887	warnDollarInIdentifier
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2888	warnParagraphInIdentifier
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2889	warnOldStyleAssignment
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2890	warnSTXSpecials
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2891	warnUnderscoreInIdentifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2892	warnUnusedVars
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2893	warnAboutWrongVariableNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2894	warnAboutBadComments
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2895	warnInconsistentReturnValues
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2896	warnAboutNonLowercaseLocalVariableNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2897	warnAboutShortLocalVariableNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2898	warnAboutPossibleSTCCompilationProblems
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2899	warnAboutReferenceToPrivateClass
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2900	warnAboutPossiblyUnimplementedSelectors
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2901	warnAboutPossiblyUninitializedLocals
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2902	warnPlausibilityChecks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2903
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2904	allowDollarInIdentifier
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2905	allowParagraphInIdentifier
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2906	allowDolphinExtensions
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2907	allowOldStyleAssignment
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2908	allowQualifiedNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2909	allowReservedWordsAsSelectors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2910	allowSqueakExtensions
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2911	allowUnderscoreInIdentifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2912	allowVisualAgeESSymbolLiterals
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2913	allowVisualAgePrimitives
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2914	allowFixedPointLiterals
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2915	allowEmptyStatements
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2916	allowExtendedBinarySelectors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2917
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2918	arraysAreImmutable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2919	stringsAreImmutable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2920	allowAssignmentToPoolVariable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2921	)
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2922
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2923	"Created: / 20-11-2006 / 22:37:17 / cg"
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	2924	"Modified: / 16-11-2016 / 22:40:51 / cg"
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	2925	"Modified: / 23-04-2019 / 23:16:47 / Claus Gittinger"
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2926	!
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2927
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2928	stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2929
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2930	AbstractLauncherApplication::LauncherDialogs stcCompilerSettings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2931	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2932
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	2933	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2934
10698 61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2935	allowAssignmentToPoolVariable
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2936
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2937	allowAssignmentToPoolVariable isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2938	allowAssignmentToPoolVariable := ParserFlags allowAssignmentToPoolVariable asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2939	allowAssignmentToPoolVariable onChangeSend:#updateModifiedChannel to:self.
10698 61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2940	].
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2941	^ allowAssignmentToPoolVariable.
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2942
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2943	"Created: / 12-09-2011 / 17:26:01 / cg"
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2944	!
61d63b339b4e allowAssignmentToPoolVariable Claus Gittinger <cg@exept.de> parents: 10582 diff changeset	2945
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	2946	allowDollarInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2947
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2948	allowDollar isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2949	allowDollar := ParserFlags allowDollarInIdentifier asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2950	allowDollar onChangeSend:#updateModifiedChannel to:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2951	allowDollar addDependent:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2952	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2953	^ allowDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2954	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2955
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2956	allowDolphinExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2957
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2958	allowDolphinExtensions isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2959	allowDolphinExtensions := ParserFlags allowDolphinExtensions asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2960	allowDolphinExtensions onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2961	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2962	^ allowDolphinExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2963	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2964
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2965	allowEmptyStatements
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2966
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2967	allowEmptyStatements isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2968	allowEmptyStatements := ParserFlags allowEmptyStatements asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2969	allowEmptyStatements onChangeSend:#updateModifiedChannel to:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2970	"/ allowEmptyStatements addDependent:self.
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2971	].
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2972	^ allowEmptyStatements.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2973
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2974	"Created: / 20-11-2006 / 22:35:10 / cg"
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2975	!
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	2976
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	2977	allowExtendedBinarySelectors
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	2978
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	2979	allowExtendedBinarySelectors isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2980	allowExtendedBinarySelectors := (ParserFlags allowExtendedBinarySelectors ? false) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2981	allowExtendedBinarySelectors onChangeSend:#updateModifiedChannel to:self.
8972 6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	2982	].
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	2983	^ allowExtendedBinarySelectors.
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	2984	!
6ff35da789af * empty log message * Claus Gittinger <cg@exept.de> parents: 8947 diff changeset	2985
6578 560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	2986	allowFixedPointLiterals
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	2987
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	2988	allowFixedPointLiterals isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2989	allowFixedPointLiterals := (ParserFlags allowFixedPointLiterals ? false) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2990	allowFixedPointLiterals onChangeSend:#updateModifiedChannel to:self.
6578 560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	2991	].
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	2992	^ allowFixedPointLiterals.
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	2993	!
560ee65b9c64 allow fixedPoint literals Claus Gittinger <cg@exept.de> parents: 6537 diff changeset	2994
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2995	allowOldStyleAssignment
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2996
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	2997	allowOldStyleAssignment isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2998	allowOldStyleAssignment := ParserFlags allowOldStyleAssignment asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	2999	allowOldStyleAssignment onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3000	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3001	^ allowOldStyleAssignment.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3002	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3003
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3004	allowParagraphInIdentifier
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3005
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3006	allowParagraph isNil ifTrue:[
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3007	allowParagraph := ParserFlags allowParagraphInIdentifier asValue.
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3008	allowParagraph onChangeSend:#updateModifiedChannel to:self.
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3009	allowParagraph addDependent:self.
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3010	].
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3011	^ allowParagraph.
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3012
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3013	"Created: / 16-11-2016 / 22:38:18 / cg"
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3014	!
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3015
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3016	allowQualifiedNames
18425 fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	3017	"true, if '#{..}' and 'namespace.varName' qualified names are allowed"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3018
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3019	allowQualifiedNames isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3020	allowQualifiedNames := ParserFlags allowQualifiedNames asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3021	allowQualifiedNames onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3022	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3023	^ allowQualifiedNames.
18425 fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	3024
fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	3025	"Modified (comment): / 23-09-2018 / 01:08:42 / Claus Gittinger"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3026	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3027
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3028	allowReservedWordsAsSelectors
18841 980c8159d853 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18816 diff changeset	3029	"if true, 'self', 'super', 'thisContext', 'nil', 'true' and 'false' are allowed
980c8159d853 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18816 diff changeset	3030	as unary message selectors."
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3031
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3032	allowReservedWordsAsSelectors isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3033	allowReservedWordsAsSelectors := ParserFlags allowReservedWordsAsSelectors asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3034	allowReservedWordsAsSelectors onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3035	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3036	^ allowReservedWordsAsSelectors.
18841 980c8159d853 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18816 diff changeset	3037
980c8159d853 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18816 diff changeset	3038	"Modified (comment): / 25-06-2019 / 11:16:36 / Claus Gittinger"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3039	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3040
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3041	allowSqueakExtensions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3042
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3043	allowSqueakExtensions isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3044	allowSqueakExtensions := ParserFlags allowSqueakExtensions asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3045	allowSqueakExtensions onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3046	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3047	^ allowSqueakExtensions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3048	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3049
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3050	allowUnderscoreInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3051
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3052	allowUnderscore isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3053	allowUnderscore := ParserFlags allowUnderscoreInIdentifier asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3054	allowUnderscore onChangeSend:#updateModifiedChannel to:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3055	allowUnderscore addDependent:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3056	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3057	^ allowUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3058	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3059
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	3060	allowVisualAgeESSymbolLiterals
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	3061
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	3062	allowVisualAgeESSymbolLiterals isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3063	allowVisualAgeESSymbolLiterals := ParserFlags allowVisualAgeESSymbolLiterals asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3064	allowVisualAgeESSymbolLiterals onChangeSend:#updateModifiedChannel to:self.
6531 9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	3065	].
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	3066	^ allowVisualAgeESSymbolLiterals.
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	3067	!
9b1f60fffec9 * empty log message * Claus Gittinger <cg@exept.de> parents: 6497 diff changeset	3068
11242 dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3069	allowVisualAgePrimitives
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3070
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3071	allowVisualAgePrimitives isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3072	allowVisualAgePrimitives := ParserFlags allowVisualAgePrimitives asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3073	allowVisualAgePrimitives onChangeSend:#updateModifiedChannel to:self.
11242 dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3074	].
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3075	^ allowVisualAgePrimitives.
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3076
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3077	"Created: / 07-02-2012 / 17:06:19 / cg"
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3078	!
dcef169aa683 x Claus Gittinger <cg@exept.de> parents: 11240 diff changeset	3079
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3080	arraysAreImmutable
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3081
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3082	immutableArrays isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3083	immutableArrays := ParserFlags arraysAreImmutable asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3084	immutableArrays onChangeSend:#updateModifiedChannel to:self.
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3085	].
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3086	^ immutableArrays.
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3087	!
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3088
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3089	constantFolding
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3090
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3091	constantFolding isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3092	constantFolding := (resources array:(self class constantFoldingStrings)) asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3093	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3094	^ constantFolding.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3095	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3096
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3097	constantFoldingOptions
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3098
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3099	constantFoldingOptions isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3100	constantFoldingOptions := self class constantFoldingOptions.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3101	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3102	^ constantFoldingOptions.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3103	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3104
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3105	constantFoldingSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3106
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3107	constantFoldingSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3108	\| index \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3109	index := self class constantFoldingOptions indexOf:Compiler foldConstants ifAbsent:3.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3110	constantFoldingSelection := index asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3111	constantFoldingSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3112	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3113	^ constantFoldingSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3114	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3115
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3116	enableDollar
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3117
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3118	enableDollar isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3119	enableDollar := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3120	enableDollar addDependent:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3121	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3122	^ enableDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3123	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3124
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3125	enableParagraph
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3126
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3127	enableParagraph isNil ifTrue:[
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3128	enableParagraph := true asValue.
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3129	enableParagraph addDependent:self.
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3130	].
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3131	^ enableParagraph.
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3132
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3133	"Created: / 16-11-2016 / 22:39:57 / cg"
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3134	!
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3135
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3136	enableUnderscore
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3137	enableUnderscore isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3138	enableUnderscore := true asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3139	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3140	^ enableUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3141	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3142
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3143	fullDebugSupport
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3144
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3145	fullDebugSupport isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3146	self supportsJustInTimeCompilation ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3147	fullDebugSupport := (ObjectMemory fullSingleStepSupport ? false) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3148	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3149	fullDebugSupport := (ParserFlags fullLineNumberInfo) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3150	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3151	fullDebugSupport onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3152	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3153	^ fullDebugSupport.
11814 ffce903c0a2f lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 11774 diff changeset	3154
ffce903c0a2f lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 11774 diff changeset	3155	"Modified: / 26-09-2012 / 14:16:27 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3156	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3157
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3158	justInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3159
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3160	justInTimeCompilation isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3161	self supportsJustInTimeCompilation ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3162	justInTimeCompilation := (ObjectMemory justInTimeCompilation ? false) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3163	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3164	justInTimeCompilation := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3165	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3166	justInTimeCompilation onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3167	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3168	^ justInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3169	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3170
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	3171	stringsAreImmutable
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	3172
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	3173	immutableStrings isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3174	immutableStrings := ParserFlags arraysAreImmutable asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3175	immutableStrings onChangeSend:#updateModifiedChannel to:self.
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	3176	].
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	3177	^ immutableStrings.
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	3178	!
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	3179
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	3180	warnAboutBadComments
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	3181	warnAboutBadComments isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3182	warnAboutBadComments := ParserFlags warnAboutBadComments asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3183	warnAboutBadComments onChangeSend:#updateModifiedChannel to:self.
6497 a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	3184	].
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	3185	^ warnAboutBadComments.
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	3186	!
a6ce72191637 * empty log message * Claus Gittinger <cg@exept.de> parents: 6473 diff changeset	3187
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3188	warnAboutMissingMethodComment
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3189
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3190	warnAboutMissingMethodComment isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3191	warnAboutMissingMethodComment := UserPreferences current enforceComment asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3192	warnAboutMissingMethodComment onChangeSend:#updateModifiedChannel to:self.
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3193	].
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3194	^ warnAboutMissingMethodComment.
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3195
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3196	"Created: / 17-07-2010 / 14:39:25 / cg"
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3197	!
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3198
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3199	warnAboutNonLowercaseLocalVariableNames
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3200	warnAboutNonLowercaseLocalVariableNames isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3201	warnAboutNonLowercaseLocalVariableNames := ParserFlags warnAboutNonLowercaseLocalVariableNames asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3202	warnAboutNonLowercaseLocalVariableNames onChangeSend:#updateModifiedChannel to:self.
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3203	].
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3204	^ warnAboutNonLowercaseLocalVariableNames.
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3205
dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3206	"Modified: / 22-10-2006 / 02:30:57 / cg"
6769 4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	3207	!
4decf38c7feb * empty log message * Claus Gittinger <cg@exept.de> parents: 6757 diff changeset	3208
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3209	warnAboutPossibleSTCCompilationProblems
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3210
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3211	warnAboutPossibleSTCCompilationProblems isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3212	warnAboutPossibleSTCCompilationProblems := ParserFlags warnAboutPossibleSTCCompilationProblems asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3213	warnAboutPossibleSTCCompilationProblems onChangeSend:#updateModifiedChannel to:self.
7532 835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3214	].
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3215	^ warnAboutPossibleSTCCompilationProblems.
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3216
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3217	"Created: / 20-11-2006 / 22:41:07 / cg"
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3218	!
835f10dd0df3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7513 diff changeset	3219
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3220	warnAboutPossiblyUnimplementedSelectors
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3221
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3222	warnAboutPossiblyUnimplementedSelectors isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3223	warnAboutPossiblyUnimplementedSelectors := ParserFlags warnAboutPossiblyUnimplementedSelectors asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3224	warnAboutPossiblyUnimplementedSelectors onChangeSend:#updateModifiedChannel to:self.
8376 63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3225	].
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3226	^ warnAboutPossiblyUnimplementedSelectors.
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3227
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3228	"Created: / 20-11-2006 / 22:41:07 / cg"
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3229	!
63af71109312 turn on/off selector warnings Claus Gittinger <cg@exept.de> parents: 8356 diff changeset	3230
18744 31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3231	warnAboutPossiblyUninitializedLocals
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3232
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3233	warnAboutPossiblyUninitializedLocals isNil ifTrue:[
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3234	warnAboutPossiblyUninitializedLocals := ParserFlags warnAboutPossiblyUninitializedLocals asValue.
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3235	warnAboutPossiblyUninitializedLocals onChangeSend:#updateModifiedChannel to:self.
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3236	].
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3237	^ warnAboutPossiblyUninitializedLocals.
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3238
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3239	"Created: / 23-04-2019 / 23:16:25 / Claus Gittinger"
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3240	!
31b4abe6811b #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18743 diff changeset	3241
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3242	warnAboutReferenceToPrivateClass
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3243	warnAboutReferenceToPrivateClass isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3244	warnAboutReferenceToPrivateClass := ParserFlags warnAboutReferenceToPrivateClass asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3245	warnAboutReferenceToPrivateClass onChangeSend:#updateModifiedChannel to:self.
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3246	].
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3247	^ warnAboutReferenceToPrivateClass.
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3248	!
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	3249
8009 f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	3250	warnAboutShortLocalVariableNames
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	3251	warnAboutShortLocalVariableNames isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3252	warnAboutShortLocalVariableNames := ParserFlags warnAboutShortLocalVariableNames asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3253	warnAboutShortLocalVariableNames onChangeSend:#updateModifiedChannel to:self.
8009 f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	3254	].
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	3255	^ warnAboutShortLocalVariableNames.
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	3256	!
f8f508ce1dbb +warnAboutShortVariableNames Claus Gittinger <cg@exept.de> parents: 8007 diff changeset	3257
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	3258	warnAboutWrongVariableNames
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	3259	warnAboutWrongVariableNames isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3260	warnAboutWrongVariableNames := ParserFlags warnAboutWrongVariableNames asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3261	warnAboutWrongVariableNames onChangeSend:#updateModifiedChannel to:self.
6473 d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	3262	].
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	3263	^ warnAboutWrongVariableNames.
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	3264	!
d6f4af4e7277 * empty log message * Claus Gittinger <cg@exept.de> parents: 6444 diff changeset	3265
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3266	warnCommonMistakes
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3267
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3268	warnCommonMistakes isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3269	warnCommonMistakes := ParserFlags warnCommonMistakes asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3270	warnCommonMistakes onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3271	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3272	^ warnCommonMistakes.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3273	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3274
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3275	warnDollarInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3276
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3277	warnDollar isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3278	warnDollar := ParserFlags warnDollarInIdentifier asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3279	warnDollar onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3280	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3281	^ warnDollar.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3282	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3283
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	3284	warnInconsistentReturnValues
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	3285	warnInconsistentReturnValues isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3286	warnInconsistentReturnValues := ParserFlags warnInconsistentReturnValues asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3287	warnInconsistentReturnValues onChangeSend:#updateModifiedChannel to:self.
6580 db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	3288	].
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	3289	^ warnInconsistentReturnValues.
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	3290	!
db726b209298 * empty log message * Claus Gittinger <cg@exept.de> parents: 6578 diff changeset	3291
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3292	warnOldStyleAssignment
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3293
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3294	warnOldStyle isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3295	warnOldStyle := ParserFlags warnOldStyleAssignment asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3296	warnOldStyle onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3297	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3298	^ warnOldStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3299	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3300
11155 00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3301	warnPlausibilityChecks
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3302
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3303	warnPlausibilityChecks isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3304	warnPlausibilityChecks := ParserFlags warnPlausibilityChecks asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3305	warnPlausibilityChecks onChangeSend:#updateModifiedChannel to:self.
11155 00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3306	].
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3307	^ warnPlausibilityChecks.
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3308
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3309	"Created: / 19-01-2012 / 10:57:29 / cg"
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3310	!
00c0dfb84c91 warnPlausibilityChecks in compiler settings Claus Gittinger <cg@exept.de> parents: 11005 diff changeset	3311
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3312	warnPossibleIncompatibilities
7925 cabd467a8b04 comment Claus Gittinger <cg@exept.de> parents: 7906 diff changeset	3313	"holds true, if possible incompatibilities (with other ST systems)
cabd467a8b04 comment Claus Gittinger <cg@exept.de> parents: 7906 diff changeset	3314	are to be warned about"
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3315
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3316	warnCompatibility isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3317	warnCompatibility := ParserFlags warnPossibleIncompatibilities asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3318	warnCompatibility onChangeSend:#updateModifiedChannel to:self.
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3319	].
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3320	^ warnCompatibility.
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
823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3323	warnSTXSpecials
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3324
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3325	warnSTX isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3326	warnSTX := ParserFlags warnSTXSpecials asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3327	warnSTX onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3328	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3329	^ warnSTX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3330	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3331
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3332	warnUnderscoreInIdentifier
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3333
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3334	warnUnderscore isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3335	warnUnderscore := ParserFlags warnUnderscoreInIdentifier asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3336	warnUnderscore onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3337	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3338	^ warnUnderscore.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3339	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3340
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3341	warnUnusedVars
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3342
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3343	warnUnusedVars isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3344	warnUnusedVars := ParserFlags warnUnusedVars asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3345	warnUnusedVars onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3346	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3347	^ warnUnusedVars.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3348	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3349
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3350	warnings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3351
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3352	warnings isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3353	warnings := ParserFlags warnings asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3354	warnings addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3355	warnings changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3356	warnings onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3357	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3358	^ warnings.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3359	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3360
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3361	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3362
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3363	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3364	changedObject == self warnings ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3365	changedObject value ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3366	self enableUnderscore value:self allowUnderscoreInIdentifier value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3367	self enableDollar value:self allowDollarInIdentifier value.
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3368	self enableParagraph value:self allowParagraphInIdentifier value.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3369	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3370	self enableUnderscore value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3371	self enableDollar value:false.
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3372	self enableParagraph value:false.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3373	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3374	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3375	].
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3376	(changedObject == self allowDollarInIdentifier
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3377	or:[changedObject == self allowParagraphInIdentifier
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3378	or:[changedObject == self allowUnderscoreInIdentifier]]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3379	self warnings changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3380	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3381	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3382
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3383	super update:something with:aParameter from:changedObject
17073 12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3384
12f22842783f #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17057 diff changeset	3385	"Modified: / 16-11-2016 / 22:39:32 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3386	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3387
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3388	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3389
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3390	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3391	^ 'Launcher/compilerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3392	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	3393
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	3394	!AbstractSettingsApplication::ByteCodeCompilerSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3395
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3396	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	3397	(self
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3398	hasChangedAspectIn:(self simpleAspects)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3399	asComparedTo:ParserFlags) ifTrue:[^ true].
6778 823c6c4a0d48 hasUnsavedChanges code cleanup Claus Gittinger <cg@exept.de> parents: 6769 diff changeset	3400
11814 ffce903c0a2f lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 11774 diff changeset	3401	((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	3402	((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	3403	((ObjectMemory justInTimeCompilation ? false) ~= self justInTimeCompilation value) ifTrue:[^ true].
9522 4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3404
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3405	(UserPreferences current enforceComment ~= self warnAboutMissingMethodComment value) ifTrue:[^ true].
4b854ac4dcf3 warn if method comment missing Claus Gittinger <cg@exept.de> parents: 9497 diff changeset	3406
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	3407	^ false
7440 dd060c4f1071 * empty log message * Claus Gittinger <cg@exept.de> parents: 7430 diff changeset	3408
11814 ffce903c0a2f lineNumberInfo moved from parser to parserflags Claus Gittinger <cg@exept.de> parents: 11774 diff changeset	3409	"Modified: / 26-09-2012 / 14:16:14 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3410	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3411
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3412	supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3413
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3414	^ ObjectMemory supportsJustInTimeCompilation
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3415	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	3416
17283 ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3417	!AbstractSettingsApplication::ChangeFileSettingsAppl class methodsFor:'documentation'!
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3418
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3419	documentation
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3420	"
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3421	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	3422	"
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3423	! !
ccb8a7c686a7 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17212 diff changeset	3424
14376 4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3425	!AbstractSettingsApplication::ChangeFileSettingsAppl class methodsFor:'help specs'!
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3426
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	3427	helpSpec
14376 4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3428	"This resource specification was automatically generated
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3429	by the UIHelpTool of ST/X."
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3430
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3431	"Do not manually edit this!! If it is corrupted,
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3432	the UIHelpTool may not be able to read the specification."
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3433
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3434	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3435	UIHelpTool openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl
14376 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
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3438	<resource: #help>
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3439
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	3440	^ super helpSpec addPairsFrom:#(
14376 4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3441
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3442	#changeFileName
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3443	'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	3444
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3445	#logDoits
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3446	'Also record doIt evaluations in the change file'
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3447
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3448	#updChanges
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3449	'Record code changes (classes and methods) in the change file'
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	! !
4b5dd4fbe573 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14374 diff changeset	3453
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3454	!AbstractSettingsApplication::ChangeFileSettingsAppl class methodsFor:'image specs'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3455
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3456	defaultIcon
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3457	"This resource specification was automatically generated
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3458	by the ImageEditor of ST/X."
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3459
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3460	"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	3461	the ImageEditor may not be able to read the specification."
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3462
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3463	"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3464	self defaultIcon inspect
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3465	ImageEditor openOnClass:self andSelector:#defaultIcon
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3466	Icon flushCachedIcons
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
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3469	<resource: #image>
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3470
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3471	^Icon
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3472	constantNamed:'AbstractSettingsApplication::ChangeFileSettingsAppl defaultIcon'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3473	ifAbsentPut:[(Depth4Image new) width:22; height:22; bits:(ByteArray fromPackedString:'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3474	@@@@@@@@@@@@@@@ADQDQDQDQDQD @@DTQDQDQDQDQBD@@QP3MDQDQDQDHP@AECQDQDQDQDP!!@@DTMDQDQDQDQBD@@QP3MDP3QDQDHP@AEDQDP3L4QDP!!@@DT
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3475	QDP3QCMDQBD@@QQDP3QDP3QDHP@AEDP3QDQDL4P!!@@DTP3QDQDQCMBD@@QQCL3L3L3L4@P@AEDDQDQDQDQPA@@DTQDQDQDQDQ@D@@QP3MDQDQDQD@P@AEDP4
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3476	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	3477	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3478
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3479	!AbstractSettingsApplication::ChangeFileSettingsAppl class methodsFor:'interface specs'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3480
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3481	windowSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3482	"This resource specification was automatically generated
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3483	by the UIPainter of ST/X."
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3484
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3485	"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	3486	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	3487
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3488	"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3489	UIPainter new openOnClass:AbstractSettingsApplication::ChangeFileSettingsAppl andSelector:#windowSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3490	AbstractSettingsApplication::ChangeFileSettingsAppl new openInterface:#windowSpec
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3491	AbstractSettingsApplication::ChangeFileSettingsAppl open
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
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3494	<resource: #canvas>
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3495
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3496	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3497	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3498	name: windowSpec
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3499	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3500	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3501	label: 'Changes Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3502	name: 'Changes Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3503	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3504	bounds: (Rectangle 0 0 561 478)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3505	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3506	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3507	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3508	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3509	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3510	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3511	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	3512	horizontalLayout: fitSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3513	verticalLayout: topSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3514	horizontalSpace: 5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3515	verticalSpace: 5
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3516	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3517	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3518	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3519	(FramedBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3520	label: 'Change File'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3521	name: 'FramedBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3522	labelPosition: topLeft
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3523	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3524	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3525	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3526	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3527	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3528	label: 'Log changed classes and methods in the Changefile'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3529	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3530	layout: (LayoutFrame 5 0 5 0 -5 1 35 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3531	activeHelpKey: updChanges
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3532	model: updChanges
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3533	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3534	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3535	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3536	label: 'Log doIts in the Changefile'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3537	name: 'CheckBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3538	layout: (LayoutFrame 5 0 35 0 -5 1 65 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3539	activeHelpKey: logDoits
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3540	model: logDoits
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3541	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3542	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3543	(ViewSpec
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3544	name: 'Box1'
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3545	layout: (LayoutFrame 5 0 73 0 -5 1 105 0)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3546	component:
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3547	(SpecCollection
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3548	collection: (
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3549	(LabelSpec
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3550	label: 'Changefile Name:'
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3551	name: 'ChangefileNameLabel'
17320 84917de97b41 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17283 diff changeset	3552	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	3553	activeHelpKey: changeFileName
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3554	translateLabel: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3555	adjust: right
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3556	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3557	(FilenameInputFieldSpec
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3558	name: 'FilenameEntryField1'
17320 84917de97b41 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17283 diff changeset	3559	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	3560	activeHelpKey: changeFileName
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3561	model: changeFileName
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3562	immediateAccept: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3563	acceptOnReturn: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3564	acceptOnTab: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3565	acceptOnLostFocus: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3566	acceptOnPointerLeave: true
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	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3575	extent: (Point 551 147)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3576	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3577	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3578
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3579	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3580	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3581	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	3582
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3583	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3584	)
9610 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
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3587	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'actions'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3588
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3589	basicReadSettings
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3590	self changeFileName value:(currentUserPrefs changeFileName
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3591	? ObjectMemory nameForChanges).
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3592	self logDoits value:Smalltalk logDoits.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3593	self updChanges value:Class updatingChanges.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3594
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3595	"Modified: / 27-10-2010 / 10:16:48 / cg"
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
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3598	basicSaveSettings
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3599	\|chgFile\|
26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3600
26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3601	chgFile := self changeFileName value.
15010 21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3602	chgFile := chgFile asNilIfEmpty.
14379 8e683325f9ac class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14377 diff changeset	3603	currentUserPrefs changeFileName isNil ifTrue:[
15010 21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3604	"/ had the default
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3605	chgFile = ObjectMemory nameForChanges ifFalse:[
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3606	ObjectMemory nameForChanges:chgFile.
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3607	currentUserPrefs changeFileName:chgFile
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3608	]
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3609	] ifFalse:[
15010 21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3610	"/ had a value before
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3611	chgFile = currentUserPrefs changeFileName ifFalse:[
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3612	ObjectMemory nameForChanges:chgFile.
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3613	currentUserPrefs changeFileName:chgFile
21fb047d5098 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15001 diff changeset	3614	].
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3615	].
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3616	Smalltalk logDoits:self logDoits value.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3617	Class updateChanges:self updChanges value.
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3618
9754 d237d1faea20 format Claus Gittinger <cg@exept.de> parents: 9739 diff changeset	3619	"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	3620	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3621
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3622	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'aspects'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3623
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3624	changeFileName
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3625	changeFileName isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3626	changeFileName := ObjectMemory nameForChanges asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3627	changeFileName onChangeSend:#updateModifiedChannel to:self
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3628	].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3629	^ changeFileName.
10904 6c29ee8850bc x Claus Gittinger <cg@exept.de> parents: 10903 diff changeset	3630
6c29ee8850bc x Claus Gittinger <cg@exept.de> parents: 10903 diff changeset	3631	"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	3632	!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3633
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3634	logDoits
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3635	logDoits isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3636	logDoits := Smalltalk logDoits asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3637	logDoits onChangeSend:#updateModifiedChannel to:self
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3638	].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3639	^ logDoits.
10904 6c29ee8850bc x Claus Gittinger <cg@exept.de> parents: 10903 diff changeset	3640
6c29ee8850bc x Claus Gittinger <cg@exept.de> parents: 10903 diff changeset	3641	"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	3642	!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3643
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3644	updChanges
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3645	updChanges isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3646	updChanges := Class updatingChanges asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3647	updChanges onChangeSend:#updateModifiedChannel to:self
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3648	].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3649	^ updChanges.
10904 6c29ee8850bc x Claus Gittinger <cg@exept.de> parents: 10903 diff changeset	3650
6c29ee8850bc x Claus Gittinger <cg@exept.de> parents: 10903 diff changeset	3651	"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	3652	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3653
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3654	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'help'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3655
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3656	helpFilename
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3657	^ 'Launcher/messageSettings.html'
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
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3660	!AbstractSettingsApplication::ChangeFileSettingsAppl methodsFor:'queries'!
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3661
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3662	hasUnsavedChanges
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3663	self logDoits value ~= Smalltalk logDoits ifTrue:[^ true].
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3664	self updChanges value ~= Class updatingChanges ifTrue:[^ true].
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3665	currentUserPrefs changeFileName isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3666	self changeFileName value ~= ObjectMemory nameForChanges ifTrue:[^ true].
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3667	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3668	self changeFileName value ~= currentUserPrefs changeFileName ifTrue:[^ true].
14374 26c99f34324b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14373 diff changeset	3669	].
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3670	^ false
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3671
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3672	"Modified: / 27-10-2010 / 10:17:21 / cg"
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3673	! !
64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	3674
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3675	!AbstractSettingsApplication::CodeGeneratorSettingsAppl class methodsFor:'image specs'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3676
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3677	defaultIcon
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3678	"This resource specification was automatically generated
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3679	by the ImageEditor of ST/X."
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3680
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3681	"Do not manually edit this!! If it is corrupted,
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3682	the ImageEditor may not be able to read the specification."
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3683
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3684	"
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3685	self defaultIcon inspect
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3686	ImageEditor openOnClass:self andSelector:#defaultIcon
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3687	Icon flushCachedIcons
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
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3690	<resource: #image>
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3691
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3692	^Icon
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3693	constantNamed:'AbstractSettingsApplication::CodeGeneratorSettingsAppl defaultIcon'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3694	ifAbsentPut:[(Depth4Image new) width:22; height:22; bits:(ByteArray fromPackedString:'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	3695	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	3696	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	3697	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	3698	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3699
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3700	!AbstractSettingsApplication::CodeGeneratorSettingsAppl class methodsFor:'interface specs'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3701
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3702	windowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3703	"This resource specification was automatically generated
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3704	by the UIPainter of ST/X."
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3705
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3706	"Do not manually edit this!! If it is corrupted,
18816 fb0039d3d3b3 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18763 diff changeset	3707	the UIPainter may not be able to read the specification."
9187 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	"
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3710	UIPainter new openOnClass:AbstractSettingsApplication::CodeGeneratorSettingsAppl andSelector:#windowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3711	AbstractSettingsApplication::CodeGeneratorSettingsAppl new openInterface:#windowSpec
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3712	AbstractSettingsApplication::CodeGeneratorSettingsAppl open
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3713	"
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3714
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3715	<resource: #canvas>
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3716
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3717	^
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	3718	#(FullSpec
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	3719	name: windowSpec
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3720	window:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	3721	(WindowSpec
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	3722	label: 'Code Generator Settings'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	3723	name: 'Code Generator Settings'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3724	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3725	bounds: (Rectangle 0 0 607 786)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3726	)
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3727	component:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	3728	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3729	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3730	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3731	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3732	layout: (LayoutFrame 0 0.0 0 0 0 1.0 342 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3733	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3734	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3735	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3736	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3737	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3738	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3739	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3740	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3741	label: 'Generate Comments'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3742	name: 'GenerateComments'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3743	activeHelpKey: generateComments
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3744	model: generateComments
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3745	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3746	extent: (Point 607 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3747	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3748	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3749	label: 'Generate Comments in Getters'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3750	name: 'GenerateCommentsInGetters'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3751	activeHelpKey: generateCommentsInGetters
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3752	enableChannel: generateComments
18816 fb0039d3d3b3 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18763 diff changeset	3753	model: generateCommentsForGetters
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3754	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3755	extent: (Point 607 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3756	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3757	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3758	label: 'Generate Comments in Setters'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3759	name: 'GenerateCommentsInSetters'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3760	activeHelpKey: generateCommentsInSetters
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3761	enableChannel: generateComments
18816 fb0039d3d3b3 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18763 diff changeset	3762	model: generateCommentsForSetters
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3763	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3764	extent: (Point 607 30)
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	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3770	)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3771
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	3772	)
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	3773	)
18816 fb0039d3d3b3 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18763 diff changeset	3774
fb0039d3d3b3 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18763 diff changeset	3775	"Modified: / 07-06-2019 / 16:00:21 / Stefan Vogel"
9187 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
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3778	!AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'aspects'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3779
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	3780	aspects
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3781	^ #(
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	3782	generateComments
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	3783	generateCommentsForGetters
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	3784	generateCommentsForSetters
9187 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
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3788	generateComments
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3789	generateComments isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3790	generateComments := UserPreferences current generateComments asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3791	generateComments onChangeSend:#updateModifiedChannel to:self
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3792	].
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3793	^ generateComments.
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
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3796	generateCommentsForGetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3797	generateCommentsForGetters isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3798	generateCommentsForGetters := UserPreferences current generateCommentsForGetters asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3799	generateCommentsForGetters onChangeSend:#updateModifiedChannel to:self
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3800	].
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3801	^ generateCommentsForGetters.
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
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3804	generateCommentsForSetters
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3805	generateCommentsForSetters isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3806	generateCommentsForSetters := UserPreferences current generateCommentsForSetters asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3807	generateCommentsForSetters onChangeSend:#updateModifiedChannel to:self
9187 fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3808	].
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3809	^ generateCommentsForSetters.
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
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3812	!AbstractSettingsApplication::CodeGeneratorSettingsAppl methodsFor:'help'!
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3813
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3814	helpFilename
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3815	^ 'Launcher/codeGeneratorSettings.html'
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3816	! !
fd78cc38b8b8 comment settings Claus Gittinger <cg@exept.de> parents: 9185 diff changeset	3817
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3818	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl class methodsFor:'help specs'!
18143 016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3819
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3820	helpSpec
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3821	"This resource specification was automatically generated
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3822	by the UIHelpTool of ST/X."
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3823
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3824	"Do not manually edit this!! If it is corrupted,
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3825	the UIHelpTool may not be able to read the specification."
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3826
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3827	"
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3828	UIHelpTool openOnClass:AbstractSettingsApplication::CommunicationLoggingSettingsAppl
18143 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
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3831	<resource: #help>
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3832
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3833	^ super helpSpec addPairsFrom:#(
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3834
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3835	#logExecutedOSCommands
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3836	'Display executed OS commands on the Transcript'
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3837
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3838	#logHTTPRequests
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3839	'Display outgoing HTTP request on the Transcript'
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3840
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3841	#logNetCommunications
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3842	'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	3843
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3844	#logSOAPRequests
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3845	'Display outgoing SOAP request on the Transcript'
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3846
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3847	#logSSLCommunications
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3848	'Display SSL traces (from the ssl package, if loaded)'
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3849
18143 016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3850	)
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3851
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3852	"Modified: / 19-07-2019 / 09:12:17 / Claus Gittinger"
18143 016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3853	! !
016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3854
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3855	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl class methodsFor:'image specs'!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3856
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3857	defaultIcon
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3858	<resource: #programImage>
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3859
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3860	^ self defaultIcon2
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3861	!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3862
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3863	defaultIcon1
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3864	"This resource specification was automatically generated
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3865	by the ImageEditor of ST/X."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3866
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3867	"Do not manually edit this!! If it is corrupted,
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3868	the ImageEditor may not be able to read the specification."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3869
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3870	"
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	3871	self defaultIcon1 inspect
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	3872	ImageEditor openOnClass:self andSelector:#defaultIcon1
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3873	Icon flushCachedIcons
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
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3876	<resource: #image>
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3877
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3878	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	3879	constantNamed:'AbstractSettingsApplication::CommunicationLoggingSettingsAppl defaultIcon1'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	3880	ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	3881	@@@@@@@@@@@@@@@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	3882	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	3883	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	3884	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	3885	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	3886	!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3887
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3888	defaultIcon2
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3889	"This resource specification was automatically generated
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3890	by the ImageEditor of ST/X."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3891
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3892	"Do not manually edit this!! If it is corrupted,
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3893	the ImageEditor may not be able to read the specification."
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	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3896	self defaultIcon2 inspect
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3897	ImageEditor openOnClass:self andSelector:#defaultIcon2
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3898	Icon flushCachedIcons
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
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3901	<resource: #image>
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3902
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3903	^Icon
15762 852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	3904	constantNamed:'AbstractSettingsApplication::CommunicationLoggingSettingsAppl defaultIcon2'
852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	3905	ifAbsentPut:[(Depth8Image width:17 height:22) bits:(ByteArray fromPackedString:'
9278 f72863183d67 * empty log message * Claus Gittinger <cg@exept.de> parents: 9277 diff changeset	3906	@@@@@@@@@@@@@@@@@@@@@@@@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	3907	@ 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	3908	@ (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	3909	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	3910	@@@@@@@@@@@@@@@@@@@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	3911	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3912
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3913	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl class methodsFor:'interface specs'!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3914
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3915	windowSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3916	"This resource specification was automatically generated
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3917	by the UIPainter of ST/X."
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3918
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3919	"Do not manually edit this!! If it is corrupted,
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3920	the UIPainter may not be able to read the specification."
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	"
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3923	UIPainter new openOnClass:AbstractSettingsApplication::CommunicationLoggingSettingsAppl andSelector:#windowSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3924	AbstractSettingsApplication::CommunicationLoggingSettingsAppl new openInterface:#windowSpec
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3925	AbstractSettingsApplication::CommunicationLoggingSettingsAppl open
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
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3928	<resource: #canvas>
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	3929
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3930	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3931	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3932	name: windowSpec
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3933	uuid: 'a524bbb0-a9f3-11e9-8c78-b8f6b1108e05'
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3934	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3935	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3936	label: 'Com-Logging settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3937	name: 'Com-Logging settings'
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3938	uuid: 'a524bdf4-a9f3-11e9-8c78-b8f6b1108e05'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3939	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3940	bounds: (Rectangle 0 0 445 401)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	3941	)
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3942	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	3943	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3944	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3945	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3946	name: 'VerticalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3947	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3948	uuid: 'a524c01a-a9f3-11e9-8c78-b8f6b1108e05'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3949	horizontalLayout: fitSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3950	verticalLayout: topSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3951	horizontalSpace: 5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3952	verticalSpace: 3
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3953	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3954	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3955	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3956	(CheckBoxSpec
18124 28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3957	label: 'Log Executed OS Commands'
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3958	name: 'LogExecutedOSCommands'
18129 41ca9a5605a1 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18124 diff changeset	3959	activeHelpKey: logExecutedOSCommands
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3960	uuid: 'a524c18c-a9f3-11e9-8c78-b8f6b1108e05'
18129 41ca9a5605a1 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 18124 diff changeset	3961	model: logExecutedOSCommands
18124 28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3962	translateLabel: true
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3963	extent: (Point 435 34)
18124 28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3964	)
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	3965	(CheckBoxSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3966	label: 'Log Outgoing HTTP Requests on Transcript'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3967	name: 'LogHTTPRequests'
18143 016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3968	activeHelpKey: logHTTPRequests
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3969	uuid: 'a524c2e0-a9f3-11e9-8c78-b8f6b1108e05'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3970	model: logHTTPRequests
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3971	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3972	extent: (Point 435 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3973	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3974	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3975	label: 'Log Outgoing SOAP Requests on Transcript'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3976	name: 'LogSOAPRequests'
18143 016a788c0ec3 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18129 diff changeset	3977	activeHelpKey: logSOAPRequests
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3978	uuid: 'a524c3bc-a9f3-11e9-8c78-b8f6b1108e05'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3979	model: logSOAPRequests
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3980	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3981	extent: (Point 435 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	3982	)
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3983	(CheckBoxSpec
18208 1c027c9eb9de #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18207 diff changeset	3984	label: 'Log IMAP and POP3 Communication Protocols'
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3985	name: 'LogNetCommunications'
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3986	activeHelpKey: logNetCommunications
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3987	uuid: 'a524c48e-a9f3-11e9-8c78-b8f6b1108e05'
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3988	model: logNetCommunications
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3989	translateLabel: true
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3990	extent: (Point 435 30)
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	3991	)
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3992	(CheckBoxSpec
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3993	label: 'Log SSL Communication Protocols'
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3994	name: 'CheckBox1'
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3995	activeHelpKey: logSSLCommunications
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3996	uuid: 'a524c556-a9f3-11e9-8c78-b8f6b1108e05'
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3997	enableChannel: hasSSLPackageLoaded
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3998	model: logSSLCommunications
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	3999	translateLabel: true
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4000	extent: (Point 435 30)
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4001	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4002	)
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4003
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4004	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4005	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4006	)
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4007
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4008	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4009	)
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4010	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4011
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4012	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl methodsFor:'aspects'!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4013
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4014	aspects
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4015	^ #(
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4016	logHTTPRequests
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4017	logSOAPRequests
18124 28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	4018	logExecutedOSCommands
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4019	logNetCommunications
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4020	logSSLCommunications
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4021	)
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4022
18930 d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4023	"Modified: / 19-07-2019 / 09:09:25 / Claus Gittinger"
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
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4026	hasSSLPackageLoaded
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4027	^ (Smalltalk at:#'SSL::SSLSocket') notNil
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4028
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4029	"Created: / 19-07-2019 / 09:08:13 / Claus Gittinger"
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4030	!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4031
18124 28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	4032	logExecutedOSCommands
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	4033	logExecutedOSCommands isNil ifTrue:[
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	4034	logExecutedOSCommands := false asValue.
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	4035	logExecutedOSCommands onChangeSend:#updateModifiedChannel to:self
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	4036	].
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	4037	^ logExecutedOSCommands.
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	4038	!
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	4039
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4040	logHTTPRequests
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4041	logHTTPRequests isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4042	logHTTPRequests := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4043	logHTTPRequests onChangeSend:#updateModifiedChannel to:self
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4044	].
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4045	^ logHTTPRequests.
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4046	!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4047
18207 e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4048	logNetCommunications
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4049	logNetCommunications isNil ifTrue:[
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4050	logNetCommunications := false asValue.
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4051	logNetCommunications onChangeSend:#updateModifiedChannel to:self
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4052	].
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4053	^ logNetCommunications.
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4054
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4055	"Created: / 13-06-2018 / 17:27:50 / Claus Gittinger"
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4056	!
e789c15130ce #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18189 diff changeset	4057
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4058	logSOAPRequests
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4059	logSOAPRequests isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4060	logSOAPRequests := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4061	logSOAPRequests onChangeSend:#updateModifiedChannel to:self
9277 c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4062	].
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4063	^ logSOAPRequests.
18930 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
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4066	logSSLCommunications
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4067	logSSLCommunications isNil ifTrue:[
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4068	logSSLCommunications := false asValue.
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4069	logSSLCommunications onChangeSend:#updateModifiedChannel to:self
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4070	].
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4071	^ logSSLCommunications.
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4072
d43703fad00c #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18925 diff changeset	4073	"Created: / 19-07-2019 / 09:08:57 / Claus Gittinger"
9277 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
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4076	!AbstractSettingsApplication::CommunicationLoggingSettingsAppl methodsFor:'help'!
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4077
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4078	helpFilename
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4079	^ 'Launcher/comLoggingSettings.html'
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4080	! !
c0d2adc85051 * empty log message * Claus Gittinger <cg@exept.de> parents: 9272 diff changeset	4081
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4082	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'help specs'!
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4083
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	4084	helpSpec
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4085	"This resource specification was automatically generated
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4086	by the UIHelpTool of ST/X."
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4087
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4088	"Do not manually edit this!! If it is corrupted,
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4089	the UIHelpTool may not be able to read the specification."
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4090
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4091	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4092	UIHelpTool openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl
12970 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
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4095	<resource: #help>
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4096
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	4097	^ super helpSpec addPairsFrom:#(
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4098
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4099	#allowSendingMail
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4100	'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	4101
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4102	#hideSupportCode
17524 b222453334cc #DOCUMENTATION by mawalch mawalch parents: 17514 diff changeset	4103	'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	4104
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4105	#showErrorNotifier
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4106	'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	4107
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4108	#showVerboseStack
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4109	'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	4110
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4111	#useNewLayout
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4112	'Use the new button layout with step/next buttons in the middle'
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4113
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4114	)
17524 b222453334cc #DOCUMENTATION by mawalch mawalch parents: 17514 diff changeset	4115
b222453334cc #DOCUMENTATION by mawalch mawalch parents: 17514 diff changeset	4116	"Modified: / 01-06-2017 / 14:12:51 / mawalch"
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4117	! !
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	4118
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4119	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4120
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4121	defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4122	<resource: #programImage>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4123
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4124	^ ToolbarIconLibrary bugReporter24x24Icon
4398 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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4127	!AbstractSettingsApplication::DebuggerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4128
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4129	windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4130	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4131	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4132
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4133	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4134	the UIPainter may not be able to read the specification."
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	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4137	UIPainter new openOnClass:AbstractSettingsApplication::DebuggerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4138	AbstractSettingsApplication::DebuggerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4139	AbstractSettingsApplication::DebuggerSettingsAppl open
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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4142	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4143
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4144	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4145	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4146	name: windowSpec
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4147	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4148	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4149	label: 'Debugger Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4150	name: 'Debugger Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4151	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4152	bounds: (Rectangle 0 0 600 320)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4153	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4154	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4155	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4156	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4157	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4158	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4159	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	4160	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4161	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4162	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4163	verticalSpace: 0
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4164	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4165	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4166	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4167	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4168	name: 'ShowErrorNotifierBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4169	activeHelpKey: showErrorNotifier
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4170	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4171	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4172	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4173	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4174	label: 'Show Error Notifier before Opening Debugger'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4175	name: 'ShowErrorNotifierCheckBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4176	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4177	activeHelpKey: showErrorNotifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4178	model: showErrorNotifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4179	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4180	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4181	)
16317 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	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4184	extent: (Point 600 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4185	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4186	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4187	name: 'UseNewLayoutInDebuggerBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4188	activeHelpKey: useNewLayout
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4189	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4190	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4191	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4192	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4193	label: 'Use New Layout'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4194	name: 'UseNewLayoutInDebuggerCheckBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4195	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4196	activeHelpKey: useNewLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4197	model: useNewLayoutInDebugger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4198	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4199	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4200	)
16317 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	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4203	extent: (Point 600 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4204	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4205	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4206	name: 'ShowVerboseStackBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4207	activeHelpKey: showVerboseStack
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4208	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4209	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4210	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4211	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4212	label: 'Verbose Backtrace by Default in Debugger'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4213	name: 'ShowVerboseStackCheckBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4214	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4215	activeHelpKey: showVerboseStack
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4216	model: verboseBacktraceInDebugger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4217	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4218	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4219	)
16317 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	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4222	extent: (Point 600 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4223	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4224	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4225	name: 'HideEnumerationCodeBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4226	activeHelpKey: hideSupportCode
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4227	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4228	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4229	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4230	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4231	label: 'Hide Support Code (Implementation of Enumerations, Exceptions, etc.)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4232	name: 'CheckBox1'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4233	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4234	activeHelpKey: hideSupportCode
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4235	model: hideSupportCodeInDebugger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4236	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4237	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4238	)
16317 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	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4241	extent: (Point 600 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4242	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4243	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4244	name: 'AllowSendingMailFromDebuggerBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4245	activeHelpKey: allowSendingMail
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4246	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4247	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4248	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4249	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4250	label: 'Allow Sending of Error Reports from Debugger'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4251	name: 'AllowSendingMailFromDebuggerCheckBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4252	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4253	activeHelpKey: allowSendingMail
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4254	model: allowSendMailFromDebugger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4255	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4256	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4257	)
16317 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	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4260	extent: (Point 600 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4261	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4262	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4263
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4264	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4265	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4266	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	4267
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4268	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	4269	)
4398 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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4272	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4273
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4274	basicReadSettings
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4275	self showErrorNotifier value:(NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler).
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4276	super basicReadSettings.
11572 29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4277
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4278	"Modified: / 10-06-2012 / 21:23:24 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4279	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4280
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4281	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4282	self showErrorNotifier value ifFalse:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4283	NoHandlerError emergencyHandler:nil
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4284	] ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4285	NoHandlerError emergencyHandler:(AbstractLauncherApplication notifyingEmergencyHandler)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4286	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4287	super basicSaveSettings.
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4288	Debugger newDebugger.
11572 29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4289
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4290	"Modified: / 10-06-2012 / 21:23:32 / cg"
4398 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
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4293	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4294
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4295	allowSendMailFromDebugger
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4296
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4297	allowSendMailFromDebugger isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4298	allowSendMailFromDebugger := currentUserPrefs allowSendMailFromDebugger asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4299	allowSendMailFromDebugger onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4300	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4301	^ allowSendMailFromDebugger.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4302	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4303
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4304	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4305	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4306	allowSendMailFromDebugger
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4307	verboseBacktraceInDebugger
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4308	hideSupportCodeInDebugger
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4309	useNewLayoutInDebugger
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4310	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4311	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4312
11572 29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4313	hideSupportCodeInDebugger
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4314
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4315	hideSupportCodeInDebugger isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4316	hideSupportCodeInDebugger := (UserPreferences current hideSupportCodeInDebugger ? true) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4317	hideSupportCodeInDebugger onChangeSend:#updateModifiedChannel to:self
11572 29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4318	].
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4319	^ hideSupportCodeInDebugger.
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4320
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4321	"Created: / 10-06-2012 / 21:23:40 / cg"
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4322	!
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4323
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4324	showErrorNotifier
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4325
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4326	showErrorNotifier isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4327	showErrorNotifier := (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4328	showErrorNotifier onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4329	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4330	^ showErrorNotifier.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4331	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4332
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4333	useNewLayoutInDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4334
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4335	useNewLayoutInDebugger isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4336	useNewLayoutInDebugger := (UserPreferences current useNewLayoutInDebugger) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4337	useNewLayoutInDebugger onChangeSend:#updateModifiedChannel to:self
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4338	].
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4339	^ useNewLayoutInDebugger.
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
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4342	verboseBacktraceInDebugger
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4343
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4344	verboseBacktraceInDebugger isNil ifTrue:[
15258 27aafcf5e745 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15166 diff changeset	4345	verboseBacktraceInDebugger := (UserPreferences current verboseBacktraceInDebugger) asValue.
27aafcf5e745 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15166 diff changeset	4346	verboseBacktraceInDebugger onChangeSend:#updateModifiedChannel to:self
8149 d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4347	].
d57d242be2b3 new layout in debugger Claus Gittinger <cg@exept.de> parents: 8145 diff changeset	4348	^ verboseBacktraceInDebugger.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4349	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4350
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4351	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4352
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4353	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4354	^ 'Launcher/debuggerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4355	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	4356
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4357	!AbstractSettingsApplication::DebuggerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4358
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4359	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	4360	self showErrorNotifier value ~= (NoHandlerError emergencyHandler == AbstractLauncherApplication notifyingEmergencyHandler) ifTrue:[^ true].
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	4361	^ super hasUnsavedChanges
11572 29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4362
29a4d0eb6458 x Claus Gittinger <cg@exept.de> parents: 11504 diff changeset	4363	"Modified: / 10-06-2012 / 21:23:54 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4364	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	4365
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4366	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4367
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4368	clipEncodingStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4369
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4370	^ #('untranslated' 'iso8859' 'jis' 'jis7' 'shift-JIS' 'EUC' 'big5')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4371	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4372
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4373	clipEncodingSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4374
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4375	^ #(nil #iso8859 #jis #jis7 #sjis #euc #big5)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4376	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4377
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4378	staticGrayOrGrayScaleDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4379
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4380	^ #('threshold' 'ordered dither' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4381	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4382
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4383	staticGrayOrGrayScaleDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4384
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4385	^ #(threshold ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4386	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4387
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4388	trueColorDitherStrings
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4389
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4390	^ #('nearest color' 'error diffusion')
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4391	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4392
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4393	trueColorDitherSyms
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4394
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4395	^ #(ordered floydSteinberg)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4396	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4397
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4398	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'help specs'!
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4399
18624 46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	4400	helpSpec
16340 326a957fc098 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16338 diff changeset	4401	<resource: #help>
326a957fc098 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16338 diff changeset	4402
18624 46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	4403	^ super helpSpec addPairsFrom:#(
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4404
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4405	#enableVMWareDrawingBugWorkaround
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4406	'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	4407
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4408	)
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4409
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	4410	"Created: / 24-06-2014 / 19:39:38 / cg"
18624 46065301a4e1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18584 diff changeset	4411	"Modified: / 28-02-2019 / 12:51:36 / Claus Gittinger"
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4412	! !
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4413
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4414	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4415
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4416	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4417	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4418
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	4419	^ ToolbarIconLibrary displayScreenIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4420	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	4421
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4422	!AbstractSettingsApplication::DisplaySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4423
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4424	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4425	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4426	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4427
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4428	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4429	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4430
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4431	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	4432	UIPainter new openOnClass:AbstractSettingsApplication::DisplaySettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4433	AbstractSettingsApplication::DisplaySettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	4434	AbstractSettingsApplication::DisplaySettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4435	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4436
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4437	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4438
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4439	^
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4440	#(FullSpec
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4441	name: windowSpec
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4442	window:
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4443	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4444	label: 'Display Screen Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4445	name: 'Display Screen Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4446	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4447	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4448	bounds: (Rectangle 0 0 604 500)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4449	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4450	component:
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4451	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4452	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4453	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4454	label: 'Actual Visible Screen Area:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4455	name: 'ActualVisibleScreenAreaLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4456	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4457	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4458	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4459	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4460	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4461	label: 'Common Sizes:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4462	name: 'CommonSizesLabel'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4463	layout: (LayoutFrame 0 0 39 0 277 0 69 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4464	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4465	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4466	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4467	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4468	label: 'monitor size'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4469	name: 'MonitorSelectionPopUpList'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4470	layout: (LayoutFrame 280 0 39 0 -5 1 69 0)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4471	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4472	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4473	model: monitorSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4474	menu: monitorList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4475	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4476	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4477	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4478	label: 'Screen Size:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4479	name: 'ScreenSizeLabel'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4480	layout: (LayoutFrame 5 0 73 0 277 0 103 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4481	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4482	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4483	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4484	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4485	name: 'SizeXEntryField'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4486	layout: (LayoutFrame 280 0 72 0 347 0 102 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4487	model: sizeX
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4488	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4489	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4490	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4491	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4492	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4493	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4494	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4495	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4496	label: ' x '
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4497	name: 'xLabel'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4498	layout: (LayoutFrame 348 0 72 0 369 0 102 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4499	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4500	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4501	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4502	name: 'SizeYEntryField'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4503	layout: (LayoutFrame 370 0 72 0 437 0 102 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4504	model: sizeY
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4505	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4506	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4507	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4508	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4509	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4510	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4511	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4512	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4513	label: '(mm)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4514	name: 'mmLabel'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4515	layout: (LayoutFrame 439 0 72 0 485 0 102 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4516	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4517	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4518	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4519	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4520	label: 'Limit Usable Area To:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4521	name: 'Label1'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4522	layout: (LayoutFrame 5 0 110 0 277 0 140 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4523	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4524	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4525	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4526	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4527	name: 'EntryField1'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4528	layout: (LayoutFrame 280 0 110 0 347 0 140 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4529	model: usedWidth
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4530	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4531	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4532	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4533	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4534	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4535	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4536	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4537	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4538	label: ' x '
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4539	name: 'Label2'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4540	layout: (LayoutFrame 348 0 110 0 369 0 140 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4541	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4542	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4543	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4544	name: 'EntryField2'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4545	layout: (LayoutFrame 370 0 110 0 437 0 140 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4546	model: usedHeight
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4547	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4548	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4549	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4550	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4551	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4552	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4553	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4554	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4555	label: '(Pixel)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4556	name: 'Label3'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4557	layout: (LayoutFrame 439 0 110 0 507 0 140 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4558	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4559	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4560	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4561	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4562	label: 'Restore'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4563	name: 'Button1'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4564	layout: (AlignmentOrigin 512 0 124 0 0 0.5)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4565	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4566	model: restoreUsableExtent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4567	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4568	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4569	name: 'Separator1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4570	layout: (LayoutFrame 0 0.0 143 0 0 1.0 147 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4571	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4572	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4573	name: 'ScreenDepthVisualLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4574	layout: (LayoutFrame 0 0.0 151 0.0 0 1.0 181 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4575	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4576	labelChannel: screenDepthVisualLabelHolder
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4577	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4578	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4579	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4580	name: 'Separator2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4581	layout: (LayoutFrame 0 0.0 182 0 0 1.0 186 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4582	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4583	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4584	label: 'Color Monitor'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4585	name: 'ColorMonitorCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4586	layout: (LayoutFrame 5 0 193 0 250 0 223 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4587	model: isColorMonitor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4588	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4589	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4590	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4591	label: 'Use Fix Color Palette'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4592	name: 'FixColorPaletteCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4593	layout: (LayoutFrame 5 0 223 0 301 0 253 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4594	enableChannel: visualIsPseudoColor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4595	model: useFixPalette
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4596	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4597	labelChannel: useFixPaletteLabel
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4598	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4599	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4600	label: 'Use Fix Gray Color Palette'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4601	name: 'UseFixGrayPaletteCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4602	layout: (LayoutFrame 5 0 257 0 301 0 287 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4603	enableChannel: visualIsPseudoColor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4604	model: useFixGrayPalette
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4605	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4606	labelChannel: useFixGrayPaletteLabel
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4607	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4608	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4609	label: 'Image Display:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4610	name: 'ImageDisplayLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4611	layout: (LayoutFrame 5 0 294 0 227 0 324 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4612	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4613	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4614	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4615	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4616	label: 'image display'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4617	name: 'DitherListPopUpList'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4618	layout: (LayoutFrame 230 0 294 0 -30 1 324 0)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4619	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4620	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4621	model: ditherListSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4622	enableChannel: ditherSymsNotNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4623	menu: ditherList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4624	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4625	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4626	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4627	label: 'Allow Colored/Grayscale Icons'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4628	name: 'AllowColoredGrayscaleIconsCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4629	layout: (LayoutFrame 5 0 334 0 301 0 364 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4630	model: deepIcons
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4631	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4632	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4633	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4634	name: 'Separator3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4635	layout: (LayoutFrame 0 0.0 368 0 0 1.0 372 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4636	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4637	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4638	label: 'ClipBoard Encoding:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4639	name: 'ClipBoardEncodingLabel'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4640	layout: (LayoutFrame 0 0 383 0 277 0 413 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4641	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4642	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4643	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4644	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4645	label: 'image display'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4646	name: 'ClipEncodingListPopUpList'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4647	layout: (LayoutFrame 278 0 383 0 -30 1 413 0)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4648	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4649	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4650	model: clipEncodingListSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4651	menu: clipEncodingList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4652	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4653	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4654	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4655	label: 'Max. CopyBuffer Size:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4656	name: 'MaxCopyBufferSizeLabel'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4657	layout: (LayoutFrame 0 0 418 0 277 0 448 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4658	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4659	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4660	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4661	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4662	name: 'MaxCopyBufferEntryField'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4663	layout: (LayoutFrame 278 0 418 0 373 0 448 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4664	model: maxCopyBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4665	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4666	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4667	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4668	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4669	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4670	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4671	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4672	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4673	name: 'Separator4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4674	layout: (LayoutFrame 0 0.0 454 0 0 1.0 458 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4675	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4676	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4677	label: 'Enable VMWare Drawing Bug Workaround (Limit Number of Buffered Operations)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4678	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4679	layout: (LayoutFrame 5 0 464 0 0 1 486 0)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4680	activeHelpKey: enableVMWareDrawingBugWorkaround
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4681	model: enableVMWareDrawingBugWorkaround
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4682	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4683	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4684	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	4685
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4686	)
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4687	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4688	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4689
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4690	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4691
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4692	basicReadSettings
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4693	self enableVMWareDrawingBugWorkaround value: currentUserPrefs enableVMWareDrawingBugWorkaround.
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4694
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4695	self useFixPalette value:screen fixColors notNil.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4696	self useFixGrayPalette value:screen fixGrayColors notNil.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4697	self isColorMonitor value:screen hasColors.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4698	self sizeX value:screen widthInMillimeter.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4699	self sizeY value:screen heightInMillimeter.
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4700	self usedWidth value:screen usableWidth.
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4701	self usedHeight value:screen usableHeight.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4702	self deepIcons value:screen supportsDeepIcons.
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4703
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4704	ditherSyms notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4705	self ditherListSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4706	value:(ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4707	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4708	self clipEncodingListSelection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4709	value:(self class clipEncodingSyms indexOf:screen clipboardEncoding
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4710	ifAbsent:1).
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4711
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4712	"Modified: / 19-11-2013 / 10:25:51 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4713	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	4714
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4715	basicSaveSettings
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4716
17005 a0d0b5aa304d #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16992 diff changeset	4717	currentUserPrefs enableVMWareDrawingBugWorkaround:self enableVMWareDrawingBugWorkaround value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4718	Image flushDeviceImages.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4719
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4720	screen visualType == #PseudoColor ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4721	self useFixPalette value ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4722	Color colorAllocationFailSignal handle:[:ex \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4723	self warn:'Could not allocate colors.'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4724	] do:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4725	Color getColorsRed:4 green:8 blue:4 on:screen
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4726	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4727	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4728	screen releaseFixColors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4729	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4730
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4731	self useFixGrayPalette value ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4732	Color colorAllocationFailSignal handle:[:ex \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4733	self warn:'Could not allocate colors.'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4734	] do:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4735	Color getGrayColors:32 on:screen
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4736	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4737	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4738	screen releaseFixGrayColors
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4739	]
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4740	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4741	screen hasColors:self isColorMonitor value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4742	screen widthInMillimeter:self sizeX value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4743	screen heightInMillimeter:self sizeY value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4744
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4745	screen setUsableWidth:self usedWidth value.
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4746	screen setUsableHeight:self usedHeight value.
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4747
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4748	screen supportsDeepIcons:self deepIcons value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4749	ditherSyms notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4750	Image ditherAlgorithm:(ditherSyms at:self ditherListSelection value).
4574 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
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4753	WindowGroup activeGroup withWaitCursorDo:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4754	View defaultStyle:(View defaultStyle).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4755	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	4756
9147 dcc8111bef7a * empty log message * Claus Gittinger <cg@exept.de> parents: 9140 diff changeset	4757	screen clipboardEncoding:(self class clipEncodingSyms at:self clipEncodingListSelection value).
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4758
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4759	"Modified: / 19-11-2013 / 10:26:08 / cg"
13652 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
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4762	restoreUsableExtent
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4763	self usedWidth value:(screen queryWidth).
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4764	self usedHeight value:(screen queryHeight).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4765	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4766
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4767	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4768
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4769	clipEncodingList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4770
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4771	clipEncodingList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4772	clipEncodingList := (resources array:self class clipEncodingStrings) asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4773	"/ if your app needs to be notified of changes, uncomment one of the lines below:
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4774	"/ clipEncodingList addDependent:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4775	"/ clipEncodingList onChangeSend:#clipEncodingListChanged to:self.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4776	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4777	^ clipEncodingList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4778	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4779
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4780	clipEncodingListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4781
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4782	clipEncodingListSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4783	clipEncodingListSelection := (self class clipEncodingSyms indexOf:screen clipboardEncoding ifAbsent:1) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4784	clipEncodingListSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4785	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4786	^ clipEncodingListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4787	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4788
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4789	deepIcons
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4790
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4791	deepIcons isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4792	deepIcons := screen supportsDeepIcons asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4793	deepIcons onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4794	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4795	^ deepIcons.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4796	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4797
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4798	ditherList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4799
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4800	ditherList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4801	ditherList := ValueHolder new.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4802	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4803	^ ditherList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4804	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4805
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4806	ditherListSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4807
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4808	ditherListSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4809	ditherSyms notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4810	ditherListSelection := (ditherSyms indexOf:(Image ditherAlgorithm) ifAbsent:#threshold) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4811	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4812	ditherListSelection := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4813	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4814	ditherListSelection onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4815	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4816	^ ditherListSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4817	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4818
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4819	ditherSymsNotNil
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4820
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4821	ditherSymsNotNil isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4822	ditherSymsNotNil := ditherSyms notNil asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4823	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4824	^ ditherSymsNotNil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4825	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4826
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4827	enableVMWareDrawingBugWorkaround
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4828
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4829	enableVMWareDrawingBugWorkaround isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4830	enableVMWareDrawingBugWorkaround := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4831	enableVMWareDrawingBugWorkaround onChangeSend:#updateModifiedChannel to:self.
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4832	].
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4833	^ enableVMWareDrawingBugWorkaround.
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4834
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4835	"Created: / 19-11-2013 / 10:24:42 / cg"
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4836	!
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	4837
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4838	isColorMonitor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4839
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4840	isColorMonitor isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4841	isColorMonitor := screen hasColors asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4842	isColorMonitor onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4843	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4844	^ isColorMonitor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4845	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4846
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4847	maxCopyBufferSize
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4848
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4849	maxCopyBufferSize isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4850	maxCopyBufferSize := (810241024) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4851	maxCopyBufferSize addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4852	maxCopyBufferSize changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4853	maxCopyBufferSize onChangeSend:#updateModifiedChannel to:self.
5086 b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4854	].
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4855	^ maxCopyBufferSize.
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4856	!
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	4857
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4858	monitorList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4859
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4860	monitorList isNil ifTrue:[
18425 fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	4861	monitorList := (resources array:(sizeInfos collectColumn:1)) asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4862	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4863	^ monitorList.
18425 fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	4864
fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	4865	"Modified: / 22-09-2018 / 11:20:11 / Claus Gittinger"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4866	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4867
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4868	monitorSelection
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4869
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4870	monitorSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4871	monitorSelection := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4872	monitorSelection addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4873	monitorSelection onChangeSend:#updateModifiedChannel to:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4874	monitorSelection changed.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4875	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4876	^ monitorSelection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4877	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4878
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4879	screenDepthVisualLabelHolder
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4880
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4881	screenDepthVisualLabelHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4882	screenDepthVisualLabelHolder := (resources string:'Screen: Depth: %1 Visual: %2 (%3)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4883	with:screen depth printString
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4884	with:screen visualType
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4885	with:screen serverVendor) asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4886	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4887	^ screenDepthVisualLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4888	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4889
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4890	sizeX
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4891
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4892	sizeX isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4893	sizeX := screen widthInMillimeter asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4894	sizeX addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4895	sizeX changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4896	sizeX onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4897	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4898	^ sizeX.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4899	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4900
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	4901	sizeY
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4902
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4903	sizeY isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4904	sizeY := screen heightInMillimeter asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4905	sizeY addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4906	sizeY changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4907	sizeY onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4908	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4909	^ sizeY.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4910	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4911
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4912	useFixGrayPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4913
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4914	useFixGrayPalette isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4915	useFixGrayPalette := screen fixGrayColors notNil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4916	useFixGrayPalette onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4917	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4918	^ useFixGrayPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4919	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4920
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4921	useFixGrayPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4922
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4923	useFixGrayPaletteLabel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4924	useFixGrayPaletteLabel := (resources string:'Use Fix Gray Color Palette %1' with:'(32)') asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4925	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4926	^ useFixGrayPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4927	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4928
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4929	useFixPalette
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4930
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4931	useFixPalette isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4932	useFixPalette := screen fixColors notNil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4933	useFixPalette onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4934	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4935	^ useFixPalette.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4936	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4937
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4938	useFixPaletteLabel
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4939
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4940	useFixPaletteLabel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4941	useFixPaletteLabel := (resources string:'Use Fix Color Palette %1' with:'(4x8x4)') asValue.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4942	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4943	^ useFixPaletteLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4944	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4945
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4946	usedHeight
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4947	usedHeight isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4948	usedHeight := screen usableHeight asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4949	usedHeight addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4950	usedHeight changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4951	usedHeight onChangeSend:#updateModifiedChannel to:self.
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4952	].
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4953	^ usedHeight.
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
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4956	usedWidth
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4957	usedWidth isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4958	usedWidth := screen usableWidth asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4959	usedWidth addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4960	usedWidth changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4961	usedWidth onChangeSend:#updateModifiedChannel to:self.
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4962	].
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4963	^ usedWidth.
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4964	!
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	4965
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4966	visualIsPseudoColor
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4967
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4968	visualIsPseudoColor isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4969	visualIsPseudoColor := (screen visualType == #PseudoColor) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4970	visualIsPseudoColor onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4971	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4972	^ visualIsPseudoColor.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4973	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4974
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4975	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4976
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4977	monitorSelectionChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4978
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4979	\| sel sizeInfoEntry sizes\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4980
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4981	sel := self monitorSelection value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4982	(sel notNil and:[sel ~~ 0]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4983	sizeInfoEntry := sizeInfos at:sel.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4984	sizes := sizeInfoEntry at:2.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4985	self sizeX value:(sizes at:1).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4986	self sizeY value:(sizes at:2).
4286 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
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4990	sizeXorYChanged
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4991	\| sizes idx\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4992
18425 fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	4993	sizes := sizeInfos collectColumn:2.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4994	idx := sizes findFirst:[:entry \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4995	((entry at:1) = sizeX value)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4996	and:[((entry at:2) = sizeY value)]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4997	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	4998	idx ~~ 0 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	4999	self monitorSelection value:idx
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5000	].
18425 fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	5001
fa1a5ad4960c #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 18403 diff changeset	5002	"Modified: / 22-09-2018 / 11:20:19 / Claus Gittinger"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5003	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5004
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5005	update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5006	changedObject == self monitorSelection ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5007	self monitorSelectionChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5008	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5009	].
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	5010	(changedObject == self sizeX or:[changedObject == self sizeY]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5011	self sizeXorYChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5012	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5013	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5014
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5015	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5016	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5017
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5018	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5019
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5020	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5021	^ 'Launcher/screenSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5022	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5023
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5024	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5025
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5026	initialize
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5027
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	5028	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	5029
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5030	\| listOfSizes visual\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5031
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5032	screen := Screen current.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5033
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5034	listOfSizes := self class classResources at:'LIST_OF_OFFERED_SCREEN_SIZES' default:#default.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5035	listOfSizes == #default ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5036	"/ nothing in resource file; offer at least some.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5037	sizeInfos := #(
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5038	( '11.3'' (235mm x 175mm) LCD' (235 175) )
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5039	( '17'' (325mm x 245mm)' (325 245) )
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5040	( '19'' (340mm x 270mm)' (340 270) )
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5041	( '20'' (350mm x 280mm)' (350 280) )
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5042	( '21'' (365mm x 285mm)' (365 285) )
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5043	).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5044	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5045	sizeInfos := resources array:listOfSizes.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5046	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5047	visual := screen visualType.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5048	(visual == #StaticGray or:[visual == #GrayScale]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5049	ditherStyles := self class staticGrayOrGrayScaleDitherStrings.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5050	ditherSyms := self class staticGrayOrGrayScaleDitherSyms.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5051	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5052	visual ~~ #TrueColor ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5053	ditherStyles := self class trueColorDitherStrings.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5054	ditherSyms := self class trueColorDitherSyms.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5055	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5056	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5057	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5058
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	5059	"Modified: / 08-02-2017 / 00:30:30 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5060	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5061
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5062	!AbstractSettingsApplication::DisplaySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5063
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5064	hasUnsavedChanges
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	5065	self enableVMWareDrawingBugWorkaround value ~~ currentUserPrefs enableVMWareDrawingBugWorkaround ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5066	self useFixPalette value ~= screen fixColors notNil ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5067	self useFixGrayPalette value ~= screen fixGrayColors notNil ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5068	self isColorMonitor value ~= screen hasColors ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5069	self sizeX value ~= screen widthInMillimeter ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5070	self sizeY value ~= screen heightInMillimeter ifTrue:[^ true].
13652 fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	5071	self usedWidth value ~= screen usableWidth ifTrue:[^ true].
fb6fef959bf5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13580 diff changeset	5072	self usedHeight value ~= screen usableHeight ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5073
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5074	self deepIcons value ~= screen supportsDeepIcons ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	5075	ditherSyms notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5076	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	5077	].
6037 4ee47a9ce56a Unify naming: clipBoard->clipboard Stefan Vogel <sv@exept.de> parents: 6030 diff changeset	5078	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	5079	^ false
14550 bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	5080
bfca4264cade class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14547 diff changeset	5081	"Modified: / 19-11-2013 / 10:26:34 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5082	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5083
12034 25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5084	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'help specs'!
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5085
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	5086	helpSpec
12034 25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5087	"This resource specification was automatically generated
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5088	by the UIHelpTool of ST/X."
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5089
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5090	"Do not manually edit this!! If it is corrupted,
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5091	the UIHelpTool may not be able to read the specification."
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5092
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5093	"
16383 de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5094	UIHelpTool openOnClass:AbstractSettingsApplication::EditSettingsAppl
12034 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
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5097	<resource: #help>
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5098
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	5099	^ super helpSpec addPairsFrom:#(
12034 25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5100
16383 de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5101	"/#resetToDefault
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5102	"/'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	5103	"/
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5104	"/#changeToHighContrast
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5105	"/'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	5106	"/
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5107	"/#changeToBigFonts
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5108	"/'Change settings for bigger fonts. Useful for presentations'
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5109	"/
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5110	"/#changeToHugeFonts
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5111	"/'Change settings for huge fonts. Useful for presentations'
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5112	"/
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5113	"/#changeToSTXLook
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5114	"/'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	5115	"/
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5116	"/#changeToSqueakLook
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5117	"/'Change settings for a Squeak-like look (variable fonts)'
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5118	"/
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5119	"/#changeToVisualAgeLook
de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5120	"/'Change settings for a VisualAge-like look (bold variable fonts)'
12789 d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5121
13419 f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5122	#immediateCodeCompletion
14474 2c9625711787 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14411 diff changeset	5123	'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	5124
13499bd0fa9b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13459 diff changeset	5125	#codeCompletionOnControlKey
13494 7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5126	'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	5127
7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5128	#codeCompletionOnTabKey
14474 2c9625711787 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14411 diff changeset	5129	'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	5130
14505 a45081b27fc3 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14485 diff changeset	5131	#codeCompletionViewKeyboardNavigationNeedsModifier
a45081b27fc3 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14485 diff changeset	5132	'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	5133
12789 d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5134	#alwaysPasteFileContents
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5135	'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	5136
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5137	#autoIndentInCodeView
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5138	'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	5139
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5140	#extendedWordSelectMode
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5141	'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	5142
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5143	#searchBoxIsModal
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5144	'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	5145
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5146	#selectAllWhenClickingBeyondEnd
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5147	'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	5148
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5149	#showAcceptCancelBar
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5150	'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	5151
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5152	#st80DoubleClickSelectMode
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5153	'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	5154
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5155	#st80EditMode
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5156	'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	5157
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5158
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5159	#startTextDragWithCTRL
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5160	'Press CTRL to drag the selected text into another view'
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5161
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5162	#tabStops4
13145 cf52caa3b513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13144 diff changeset	5163	'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	5164
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5165	#useNewCodeView2
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5166	'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	5167
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5168	#whitespaceWordSelectMode
16788 c658333e6e72 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16718 diff changeset	5169	'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	5170
14166 49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5171	#selectionExtensionModelStandard
14623 e61fc7832515 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14621 diff changeset	5172	'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	5173
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5174	#selectionExtensionModelTraditional
14623 e61fc7832515 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14621 diff changeset	5175	'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	5176
12034 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
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5179	"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	5180	"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	5181	! !
25112053bdc7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12004 diff changeset	5182
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5183	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5184
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5185	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5186	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5187
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5188	^ ToolbarIconLibrary editorIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5189	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	5190
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5191	!AbstractSettingsApplication::EditSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5192
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5193	windowSpec
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5194	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5195	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5196
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5197	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5198	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5199
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5200	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	5201	UIPainter new openOnClass:AbstractSettingsApplication::EditSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5202	AbstractSettingsApplication::EditSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	5203	AbstractSettingsApplication::EditSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5204	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5205
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5206	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5207
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5208	^
13372 40c3a88f5698 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13369 diff changeset	5209	#(FullSpec
40c3a88f5698 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13369 diff changeset	5210	name: windowSpec
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5211	window:
13372 40c3a88f5698 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13369 diff changeset	5212	(WindowSpec
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5213	label: 'Editor Settings'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5214	name: 'Editor Settings'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5215	flags: 1
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5216	min: (Point 10 10)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5217	bounds: (Rectangle 0 0 658 543)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	5218	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5219	component:
13372 40c3a88f5698 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13369 diff changeset	5220	(SpecCollection
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5221	collection: (
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5222	(VerticalPanelViewSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5223	name: 'VerticalPanel1'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5224	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5225	horizontalLayout: fit
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5226	verticalLayout: top
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5227	horizontalSpace: 3
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5228	verticalSpace: 3
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5229	component:
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5230	(SpecCollection
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5231	collection: (
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5232	(CheckBoxSpec
16383 de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5233	label: 'Use the New Code Editor (v2)'
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5234	name: 'UserCodeView2'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5235	activeHelpKey: useNewCodeView2
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5236	model: useCodeView2InTools
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5237	translateLabel: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5238	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5239	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5240	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5241	label: 'Show Accept/Cancel Bar in Editor'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5242	name: 'ShowAcceptCancelBarInBrowser'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5243	activeHelpKey: showAcceptCancelBar
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5244	model: showAcceptCancelBarInBrowser
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5245	translateLabel: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5246	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5247	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5248	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5249	label: 'SearchBox is Modal'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5250	name: 'SearchBoxModalCheckBox'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5251	activeHelpKey: searchBoxIsModal
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5252	model: searchDialogIsModal
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5253	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5254	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5255	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5256	(DividerSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5257	name: 'Separator6'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5258	extent: (Point 658 4)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5259	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5260	(CheckBoxSpec
16383 de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5261	label: 'Code Completion as you Type'
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5262	name: 'CheckBox5'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5263	activeHelpKey: immediateCodeCompletion
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5264	model: immediateCodeCompletion
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5265	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5266	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5267	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5268	(ViewSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5269	name: 'Box1'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5270	activeHelpKey: codeCompletionOnControlKey
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5271	component:
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5272	(SpecCollection
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5273	collection: (
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5274	(CheckBoxSpec
16383 de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5275	label: 'Code Completion on CTRL Key'
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5276	name: 'CheckBox6'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5277	layout: (LayoutFrame 0 0 0 0 350 0 25 0)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5278	activeHelpKey: codeCompletionOnControlKey
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5279	model: codeCompletionOnControlKey
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5280	translateLabel: true
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5281	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5282	(CheckBoxSpec
16383 de3721feb714 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16340 diff changeset	5283	label: 'On TAB Key'
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5284	name: 'CheckBox7'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5285	layout: (LayoutFrame 380 0 0 0 658 0 25 0)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5286	activeHelpKey: codeCompletionOnTabKey
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5287	model: codeCompletionOnTabKey
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5288	translateLabel: true
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5289	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5290	)
16317 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	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5293	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5294	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5295	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5296	label: 'Shift/CTRL for Navigation in Completion List'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5297	name: 'CheckBox8'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5298	activeHelpKey: codeCompletionViewKeyboardNavigationNeedsModifier
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5299	model: codeCompletionViewKeyboardNavigationNeedsModifier
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5300	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5301	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5302	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5303	(DividerSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5304	name: 'Separator5'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5305	extent: (Point 658 4)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5306	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5307	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5308	label: 'Tab Stops in Multiples of 4'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5309	name: 'TabStopsMultiples4CheckBox'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5310	activeHelpKey: tabStops4
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5311	model: tabsIs4
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5312	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5313	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5314	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5315	(DividerSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5316	name: 'Separator2'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5317	extent: (Point 658 4)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5318	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5319	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5320	label: 'CTRL-Key to Start TextDrag'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5321	name: 'CTRLKeyStTextDragCheckBox'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5322	activeHelpKey: startTextDragWithCTRL
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5323	model: startTextDragWithControl
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5324	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5325	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5326	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5327	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5328	label: 'Always Paste the Contents when Dropping a File (Do not Ask) '
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5329	name: 'EnforceContentsDropForFiles'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5330	activeHelpKey: alwaysPasteFileContents
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5331	model: enforceContentsDropForFiles
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5332	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5333	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5334	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5335	(DividerSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5336	name: 'Separator4'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5337	extent: (Point 658 4)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5338	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5339	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5340	label: 'Autoindent (Position Cursor on Return Key in Code Editors)'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5341	name: 'CheckBox3'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5342	activeHelpKey: autoIndentInCodeView
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5343	model: autoIndentInCodeView
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5344	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5345	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5346	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5347	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5348	label: 'Cursor has Standard Line-End Behavior'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5349	name: 'CursorST80LineEndBehaviorCheckBox'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5350	activeHelpKey: st80EditMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5351	model: st80EditMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5352	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5353	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5354	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5355	(DividerSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5356	name: 'Separator3'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5357	extent: (Point 658 4)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5358	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5359	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5360	label: 'Select all when Clicking beyond the Text''s End'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5361	name: 'CheckBox2'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5362	activeHelpKey: selectAllWhenClickingBeyondEnd
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5363	model: selectAllWhenClickingBeyondEnd
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5364	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5365	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5366	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5367	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5368	label: 'Double Click Select Behavior as in ST80'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5369	name: 'DoubleClickSelectBehaviorST80CheckBox'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5370	activeHelpKey: st80DoubleClickSelectMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5371	model: st80DoubleClickSelectMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5372	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5373	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5374	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5375	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5376	label: 'Treat Underscore as Letter in Word-Select'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5377	name: 'UnderscoreIsLetterCheckBox'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5378	activeHelpKey: extendedWordSelectMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5379	model: extendedWordSelectMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5380	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5381	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5382	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5383	(CheckBoxSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5384	label: 'Any non-Whitespace in Word-Select'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5385	name: 'CheckBox1'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5386	activeHelpKey: whitespaceWordSelectMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5387	model: whitespaceWordSelectMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5388	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5389	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5390	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5391	(DividerSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5392	name: 'Separator7'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5393	extent: (Point 658 4)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5394	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5395	(RadioButtonSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5396	label: 'Traditional ST/X Selection Mode'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5397	name: 'RadioButton1'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5398	activeHelpKey: selectionExtensionModelTraditional
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5399	translateLabel: true
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5400	model: selectionExtensionMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5401	enableChannel: selectionExtensionModeEnabled
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5402	isTriggerOnDown: true
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5403	select: traditional
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5404	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5405	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5406	(RadioButtonSpec
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5407	label: 'Standard Selection Mode'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5408	name: 'RadioButton2'
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5409	activeHelpKey: selectionExtensionModelStandard
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5410	translateLabel: true
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5411	model: selectionExtensionMode
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5412	enableChannel: selectionExtensionModeEnabled
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5413	isTriggerOnDown: true
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5414	select: standard
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5415	extent: (Point 658 30)
15300 a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5416	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5417	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5418
15300 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	)
a714eec33295 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15258 diff changeset	5421	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	5422
13372 40c3a88f5698 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13369 diff changeset	5423	)
40c3a88f5698 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13369 diff changeset	5424	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5425	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5426
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5427	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5428
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5429	basicReadSettings
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5430	super basicReadSettings.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	5431
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5432	self st80DoubleClickSelectMode value:TextView st80SelectMode.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5433	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	5434	self enforceContentsDropForFiles value:(currentUserPrefs enforcedDropModeForFiles == #text).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5435	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5436
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5437	basicSaveSettings
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5438	super basicSaveSettings.
14895 840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5439
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5440	currentUserPrefs enforcedDropModeForFiles:
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5441	( self enforceContentsDropForFiles value
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5442	ifTrue:[ #text ]
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5443	ifFalse:[ nil ] ).
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5444
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5445	TextView st80SelectMode:(self st80DoubleClickSelectMode value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5446	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
14895 840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5447	ListView userDefaultTabPositions:
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5448	(self tabsIs4 value
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5449	ifTrue:[ListView tab4Positions]
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5450	ifFalse:[ListView tab8Positions]).
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5451
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5452	ListView allSubInstancesDo:[:eachKindOfListView \|
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5453	self tabsIs4 value
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5454	ifTrue:[eachKindOfListView setTab4]
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5455	ifFalse:[eachKindOfListView setTab8]
840d9c32cd34 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14892 diff changeset	5456	].
4574 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	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5459
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5460	commonAspects
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	5461	^ #(
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5462	#useCodeView2InTools
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5463	#showAcceptCancelBarInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5464	#searchDialogIsModal
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5465	#startTextDragWithControl
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5466	#st80EditMode
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5467	#extendedWordSelectMode
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5468	#whitespaceWordSelectMode
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5469	#selectAllWhenClickingBeyondEnd
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5470	#autoIndentInCodeView
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5471	#immediateCodeCompletion
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5472	#codeCompletionOnControlKey
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5473	#codeCompletionOnTabKey
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5474	#codeCompletionViewKeyboardNavigationNeedsModifier
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5475	#selectionExtensionMode
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5476	)
11379 21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5477
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5478	"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	5479	"Modified: / 27-03-2014 / 10:10:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5480	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5481
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5482	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5483
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5484	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5485	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5486	#useCodeView2InTools
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5487	#showAcceptCancelBarInBrowser
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5488	#searchDialogIsModal
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5489	#startTextDragWithControl
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5490	#st80EditMode
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5491	#extendedWordSelectMode
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5492	#whitespaceWordSelectMode
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5493	#selectAllWhenClickingBeyondEnd
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5494	#autoIndentInCodeView
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5495	#immediateCodeCompletion
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5496	#codeCompletionOnControlKey
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5497	#codeCompletionOnTabKey
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5498	#codeCompletionViewKeyboardNavigationNeedsModifier
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5499	#selectionExtensionMode
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5500	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5501
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5502	"Modified: / 07-03-2012 / 14:33:40 / cg"
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5503	"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	5504	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5505
12789 d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5506	autoIndentInCodeView
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5507	autoIndentInCodeView isNil ifTrue:[
17857 54f9e94faf82 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17842 diff changeset	5508	autoIndentInCodeView := true asValue.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5509	autoIndentInCodeView onChangeSend:#updateModifiedChannel to:self.
12789 d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5510	].
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5511	^ autoIndentInCodeView.
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5512	!
d4ecb44c1426 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12764 diff changeset	5513
13487 2f7251242b2c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13475 diff changeset	5514	codeCompletionOnControlKey
2f7251242b2c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13475 diff changeset	5515	codeCompletionOnControlKey isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5516	codeCompletionOnControlKey := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5517	codeCompletionOnControlKey onChangeSend:#updateModifiedChannel to:self.
13487 2f7251242b2c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13475 diff changeset	5518	].
2f7251242b2c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13475 diff changeset	5519	^ codeCompletionOnControlKey.
2f7251242b2c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13475 diff changeset	5520	!
2f7251242b2c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13475 diff changeset	5521
13494 7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5522	codeCompletionOnTabKey
7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5523	codeCompletionOnTabKey isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5524	codeCompletionOnTabKey := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5525	codeCompletionOnTabKey onChangeSend:#updateModifiedChannel to:self.
13494 7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5526	].
7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5527	^ codeCompletionOnTabKey.
7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5528	!
7514d7db44ba class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13487 diff changeset	5529
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5530	enforceContentsDropForFiles
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5531	enforceContentsDropForFiles isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5532	enforceContentsDropForFiles := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5533	enforceContentsDropForFiles onChangeSend:#updateModifiedChannel to:self.
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5534	].
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5535	^ enforceContentsDropForFiles.
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5536	!
01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5537
7580 4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	5538	extendedWordSelectMode
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	5539	extendedWordSelectMode isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5540	extendedWordSelectMode := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5541	extendedWordSelectMode onChangeSend:#updateModifiedChannel to:self.
7580 4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	5542	].
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	5543	^ extendedWordSelectMode.
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	5544	!
4580c0a025ff underline in word-select setting Claus Gittinger <cg@exept.de> parents: 7557 diff changeset	5545
13419 f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5546	immediateCodeCompletion
f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5547	immediateCodeCompletion isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5548	immediateCodeCompletion := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5549	immediateCodeCompletion onChangeSend:#updateModifiedChannel to:self.
13419 f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5550	].
f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5551	^ immediateCodeCompletion.
f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5552	!
f1815719ba75 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13399 diff changeset	5553
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5554	searchDialogIsModal
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5555	searchDialogIsModal isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5556	searchDialogIsModal := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5557	searchDialogIsModal onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5558	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5559	^ searchDialogIsModal.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5560	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5561
11379 21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5562	selectAllWhenClickingBeyondEnd
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5563	selectAllWhenClickingBeyondEnd isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5564	selectAllWhenClickingBeyondEnd := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5565	selectAllWhenClickingBeyondEnd onChangeSend:#updateModifiedChannel to:self.
11379 21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5566	].
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5567	^ selectAllWhenClickingBeyondEnd.
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5568
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5569	"Created: / 07-03-2012 / 14:34:08 / cg"
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5570	!
21276bc8a095 +selectAllWhenClickingBeyondEnd Claus Gittinger <cg@exept.de> parents: 11325 diff changeset	5571
14166 49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5572	selectionExtensionMode
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5573	selectionExtensionMode isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5574	selectionExtensionMode := #traditional asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5575	selectionExtensionMode onChangeSend:#updateModifiedChannel to:self.
14166 49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5576	].
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5577	^ selectionExtensionMode.
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5578
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5579	"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	5580	!
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5581
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5582	selectionExtensionModeEnabled
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5583	"/ 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	5584	"/ Once integrated, this method whould always return true.
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5585
14892 67b7cbb80a2f class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14833 diff changeset	5586	^ true. "/ EditTextView methodDictionary includesKey: #extendSelectionToX:y:setPrimarySelection:
14166 49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5587
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5588	"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	5589	!
49ad24f2e43e Added settings for selectionExtensionMode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14156 diff changeset	5590
11985 4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	5591	showAcceptCancelBarInBrowser
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	5592	showAcceptCancelBarInBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5593	showAcceptCancelBarInBrowser := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5594	showAcceptCancelBarInBrowser onChangeSend:#updateModifiedChannel to:self
11985 4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	5595	].
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	5596	^ showAcceptCancelBarInBrowser.
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	5597	!
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	5598
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5599	st80DoubleClickSelectMode
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5600	st80DoubleClickSelectMode isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5601	st80DoubleClickSelectMode := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5602	st80DoubleClickSelectMode onChangeSend:#updateModifiedChannel to:self.
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5603	].
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5604	^ st80DoubleClickSelectMode.
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5605	!
50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5606
6783 6bda02cccffd * empty log message * Claus Gittinger <cg@exept.de> parents: 6782 diff changeset	5607	st80EditMode
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5608	st80EditingMode isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5609	st80EditingMode := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5610	st80EditingMode onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5611	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5612	^ st80EditingMode.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5613	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5614
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5615	startTextDragWithControl
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5616	startTextDragWithControl isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5617	startTextDragWithControl := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5618	startTextDragWithControl onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5619	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5620	^ startTextDragWithControl.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5621	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5622
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5623	tabsIs4
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5624	tabsIs4 isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5625	tabsIs4 := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5626	tabsIs4 onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5627	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5628	^ tabsIs4.
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5629	!
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5630
12004 1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5631	useCodeView2InTools
1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5632	useCodeView2InTools isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5633	useCodeView2InTools := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5634	useCodeView2InTools onChangeSend:#updateModifiedChannel to:self
12004 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	].
1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5637	^ useCodeView2InTools
1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5638
1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5639	"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	5640	!
1af38eee8d87 use new code editor moved to editor page Claus Gittinger <cg@exept.de> parents: 11986 diff changeset	5641
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5642	whitespaceWordSelectMode
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5643	whitespaceWordSelectMode isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5644	whitespaceWordSelectMode := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5645	whitespaceWordSelectMode onChangeSend:#updateModifiedChannel to:self.
7979 2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5646	].
2c84a8cf3e6c warn about private class Claus Gittinger <cg@exept.de> parents: 7962 diff changeset	5647	^ whitespaceWordSelectMode.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5648	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5649
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5650	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5651
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5652	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5653	^ 'Launcher/editSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5654	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	5655
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5656	!AbstractSettingsApplication::EditSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5657
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5658	hasUnsavedChanges
8682 01d1884a026e Always Paste the Contents when Dropping a File Claus Gittinger <cg@exept.de> parents: 8679 diff changeset	5659	self enforceContentsDropForFiles value ~= (currentUserPrefs enforcedDropModeForFiles == #text) ifTrue:[^ true].
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	5660	TextView st80SelectMode ~= (self st80DoubleClickSelectMode value) ifTrue:[^ true].
5915 d7d685d60d82 * empty log message * Claus Gittinger <cg@exept.de> parents: 5912 diff changeset	5661	tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5662	ListView userDefaultTabPositions ~= (self tabsIs4 value
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5663	ifTrue:[ListView tab4Positions]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5664	ifFalse:[ListView tab8Positions]) ifTrue:[^ true].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5665	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5666
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	5667	^ super hasUnsavedChanges
10900 b798071a4587 comment Claus Gittinger <cg@exept.de> parents: 10893 diff changeset	5668
b798071a4587 comment Claus Gittinger <cg@exept.de> parents: 10893 diff changeset	5669	"Modified: / 25-11-2011 / 15:23:02 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5670	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	5671
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5672	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5673
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5674	keepSourceOptions
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5675
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5676	^ #( keep reference absReference sourceReference discard )
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5679	keepSourceStrings
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5680
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5681	^ #('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	5682	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5683
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5684	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'help specs'!
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5685
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	5686	helpSpec
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5687	"This resource specification was automatically generated
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5688	by the UIHelpTool of ST/X."
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5689
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5690	"Do not manually edit this!! If it is corrupted,
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5691	the UIHelpTool may not be able to read the specification."
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	"
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5694	UIHelpTool openOnClass:AbstractSettingsApplication::HTTPStartServerSettingsApplication
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
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5697	<resource: #help>
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5698
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	5699	^ super helpSpec addPairsFrom:#(
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5700
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5701	#catchMethodRedefinition
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5702	'Warn if an existing method from another package is redefined'
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5703
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5704	#catchClassRedefinition
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5705	'Warn if an existing class from another package is redefined'
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5706
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5707	#historyLineInMethods
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5708	'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	5709
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5710	#historyLineInClasses
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5711	'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	5712
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5713	#userNameInHistoryLine
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5714	'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	5715
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5716	#fileInSourceMode
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5717	'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	5718
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5719	#loadBinaryObjectsWhenAutoloading
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5720	'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	5721	)
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5722	! !
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5723
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5724	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5725
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5726	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	5727	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	5728
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5729	^ self defaultIcon3
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	5730
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	5731	"Modified: / 17-09-2007 / 11:35:08 / cg"
6346 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
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5734	defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5735	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5736	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5737
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5738	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5739	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5740
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5741	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5742	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5743	ImageEditor openOnClass:self andSelector:#defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5744	Icon flushCachedIcons
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5747	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5748
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5749	^Icon
15762 852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	5750	constantNamed:'AbstractSettingsApplication::GeneralCompilerSettingsAppl defaultIcon1'
852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	5751	ifAbsentPut:[(Depth2Image width:22 height:22) bits:(ByteArray fromPackedString:'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	5752	@@@@@@@@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	5753	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	5754	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5755
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5756	defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5757	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5758	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5759
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5760	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5761	the ImageEditor may not be able to read the specification."
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	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5764	self defaultIcon3 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5765	ImageEditor openOnClass:self andSelector:#defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5766	Icon flushCachedIcons
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
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5769	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5770
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5771	^Icon
15762 852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	5772	constantNamed:'AbstractSettingsApplication::GeneralCompilerSettingsAppl defaultIcon3'
852b0302df5c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15746 diff changeset	5773	ifAbsentPut:[(Depth8Image width:24 height:24) bits:(ByteArray fromPackedString:'
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	5774	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	5775	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	5776	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	5777	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	5778	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	5779	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	5780	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	5781	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5782
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5783	!AbstractSettingsApplication::GeneralCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5784
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5785	windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5786	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5787	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5788
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5789	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5790	the UIPainter may not be able to read the specification."
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	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5793	UIPainter new openOnClass:AbstractSettingsApplication::GeneralCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5794	AbstractSettingsApplication::GeneralCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5795	AbstractSettingsApplication::GeneralCompilerSettingsAppl open
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5798	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5799
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5800	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	5801	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	5802	name: windowSpec
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5803	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	5804	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5805	label: 'General Compiler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5806	name: 'General Compiler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5807	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5808	bounds: (Rectangle 0 0 600 320)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	5809	)
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5810	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	5811	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5812	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5813	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5814	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5815	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	5816	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5817	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5818	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5819	verticalSpace: 3
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5820	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5821	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5822	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5823	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5824	label: 'Catch Method Redefinitions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5825	name: 'CatchMethodRedefinitions'
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5826	activeHelpKey: catchMethodRedefinition
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5827	model: catchMethodRedefs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5828	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5829	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5830	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5831	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5832	label: 'Catch Class Redefinitions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5833	name: 'CatchClassRedefinitions'
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5834	activeHelpKey: catchClassRedefinition
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5835	model: catchClassRedefs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5836	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5837	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5838	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5839	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5840	name: 'Separator2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5841	extent: (Point 600 3)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5842	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5843	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5844	label: 'Keep History Line in Methods'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5845	name: 'KeepHistoryLineinMethods'
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5846	activeHelpKey: historyLineInMethods
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5847	model: historyLines
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5848	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5849	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5850	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5851	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5852	label: 'Keep Full Class History'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5853	name: 'KeepFullClassHistory'
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5854	activeHelpKey: historyLineInClasses
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5855	enableChannel: hasHistoryManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5856	model: fullHistoryUpdate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5857	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5858	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5859	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5860	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5861	name: 'Box2'
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5862	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5863	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5864	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5865	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5866	label: 'Username in History:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5867	name: 'Label1'
17321 42f0864cbb2a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17320 diff changeset	5868	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	5869	activeHelpKey: userNameInHistoryLine
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5870	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5871	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5872	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5873	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5874	name: 'EntryField1'
17321 42f0864cbb2a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17320 diff changeset	5875	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	5876	activeHelpKey: userNameInHistoryLine
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5877	model: userNameInHistoryHolder
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5878	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5879	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5880	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5881	acceptOnLostFocus: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5882	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5883	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5884	(LabelSpec
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5885	label: '(empty for login-name)'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5886	name: 'Label2'
17321 42f0864cbb2a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17320 diff changeset	5887	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	5888	activeHelpKey: userNameInHistoryLine
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5889	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5890	adjust: left
16986 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	)
257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5893
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5894	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5895	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5896	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5897	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5898	name: 'Separator3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5899	extent: (Point 600 3)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5900	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5901	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5902	name: 'Box1'
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5903	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5904	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5905	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5906	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5907	label: 'FileIn Source Mode:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5908	name: 'FileInSourceModeLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5909	layout: (AlignmentOrigin 282 0 15 0 1 0.5)
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5910	activeHelpKey: fileInSourceMode
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5911	translateLabel: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5912	adjust: right
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5913	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5914	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5915	label: 'PopUp List'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5916	name: 'KeepSourceSelection'
17321 42f0864cbb2a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17320 diff changeset	5917	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	5918	activeHelpKey: fileInSourceMode
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5919	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5920	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5921	model: keepSourceSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5922	menu: keepSource
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5923	useIndex: true
16989 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	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5928	extent: (Point 600 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5929	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5930	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5931	name: 'Separator1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5932	extent: (Point 600 3)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5933	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5934	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5935	label: 'If Present, Load Binary Objects when Autoloading'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5936	name: 'LoadBinaryObjectsWhenAutoloading'
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	5937	activeHelpKey: loadBinaryObjectsWhenAutoloading
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5938	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5939	model: loadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5940	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5941	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5942	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5943	)
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5944
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5945	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5946	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5947	)
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	5948
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	5949	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	5950	)
4387 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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5953	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	5954
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5955	basicReadSettings
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5956	self keepSourceSelection
fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5957	value:(self class keepSourceOptions
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5958	indexOf:ClassCategoryReader sourceMode
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5959	ifAbsent:1).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5960	self catchClassRedefs value:(Class catchClassRedefinitions ? false).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5961	self catchMethodRedefs value:(Class catchMethodRedefinitions ? false).
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5962
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5963	self canLoadBinaries value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5964	self loadBinaries value:Smalltalk loadBinaries
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5965	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5966	self loadBinaries value:false
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5967	].
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5968
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5969	self hasHistoryManager ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5970	self fullHistoryUpdate value:(HistoryManager fullHistoryUpdate ? false)
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5971	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5972	self fullHistoryUpdate value:false
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5973	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5974	self historyLines value:self hasHistoryManager.
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	5975	self userNameInHistoryHolder value:(UserPreferences current historyManagerSignature).
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5976
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5977	"Modified: / 04-08-2010 / 18:34:15 / cg"
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	5978	"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	5979	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	5980
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5981	basicSaveSettings
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5982	\|nm\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5983
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5984	ClassCategoryReader sourceMode:(self class keepSourceOptions at:self keepSourceSelection value).
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5985	Class catchClassRedefinitions:(self catchClassRedefs value).
fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5986	Class catchMethodRedefinitions:(self catchMethodRedefs value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5987	HistoryManager notNil ifTrue:[
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5988	HistoryManager fullHistoryUpdate:(self fullHistoryUpdate value).
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5989	self historyLines value ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5990	HistoryManager activate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5991	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5992	HistoryManager deactivate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5993	].
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5994	UserPreferences current historyManagerEnabled:(self historyLines value).
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5995	nm := (self userNameInHistoryHolder value ? '') withoutSeparators asNilIfEmpty.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	5996	UserPreferences current historyManagerSignature:nm.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	5997	].
17212 fcc7e86f76d2 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17104 diff changeset	5998	Smalltalk loadBinaries:(self loadBinaries value).
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	5999
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6000	"Modified: / 04-08-2010 / 18:33:20 / cg"
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	6001	"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	6002	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6003
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6004	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6005
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6006	canLoadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6007
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6008	canLoadBinaries isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6009	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6010	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6011	^ canLoadBinaries.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6014	catchClassRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6015
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6016	catchClassRedefs isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6017	catchClassRedefs := (Class catchClassRedefinitions ? false) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6018	catchClassRedefs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6019	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6020	^ catchClassRedefs.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6023	catchMethodRedefs
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6024
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6025	catchMethodRedefs isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6026	catchMethodRedefs := (Class catchMethodRedefinitions ? false) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6027	catchMethodRedefs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6028	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6029	^ catchMethodRedefs.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6032	fullHistoryUpdate
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6033
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6034	fullHistoryUpdate isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6035	self hasHistoryManager ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6036	fullHistoryUpdate := (HistoryManager fullHistoryUpdate ? false) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6037	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6038	fullHistoryUpdate := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6039	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6040	fullHistoryUpdate onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6041	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6042	^ fullHistoryUpdate.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6045	hasHistoryManager
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6046
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6047	^ HistoryManager notNil and:[HistoryManager isLoaded and:[HistoryManager isActive]]
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6048	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6049
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6050	historyLines
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6051
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6052	historyLines isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6053	historyLines := self hasHistoryManager asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6054	historyLines onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6055	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6056	^ historyLines.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6059	keepSource
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6060
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6061	keepSource isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6062	keepSource := (resources array:(self class keepSourceStrings)) asList.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6063	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6064	^ keepSource.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6067	keepSourceSelection
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6068
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6069	keepSourceSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6070	keepSourceSelection := (self class keepSourceOptions indexOf:ClassCategoryReader sourceMode ifAbsent:1) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6071	keepSourceSelection onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6072	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6073	^ keepSourceSelection.
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
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6076	loadBinaries
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6077
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6078	loadBinaries isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6079	self canLoadBinaries value ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6080	loadBinaries:= Smalltalk loadBinaries asValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6081	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6082	loadBinaries:= false asValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6083	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6084	loadBinaries onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6085	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6086	^ loadBinaries.
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6087
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6088	"Modified: / 04-08-2010 / 18:34:56 / cg"
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
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6091	userNameInHistoryHolder
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6092
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6093	userNameInHistoryHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6094	userNameInHistoryHolder := '' asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6095	userNameInHistoryHolder onChangeSend:#updateModifiedChannel to:self.
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6096	].
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6097	^ userNameInHistoryHolder.
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6098
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6099	"Modified: / 04-08-2010 / 18:37:53 / cg"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6100	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6101
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6102	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6103
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6104	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6105	^ 'Launcher/compilerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6106	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6107
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6108	!AbstractSettingsApplication::GeneralCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6109
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6110	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6111	((HistoryManager fullHistoryUpdate ? false) ~= self fullHistoryUpdate value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6112	((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	6113	((Class catchMethodRedefinitions ? false) ~= self catchMethodRedefs value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6114	((Class catchClassRedefinitions ? false) ~= self catchClassRedefs value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6115	((Smalltalk loadBinaries ? false) ~= self loadBinaries value) ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6116	((self hasHistoryManager) ~= self historyLines value) ifTrue:[^ true].
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	6117	(UserPreferences current historyManagerSignature ~= self userNameInHistoryHolder value) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	6118	^ false.
9531 fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6119
fe82d3894f11 can set userName for history line sr parents: 9522 diff changeset	6120	"Modified: / 04-08-2010 / 18:31:55 / cg"
10279 a6c7441cb4ed Preference for HistoryManager signature vrany parents: 10241 diff changeset	6121	"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	6122	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	6123
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6124	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'help specs'!
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6125
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	6126	helpSpec
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6127	"This resource specification was automatically generated
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6128	by the UIHelpTool of ST/X."
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6129
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6130	"Do not manually edit this!! If it is corrupted,
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6131	the UIHelpTool may not be able to read the specification."
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6132
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6133	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6134	UIHelpTool openOnClass:AbstractSettingsApplication::HTTPStartServerSettingsApplication
14566 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
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6137	<resource: #help>
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6138
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	6139	^ super helpSpec addPairsFrom:#(
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6140
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6141	#createFCGIServer
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6142	'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	6143
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6144	#createServer
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6145	'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	6146
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6147	#createServerFromSettingsFile
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6148	'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	6149
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6150	#loadWebServerPackage
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6151	'Load the missing webserver class packages'
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6152
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6153	#removeAllServers
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6154	'Stop and remove all defined servers'
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6155
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6156	#serverPortNumber
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6157	'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	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	! !
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6161
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6162	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'image specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6163
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6164	defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6165	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6166	by the ImageEditor of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6167
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6168	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6169	the ImageEditor may not be able to read the specification."
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	"
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6172	self defaultIcon inspect
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6173	ImageEditor openOnClass:self andSelector:#defaultIcon
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6174	Icon flushCachedIcons
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
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6177	<resource: #image>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6178
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6179	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	6180	constantNamed:'AbstractSettingsApplication::HTTPStartServerSettingsApplication defaultIcon'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	6181	ifAbsentPut:[(Depth8Image width:22 height:22) bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	6182	@@@@@@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	6183	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	6184	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	6185	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	6186	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	6187	JB (JCX6AS@@@@@@@@@@@@@@J28AM#XAJCX(M T0@@@@@@@a')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	6188	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	6189	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	6190	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6191
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6192	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'interface specs'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6193
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6194	windowSpec
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6195	"This resource specification was automatically generated
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6196	by the UIPainter of ST/X."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6197
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6198	"Do not manually edit this!! If it is corrupted,
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6199	the UIPainter may not be able to read the specification."
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6200
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6201	"
4726 8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	6202	UIPainter new openOnClass:AbstractSettingsApplication::HTTPStartServerSettingsApplication andSelector:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	6203	AbstractSettingsApplication::HTTPStartServerSettingsApplication new openInterface:#windowSpec
8d022e0a5389 * empty log message * Claus Gittinger <cg@exept.de> parents: 4724 diff changeset	6204	AbstractSettingsApplication::HTTPStartServerSettingsApplication open
4724 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
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6207	<resource: #canvas>
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6208
15916 ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6209	^
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6210	#(FullSpec
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6211	name: windowSpec
15916 ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6212	window:
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6213	(WindowSpec
15916 ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6214	label: 'HTTP Server Settings'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6215	name: 'HTTP Server Settings'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6216	min: (Point 10 10)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6217	bounds: (Rectangle 0 0 539 630)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6218	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6219	component:
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6220	(SpecCollection
15916 ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6221	collection: (
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6222	(VerticalPanelViewSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6223	name: 'VerticalPanel1'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6224	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	6225	horizontalLayout: fit
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6226	verticalLayout: top
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6227	horizontalSpace: 3
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6228	verticalSpace: 3
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6229	component:
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6230	(SpecCollection
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6231	collection: (
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6232	(VerticalPanelViewSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6233	name: 'VerticalPanel4'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6234	horizontalLayout: fit
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6235	verticalLayout: topSpace
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6236	horizontalSpace: 3
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6237	verticalSpace: 3
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6238	component:
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6239	(SpecCollection
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6240	collection: (
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6241	(ViewSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6242	name: 'InfoMessageBox'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6243	component:
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6244	(SpecCollection
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6245	collection: (
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6246	(LabelSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6247	label: 'Label'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6248	name: 'Label2'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6249	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	6250	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6251	labelChannel: informationLabel
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6252	resizeForLabel: false
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6253	adjust: left
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6254	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6255	(ActionButtonSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6256	label: 'Load Missing WebServer Packages'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6257	name: 'Button8'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6258	layout: (AlignmentOrigin 0 0.5 0 1 0.5 1)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6259	activeHelpKey: loadWebServerPackage
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6260	visibilityChannel: hasWebServerClassesNotLoadedHolder
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6261	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6262	tabable: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6263	model: loadWebServerPackages
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	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6268	extent: (Point 539 200)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6269	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6270	(ViewSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6271	name: 'Separator'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6272	extent: (Point 539 20)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6273	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6274	(ViewSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6275	name: 'ActionButtonBox'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6276	component:
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6277	(SpecCollection
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6278	collection: (
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6279	(LabelSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6280	label: 'Port:'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6281	name: 'Label1'
17006 db74a64a26d6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17005 diff changeset	6282	layout: (LayoutFrame 5 0 21 0 57 0 49 0)
15916 ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6283	activeHelpKey: serverPortNumber
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6284	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6285	adjust: right
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6286	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6287	(InputFieldSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6288	name: 'EntryField1'
17006 db74a64a26d6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17005 diff changeset	6289	layout: (LayoutFrame 57 0 20 0 128 0 48 0)
15916 ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6290	activeHelpKey: serverPortNumber
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6291	enableChannel: hasWebServerClassesLoadedHolder
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6292	model: portNumberChannel
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6293	type: number
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6294	immediateAccept: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6295	acceptOnReturn: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6296	acceptOnTab: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6297	acceptOnLostFocus: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6298	acceptOnPointerLeave: false
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6299	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6300	(VerticalPanelViewSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6301	name: 'VerticalPanel5'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6302	layout: (LayoutFrame 136 0 14 0 -12 1 0 1)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6303	horizontalLayout: fit
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6304	verticalLayout: topSpace
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6305	horizontalSpace: 3
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6306	verticalSpace: 3
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6307	component:
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6308	(SpecCollection
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6309	collection: (
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6310	(ActionButtonSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6311	label: 'Create new HTTP Server'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6312	name: 'Button4'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6313	activeHelpKey: createServer
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6314	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6315	tabable: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6316	model: createServer
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6317	enableChannel: hasWebServerClassesLoadedHolder
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6318	useDefaultExtent: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6319	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6320	(ActionButtonSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6321	label: 'Create new FastCGI Server'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6322	name: 'Button7'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6323	activeHelpKey: createFCGIServer
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6324	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6325	tabable: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6326	model: createFcgiServer
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6327	enableChannel: hasWebServerClassesLoadedHolder
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6328	useDefaultExtent: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6329	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6330	(ActionButtonSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6331	label: 'Create Server from Settings File...'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6332	name: 'Button6'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6333	activeHelpKey: createServerFromSettingsFile
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6334	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6335	tabable: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6336	model: createServerFromFile
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6337	enableChannel: hasWebServerClassesLoadedHolder
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6338	useDefaultExtent: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6339	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6340	(ActionButtonSpec
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6341	label: 'Remove all Servers'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6342	name: 'Button5'
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6343	activeHelpKey: removeAllServers
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6344	translateLabel: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6345	tabable: true
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6346	model: removeAllServers
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6347	enableChannel: hasCreatedServerChannel
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6348	useDefaultExtent: true
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	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6357	extent: (Point 539 160)
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	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6362	extent: (Point 539 620)
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	)
ec07e56bf8ab #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15903 diff changeset	6369
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6370	)
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6371	)
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6372	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6373
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6374	!AbstractSettingsApplication::HTTPStartServerSettingsApplication class methodsFor:'servers access'!
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6375
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6376	addCreatedServer:aServer
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6377	self createdServers add:aServer.
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
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6380	createdServers
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6381	CreatedServers isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6382	CreatedServers := Set new.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6383	].
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6384	^ CreatedServers
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
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6387	removeAllCreatedServer
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6388	self createdServers removeAll.
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
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6391	removeCreatedServer:aServer
5355 aa7b1d44d7a8 remove server from createdServers penk parents: 5346 diff changeset	6392	self createdServers remove:aServer ifAbsent:nil.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6393	! !
7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6394
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6395	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'actions'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6396
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6397	basicReadSettings
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6398	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6399
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6400	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6401	(serverClass notNil and:[serverClass isLoaded]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6402	self serverClass runningServers
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6403	removeDependent:self;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6404	addDependent:self.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6405	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6406	self createServerSubApplicationsForRunningServers.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6407	self createdServerChanged.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6408
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6409	"Modified: / 25-01-2007 / 16:41:27 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6410	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	6411
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6412	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	6413	"nothing done here"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6414
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6415	^ self
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6416	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6417
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6418	createFcgiServer
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6419	"create a FastCGI server"
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6420
7548 ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	6421	FCGIServer isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6422	self warn:'The FCGIServer-class is missing - cannot create server.'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6423	^ self.
7548 ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	6424	].
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6425	^ self createServerForClass:FCGIServer.
7548 ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	6426
ed1139a660b3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7532 diff changeset	6427	"Modified: / 26-11-2006 / 13:12:14 / cg"
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6428	!
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6429
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6430	createServer
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6431	"create a default server - i.e. a HTTP server"
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6432
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6433	HTTPServer isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6434	self warn:'The HTTPServer-class is missing - cannot create server.'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6435	^ self.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6436	].
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6437	^ self createServerForClass:self serverClass.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6438
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6439	"Modified: / 09-04-2011 / 11:15:52 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6440	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6441
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	6442	createServerApplicationFor:aServerInstance
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	6443	\|settingsApp itemPathName newItem openApps\|
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6444
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6445	"/ settingsDialog isNil ifTrue:[^ self].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6446
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	6447	openApps := settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl.
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	6448	(openApps contains:[:app \| app httpServerInstance == aServerInstance]) ifTrue:[
15001 825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6449	" already have an Item for this application "
825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6450	^ self
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6451	].
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6452	HTTPServerSettingsAppl isNil ifTrue:[
15001 825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6453	Smalltalk loadPackage:'stx:goodies/webServer/ui'.
825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6454	HTTPServerSettingsAppl isNil ifTrue:[
825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6455	self warn:'Missing settings application: HTTPServerSettingsAppl'.
825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6456	^ self.
825f9f04c3c9 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14967 diff changeset	6457	].
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6458	].
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6459
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6460	settingsApp := HTTPServerSettingsAppl basicNew.
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6461	settingsApp settingsDialog:settingsDialog.
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6462	settingsApp httpServerInstance:aServerInstance.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6463	settingsApp defaultSettingsApplication:false.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6464	settingsApp basicInitialize.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6465	itemPathName := self itemPathName , '/', settingsApp nameInSettingsDialog.
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6466	newItem := settingsDialog addApplClass:#'HTTPServerSettingsAppl' withName:itemPathName.
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6467	newItem application:settingsApp.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6468	self createdServerChanged.
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6469	settingsDialog expandItemForApplication:self.
9814 9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6470	settingsApp readSettings.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6471	settingsApp initialize.
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6472
9cbbd1c58821 x Claus Gittinger <cg@exept.de> parents: 9811 diff changeset	6473	"Modified: / 09-04-2011 / 11:17:44 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6474	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6475
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6476	createServerForClass:serverClass
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6477
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6478	\|newServer port runningServers\|
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6479
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6480	serverClass isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6481	self warn:'The server class is missing - cannot create server.'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6482	^ self.
6444 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
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6485	self withWaitCursorDo:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6486	port := self portNumberChannel value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6487	runningServers := serverClass runningServers.
16625 1ad26ef997ff #REFACTORING by mawalch mawalch parents: 16593 diff changeset	6488
1ad26ef997ff #REFACTORING by mawalch mawalch parents: 16593 diff changeset	6489	runningServers do:[:aServer \|
1ad26ef997ff #REFACTORING by mawalch mawalch parents: 16593 diff changeset	6490	aServer port = port asInteger ifTrue:[
1ad26ef997ff #REFACTORING by mawalch mawalch parents: 16593 diff changeset	6491	Dialog warn:'There is already a server for port ', port asString.
1ad26ef997ff #REFACTORING by mawalch mawalch parents: 16593 diff changeset	6492	^ self
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6493	]
16625 1ad26ef997ff #REFACTORING by mawalch mawalch parents: 16593 diff changeset	6494	].
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6495	runningServers addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6496
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6497	(port = serverClass defaultPort) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6498	newServer := serverClass newServerWithDefaultServiceListOn:port.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6499	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6500	newServer := serverClass newServerOnPort:port.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6501	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6502	self class addCreatedServer:newServer.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6503	self createServerApplicationFor:newServer.
6444 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	!
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6506
5049 3df132763949 instable state penk parents: 5044 diff changeset	6507	createServerFromFile
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6508	\|serverClass newServer fileName runningServers newServerPort answer\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6509
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6510	serverClass := self serverClass.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6511	fileName := Dialog requestFileName:'Select a Server Settings File'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6512	default:(serverClass settingsFilename)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6513	pattern:'*.xml'.
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6514
5049 3df132763949 instable state penk parents: 5044 diff changeset	6515	fileName isEmptyOrNil ifTrue:[ ^ self].
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	6516	self withWaitCursorDo:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6517	newServer := serverClass serverFromSettingsFile:(fileName asFilename).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6518	newServer notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6519	newServerPort := newServer port.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6520	runningServers := serverClass runningServers.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6521	runningServers notEmpty ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6522	[self hasServerForPort:newServerPort] whileTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6523	answer := Dialog
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6524	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	6525	initialAnswer:self portNumberChannel value printString.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6526	answer isEmptyOrNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6527	^ self
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6528	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6529	newServerPort := Number readFromString:answer.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6530	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6531	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6532	newServer port:newServerPort.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6533	runningServers addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6534	self class addCreatedServer:newServer.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6535	self createServerApplicationFor:newServer.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6536	].
5049 3df132763949 instable state penk parents: 5044 diff changeset	6537	].
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6538
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6539	"Modified: / 25-01-2007 / 16:40:57 / cg"
5049 3df132763949 instable state penk parents: 5044 diff changeset	6540	!
3df132763949 instable state penk parents: 5044 diff changeset	6541
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	6542	createServerSubApplicationsForRunningServers
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6543	\|serverToStart serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6544
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6545	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6546
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6547	(serverClass notNil and:[ serverClass isLoaded ]) ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6548	^ self
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6549	].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6550
12570 c9f359cab740 class: AbstractSettingsApplication Stefan Vogel <sv@exept.de> parents: 12478 diff changeset	6551	serverToStart := serverClass runningServers asNewSet.
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6552	serverToStart addAll:self class createdServers.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6553	serverToStart isEmpty ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6554	^ self
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6555	].
11774 4a80d7101f58 x Claus Gittinger <cg@exept.de> parents: 11732 diff changeset	6556	serverToStart := serverToStart select:[:s \| s port notNil].
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6557	serverToStart := serverToStart asSortedCollection:[:a :b \| a port < b port].
2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6558	serverToStart do:[:eachServerInstance \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6559	self createServerApplicationFor:eachServerInstance.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6560	]
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6561
11774 4a80d7101f58 x Claus Gittinger <cg@exept.de> parents: 11732 diff changeset	6562	"Modified: / 26-08-2012 / 10:25:23 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6563	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6564
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	6565	hasServerForPort:newServerPort
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6566	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6567
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6568	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6569	^ serverClass notNil
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6570	and:[ serverClass runningServers
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6571	contains:[:eachServer\| eachServer port = newServerPort]].
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6572
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6573	"Modified: / 25-01-2007 / 16:39:48 / cg"
5055 b3cba6441579 ready to use penk parents: 5049 diff changeset	6574	!
b3cba6441579 ready to use penk parents: 5049 diff changeset	6575
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6576	loadWebServerPackages
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6577	Smalltalk loadPackage:'stx:goodies/webServer'.
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6578	Smalltalk loadPackage:'stx:goodies/webServer/htmlTree'.
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6579	Smalltalk loadPackage:'stx:goodies/webServer/comanche'.
18124 28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	6580	Smalltalk loadPackage:'stx:goodies/webServer/comanche/stt'.
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	6581	Smalltalk loadPackage:'stx:goodies/webServer/comanche/swiki'.
28ffa84a262d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18108 diff changeset	6582	Smalltalk loadPackage:'stx:goodies/webServer/comanche/seaside2_5b4/squeakCompatibility'.
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6583	Smalltalk loadPackage:'stx:goodies/webServer/ui'.
16309 77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	6584	self hasWebServerClassesNotLoadedHolder value:(self hasWebServerClassesLoaded not).
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6585	!
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6586
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6587	removeAllServerSubApplications
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6588	"/ settingsDialog isNil ifTrue:[^ self].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6589
6389 9f4010737320 code cleanup Claus Gittinger <cg@exept.de> parents: 6383 diff changeset	6590	settingsDialog removeAllSubApplicationsFor:self
5030 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
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6593	removeAllServers
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6594	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6595
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6596	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6597	serverClass isLoaded ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6598	serverClass terminateAllServers.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	6599	].
5346 7d92545574ea access all created server in class var penk parents: 5343 diff changeset	6600	self class removeAllCreatedServer.
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	6601	self removeAllServerSubApplications.
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	6602	self createdServerChanged.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6603
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6604	"Modified: / 25-01-2007 / 16:39:10 / cg"
4883 45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	6605	!
45341d5a8867 avoid autoloading HTTPServer Claus Gittinger <cg@exept.de> parents: 4874 diff changeset	6606
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6607	setPortOnFreePort
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6608	\|serverClass highestUsedPortNr portToUse instances\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6609
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6610	"/ settingsDialog isNil ifTrue:[^ self].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6611
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6612	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6613	(serverClass notNil and:[serverClass isLoaded]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6614	instances := serverClass runningServers asNewSet.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6615	instances addAll:((settingsDialog getAllChildrenAppsForApplication:self)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6616	collect:[:aApp\| aApp httpServerInstance]).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6617	instances := instances select:[:i \| i port notNil].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6618	highestUsedPortNr := instances
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6619	inject:(serverClass defaultPort - 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6620	into:[:maxSoFar :thisServer \| thisServer port max:maxSoFar].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6621
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6622	portToUse := highestUsedPortNr + 1
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6623	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6624	portToUse := 8080
4893 39dec723f6ad * empty log message * penk parents: 4886 diff changeset	6625	].
39dec723f6ad * empty log message * penk parents: 4886 diff changeset	6626	self portNumberChannel value:portToUse.
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6627
11774 4a80d7101f58 x Claus Gittinger <cg@exept.de> parents: 11732 diff changeset	6628	"Modified: / 26-08-2012 / 10:26:20 / cg"
4724 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
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6631	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'aspects'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6632
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6633	hasCreatedServerChannel
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6634	hasCreatedServerChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6635	hasCreatedServerChannel := true asValue.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6636	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6637	^ hasCreatedServerChannel.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6638	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6639
16309 77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	6640	hasWebServerClassesLoaded
77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	6641	^ self hasHTTPServerClass and:[self hasFCGIServerClass].
77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	6642	!
77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	6643
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6644	hasWebServerClassesLoadedHolder
16309 77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	6645	^ BlockValue forLogicalNot:(self hasWebServerClassesNotLoadedHolder)
14566 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
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6648	hasWebServerClassesNotLoadedHolder
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6649	hasWebServerClassesNotLoadedHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6650	hasWebServerClassesNotLoadedHolder := true asValue.
16309 77759d7cbb61 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16257 diff changeset	6651	hasWebServerClassesNotLoadedHolder value:(self hasWebServerClassesLoaded not).
14566 29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6652	].
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6653	^ hasWebServerClassesNotLoadedHolder.
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6654	!
29d10046a8f4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14550 diff changeset	6655
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6656	informationLabel
11504 20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6657	\|info\|
20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6658
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6659	info := resources
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6660	string:'HTTPSTARTINFO'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6661	default:
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6662	'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	6663	(i.e. it is possible to serve multiple ports)
b6ee439ffc40 * empty log message * Claus Gittinger <cg@exept.de> parents: 5085 diff changeset	6664
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6665	Once created, select the individual server in the left tree,
11504 20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6666	configure its services, and finally start it up.'.
20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6667
20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6668	self hasHTTPServerClass ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6669	info := info ,
19041 7e56f18cb39e #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 18957 diff changeset	6670	c'\n\n',
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6671	(resources string:'ATTENTION: Disabled because HTTPServer class is missing.') allBold
11504 20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6672	].
20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6673	^ info
20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6674
20cdd5f4651b info why disabled Claus Gittinger <cg@exept.de> parents: 11449 diff changeset	6675	"Modified: / 14-05-2012 / 12:35:46 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6676	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6677
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6678	portNumberChannel
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6679
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6680	portNumberChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6681	portNumberChannel := ValueHolder new.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6682	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6683	^ portNumberChannel.
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
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6686	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'change & update'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6687
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6688	createdServerChanged
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6689
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6690	self hasCreatedServerChannel value:self hasCreatedServer.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6691	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6692	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6693
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6694	runningServersChanged
4899 1bde09704293 * empty log message * penk parents: 4893 diff changeset	6695	self createServerSubApplicationsForRunningServers.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6696	self setPortOnFreePort.
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6697	!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6698
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6699	update:something with:aParameter from:changedObject
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6700	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6701
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6702	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6703	(serverClass isLoaded and:[changedObject == serverClass runningServers]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6704	self runningServersChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6705	^ self.
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6706	].
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6707	super update:something with:aParameter from:changedObject
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6708
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6709	"Modified: / 25-01-2007 / 16:38:52 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6710	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6711
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6712	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6713
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6714	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6715	^ 'HTTPServer/index.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6716	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	6717
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6718	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'initialization & release'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6719
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6720	release
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6721	\|serverClass\|
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6722
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6723	serverClass := self serverClass.
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6724	(serverClass notNil and:[serverClass isLoaded]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6725	serverClass runningServers removeDependent:self.
14066 0e59cd86d52f class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13915 diff changeset	6726	].
0e59cd86d52f class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13915 diff changeset	6727	super release
7607 c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6728
c7155c02770f * empty log message * Claus Gittinger <cg@exept.de> parents: 7580 diff changeset	6729	"Modified: / 25-01-2007 / 16:39:23 / cg"
4724 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
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6732	!AbstractSettingsApplication::HTTPStartServerSettingsApplication methodsFor:'queries'!
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6733
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6734	hasCreatedServer
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	6735	"/ settingsDialog isNil ifTrue:[^ false].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	6736	^ (settingsDialog getAllChildrenAppsForApplication:self childrenClass:HTTPServerSettingsAppl)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	6737	notEmpty
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6738	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6739
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6740	hasFCGIServerClass
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6741	^ FCGIServer notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6742
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6743	"Created: / 25-01-2007 / 17:50:14 / cg"
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
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6746	hasHTTPServerClass
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6747	^ self serverClass notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6748
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6749	"Created: / 25-01-2007 / 17:50:03 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6750	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6751
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6752	hasUnsavedChanges
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6753
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	6754	^ false
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	6755	!
d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	6756
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6757	isEnabledInSettingsDialog:aSettingsDialog
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6758	^ true
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6759	"/ ^ self serverClass notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6760	"/ or:[ HTTPServer notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6761	"/ or:[ FCGIServer notNil ]]
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6762
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6763	"Created: / 25-01-2007 / 16:48:18 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6764	"Modified: / 25-01-2007 / 17:49:24 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6765	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6766
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	6767	serverClass
16718 cc9f5b0ac2bd #OTHER by mawalch mawalch parents: 16682 diff changeset	6768	"answer the default class for instantiating servers.
cc9f5b0ac2bd #OTHER by mawalch mawalch parents: 16682 diff changeset	6769	Note that we may instantiate FCGIServer as well"
6444 2fea2d87fcff FastCGI integration Stefan Vogel <sv@exept.de> parents: 6431 diff changeset	6770
6426 d769436f958c FCGI-Support Stefan Vogel <sv@exept.de> parents: 6389 diff changeset	6771	^ HTTPServer
7608 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
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6774	whyDisabledInSettingsDialogInfo
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6775	^ 'there is no HTTPServer class in the system'
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6776
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	6777	"Created: / 25-01-2007 / 17:16:46 / cg"
4724 57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6778	! !
57b61d7d19ad HTTPStartServerApp must be included Claus Gittinger <cg@exept.de> parents: 4718 diff changeset	6779
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6780	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'help specs'!
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6781
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	6782	helpSpec
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6783	"This resource specification was automatically generated
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6784	by the UIHelpTool of ST/X."
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6785
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6786	"Do not manually edit this!! If it is corrupted,
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6787	the UIHelpTool may not be able to read the specification."
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	"
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6790	UIHelpTool openOnClass:AbstractSettingsApplication::MemorySettingsAppl
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
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6793	<resource: #help>
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6794
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	6795	^ super helpSpec addPairsFrom:#(
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6796
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6797	#rawKeyList
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6798	'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	6799
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6800	#functionKeyList
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6801	'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	6802
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6803	#'changeMap'
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6804	'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	6805
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6806	#'applyChange'
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6807	'Adds the current key-function combination to the keyboard map'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6808
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6809	#saveMapAs
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6810	'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	6811
15047 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	! !
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6814
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6815	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6816
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6817	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6818	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6819
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	6820	^ ToolbarIconLibrary keyboardMappingIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6821	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	6822
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6823	!AbstractSettingsApplication::KbdMappingSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6824
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	6825	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6826	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6827	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6828
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6829	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6830	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6831
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6832	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	6833	UIPainter new openOnClass:AbstractSettingsApplication::KbdMappingSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6834	AbstractSettingsApplication::KbdMappingSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	6835	AbstractSettingsApplication::KbdMappingSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6836	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6837
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6838	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	6839
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6840	^
13496 bbfee49a9595 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13494 diff changeset	6841	#(FullSpec
bbfee49a9595 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13494 diff changeset	6842	name: windowSpec
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6843	window:
13496 bbfee49a9595 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13494 diff changeset	6844	(WindowSpec
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6845	label: 'Keyboard Mapping Settings'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6846	name: 'Keyboard Mapping Settings'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6847	min: (Point 10 10)
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6848	bounds: (Rectangle 0 0 482 654)
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6849	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6850	component:
13496 bbfee49a9595 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13494 diff changeset	6851	(SpecCollection
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6852	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6853	(TextEditorSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6854	name: 'Text'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6855	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	6856	enableChannel: false
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6857	model: labelTextHolder
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6858	hasHorizontalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6859	hasVerticalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6860	miniScrollerHorizontal: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6861	miniScrollerVertical: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6862	isReadOnly: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6863	hasKeyboardFocusInitially: false
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6864	postBuildCallback: postBuildHelpLabel:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6865	viewClassName: 'TextView'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6866	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6867	(VariableVerticalPanelSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6868	name: 'VariableVerticalPanel1'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6869	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	6870	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6871	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6872	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6873	(VariableHorizontalPanelSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6874	name: 'VariableHorizontalPanel1'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6875	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6876	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6877	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6878	(ViewSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6879	name: 'Box2'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6880	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6881	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6882	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6883	(LabelSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6884	label: 'Key'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6885	name: 'Label1'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6886	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6887	translateLabel: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6888	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6889	(SequenceViewSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6890	name: 'RawKeyList'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6891	layout: (LayoutFrame 0 0 30 0 0 1 -30 1)
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6892	activeHelpKey: rawKeyList
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6893	model: selectedRawKey
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6894	hasHorizontalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6895	hasVerticalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6896	useIndex: false
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6897	sequenceList: rawKeyList
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6898	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6899	(ViewSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6900	name: 'Box4'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6901	layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6902	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6903	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6904	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6905	(CheckBoxSpec
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6906	label: 'Modify'
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6907	name: 'CheckBox1'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6908	layout: (LayoutFrame 0 0 7 0 136 0 29 0)
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6909	activeHelpKey: changeMap
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6910	model: changeMapHolder
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6911	translateLabel: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6912	)
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6913	(InputFieldSpec
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6914	name: 'EntryField1'
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6915	layout: (LayoutFrame 136 0 7 0 0 1 29 0)
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6916	visibilityChannel: changeMapHolder
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6917	model: currentKeyHolder
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6918	acceptOnReturn: true
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6919	acceptOnTab: true
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6920	acceptOnPointerLeave: true
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6921	)
15043 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	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6930	(ViewSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6931	name: 'Box3'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6932	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6933	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6934	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6935	(LabelSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6936	label: 'Function'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6937	name: 'Label2'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6938	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6939	translateLabel: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6940	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6941	(SequenceViewSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6942	name: 'FunctionKeyList'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6943	layout: (LayoutFrame 0 0 30 0 0 1 -30 1)
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6944	activeHelpKey: functionList
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6945	model: selectedFunctionKey
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6946	hasHorizontalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6947	hasVerticalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6948	useIndex: false
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6949	sequenceList: functionKeyList
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6950	)
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6951	(HorizontalPanelViewSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6952	name: 'HorizontalPanel1'
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6953	layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6954	horizontalLayout: fitSpace
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6955	verticalLayout: center
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6956	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6957	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6958	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6959	(ActionButtonSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6960	label: 'Apply'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6961	name: 'Button1'
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6962	activeHelpKey: applyChange
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	6963	visibilityChannel: changeMapHolder
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6964	translateLabel: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6965	model: applyMapChange
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6966	extent: (Point 125 22)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6967	)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6968	(ActionButtonSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6969	label: 'Save As...'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6970	name: 'Button2'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6971	activeHelpKey: saveMapAs
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6972	visibilityChannel: changeMapHolder
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6973	translateLabel: true
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6974	model: saveMapAs
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	6975	extent: (Point 125 22)
15043 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	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6988	handles: (Any 0.5 1.0)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6989	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6990	(ViewSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6991	name: 'Box1'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6992	component:
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6993	(SpecCollection
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6994	collection: (
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6995	(LabelSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6996	label: 'Macro text (if any):'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6997	name: 'MacroTextLabel'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6998	layout: (LayoutFrame 0 0.0 0 0 0 1.0 30 0)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	6999	translateLabel: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7000	adjust: left
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7001	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7002	(TextEditorSpec
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7003	name: 'MacroText'
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7004	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	7005	activeHelpKey: macroText
15043 7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7006	model: macroTextHolder
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7007	hasHorizontalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7008	hasVerticalScrollBar: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7009	isReadOnly: true
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7010	hasKeyboardFocusInitially: false
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	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7019	handles: (Any 0.5 1.0)
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	)
7ac6a56ec87b class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15019 diff changeset	7022
13496 bbfee49a9595 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13494 diff changeset	7023	)
bbfee49a9595 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13494 diff changeset	7024	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7025	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7026
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7027	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7028
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7029	applyMapChange
15051 e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	7030	\|rawKey function\|
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	7031
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	7032	rawKey := self currentKeyHolder value asSymbol.
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	7033	function := self selectedFunctionKey value asSymbol.
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	7034
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	7035	function = (resources string:'* unassigned *') ifTrue:[
16644 1c87adf56e82 #BUGFIX by mawalch mawalch parents: 16629 diff changeset	7036	mappings removeKey:rawKey
15051 e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	7037	] ifFalse:[
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	7038	mappings at:rawKey put:function.
e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	7039	].
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7040	self updateModifiedChannel.
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7041	!
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7042
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7043	basicReadSettings
15050 9034dd01f8a4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15049 diff changeset	7044	\|screenMap l\|
9034dd01f8a4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15049 diff changeset	7045
9034dd01f8a4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15049 diff changeset	7046	screenMap := Screen current keyboardMap.
9034dd01f8a4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15049 diff changeset	7047	mappings := screenMap species new declareAllFrom: screenMap.
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7048
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7049	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	7050	l := (mappings values asSet collect:[:key \| key asString] as:OrderedCollection) sort.
15051 e44015082864 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15050 diff changeset	7051	l addFirst:(resources string:'* unassigned *').
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7052	self functionKeyList contents:l.
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7053
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7054	self changeMapHolder value:false.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7055	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7056
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7057	basicSaveSettings
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7058	self saveMapAs:(Filename applicationDataDirectory construct:'private_keyboard.rc')
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
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7061	saveMapAs
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7062	"invoked via save as button"
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7063
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7064	\|fn\|
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7065
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7066	fn := Dialog
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7067	requestFileName:'Save private keyboard settings in:'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7068	default:'private_keyboard.rc'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7069	fromDirectory:(Filename applicationDataDirectory).
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7070	fn isEmptyOrNil ifTrue:[ ^ self ].
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7071	self saveMapAs:fn asFilename.
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
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7074	saveMapAs:aFilename
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7075	aFilename writingFileDo:[:s \|
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7076	s nextPutLine:'\|map\|'.
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7077	s nextPutLine:'map := Screen current keyboardMap.'.
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7078	mappings keysAndValuesDo:[:eachKey :eachFunction \|
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7079	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	7080	].
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7081	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7082	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7083
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7084	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7085
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7086	changeMapHolder
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7087	changeMapHolder isNil ifTrue:[
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7088	changeMapHolder := false asValue.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7089	].
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7090	^ changeMapHolder.
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
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7093	currentKeyHolder
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7094	currentKeyHolder isNil ifTrue:[
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7095	currentKeyHolder := nil asValue.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7096	].
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7097	^ currentKeyHolder.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7098	!
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7099
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7100	functionKeyList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7101	functionKeyList isNil ifTrue:[
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7102	functionKeyList := List new.
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7103	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7104	^ functionKeyList.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7105	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7106
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7107	labelTextHolder
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7108	labelTextHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7109	labelTextHolder := ValueHolder new.
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7110	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7111	^ labelTextHolder.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7112	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	7113
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7114	macroTextHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7115	macroTextHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7116	macroTextHolder := ValueHolder new.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7117	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7118	^ macroTextHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7119	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7120
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7121	rawKeyList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7122
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7123	rawKeyList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7124	rawKeyList := List new.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7125	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7126	^ rawKeyList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7127	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7128
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7129	selectedFunctionKey
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7130
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7131	selectedFunctionKey isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7132	selectedFunctionKey := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7133	selectedFunctionKey addDependent:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7134	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7135	^ selectedFunctionKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7136	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7137
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7138	selectedRawKey
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7139
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7140	selectedRawKey isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7141	selectedRawKey := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7142	selectedRawKey addDependent:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7143	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7144	^ selectedRawKey.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7145	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7146
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7147	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7148
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7149	changeFunctionKeySelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7150	\|raw\|
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7151
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7152	raw := self selectedRawKey value.
9629 e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	7153	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	7154
e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	7155	"Modified: / 11-11-2010 / 06:50:04 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7156	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7157
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7158	changeMacroText
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7159
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7160	\|f macro indent\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7161
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7162	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7163	(f startsWith:'Cmd') ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7164	f := f copyFrom:4
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7165	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7166	macro := currentUserPrefs functionKeySequences
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7167	at:(f asSymbol) ifAbsent:nil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7168	macro notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7169	macro := macro asStringCollection.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7170	indent := macro
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7171	inject:99999 into:[:min :element \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7172	\|stripped\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7173
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7174	stripped := element withoutLeadingSeparators.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7175	stripped isEmpty ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7176	min
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7177	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7178	min min:(element size - stripped size)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7179	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7180	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7181	indent ~~ 0 ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7182	macro := macro collect:[:line \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7183	line size > indent ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7184	line copyFrom:indent+1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7185	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7186	line
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7187	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7188	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7189	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7190	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7191	macroTextHolder value:macro.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7192	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7193
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7194	changeRawKeySelection
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7195	\|f raw\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7196
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7197	f := self selectedFunctionKey value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7198	raw := mappings keyAtValue:f asString.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7199	raw isNil ifTrue:[
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7200	raw := mappings keyAtValue:f first.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7201	raw isNil ifTrue:[
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7202	raw := mappings keyAtValue:f asSymbol.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7203	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7204	].
9629 e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	7205	self selectedRawKey value:raw withoutNotifying:self.
e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	7206
e71fb7571f14 selection in kbd setting dialog Claus Gittinger <cg@exept.de> parents: 9628 diff changeset	7207	"Modified: / 11-11-2010 / 06:49:56 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7208	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7209
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7210	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7211	changedObject == self selectedFunctionKey ifTrue:[
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7212	changeMapHolder value ifFalse:[
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7213	self changeRawKeySelection.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7214	].
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7215	self changeMacroText.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7216	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7217	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7218	changedObject == self selectedRawKey ifTrue:[
15047 cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7219	changeMapHolder value ifFalse:[
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7220	self changeFunctionKeySelection.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7221	].
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7222	self currentKeyHolder value:changedObject value.
cdfb5c80a65e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15043 diff changeset	7223	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7224	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7225	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7226	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7227
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7228	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7229
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7230	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7231	^ 'Launcher/keyboardSetting.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7232	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7233
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7234	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7235
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7236	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7237
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7238	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7239
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7240	super initialize.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	7241
15050 9034dd01f8a4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15049 diff changeset	7242	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	7243
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7244	"Modified: / 08-02-2017 / 00:30:32 / cg"
14568 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
6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7247	postBuildHelpLabel:aWidget
6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7248	aWidget level:0.
6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7249	aWidget scrolledView backgroundColor:self window viewBackground.
6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7250	aWidget font:(Label defaultFont).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7251	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7252
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7253	!AbstractSettingsApplication::KbdMappingSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7254
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7255	hasUnsavedChanges
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	7256	^ mappings ~= Screen current keyboardMap.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7257	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7258
14377 2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7259	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'font specs'!
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7260
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7261	bigLabelFont
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7262	<resource: #fontSpec>
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7263
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7264	^ Label defaultFont asBold
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7265	! !
2ad72c8d6bad class: AbstractSettingsApplication::LanguageSettingsAppl Stefan Vogel <sv@exept.de> parents: 14376 diff changeset	7266
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7267	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'help specs'!
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7268
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	7269	helpSpec
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7270	"This resource specification was automatically generated
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7271	by the UIHelpTool of ST/X."
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7272
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7273	"Do not manually edit this!! If it is corrupted,
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7274	the UIHelpTool may not be able to read the specification."
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7275
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7276	"
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7277	UIHelpTool openOnClass:HTTPServerSettingsAppl
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7278	"
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7279
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7280	<resource: #help>
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7281
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	7282	^ super helpSpec addPairsFrom:#(
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7283
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7284	#useSystemLanguage
16524 ecacacdca483 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16466 diff changeset	7285	'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	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	! !
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7289
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7290	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7291
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7292	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	7293	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	7294
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	7295	^ ToolbarIconLibrary languagesIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7296	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7297
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7298	!AbstractSettingsApplication::LanguageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7299
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7300	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7301	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7302	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7303
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7304	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7305	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7306
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7307	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	7308	UIPainter new openOnClass:AbstractSettingsApplication::LanguageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7309	AbstractSettingsApplication::LanguageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	7310	AbstractSettingsApplication::LanguageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7311	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7312
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7313	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7314
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7315	^
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	7316	#(FullSpec
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	7317	name: windowSpec
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7318	window:
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	7319	(WindowSpec
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7320	label: 'Language Settings'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7321	name: 'Language Settings'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7322	min: (Point 10 10)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7323	bounds: (Rectangle 0 0 571 878)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7324	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7325	component:
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	7326	(SpecCollection
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7327	collection: (
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7328	(LabelSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7329	label: 'Current Language:'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7330	name: 'Label1'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7331	layout: (LayoutFrame 0 0 0 0 -233 1 30 0)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7332	translateLabel: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7333	labelChannel: currentLanguageLabel
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7334	adjust: right
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7335	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7336	(LabelSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7337	label: 'Label'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7338	name: 'CurrentLang'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7339	layout: (LayoutFrame -233 1 0 0 0 1 30 0)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7340	style: bigLabelFont
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7341	translateLabel: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7342	labelChannel: currentFlagAndLanguageChannel
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7343	adjust: left
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7344	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7345	(TextEditorSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7346	name: 'TextEditor1'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7347	layout: (LayoutFrame 0 0 32 0 0 1.0 240 0)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7348	model: noticeLabelHolder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7349	hasHorizontalScrollBar: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7350	hasVerticalScrollBar: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7351	miniScrollerHorizontal: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7352	autoHideScrollBars: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7353	isReadOnly: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7354	hasKeyboardFocusInitially: false
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7355	postBuildCallback: postBuildHelpLabel:
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7356	viewClassName: 'TextView'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7357	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7358	(InputFieldSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7359	name: 'EntryField1'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7360	layout: (LayoutFrame 2 0.0 240 0 -2 1.0 270 0)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7361	model: languageHolder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7362	acceptOnReturn: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7363	acceptOnTab: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7364	acceptOnLostFocus: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7365	acceptOnPointerLeave: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7366	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7367	(CheckBoxSpec
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7368	label: 'Use OS Language on Startup'
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7369	name: 'CheckBox1'
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7370	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	7371	activeHelpKey: useSystemLanguage
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7372	model: useSystemLanguageHolder
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7373	translateLabel: true
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7374	)
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7375	(SequenceViewSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7376	name: 'List1'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7377	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	7378	model: languageIndexHolder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7379	hasHorizontalScrollBar: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7380	hasVerticalScrollBar: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7381	doubleClickSelector: doubleClick:
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7382	useIndex: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7383	sequenceList: languageListHolder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7384	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7385	(HorizontalPanelViewSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7386	name: 'HorizontalPanel1'
15917 8bd56a31147e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15916 diff changeset	7387	layout: (LayoutFrame 0 0 -37 1 0 1 0 1)
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7388	horizontalLayout: center
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7389	verticalLayout: center
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7390	horizontalSpace: 3
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7391	verticalSpace: 3
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7392	component:
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7393	(SpecCollection
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7394	collection: (
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7395	(ActionButtonSpec
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7396	label: 'Reread Language Resources'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7397	name: 'RereadResourcesButton'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7398	translateLabel: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7399	resizeForLabel: true
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7400	model: rereadResourceFiles
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7401	useDefaultExtent: true
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	)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7408
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	7409	)
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	7410	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7411	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7412
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7413	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'accessing'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7414
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7415	languageList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7416	"return the value of the instance variable 'languageList' (automatically generated)"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7417
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7418	^ languageList
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7419	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7420
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7421	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7422
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7423	basicReadSettings
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7424	self useSystemLanguageHolder value:(currentUserPrefs useSystemLanguage).
9559 314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	7425	self languageIndexHolder value:self currentLanguageIndex.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7426	self languageHolder value:self currentLanguage.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7427	self currentFlagAndLanguageChannel value:self currentLanguage.
9559 314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	7428
314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	7429	"Modified: / 24-08-2010 / 18:52:48 / sr"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7430	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	7431
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7432	basicSaveSettings
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7433	\|fontPref fontPrefs language oldLanguage languageString territory enc
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7434	answer matchingFonts l screen switch dialog anyWrong\|
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7435
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7436	currentUserPrefs useSystemLanguage:(self useSystemLanguageHolder value).
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7437
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7438	self withWaitCursorDo:[
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7439	languageString := translatedLanguages at:(self languageIndexHolder value).
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7440	language := self languageHolder value asString string.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7441	(language includes:$-) ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7442	l := language asCollectionOfSubstringsSeparatedBy:$-.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7443	language := l at:1.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7444	territory := l at:2.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7445	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7446	territory isNil ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7447	territory := language string copyTo:2
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7448	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7449
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7450	"/ check if the new language needs a differently encoded font;
17629 de2f89a5a799 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17536 diff changeset	7451	"/ ask user to switch font and allow cancelation.
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7452	"/ Otherwise, you are left with unreadable menu & button items ...
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7453
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7454	oldLanguage := UserPreferences current language.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7455	Smalltalk language:language asSymbol.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7456	ResourcePack flushCachedResourcePacks.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7457
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7458	"/ refetch resources ...
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7459	resources := AbstractLauncherApplication classResources.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7460	fontPrefs := resources at:'PREFERRED_FONT_ENCODINGS' default:nil.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7461	fontPrefs isNil ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7462	fontPref := resources at:'PREFERRED_FONT_ENCODING' default:nil.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7463	fontPref isNil ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7464	fontPrefs := #(#'iso10646-1')
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7465	] ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7466	fontPrefs := #(#'iso10646-1') , (Array with:fontPref).
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
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7470	"/ 'normalize' names of encodings
18720 527904823f96 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18692 diff changeset	7471	fontPrefs := fontPrefs
527904823f96 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18692 diff changeset	7472	collect:[:each \| (CharacterEncoder encoderFor:each asLowercase asSymbol ifAbsent:nil)].
527904823f96 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18692 diff changeset	7473	fontPrefs := fontPrefs
527904823f96 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18692 diff changeset	7474	select:[:each \| each notNil and:[each isNullEncoder not]]
527904823f96 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18692 diff changeset	7475	thenCollect:[:each \| each nameOfEncoding].
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7476	fontPrefs isEmpty ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7477	fontPrefs := #(#'iso10464-1')
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7478	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7479	fontPref := fontPrefs first.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7480
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7481	Smalltalk setLanguage:#en.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7482	ResourcePack flushCachedResourcePacks.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7483	resources := AbstractLauncherApplication classResources.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7484
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7485	switch := true.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7486	anyWrong := false.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7487	(Array
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7488	with:MenuView defaultFont
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7489	"/ with:ListView defaultFont
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7490	with:EditTextView defaultFont
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7491	with:Button defaultFont)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7492	do:[:fn \|
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7493	enc := fn encoding.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7494	enc isNil ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7495	(fontPrefs contains:[:pref \| CharacterEncoder isEncoding:pref subSetOf:enc])
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7496	ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7497	anyWrong := true
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	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7501	anyWrong ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7502	"/ look if there is one at all.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7503	screen := Screen current.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7504	matchingFonts := screen listOfAvailableFonts
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7505	select:[:f \| fontPrefs contains:[:pref \|
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7506	CharacterEncoder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7507	isEncoding:pref subSetOf:(f encoding ? 'ascii')]].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7508
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7509	matchingFonts isEmpty ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7510	"/ flush and try again - just in case, the font path has changed.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7511	screen flushListOfAvailableFonts.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7512	matchingFonts := screen listOfAvailableFonts
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7513	select:[:f \| fontPrefs contains:[:pref \|
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7514	CharacterEncoder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7515	isEncoding:pref subSetOf:(f encoding ? 'ascii')]].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7516	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7517	matchingFonts isEmpty ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7518	(Dialog
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7519	confirm:(resources
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7520	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	7521	with:fontPref) withCRs)
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7522	ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7523	switch := false
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7524	]
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7525	] ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7526	answer := Dialog
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7527	confirmWithCancel:(resources
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7528	string:'Some font(s) is not %1-encoded.\\Change it ?'
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7529	with:fontPref) withCRs
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7530	labels:(resources
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7531	array:#('Cancel' 'No' 'Yes'))
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7532	default:3.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7533	answer isNil ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7534	switch := false
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7535	] ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7536	answer ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7537	switch := (AbstractLauncherApplication::LauncherDialogs fontBoxForEncoding:fontPref)
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
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7543	switch ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7544	Transcript showCR:'Changing language setting to ' , languageString string , ' (' , language , ')...'.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7545	Smalltalk language:language asSymbol territory:(territory ? language) asSymbol.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7546	ResourcePack flushCachedResourcePacks.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7547	"/ ResourcePack flushCachedResourcePacks - already done by language-change
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7548	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7549	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7550	switch ifTrue:[
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7551	(dialog := settingsDialog) notNil ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7552	dialog reopenLauncher.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7553	] ifFalse:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7554	NewLauncher current reopenLauncher.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7555	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7556	DebugView newDebugger.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7557	].
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7558	self updateForChangedLanguage.
7430 37990108bea9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7427 diff changeset	7559
37990108bea9 * empty log message * Claus Gittinger <cg@exept.de> parents: 7427 diff changeset	7560	"Modified: / 19-10-2006 / 22:17:44 / cg"
17629 de2f89a5a799 #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17536 diff changeset	7561	"Modified (comment): / 24-08-2017 / 14:57:24 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7562	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7563
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7564	doubleClick:aEntry
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7565	self saveSettingsIfUnsavedChangesArePresent.
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
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7568	rereadResourceFiles
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7569	ResourcePack flushCachedResourcePacks.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7570	perLanguageResources := nil.
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	7571	self withWaitCursorDo:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7572	self updateForChangedLanguage.
5576 8c5bb9f29b2e checkin from browser Claus Gittinger <cg@exept.de> parents: 5573 diff changeset	7573	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7574
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7575	"/ Smalltalk language:(Smalltalk language).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7576	"/ Smalltalk languageTerritory:(Smalltalk languageTerritory).
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7577
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7578	Smalltalk changed:#Language.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	7579	Smalltalk changed:#LanguageTerritory.
5569 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
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7582	updateForChangedLanguage
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7583	self initializeLanguages.
5721 effab3aca7ff * empty log message * Claus Gittinger <cg@exept.de> parents: 5719 diff changeset	7584	languageListHolder value:languageList.
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7585	self languageListHolder value:languageList.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7586	self currentFlagAndLanguageChannel value:self currentLanguage.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7587	self setCurrentLanguageLabel.
36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7588	self setNoticeLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7589	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7590
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7591	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7592
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7593	currentFlagAndLanguageChannel
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7594	currentFlagAndLanguageChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7595	currentFlagAndLanguageChannel := self currentLanguage asValue.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7596	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7597	^ currentFlagAndLanguageChannel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7598	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7599
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7600	currentLanguageLabel
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7601	currentLanguageLabel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7602	currentLanguageLabel := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7603	self setCurrentLanguageLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7604	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7605	^ currentLanguageLabel.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7606	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7607
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7608	languageHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7609	languageHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7610	languageHolder := self currentLanguage asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7611	languageHolder onChangeSend:#updateModifiedChannel to:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7612	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7613	^ languageHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7614	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7615
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7616	languageIndexChanged
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	7617	\|langIdx\|
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	7618
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	7619	langIdx := self languageIndexHolder value ? 1.
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	7620	self languageHolder value:(listOfLanguages at:langIdx).
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7621	self updateModifiedChannel.
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
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7624	languageIndexHolder
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7625	languageIndexHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7626	languageIndexHolder := (self currentLanguageIndex) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7627	languageIndexHolder onChangeSend:#languageIndexChanged to:self.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7628	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7629	^ languageIndexHolder.
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
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7632	languageListHolder
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7633	languageListHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7634	languageListHolder := self languageList asValue.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7635	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7636	^ languageListHolder.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7637	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7638
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7639	noticeLabelHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7640	noticeLabelHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7641	noticeLabelHolder := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7642	self setNoticeLabel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7643	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7644	^ noticeLabelHolder.
5561 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
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7647	setCurrentLanguageLabel
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7648	currentLanguageLabel value: (resources string:'Current Language:')
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
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7651	setNoticeLabel
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7652	noticeLabelHolder
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7653	value: ((resources at:'LANG_MSG' default:'Select a Language') withCRs).
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7654	!
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7655
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7656	useSystemLanguageHolder
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7657	useSystemLanguageHolder isNil ifTrue:[
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7658	useSystemLanguageHolder := true asValue.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7659	useSystemLanguageHolder onChangeSend:#updateModifiedChannel to:self.
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7660	].
8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7661	^ useSystemLanguageHolder.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7662	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7663
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7664	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7665
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7666	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7667	^ 'Launcher/languageSetting.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7668	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	7669
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7670	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7671
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7672	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7673	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7674
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7675	self initializeLanguages.
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7676	super initialize.
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7677
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	7678	"Modified: / 08-02-2017 / 00:30:07 / cg"
5561 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
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7681	initializeLanguages
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7682	\|flags enResources savedLanguage savedLanguageTerritory enLanguages nativeLanguages
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7683	languages listOfLanguageKeys readLanguagesFile rsc\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7684
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7685	resources := self class classResources.
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	7686	listOfLanguages := resources at:'LIST_OF_OFFERED_LANGUAGES' default:#('default' 'en' ).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7687	listOfLanguages := listOfLanguages asOrderedCollection.
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	7688	listOfLanguageKeys := listOfLanguages collect:[:l \| l copyReplaceAll:$- with:$_ ].
5563 5d27879814a5 * empty log message * Claus Gittinger <cg@exept.de> parents: 5561 diff changeset	7689
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7690	(perLanguageResources notNil
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7691	and:[ (perLanguageResources includesKey:#en) not
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7692	and:[ (perLanguageResources includesKey:#'en_us') not ]])
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	7693	ifTrue:[
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7694	perLanguageResources := nil.
5623 4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	7695	].
4741ca8601b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5594 diff changeset	7696
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7697	perLanguageResources isNil ifTrue:[
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7698	perLanguageResources := Dictionary new.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7699
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7700	"/ short languages.rs file present?
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7701	rsc := ResourcePack forPackage:'stx:libtool' resourceFileName:'languages.rs' cached:false.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7702	readLanguagesFile := rsc notNil and:[(rsc at:#languageFileExists ifAbsent:false) == true].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7703
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7704	listOfLanguageKeys do:[:eachLang \|
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7705	savedLanguage := Smalltalk language.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7706	savedLanguageTerritory := Smalltalk languageTerritory.
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7707	readLanguagesFile ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7708	ResourcePack flushCachedResourcePacks.
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	[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7712	\|rsc lang terr\|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7713
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7714	lang := terr := eachLang.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7715	(lang includes:$_) ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7716	terr := lang copyFrom:4.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7717	lang := lang copyTo:2.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7718	].
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7719	Smalltalk setLanguage:lang asSymbol territory:terr asSymbol.
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7720	readLanguagesFile ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7721	rsc := ResourcePack forPackage:'stx:libtool' resourceFileName:'languages.rs' cached:false.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7722	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7723	rsc := ResourcePack for:(self class) cached:false.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7724	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7725	perLanguageResources at:eachLang asSymbol put:rsc.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7726	] ensure:[
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7727	Smalltalk setLanguage:savedLanguage territory:savedLanguageTerritory.
15019 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	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7730	readLanguagesFile ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7731	ResourcePack flushCachedResourcePacks.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7732	].
5569 36fbe70c2e02 * empty log message * Claus Gittinger <cg@exept.de> parents: 5563 diff changeset	7733	].
7295 1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	7734
5719 56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	7735	enResources := perLanguageResources at:#en ifAbsent:[perLanguageResources at:#'en_us'].
56551053942f * empty log message * Claus Gittinger <cg@exept.de> parents: 5713 diff changeset	7736
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7737	enLanguages :=
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7738	listOfLanguageKeys
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7739	collect:[:lang \|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7740	\|item\|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7741
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7742	item := enResources at:('LANG_' , lang) default:nil.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7743	item isNil ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7744	lang
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7745	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7746	item isString ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7747	item
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7748	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7749	item at:1
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	]
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7752	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7753
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7754	nativeLanguages :=
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7755	listOfLanguageKeys
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7756	collect:[:lang \|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7757	\|item enLang\|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7758
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7759	item := enResources at:('LANG_' , lang) default:nil.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7760	item isNil ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7761	enLang := lang
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7762	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7763	item isString ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7764	enLang := item
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7765	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7766	enLang := item at:1
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	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7769	item := (perLanguageResources at:lang asSymbol ifAbsent:enResources) at:enLang default:enLang.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7770	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7771
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7772	languages :=
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7773	enLanguages
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7774	collect:[:enLang \|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7775	\|item\|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7776
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7777	item := resources at:enLang default:enLang.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7778	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7779
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7780	flags :=
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7781	listOfLanguageKeys
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7782	collect:[:lang \|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7783	\|item coll\|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7784
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7785	item := resources at:('FLAG_' , lang) default:nil.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7786	item notNil ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7787	item
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7788	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7789	coll := lang asCollectionOfSubstringsSeparatedBy:$_.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7790	(coll size > 1
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7791	and:[(item := resources at:('FLAG_' , coll last) default:nil) notNil])
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7792	ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7793	item
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7794	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7795	item := resources string:('LANG_' , lang).
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7796	item isArray ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7797	item at:2
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7798	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7799	nil
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	]
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7803	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7804
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7805	flags :=
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7806	flags
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7807	collect:[:nm \|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7808	\|img d fn\|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7809
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7810	nm notNil ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7811	img := Image fromFile:nm.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7812	img isNil ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7813	d := Smalltalk getPackageDirectoryForPackage:'stx:goodies'.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7814	(d notNil and:[ (fn := d construct:nm) exists]) ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7815	img := Image fromFile:fn.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7816	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7817	('LanguageSettings [info]: missing flags file: ',nm) infoPrintCR.
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	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7820	] ifFalse:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7821	nil
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7822	]
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7823	].
14829 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
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7826	translatedLanguages :=
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7827	(1 to:languages size)
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7828	collect:[:idx \|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7829	\|lang englishLang nativeLang s\|
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7830
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7831	lang := languages at:idx.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7832	englishLang := enLanguages at:idx.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7833	nativeLang := nativeLanguages at:idx.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7834
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7835	s := nativeLang.
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7836	englishLang ~= nativeLang ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7837	s := s , ' / ' , englishLang
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7838	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7839	(lang ~= nativeLang and:[lang ~= englishLang]) ifTrue:[
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7840	s := s , ' / ' , lang
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7841	].
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7842	s
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7843	].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7844
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	7845	languageList := translatedLanguages
15019 7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7846	with:flags
7597a90e3872 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15010 diff changeset	7847	collect:[:lang :flag \| LabelAndIcon icon:flag string:lang.].
7295 1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	7848
1ed8da6b09d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 7178 diff changeset	7849	"Modified: / 18-09-2006 / 19:23:39 / cg"
6023 e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	7850	!
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	7851
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	7852	postBuildHelpLabel:aWidget
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	7853	aWidget level:0.
e7032dd20d40 * empty log message * ca parents: 6021 diff changeset	7854	aWidget scrolledView backgroundColor:self window viewBackground.
14568 6468fd5fce7a class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14566 diff changeset	7855	aWidget font:(Label defaultFont).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7856	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7857
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7858	!AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7859
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7860	currentLanguage
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7861	^ languageList at:(self currentLanguageIndex)
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7862	!
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7863
8458 56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	7864	currentLanguageCode
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	7865	^ listOfLanguages at:(self currentLanguageIndex)
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	7866	!
56aded9ca032 * empty log message * Claus Gittinger <cg@exept.de> parents: 8443 diff changeset	7867
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7868	currentLanguageIndex
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7869	\| lang terr langIdx \|
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7870
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7871	lang := Smalltalk language.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7872	terr := Smalltalk languageTerritory.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7873
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7874	(lang ~= terr) ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7875	langIdx := listOfLanguages indexOf:(lang , '-' , terr) ifAbsent:nil.
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7876	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7877	langIdx isNil ifTrue:[
15953 3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7878	langIdx := listOfLanguages indexOf:lang ifAbsent:nil.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7879	].
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7880	langIdx isNil ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7881	langIdx := listOfLanguages indexOf:'en' ifAbsent:nil.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7882	langIdx isNil ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7883	langIdx := listOfLanguages indexOf:'en-us' ifAbsent:nil.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7884
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7885	langIdx isNil ifTrue:[
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7886	langIdx := 1.
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7887	]
3a19474e1e29 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15947 diff changeset	7888	]
5561 aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7889	].
aea14004c977 language settings improved Claus Gittinger <cg@exept.de> parents: 5556 diff changeset	7890	^ langIdx
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7891	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7892
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7893	hasUnsavedChanges
15901 8b3a58efae83 #FEATURE Claus Gittinger <cg@exept.de> parents: 15899 diff changeset	7894	useSystemLanguageHolder value ~= currentUserPrefs useSystemLanguage ifTrue:[^ true].
9559 314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	7895	^ languageIndexHolder value ~= self currentLanguageIndex
7427 2f024ec17c7b * empty log message * Claus Gittinger <cg@exept.de> parents: 7385 diff changeset	7896
2f024ec17c7b * empty log message * Claus Gittinger <cg@exept.de> parents: 7385 diff changeset	7897	"Modified: / 17-10-2006 / 17:51:09 / cg"
9559 314e6ce52b40 check the modified on languages sr parents: 9555 diff changeset	7898	"Modified: / 24-08-2010 / 18:50:11 / sr"
16312 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
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7901	quickSearchStrings
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7902	"keywords to match in the quickSearch.
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7903	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	7904	the text in the quick search field"
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7905
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7906	^ super quickSearchStrings
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7907	addAll:#('language' 'english');
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	7908	yourself
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7909	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7910
12409 fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7911	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'help specs'!
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7912
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	7913	helpSpec
12409 fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7914	"This resource specification was automatically generated
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7915	by the UIHelpTool of ST/X."
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7916
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7917	"Do not manually edit this!! If it is corrupted,
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7918	the UIHelpTool may not be able to read the specification."
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7919
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7920	"
17514 b6a7d15d5e8d #OTHER by mawalch mawalch parents: 17453 diff changeset	7921	UIHelpTool openOnClass:AbstractSettingsApplication::MemorySettingsAppl
12409 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
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7924	<resource: #help>
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7925
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	7926	^ super helpSpec addPairsFrom:#(
12409 fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7927
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7928	#codeLimit
17514 b6a7d15d5e8d #OTHER by mawalch mawalch parents: 17453 diff changeset	7929	'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	7930
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7931	#codeTrigger
16144 d52edd3811bc #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16143 diff changeset	7932	'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	7933
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7934	#compressLimit
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	7935	'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	7936
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7937	#fastMoreLimit
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	7938	'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	7939
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7940	#igcFreeAmount
16144 d52edd3811bc #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16143 diff changeset	7941	'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	7942
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7943	#igcFreeLimit
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7944	'Start incremental background GC whenever freespace drops below this'
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7945
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7946	#igcLimit
13041 f99a2405835e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13010 diff changeset	7947	'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	7948
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7949	#maxOldSpace
16144 d52edd3811bc #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16143 diff changeset	7950	'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	7951
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7952	#methodCodeSizeLimit
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7953	'Do not JIT, if an individual method''s code size exceeds this'
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7954
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7955	#newSpaceSize
16143 93dfa902272a #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16125 diff changeset	7956	'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	7957
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7958	#oldIncr
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7959	'Increase oldSpace in chunks of this size'
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7960
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7961	#stackLimit
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7962	'Trigger a recursionInterrupt exception if more stack is used by a process'
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	! !
fee90d607ee7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12359 diff changeset	7966
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7967	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7968
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	7969	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	7970	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	7971
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	7972	^ ToolbarIconLibrary memoryIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7973	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	7974
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7975	!AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	7976
5433 f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7977	windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7978	"This resource specification was automatically generated
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7979	by the UIPainter of ST/X."
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7980
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7981	"Do not manually edit this!! If it is corrupted,
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7982	the UIPainter may not be able to read the specification."
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	"
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7985	UIPainter new openOnClass:AbstractSettingsApplication::MemorySettingsAppl andSelector:#windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7986	AbstractSettingsApplication::MemorySettingsAppl new openInterface:#windowSpec
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7987	AbstractSettingsApplication::MemorySettingsAppl open
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
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7990	<resource: #canvas>
f701739cf12e adapt window specs on windows font size penk parents: 5387 diff changeset	7991
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7992	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	7993	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	7994	name: windowSpec
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	7995	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	7996	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7997	label: 'Memory Manager Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7998	name: 'Memory Manager Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	7999	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8000	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8001	bounds: (Rectangle 0 0 705 722)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	8002	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8003	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	8004	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8005	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8006	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8007	label: 'Label'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8008	name: 'Label1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8009	layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 50 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8010	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8011	labelChannel: warningLabelHolder
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8012	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8013	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8014	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8015	name: 'VerticalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8016	layout: (LayoutFrame 0 0.0 50 0 0 1.0 0 1.0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8017	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8018	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8019	horizontalSpace: 0
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8020	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8021	ignoreInvisibleComponents: true
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8022	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8023	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8024	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8025	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8026	label: 'Limits:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8027	name: 'Label54'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8028	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8029	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8030	extent: (Point 705 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8031	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8032	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8033	name: 'StackLimitBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8034	activeHelpKey: stackLimit
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8035	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8036	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8037	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8038	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8039	label: 'Stack Limit:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8040	name: 'Label38'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8041	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8042	activeHelpKey: stackLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8043	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8044	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8045	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8046	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8047	name: 'EntryField20'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8048	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8049	activeHelpKey: stackLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8050	enableChannel: supportsJustInTimeCompilation
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8051	model: stackLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8052	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8053	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8054	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8055	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8056	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8057	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8058	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8059	label: '(Trigger recursionInterrupt if more stack is used by a process)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8060	name: 'Label39'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8061	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8062	activeHelpKey: stackLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8063	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8064	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8065	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8066	)
16312 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	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8069	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8070	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8071	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8072	name: 'NewSpaceSizeBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8073	activeHelpKey: newSpaceSize
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8074	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8075	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8076	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8077	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8078	label: 'Size of NewSpace:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8079	name: 'Label44'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8080	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8081	activeHelpKey: newSpaceSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8082	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8083	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8084	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8085	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8086	name: 'EntryField23'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8087	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8088	activeHelpKey: newSpaceSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8089	model: newSpaceSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8090	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8091	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8092	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8093	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8094	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8095	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8096	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8097	label: '(Size of Space where new objects are created)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8098	name: 'Label45'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8099	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8100	activeHelpKey: newSpaceSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8101	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8102	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8103	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8104	)
16312 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	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8107	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8108	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8109	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8110	name: 'MaximumMemoryLimitBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8111	activeHelpKey: maxOldSpace
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8112	component:
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8113	(SpecCollection
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8114	collection: (
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8115	(LabelSpec
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8116	label: 'Maximum Memory Limit:'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8117	name: 'Label46'
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8118	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8119	activeHelpKey: maxOldSpace
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8120	translateLabel: true
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8121	adjust: right
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8122	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8123	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8124	name: 'EntryField24'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8125	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8126	activeHelpKey: maxOldSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8127	model: maxOldSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8128	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8129	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8130	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8131	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8132	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8133	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8134	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8135	label: '(Never allocate more than this amount of memory)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8136	name: 'Label47'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8137	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8138	activeHelpKey: maxOldSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8139	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8140	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8141	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8142	)
16312 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	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8145	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8146	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8147	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8148	name: 'QuickAllocationLimitBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8149	activeHelpKey: fastMoreLimit
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8150	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8151	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8152	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8153	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8154	label: 'Quick Allocation Limit:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8155	name: 'Label26'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8156	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8157	activeHelpKey: fastMoreLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8158	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8159	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8160	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8161	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8162	name: 'EntryField14'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8163	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8164	activeHelpKey: fastMoreLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8165	model: fastMoreLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8166	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8167	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8168	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8169	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8170	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8171	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8172	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8173	label: '(Quickly allocate more memory (suppress GC) up to this limit)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8174	name: 'Label27'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8175	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8176	activeHelpKey: fastMoreLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8177	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8178	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8179	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8180	)
16312 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	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8183	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8184	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8185	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8186	name: 'OldspaceIncrementBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8187	activeHelpKey: oldIncr
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8188	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8189	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8190	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8191	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8192	label: 'Oldspace Increment:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8193	name: 'Label34'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8194	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8195	activeHelpKey: oldIncr
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8196	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8197	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8198	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8199	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8200	name: 'EntryField18'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8201	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8202	activeHelpKey: oldIncr
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8203	model: oldIncr
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8204	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8205	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8206	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8207	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8208	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8209	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8210	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8211	label: '(Increase oldSpace in chunks of this size)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8212	name: 'Label35'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8213	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8214	activeHelpKey: oldIncr
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8215	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8216	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8217	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8218	)
16312 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	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8221	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8222	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8223	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8224	name: 'OldSpaceCompressLimitBox'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8225	activeHelpKey: compressLimit
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8226	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8227	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8228	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8229	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8230	label: 'Oldspace Compress Limit:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8231	name: 'Label36'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8232	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8233	activeHelpKey: compressLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8234	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8235	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8236	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8237	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8238	name: 'EntryField19'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8239	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8240	activeHelpKey: compressLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8241	model: compressLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8242	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8243	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8244	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8245	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8246	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8247	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8248	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8249	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	8250	name: 'Label37'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8251	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8252	activeHelpKey: compressLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8253	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8254	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8255	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8256	)
16312 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	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8259	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8260	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8261	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8262	name: 'CodeLimitBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8263	activeHelpKey: codeLimit
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8264	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8265	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8266	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8267	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8268	label: 'Dynamic code Limit:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8269	name: 'Label40'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8270	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8271	activeHelpKey: codeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8272	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8273	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8274	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8275	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8276	name: 'EntryField21'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8277	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8278	activeHelpKey: codeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8279	enableChannel: supportsJustInTimeCompilation
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8280	model: codeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8281	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8282	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8283	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8284	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8285	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8286	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8287	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8288	label: '(Flush dynamic compiled code to stay within this limit)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8289	name: 'Label41'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8290	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8291	activeHelpKey: codeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8292	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8293	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8294	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8295	)
16312 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	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8298	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8299	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8300	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8301	name: 'MethodSizeLimitBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8302	activeHelpKey: methodCodeSizeLimit
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8303	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8304	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8305	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8306	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8307	label: 'Method Code Size Limit:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8308	name: 'Label52'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8309	layout: (LayoutFrame 0 0 5 0 265 0 25 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8310	activeHelpKey: methodCodeSizeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8311	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8312	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8313	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8314	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8315	name: 'EntryField27'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8316	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8317	activeHelpKey: methodCodeSizeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8318	enableChannel: supportsJustInTimeCompilation
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8319	model: methodCodeSizeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8320	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8321	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8322	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8323	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8324	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8325	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8326	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8327	label: '(Do not JIT, if an individual method''s code size exceeds this)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8328	name: 'Label53'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8329	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8330	activeHelpKey: methodCodeSizeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8331	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8332	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8333	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8334	)
16312 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	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8337	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8338	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8339	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8340	label: 'Triggers:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8341	name: 'Label55'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8342	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8343	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8344	extent: (Point 705 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8345	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8346	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8347	name: 'IncrementalGCAllocationTriggerBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8348	activeHelpKey: igcLimit
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8349	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8350	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8351	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8352	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8353	label: 'Incremental GC Allocation Trigger:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8354	name: 'Label48'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8355	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8356	activeHelpKey: igcLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8357	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8358	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8359	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8360	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8361	name: 'EntryField25'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8362	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8363	activeHelpKey: igcLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8364	model: igcLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8365	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8366	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8367	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8368	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8369	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8370	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8371	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8372	label: '(Start IGC whenever this has been newly allocated)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8373	name: 'Label49'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8374	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8375	activeHelpKey: igcLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8376	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8377	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8378	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8379	)
16312 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	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8382	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8383	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8384	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8385	name: 'IncrementalGCFreespaceTriggerBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8386	activeHelpKey: igcFreeLimit
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8387	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8388	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8389	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8390	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8391	label: 'Incremental GC Freespace Trigger:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8392	name: 'Label50'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8393	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8394	activeHelpKey: igcFreeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8395	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8396	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8397	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8398	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8399	name: 'EntryField26'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8400	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8401	activeHelpKey: igcFreeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8402	model: igcFreeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8403	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8404	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8405	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8406	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8407	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8408	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8409	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8410	label: '(Start IGC whenever freespace drops below this)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8411	name: 'Label51'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8412	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8413	activeHelpKey: igcFreeLimit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8414	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8415	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8416	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8417	)
16312 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	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8420	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8421	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8422	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8423	name: 'CodeTriggerBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8424	activeHelpKey: codeTrigger
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8425	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8426	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8427	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8428	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8429	label: 'Incremental GC Dynamic Code Trigger:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8430	name: 'Label42'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8431	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8432	activeHelpKey: codeTrigger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8433	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8434	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8435	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8436	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8437	name: 'EntryField22'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8438	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8439	activeHelpKey: codeTrigger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8440	model: codeTrigger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8441	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8442	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8443	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8444	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8445	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8446	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8447	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8448	label: '(Start incremental GC whenever this amount of code has been allocated)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8449	name: 'Label43'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8450	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8451	activeHelpKey: codeTrigger
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8452	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8453	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8454	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8455	)
16312 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	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8458	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8459	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8460	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8461	name: 'GCAmountBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8462	activeHelpKey: igcFreeAmount
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8463	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8464	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8465	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8466	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8467	label: 'Incremental GC Amount:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8468	name: 'Label32'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8469	layout: (LayoutFrame 0 0 5 0 265 0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8470	activeHelpKey: igcFreeAmount
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8471	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8472	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8473	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8474	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8475	name: 'EntryField17'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8476	layout: (LayoutFrame 270 0 0 0 360 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8477	activeHelpKey: igcFreeAmount
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8478	model: igcFreeAmount
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8479	type: fileSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8480	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8481	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8482	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8483	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8484	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8485	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8486	label: '(Try to keep this amount for peak requests)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8487	name: 'Label33'
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8488	layout: (LayoutFrame 364 0.0 5 0 0 1.0 27 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8489	activeHelpKey: igcFreeAmount
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8490	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8491	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8492	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8493	)
16312 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	)
e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8496	extent: (Point 705 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8497	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8498	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8499
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8500	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8501	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8502	)
16312 e4480574be19 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16309 diff changeset	8503
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	8504	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	8505	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8506	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8507
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8508	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8509
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8510	basicReadSettings
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	8511	self
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8512	readAspects:(self aspectsInObjectMemory)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8513	from:ObjectMemory.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8514
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8515	self igcLimit value:ObjectMemory incrementalGCLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8516	self igcFreeLimit value:ObjectMemory freeSpaceGCLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8517	self igcFreeAmount value:ObjectMemory freeSpaceGCAmount.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8518	self oldIncr value:ObjectMemory oldSpaceIncrement.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8519	self compressLimit value:ObjectMemory oldSpaceCompressLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8520	self codeLimit value:ObjectMemory dynamicCodeLimit.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8521	self codeTrigger value:ObjectMemory dynamicCodeGCTrigger.
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8522	self methodCodeSizeLimit value:(ObjectMemory codeSizeLimitForDynamicCompilation:-1).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8523	self fastMoreLimit value:(ObjectMemory fastMoreOldSpaceLimit:-1).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8524
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8525	self stackLimit value:Process defaultMaximumStackSize.
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8526
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8527	"Modified: / 12-08-2010 / 15:34:24 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8528	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8529
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8530	basicSaveSettings
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	8531	self
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8532	writeAspects:(self aspectsInObjectMemory)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8533	to:ObjectMemory.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8534
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8535	ObjectMemory freeSpaceGCAmount:self igcFreeAmount value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8536	ObjectMemory freeSpaceGCLimit:self igcFreeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8537	ObjectMemory incrementalGCLimit:self igcLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8538	ObjectMemory oldSpaceIncrement:self oldIncr value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8539	ObjectMemory fastMoreOldSpaceLimit:self fastMoreLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8540	ObjectMemory oldSpaceCompressLimit:self compressLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8541	ObjectMemory dynamicCodeLimit:self codeLimit value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8542	ObjectMemory dynamicCodeGCTrigger:self codeTrigger value.
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8543	ObjectMemory codeSizeLimitForDynamicCompilation:(self methodCodeSizeLimit value).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8544
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8545	Process defaultMaximumStackSize:self stackLimit value.
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8546
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8547	"Modified: / 12-08-2010 / 15:34:47 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8548	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8549
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8550	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8551
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8552	aspectsInObjectMemory
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8553	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8554	newSpaceSize
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8555	maxOldSpace
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8556	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8557	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8558
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8559	codeLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8560
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8561	codeLimit isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8562	codeLimit := ObjectMemory dynamicCodeLimit asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8563	codeLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8564	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8565	^ codeLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8566	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8567
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8568	codeTrigger
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8569
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8570	codeTrigger isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8571	codeTrigger := ObjectMemory dynamicCodeGCTrigger asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8572	codeTrigger onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8573	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8574	^ codeTrigger.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8575	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8576
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8577	compressLimit
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8578
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8579	compressLimit isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8580	compressLimit := ObjectMemory oldSpaceCompressLimit asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8581	compressLimit onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8582	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8583	^ compressLimit.
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
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8586	fastMoreLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8587
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8588	fastMoreLimit isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8589	fastMoreLimit := (ObjectMemory fastMoreOldSpaceLimit:-1) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8590	fastMoreLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8591	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8592	^ fastMoreLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8593	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8594
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8595	igcFreeAmount
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8596
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8597	igcFreeAmount isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8598	igcFreeAmount := ObjectMemory freeSpaceGCAmount asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8599	igcFreeAmount onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8600	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8601	^ igcFreeAmount.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8602	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8603
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8604	igcFreeLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8605
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8606	igcFreeLimit isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8607	igcFreeLimit := ObjectMemory freeSpaceGCLimit asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8608	igcFreeLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8609	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8610	^ igcFreeLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8611	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8612
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8613	igcLimit
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8614
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8615	igcLimit isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8616	igcLimit := ObjectMemory incrementalGCLimit asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8617	igcLimit onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8618	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8619	^ igcLimit.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8620	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8621
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8622	maxOldSpace
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8623
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8624	maxOldSpace isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8625	maxOldSpace := ObjectMemory maxOldSpace asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8626	maxOldSpace onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8627	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8628	^ maxOldSpace.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8629	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8630
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8631	methodCodeSizeLimit
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8632
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8633	methodCodeSizeLimit isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8634	methodCodeSizeLimit := (ObjectMemory codeSizeLimitForDynamicCompilation:-1) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8635	methodCodeSizeLimit onChangeSend:#updateModifiedChannel to:self
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8636	].
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8637	^ methodCodeSizeLimit.
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8638
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8639	"Created: / 12-08-2010 / 15:31:56 / cg"
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8640	!
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8641
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8642	newSpaceSize
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8643
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8644	newSpaceSize isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8645	newSpaceSize := ObjectMemory newSpaceSize asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8646	newSpaceSize onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8647	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8648	^ newSpaceSize.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8649	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	8650
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8651	oldIncr
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8652
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8653	oldIncr isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8654	oldIncr := ObjectMemory oldSpaceIncrement asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8655	oldIncr onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8656	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8657	^ oldIncr.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8658	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8659
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8660	stackLimit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8661
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8662	stackLimit isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8663	stackLimit := Process defaultMaximumStackSize asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8664	stackLimit onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8665	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8666	^ stackLimit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8667	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8668
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8669	supportsJustInTimeCompilation
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8670
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8671	^ ObjectMemory supportsJustInTimeCompilation.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8672	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8673
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8674	warningLabelHolder
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8675
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8676	warningLabelHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8677	warningLabelHolder := ValueHolder new.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8678	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8679	^ warningLabelHolder.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8680	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8681
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8682	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8683
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8684	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8685	^ 'Launcher/memorySettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8686	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	8687
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8688	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8689
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8690	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	8691	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	8692
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	8693	super initialize.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	8694	self warningLabelHolder
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8695	value:(StringCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8696	with:(resources string:'Warning - invalid settings may result in failures or poor performance.')
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8697	with:(resources string:'You have been warned.') allBold
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	8698	).
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	8699
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	8700	"Modified: / 08-02-2017 / 00:30:20 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8701	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8702
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8703	!AbstractSettingsApplication::MemorySettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8704
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	8705	hasUnsavedChanges
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	8706	(self
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8707	hasChangedAspectIn:(self aspectsInObjectMemory)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	8708	asComparedTo:ObjectMemory) ifTrue:[^ true].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8709
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8710	ObjectMemory freeSpaceGCAmount ~= self igcFreeAmount value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8711	ObjectMemory freeSpaceGCLimit ~= self igcFreeLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8712	ObjectMemory incrementalGCLimit ~= self igcLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8713	ObjectMemory oldSpaceIncrement ~= self oldIncr value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8714	(ObjectMemory fastMoreOldSpaceLimit:-1) ~= self fastMoreLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8715	ObjectMemory oldSpaceCompressLimit ~= self compressLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8716	ObjectMemory dynamicCodeLimit ~= self codeLimit value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8717	ObjectMemory dynamicCodeGCTrigger ~= self codeTrigger value ifTrue:[^ true].
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8718	(ObjectMemory codeSizeLimitForDynamicCompilation:-1) ~= self methodCodeSizeLimit value ifTrue:[^ true].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8719
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	8720	Process defaultMaximumStackSize ~= self stackLimit value ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	8721	^ false
9545 e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8722
e684fd8e06a8 memory settings Claus Gittinger <cg@exept.de> parents: 9531 diff changeset	8723	"Modified: / 12-08-2010 / 15:33:12 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8724	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	8725
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8726	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl class methodsFor:'help specs'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8727
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	8728	helpSpec
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8729	"This resource specification was automatically generated
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8730	by the UIHelpTool of ST/X."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8731
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8732	"Do not manually edit this!! If it is corrupted,
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8733	the UIHelpTool may not be able to read the specification."
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	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8736	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8739	<resource: #help>
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8740
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	8741	^ super helpSpec addPairsFrom:#(
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8742
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8743	#dotNetBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8744	'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	8745
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8746	#smalltalkBridgeServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8747	'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	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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8751	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl class methodsFor:'image specs'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8752
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8753	defaultIcon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8754	"This resource specification was automatically generated
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8755	by the ImageEditor of ST/X."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8756
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8757	"Do not manually edit this!! If it is corrupted,
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8758	the ImageEditor may not be able to read the specification."
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	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8761	self defaultIcon inspect
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8762	ImageEditor openOnClass:self andSelector:#defaultIcon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8763	Icon flushCachedIcons
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8764	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8765
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8766	<resource: #image>
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8767
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8768	^Icon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8769	constantNamed:'AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl defaultIcon'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8770	ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8771	@@!!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	8772	]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	8773	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	8774	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8775
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8776	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl class methodsFor:'interface specs'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8777
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8778	windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8779	"This resource specification was automatically generated
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8780	by the UIPainter of ST/X."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8781
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8782	"Do not manually edit this!! If it is corrupted,
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8783	the UIPainter may not be able to read the specification."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8784
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8785	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8786	UIPainter new openOnClass:AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl andSelector:#windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8787	AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl new openInterface:#windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8788	AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl open
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8789	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8790
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8791	<resource: #canvas>
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8792
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8793	^
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8794	#(FullSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8795	name: windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8796	window:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8797	(WindowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8798	label: 'Communication Settings'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8799	name: 'Communication Settings'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8800	flags: 1
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8801	min: (Point 10 10)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8802	bounds: (Rectangle 0 0 738 671)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8803	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8804	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8805	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8806	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8807	(VerticalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8808	name: 'VerticalPanel1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8809	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	8810	horizontalLayout: fit
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8811	verticalLayout: top
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8812	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8813	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8814	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8815	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8816	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8817	(FramedBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8818	label: '.NET Bridge'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8819	name: 'FramedBox1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8820	activeHelpKey: dotNetBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8821	labelPosition: topLeft
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8822	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8823	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8824	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8825	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8826	(VerticalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8827	name: 'VerticalPanel3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8828	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8829	horizontalLayout: left
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8830	verticalLayout: center
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8831	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8832	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8833	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8834	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8835	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8836	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8837	name: 'Box6'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8838	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8839	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8840	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8841	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8842	label: 'Verbose'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8843	name: 'CheckBox5'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8844	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8845	enableChannel: hasDotNetBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8846	model: dotNetBridgeVerbose
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8847	translateLabel: true
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	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8852	extent: (Point 696 25)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8853	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8854	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8855	name: 'Box7'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8856	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8857	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8858	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8859	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8860	label: 'Bridge Runs in IDE'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8861	name: 'CheckBox6'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8862	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8863	enableChannel: hasDotNetBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8864	model: dotNetBridgeRunsInIDE
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8865	translateLabel: true
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	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8870	extent: (Point 696 25)
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	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8876	(ActionButtonSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8877	label: 'Close all Connections'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8878	name: 'Button1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8879	layout: (LayoutFrame -228 1 27 0 -3 1 49 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8880	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8881	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8882	model: closeAllDotNetConnections
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8883	enableChannel: hasDotNetBridge
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	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8888	extent: (Point 738 92)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8889	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8890	(FramedBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8891	label: 'Smalltalk Bridge Server'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8892	name: 'FramedBox2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8893	activeHelpKey: smalltalkBridgeServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8894	labelPosition: topLeft
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8895	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8896	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8897	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8898	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8899	(VerticalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8900	name: 'VerticalPanel4'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8901	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8902	horizontalLayout: left
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8903	verticalLayout: center
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8904	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8905	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8906	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8907	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8908	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8909	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8910	name: 'Box8'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8911	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8912	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8913	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8914	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8915	label: 'Bridge Server Enabled'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8916	name: 'CheckBox7'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8917	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	8918	enableChannel: hasSmalltalkBridge
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8919	model: smalltalkBridgeEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8920	translateLabel: true
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	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8925	extent: (Point 696 25)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8926	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8927	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8928	name: 'Box9'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8929	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8930	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8931	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8932	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8933	label: 'Verbose'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8934	name: 'CheckBox8'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8935	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8936	enableChannel: hasSmalltalkBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8937	model: smalltalkBridgeVerbose
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8938	translateLabel: true
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	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8943	extent: (Point 696 25)
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	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8949	(ActionButtonSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8950	label: 'Close all Connections'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8951	name: 'Button2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8952	layout: (LayoutFrame -228 1 27 0 -3 1 49 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8953	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8954	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8955	model: closeAllSmalltalkBridgeConnections
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8956	enableChannel: hasSmalltalkBridge
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	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8961	extent: (Point 738 101)
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8973	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl methodsFor:'actions'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8974
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8975	aspects
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8976	^ #(
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8977	smtpServerName
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8978	dotNetBridgeRunsInIDE
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8979	dotNetBridgeVerbose
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8983	basicReadSettings
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8984	super basicReadSettings.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8985
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8986	BRIDGE::SmalltalkBridge notNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8987	self smalltalkBridgeVerbose value:(BRIDGE::SmalltalkBridge verbose).
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8991	basicSaveSettings
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8992	super basicSaveSettings.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8993
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8994	BRIDGE::SmalltalkBridge notNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8995	BRIDGE::SmalltalkBridge verbose:(self smalltalkBridgeVerbose value).
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	8999	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl methodsFor:'aspects'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9000
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9001	acceptChannel
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9002
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9003	acceptChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9004	acceptChannel := TriggerValue new.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9005	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9006	^ acceptChannel.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9007
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9008	"Created: / 12-11-2006 / 19:04:09 / cg"
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9011	dotNetBridgeRunsInIDE
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9012
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9013	dotNetBridgeRunsInIDE isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9014	dotNetBridgeRunsInIDE := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9015	dotNetBridgeRunsInIDE onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9016	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9017	^ dotNetBridgeRunsInIDE.
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9020	dotNetBridgeVerbose
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9021
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9022	dotNetBridgeVerbose isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9023	dotNetBridgeVerbose := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9024	dotNetBridgeVerbose onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9025	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9026	^ dotNetBridgeVerbose.
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9029	hasDotNetBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9030	^ DOTNET::DotNet notNil and:[ DOTNET::DotNet isLoaded ].
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9033	hasSmalltalkBridge
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9034	^ BRIDGE::SmalltalkBridge notNil and:[ BRIDGE::SmalltalkBridge isLoaded ].
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9037	smalltalkBridgeEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9038
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9039	smalltalkBridgeEnabled isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9040	smalltalkBridgeEnabled := false asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9041	smalltalkBridgeEnabled onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9042	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9043	^ smalltalkBridgeEnabled.
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9046	smalltalkBridgeVerbose
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9047
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9048	smalltalkBridgeVerbose isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9049	smalltalkBridgeVerbose := false asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9050	smalltalkBridgeVerbose onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9051	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9052	^ smalltalkBridgeVerbose.
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9055	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl methodsFor:'help'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9056
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9057	helpFilename
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9058	^ 'Launcher/communicationsSettings.html'
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9061	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl methodsFor:'initialization & release'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9062
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9063	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9064	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9065
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9066	super initialize.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9067	self readSettings.
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9068
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9069	"Modified: / 08-02-2017 / 00:30:35 / cg"
16164 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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9072	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl methodsFor:'queries'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9073
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9074	hasRemoteBrowsingSupport
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9075
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9076	^ SmalltalkShareServer notNil
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9079	hasUnsavedChanges
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9080	(super hasUnsavedChanges) ifTrue:[^ true].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9081
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9082	BRIDGE::SmalltalkBridge notNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9083	BRIDGE::SmalltalkBridge verbose ~= (self smalltalkBridgeVerbose value) ifTrue:[^ true].
16466 59b8495a1650 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 16411 diff changeset	9084	BRIDGE::SmalltalkBridge defaultInstanceOrNil notNil ifTrue:[
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9085	(self smalltalkBridgeEnabled value) ifFalse:[^ true].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9086	] ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9087	(self smalltalkBridgeEnabled value) ifTrue:[^ true].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9088	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9089	] ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9090	(self smalltalkBridgeEnabled value) ifTrue:[^ true].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9091	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9092	^ false
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9095	!AbstractSettingsApplication::MiscBridgeCommunicationSettingsAppl methodsFor:'user actions'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9096
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9097	closeAllDotNetConnections
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9098	DOTNET::DotNet notNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9099	DOTNET::DotNet exitAllInstances
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9103	closeAllSmalltalkBridgeConnections
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9104	BRIDGE::SmalltalkBridge notNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9105	BRIDGE::SmalltalkBridge exitAllInstances
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	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9108
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9109	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'help specs'!
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9110
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	9111	helpSpec
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9112	"This resource specification was automatically generated
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9113	by the UIHelpTool of ST/X."
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9114
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9115	"Do not manually edit this!! If it is corrupted,
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9116	the UIHelpTool may not be able to read the specification."
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	"
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9119	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
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
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9122	<resource: #help>
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9123
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	9124	^ super helpSpec addPairsFrom:#(
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9125
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9126	#smtpServer
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9127	'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	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	! !
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9131
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9132	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9133
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9134	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9135	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9136	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9137
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9138	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9139	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9140
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9141	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9142	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9143	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9144	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9145	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9146
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9147	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9148
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9149	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	9150	constantNamed:'AbstractSettingsApplication::MiscCommunicationSettingsAppl defaultIcon'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	9151	ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
4949 a34c379465a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4948 diff changeset	9152	@@!!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	9153	]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	9154	P"DQ]PU%@@@@@EBUHQU5U%@@@@@@@B !!YHU%@@@@@@@E@ UFY%@@@@@@@@APIH@@@@@@@@@@@@T@@@@@@@@b')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	9155	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	9156	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	9157	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	9158
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9159	!AbstractSettingsApplication::MiscCommunicationSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9160
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9161	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9162	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9163	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9164
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9165	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9166	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9167
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9168	"
4434 cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	9169	UIPainter new openOnClass:AbstractSettingsApplication::MiscCommunicationSettingsAppl andSelector:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	9170	AbstractSettingsApplication::MiscCommunicationSettingsAppl new openInterface:#windowSpec
cd943991daad ui layout Claus Gittinger <cg@exept.de> parents: 4428 diff changeset	9171	AbstractSettingsApplication::MiscCommunicationSettingsAppl open
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9172	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9173
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9174	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9175
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9176	^
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	9177	#(FullSpec
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	9178	name: windowSpec
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9179	window:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	9180	(WindowSpec
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9181	label: 'Communication Settings'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9182	name: 'Communication Settings'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9183	flags: 1
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9184	min: (Point 10 10)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	9185	bounds: (Rectangle 0 0 738 671)
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9186	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9187	component:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	9188	(SpecCollection
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9189	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9190	(VerticalPanelViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9191	name: 'VerticalPanel1'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9192	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	9193	horizontalLayout: fit
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9194	verticalLayout: top
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9195	horizontalSpace: 3
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9196	verticalSpace: 3
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9197	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9198	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9199	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9200	(FramedBoxSpec
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9201	label: 'SMTP (Mail) Server'
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9202	name: 'SMTPServerBox1'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9203	activeHelpKey: smtpServer
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9204	labelPosition: topLeft
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9205	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9206	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9207	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9208	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9209	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9210	name: 'Box5'
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9211	layout: (LayoutFrame 0 0 10 0 0 1 35 0)
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9212	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9213	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9214	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9215	(LabelSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9216	label: 'SMTP Server:'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9217	name: 'SMTPLabel'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9218	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9219	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9220	adjust: right
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9221	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9222	(InputFieldSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9223	name: 'SMTPServer'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9224	layout: (LayoutFrame 150 0 0 0 400 0 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9225	model: smtpServerName
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9226	acceptOnReturn: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9227	acceptOnTab: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9228	acceptOnLostFocus: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9229	acceptOnPointerLeave: false
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
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9237	)
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	9238	extent: (Point 738 81)
15635 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	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	9245
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	9246	)
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	9247	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9248	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9249
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9250	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9251
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9252	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9253	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9254	smtpServerName
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9255	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9256	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9257
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9258	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9259
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9260	acceptChannel
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9261
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9262	acceptChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9263	acceptChannel := TriggerValue new.
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9264	].
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9265	^ acceptChannel.
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9266
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9267	"Created: / 12-11-2006 / 19:04:09 / cg"
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9268	!
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9269
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9270	smtpServerName
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9271
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9272	smtpServerName isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9273	smtpServerName := '' asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9274	smtpServerName onChangeSend:#updateModifiedChannel to:self.
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9275	].
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9276	^ smtpServerName.
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9277
eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9278	"Created: / 20-09-2007 / 16:04:39 / cg"
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9279	! !
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9280
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9281	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9282
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9283	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9284	^ 'Launcher/communicationsSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9285	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	9286
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9287	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'initialization & release'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9288
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9289	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9290	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9291
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9292	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	9293	self readSettings.
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9294
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	9295	"Modified: / 08-02-2017 / 00:30:26 / cg"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	9296	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9297
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9298	!AbstractSettingsApplication::MiscCommunicationSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	9299
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9300	hasUnsavedChanges
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9301	(super hasUnsavedChanges) ifTrue:[^ true].
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9302	^ false
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9303
7846 eb2b9e7afcc2 smtpServer Claus Gittinger <cg@exept.de> parents: 7838 diff changeset	9304	"Modified: / 20-09-2007 / 16:04:56 / cg"
7506 febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9305	! !
febf3a7d9520 smallTeam settings Claus Gittinger <cg@exept.de> parents: 7494 diff changeset	9306
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9307	!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'constants'!
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9308
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9309	registryValueForHighDpiAware
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9310	^ '~HIGHDPIAWARE'
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9311
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9312	"Created: / 28-11-2019 / 10:17:10 / Stefan Reise"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9313	!
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9314
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9315	regitsryValueForHighDpiUnAware
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9316	^ '~DPIUNAWARE'
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9317
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9318	"Created: / 28-11-2019 / 10:20:11 / Stefan Reise"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9319	! !
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9320
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9321	!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'documentation'!
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9322
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9323	documentation
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9324	"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9325	documentation to be added.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9326
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9327	class:
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9328	<a short class summary here, describing what instances represent>
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9329
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9330	responsibilities:
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9331	<describing what my main role is>
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9332
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9333	collaborators:
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9334	<describing with whom and how I talk to>
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9335
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9336	API:
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9337	<public api and main messages>
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9338
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9339	example:
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9340	<a one-line examples on how to use - can also be in a separate example method>
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9341
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9342	implementation:
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9343	<implementation points>
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9344
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9345	[author:]
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9346	Stefan Reise
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9347
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9348	[instance variables:]
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9349
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9350	[class variables:]
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9351
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9352	[see also:]
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9353
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9354	"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9355	!
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9356
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9357	examples
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9358	"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9359	Notice that everything between [exBegin] and [exEnd] is extracted by the html-doc generator
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9360	to create nicely formatted and clickable executable examples in the generated html-doc.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9361	(see the browser's class-documentation menu items for more)
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9362
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9363	opening the application:
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9364	[exBegin]
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9365	AbstractSettingsApplication::MiscDisplay2SettingsAppl open
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9366	[exEnd]
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9367
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9368	opening the application on some model:
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9369	[exBegin]
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9370	AbstractSettingsApplication::MiscDisplay2SettingsAppl openOn:aModel
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9371	[exEnd]
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9372	"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9373	! !
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9374
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9375	!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'help specs'!
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9376
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	9377	helpSpec
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9378	"This resource specification was automatically generated
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9379	by the UIHelpTool of ST/X."
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9380
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9381	"Do not manually edit this!! If it is corrupted,
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9382	the UIHelpTool may not be able to read the specification."
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9383
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9384	"
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9385	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplay2SettingsAppl
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9386	"
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9387
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9388	<resource: #help>
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9389
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	9390	^ super helpSpec addPairsFrom:#(
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9391
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9392	#cartoonToolTipStyle
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9393	'Choose between normal and cartoon mode when showing tooltips.'
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9394
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9395	#lowerOnRightClickInTitle
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9396	'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	9397
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9398	#lowerOnShiftClickInTitle
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9399	'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	9400
19311 53e8a613a407 #REFACTORING by Stefan Reise sr parents: 19309 diff changeset	9401	#markThisApplicationAsHighDpiAwareHelp
53e8a613a407 #REFACTORING by Stefan Reise sr parents: 19309 diff changeset	9402	''
53e8a613a407 #REFACTORING by Stefan Reise sr parents: 19309 diff changeset	9403
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9404	#nativeDialogs
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9405	'Use native dialogs if possible (WarnBox, InformationBox, etc.)\(Windows operating system ony)'
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9406
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9407	#nativeFileDialogs
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9408	'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	9409
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9410	#nativeWidgets
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9411	'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	9412
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9413	#opaqueTableColumnResizing
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9414	'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	9415
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9416	#opaqueVariablePanelResizing
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9417	'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	9418
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9419	#shadows
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9420	'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	9421
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9422	#suppressScalingByWindowsHelp
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9423	''
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9424
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9425	)
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9426	! !
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9427
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9428	!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'helpers'!
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9429
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9430	applyMarkThisApplicationAsHighDpiAware:aBoolean
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9431	\|markThisApplicationAsHighDpiAware\|
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9432
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9433	markThisApplicationAsHighDpiAware := aBoolean.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9434	markThisApplicationAsHighDpiAware = self isHighDpiAwareSetInRegistry ifFalse:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9435	markThisApplicationAsHighDpiAware ifTrue:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9436	self setHighDpiAware.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9437	] ifFalse:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9438	self unsetHighDpiAware.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9439	].
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9440	].
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9441
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9442	"Created: / 28-11-2019 / 10:30:20 / Stefan Reise"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9443	!
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9444
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9445	commonSetDpiAwareModeForExpeccoBinaries:dpiAwareMode
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9446	\|currentBinary otherBinary
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9447	registryKeyForDpiAware\|
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9448
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9449	currentBinary := OperatingSystem pathOfSTXExecutable asFilename.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9450	currentBinary suffix asLowercase = 'exe' ifTrue:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9451	otherBinary := currentBinary withSuffix:'com'.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9452	] ifFalse:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9453	otherBinary := currentBinary withSuffix:'exe'.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9454	].
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9455
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9456	registryKeyForDpiAware := self registryKeyForHighDpiAware.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9457	registryKeyForDpiAware isNil ifTrue:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9458	^ self
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9459	].
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9460
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9461	(Array
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9462	with:currentBinary
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9463	with:otherBinary) do:[:eachBinaryFilename \|
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9464	registryKeyForDpiAware
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9465	valueNamed:eachBinaryFilename nameString
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9466	put:dpiAwareMode.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9467	].
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9468
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9469	"Created: / 28-11-2019 / 10:19:50 / Stefan Reise"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9470	!
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9471
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9472	setHighDpiAware
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9473	"after set this key,
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9474	the next started stx/expecco instance will not be scaled by windows
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9475	you can check for success by inspect the binary properties
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9476	via windows context menu of the binary"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9477
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9478	"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9479	self unsetHighDpiAware.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9480	self isHighDpiAwareSetInRegistry.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9481	self setHighDpiAware.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9482	self isHighDpiAwareSetInRegistry.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9483	"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9484
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9485	self commonSetDpiAwareModeForExpeccoBinaries:self registryValueForHighDpiAware.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9486
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9487	"Created: / 28-11-2019 / 10:19:58 / Stefan Reise"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9488	!
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9489
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9490	unsetHighDpiAware
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9491	"after unset this key,
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9492	the next started stx/expecco instance will be scaled by windows
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9493	you can check for success by inspect the binary properties
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9494	via windows context menu of the binary"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9495
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9496	"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9497	self unsetHighDpiAware.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9498	self isHighDpiAwareSetInRegistry.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9499	self setHighDpiAware.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9500	self isHighDpiAwareSetInRegistry.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9501	"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9502
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9503	self commonSetDpiAwareModeForExpeccoBinaries:self regitsryValueForHighDpiUnAware.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9504
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9505	"Created: / 28-11-2019 / 10:20:09 / Stefan Reise"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9506	! !
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9507
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9508	!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'image specs'!
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9509
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9510	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9511	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9512	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9513
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9514	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9515	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9516
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9517	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9518	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9519	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9520	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9521	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9522
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9523	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9524
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	9525	^Icon
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	9526	constantNamed:'AbstractSettingsApplication::MiscDisplay2SettingsAppl defaultIcon'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	9527	ifAbsentPut:[(Depth4Image new) width:22; height:22; bits:(ByteArray fromPackedString:'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	9528	@@@@@@@@@@@@@@@@@@@@@@@@@@@ H@@@@@@@@@@@@B@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@.;.;.;.;.;@@@@:<;]!!I&W3.,@@@C+3-6D&Y_N:0@@@N/%
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	9529	**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	9530	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	9531	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9532
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9533	!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9534
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	9535	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9536	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9537	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9538
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9539	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9540	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9541
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9542	"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9543	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplay2SettingsAppl andSelector:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9544	AbstractSettingsApplication::MiscDisplay2SettingsAppl new openInterface:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9545	AbstractSettingsApplication::MiscDisplay2SettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9546	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9547
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9548	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	9549
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9550	^
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9551	#(FullSpec
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9552	name: windowSpec
19311 53e8a613a407 #REFACTORING by Stefan Reise sr parents: 19309 diff changeset	9553	uuid: '3b27cbb6-2411-11b2-ac03-00d861106b7c'
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9554	window:
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9555	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9556	label: 'Display settings 2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9557	name: 'Display settings 2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9558	flags: 1
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9559	uuid: 'f780676e-235d-11b2-a955-00d861106b7c'
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9560	min: (Point 10 10) bounds: (Rectangle 0 0 671 591)
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9561	) component:
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9562	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9563	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9564	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9565	name: 'VerticalPanel1'
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9566	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	9567	horizontalLayout: fitSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9568	verticalLayout: topSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9569	horizontalSpace: 5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9570	verticalSpace: 3
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9571	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9572	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9573	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9574	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9575	label: 'Use Native Widgets (Experimental & Unfinished Feature)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9576	name: 'NativeWidgets'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9577	activeHelpKey: nativeWidgets
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9578	uuid: 'f7806b2e-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9579	enableChannel: displaySupportsNativeWidgets
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9580	model: nativeWidgets
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9581	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9582	extent: (Point 661 30)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9583	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9584	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9585	label: 'Use Native Dialogs (Experimental & Unfinished Feature)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9586	name: 'NativeDialogs'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9587	activeHelpKey: nativeDialogs
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9588	uuid: 'f7806cb4-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9589	enableChannel: displaySupportsNativeDialogs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9590	model: nativeDialogs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9591	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9592	extent: (Point 661 30)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9593	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9594	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9595	label: 'Use Native File Dialogs (Experimental & Unfinished Feature)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9596	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9597	activeHelpKey: nativeFileDialogs
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9598	uuid: 'f7806d40-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9599	enableChannel: displaySupportsNativeFileDialogs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9600	model: nativeFileDialogs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9601	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9602	extent: (Point 661 30)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9603	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9604	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9605	name: 'SeparatingSpace1'
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9606	uuid: 'f7806db8-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9607	extent: (Point 661 5)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9608	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9609	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9610	name: 'Separator1'
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9611	uuid: 'f7806eee-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9612	extent: (Point 661 4)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9613	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9614	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9615	name: 'SeparatingSpace2'
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9616	uuid: 'f7806fb6-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9617	extent: (Point 661 5)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9618	)
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9619	(CheckBoxSpec
19311 53e8a613a407 #REFACTORING by Stefan Reise sr parents: 19309 diff changeset	9620	label: 'Mark this Application as "High DPI Aware" (Requires Restart of this Application)'
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9621	name: 'CheckBox3'
19311 53e8a613a407 #REFACTORING by Stefan Reise sr parents: 19309 diff changeset	9622	activeHelpKey: markThisApplicationAsHighDpiAwareHelp
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9623	uuid: 'f7806e58-235d-11b2-a955-00d861106b7c'
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9624	enableChannel: operatingSystemIsWindowsLike
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9625	model: markThisApplicationAsHighDpiAwareHolder
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9626	translateLabel: true
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9627	extent: (Point 661 30)
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9628	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9629	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9630	label: 'Shadows under PopUp Views'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9631	name: 'shadows'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9632	activeHelpKey: shadows
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9633	uuid: 'f780701a-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9634	model: shadows
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9635	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9636	extent: (Point 661 30)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9637	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9638	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9639	label: 'Cartoon Tooltip Style'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9640	name: 'CheckBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9641	activeHelpKey: cartoonToolTipStyle
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9642	uuid: 'f7807088-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9643	enableChannel: displaySupportsArbitraryShapedViews
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9644	model: cartoonToolTipStyle
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9645	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9646	extent: (Point 661 30)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9647	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9648	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9649	label: 'Opaque Variable Panel Resizing'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9650	name: 'opaqueVariablePanelResize'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9651	activeHelpKey: opaqueVariablePanelResizing
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9652	uuid: 'f7807100-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9653	model: opaqueVariablePanelResizing
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9654	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9655	extent: (Point 661 30)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9656	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9657	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9658	label: 'Opaque Table Column Resizing'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9659	name: 'opaqueTableColumnResize'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9660	activeHelpKey: opaqueTableColumnResizing
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9661	uuid: 'f780716e-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9662	model: opaqueTableColumnResizing
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9663	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9664	extent: (Point 661 30)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9665	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9666	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9667	name: 'SeparatingSpace3'
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9668	uuid: 'f78071e6-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9669	extent: (Point 661 4)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9670	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9671	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9672	name: 'Separator3'
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9673	uuid: 'f7807236-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9674	extent: (Point 661 3)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9675	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9676	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9677	name: 'SeparatingSpace4'
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9678	uuid: 'f7807290-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9679	extent: (Point 661 3)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9680	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9681	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9682	label: 'Right-Click in Title brings Window to Back'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9683	name: 'lowerOnRightClickInTitle'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9684	activeHelpKey: lowerOnRightClickInTitle
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9685	uuid: 'f78072e0-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9686	enableChannel: isWindowsDisplay
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9687	model: lowerOnRightClickInTitle
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9688	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9689	extent: (Point 661 30)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9690	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9691	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9692	label: 'Shift-Click in Title brings Window to Back'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9693	name: 'lowerOnShiftClickInTitle'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9694	activeHelpKey: lowerOnShiftClickInTitle
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9695	uuid: 'f7807358-235d-11b2-a955-00d861106b7c'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9696	enableChannel: isWindowsDisplay
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9697	model: lowerOnShiftClickInTitle
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9698	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9699	extent: (Point 661 30)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9700	)
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9701	)
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9702	)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9703	)
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9704	)
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9705	)
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9706	)
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9707	! !
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9708
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9709	!AbstractSettingsApplication::MiscDisplay2SettingsAppl class methodsFor:'queries'!
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9710
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9711	isHighDpiAwareSetInRegistry
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9712	"just the query if stx/expecco is high dpi aware,
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9713	if not: windows does scale expecco"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9714
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9715	"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9716	self isHighDpiAwareSetInRegistry
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9717	"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9718
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9719	\|registryKeyForHighDpiAware\|
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9720
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9721	registryKeyForHighDpiAware := self registryKeyForHighDpiAware.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9722	registryKeyForHighDpiAware isNil ifTrue:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9723	^ false
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9724	].
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9725
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9726	^ (registryKeyForHighDpiAware
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9727	valueNamed:OperatingSystem pathOfSTXExecutable)
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9728	= self registryValueForHighDpiAware
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9729
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9730	"Created: / 28-11-2019 / 10:24:14 / Stefan Reise"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9731	!
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9732
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9733	registryKeyForHighDpiAware
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9734	"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9735	self registryKeyForHighDpiAware
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9736	"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9737
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9738	OperatingSystem isMSWINDOWSlike ifFalse:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9739	^ nil
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9740	].
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9741
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9742	^ Win32OperatingSystem::RegistryEntry
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9743	key:'HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\AppCompatFlags\Layers'
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9744	createIfAbsent:true.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9745
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9746	"Created: / 28-11-2019 / 10:16:59 / Stefan Reise"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9747	!
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9748
19312 24bebdcf39ff #REFACTORING by Stefan Reise sr parents: 19311 diff changeset	9749	suppressScalingByWindowsHelpTextWithForView:aView
24bebdcf39ff #REFACTORING by Stefan Reise sr parents: 19311 diff changeset	9750	\|resources textLines isHighDpiAwareText currentSettingIsRecommended monitorScaleFactor\|
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9751
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	9752	resources := self classResources.
19312 24bebdcf39ff #REFACTORING by Stefan Reise sr parents: 19311 diff changeset	9753	monitorScaleFactor := Screen
24bebdcf39ff #REFACTORING by Stefan Reise sr parents: 19311 diff changeset	9754	monitorScaleFactorFor:(Display
24bebdcf39ff #REFACTORING by Stefan Reise sr parents: 19311 diff changeset	9755	monitorHandleForView:aView topView).
24bebdcf39ff #REFACTORING by Stefan Reise sr parents: 19311 diff changeset	9756
19303 c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9757	textLines := OrderedCollection new.
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9758	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	9759	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	9760	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	9761	textLines add:''.
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9762	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	9763	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	9764	textLines add:''.
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9765	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	9766	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	9767	textLines add:(resources string:' - this application will be displayed as clear as possible').
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9768	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	9769	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	9770	textLines add:''.
c3b1432b84c2 #FEATURE by Stefan Reise sr parents: 19299 diff changeset	9771	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	9772	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	9773	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	9774	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	9775
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9776	textLines add:''.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9777	textLines
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9778	add:((resources
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9779	string:'Current monitor scale factor: %1%%.')
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9780	bindWith:(monitorScaleFactor * 100) printString).
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9781
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9782	WinWorkstation isHighDpiAware ifTrue:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9783	isHighDpiAwareText := 'This application is currently marked as "high DPI Aware".'.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9784	currentSettingIsRecommended := monitorScaleFactor <= 1.5.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9785	] ifFalse:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9786	isHighDpiAwareText := 'This application is currently not marked as "high DPI Aware".'.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9787	currentSettingIsRecommended := (monitorScaleFactor > 1.5) or:[monitorScaleFactor = 1].
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9788	].
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9789
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9790	textLines add:(resources string:isHighDpiAwareText).
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9791	textLines add:''.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9792
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9793	monitorScaleFactor = 1 ifTrue:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9794	textLines add:(resources string:'The ''mark this application as "high DPI aware"'' setting is currently irrelevant because there is no screen scaling set in windows display settings.').
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9795	] ifFalse:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9796	currentSettingIsRecommended ifTrue:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9797	textLines add:(resources string:'The current setup of screen scaling factor and this application''s "high DPI aware" markup is recommended. Don''t change this setting.').
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9798	] ifFalse:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9799	textLines add:(resources string:'The current setup of screen scaling factor and this application''s "high DPI aware" markup is not recommended. Please change this setting.').
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9800	].
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9801	].
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9802
19312 24bebdcf39ff #REFACTORING by Stefan Reise sr parents: 19311 diff changeset	9803	^ textLines asStringWith:Character cr
24bebdcf39ff #REFACTORING by Stefan Reise sr parents: 19311 diff changeset	9804
24bebdcf39ff #REFACTORING by Stefan Reise sr parents: 19311 diff changeset	9805	"Created: / 28-11-2019 / 10:58:19 / Stefan Reise"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9806	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9807
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9808	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'actions'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9809
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9810	basicReadSettings
9140 520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	9811	\|currentScreen\|
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	9812
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	9813	currentScreen := Screen current.
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	9814
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	9815	self
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9816	readAspects:
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9817	#(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9818	nativeWidgets
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9819	nativeDialogs
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9820	nativeFileDialogs
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9821	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9822	from:currentScreen.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9823
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9824	super basicReadSettings.
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9825
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9826	self shadows value:PopUpView shadows.
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9827	self cartoonToolTipStyle value: (currentUserPrefs toolTipShapeStyle == #cartoon).
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9828
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	9829	currentScreen isWindowsPlatform ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9830	self lowerOnRightClickInTitle value:(currentScreen rightButtonIsLowerWindow:nil).
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9831	self lowerOnShiftClickInTitle value:(currentScreen shiftedLeftButtonIsLowerWindow:nil).
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9832	].
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9833
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9834	markThisApplicationAsHighDpiAwareHolder
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9835	value:self class isHighDpiAwareSetInRegistry
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9836	withoutNotifying:self.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9837
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9838	"Modified: / 24-08-2010 / 16:43:39 / sr"
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9839	"Modified: / 28-11-2019 / 10:25:50 / Stefan Reise"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9840	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9841
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9842	basicSaveSettings
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9843	\|currentScreen mustReopenTools\|
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9844
9140 520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	9845	mustReopenTools := false.
520a25e3aa04 * empty log message * Claus Gittinger <cg@exept.de> parents: 9139 diff changeset	9846
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9847	currentScreen := Screen current.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9848
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9849	self displaySupportsNativeWidgets ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9850	currentScreen nativeWidgets ~= self nativeWidgets value ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9851	mustReopenTools := true.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9852	currentScreen nativeWidgets:self nativeWidgets value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9853	currentUserPrefs nativeWidgets:self nativeWidgets value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9854	].
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9855	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9856	self displaySupportsNativeDialogs ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9857	currentScreen nativeDialogs:self nativeDialogs value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9858	currentUserPrefs nativeDialogs:self nativeDialogs value.
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9859	].
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9860	self displaySupportsNativeFileDialogs ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9861	currentScreen nativeFileDialogs:self nativeFileDialogs value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9862	currentUserPrefs nativeFileDialogs:self nativeFileDialogs value.
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9863	].
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9864
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9865	currentUserPrefs toolTipShapeStyle:((self cartoonToolTipStyle value)
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9866	ifTrue:[ #cartoon ]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9867	ifFalse:[ nil ]).
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9868	PopUpView shadows:self shadows value.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9869
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9870	super basicSaveSettings.
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9871
14745 7ac4401b840e class: AbstractSettingsApplication Stefan Vogel <sv@exept.de> parents: 14631 diff changeset	9872	currentScreen isWindowsPlatform ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9873	currentScreen rightButtonIsLowerWindow:(self lowerOnRightClickInTitle value).
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9874	currentScreen shiftedLeftButtonIsLowerWindow:(self lowerOnShiftClickInTitle value).
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	9875	].
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9876
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9877	mustReopenTools ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9878	self reopenToolsAfterChangedViewStyleSetting.
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9879	].
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9880
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9881	"/ #markThisApplicationAsHighDpiAwareHolder is nil under linux
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9882	markThisApplicationAsHighDpiAwareHolder notNil ifTrue:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9883	self class applyMarkThisApplicationAsHighDpiAware:markThisApplicationAsHighDpiAwareHolder value.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9884	].
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9885
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9886	"Modified: / 24-08-2010 / 17:27:25 / sr"
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9887	"Modified: / 28-11-2019 / 10:30:44 / Stefan Reise"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9888	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9889
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9890	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'aspects'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9891
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9892	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9893	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9894	opaqueVariablePanelResizing
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9895	opaqueTableColumnResizing
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9896	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9897
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9898	"Modified: / 24-08-2010 / 17:26:38 / sr"
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9899	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	9900
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9901	cartoonToolTipStyle
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9902	cartoonToolTipStyle isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9903	cartoonToolTipStyle := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9904	cartoonToolTipStyle onChangeSend:#updateModifiedChannel to:self
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9905	].
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9906	^ cartoonToolTipStyle.
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9907	!
4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	9908
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9909	displaySupportsNativeDialogs
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9910	^ Screen current supportsNativeDialogs
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9911	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9912
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9913	displaySupportsNativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9914	^ Screen current supportsNativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9915
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9916	"Modified: / 24-08-2010 / 16:28:58 / sr"
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9917	!
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9918
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9919	displaySupportsNativeWidgets
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9920	^ Screen current supportsNativeWidgets
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	lowerOnRightClickInTitle
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9924	lowerOnRightClickInTitle isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9925	lowerOnRightClickInTitle := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9926	lowerOnRightClickInTitle onChangeSend:#updateModifiedChannel to:self
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9927	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9928	^ lowerOnRightClickInTitle.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9929	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9930
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9931	lowerOnShiftClickInTitle
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9932	lowerOnShiftClickInTitle isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9933	lowerOnShiftClickInTitle := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9934	lowerOnShiftClickInTitle onChangeSend:#updateModifiedChannel to:self
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9935	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9936	^ lowerOnShiftClickInTitle.
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
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9939	markThisApplicationAsHighDpiAwareHolder
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9940	^ markThisApplicationAsHighDpiAwareHolder
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9941
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9942	"Created: / 28-11-2019 / 10:31:05 / Stefan Reise"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9943	!
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	9944
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9945	nativeDialogs
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9946	nativeDialogs isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9947	nativeDialogs := Screen current nativeDialogs asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9948	nativeDialogs onChangeSend:#updateModifiedChannel to:self
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9949	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9950	^ nativeDialogs.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9951	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9952
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9953	nativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9954	nativeFileDialogs isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9955	nativeFileDialogs := Screen current nativeFileDialogs asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9956	nativeFileDialogs onChangeSend:#updateModifiedChannel to:self
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9957	].
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9958	^ nativeFileDialogs
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9959
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9960	"Modified: / 24-08-2010 / 16:43:08 / sr"
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9961	!
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	9962
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9963	nativeWidgets
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9964	nativeWidgets isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9965	nativeWidgets := Screen current nativeWidgets asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9966	nativeWidgets onChangeSend:#updateModifiedChannel to:self
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9967	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9968	^ nativeWidgets.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9969	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9970
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9971	opaqueTableColumnResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9972	opaqueTableColumnResize isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9973	opaqueTableColumnResize := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9974	opaqueTableColumnResize onChangeSend:#updateModifiedChannel to:self
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9975	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9976	^ opaqueTableColumnResize.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9977	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9978
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9979	opaqueVariablePanelResizing
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9980	opaqueVariablePanelResize isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9981	opaqueVariablePanelResize := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9982	opaqueVariablePanelResize onChangeSend:#updateModifiedChannel to:self
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9983	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9984	^ opaqueVariablePanelResize.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9985	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9986
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9987	shadows
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9988	shadows isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9989	shadows := PopUpView shadows asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	9990	shadows onChangeSend:#updateModifiedChannel to:self
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9991	].
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9992	^ shadows.
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9993	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9994
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9995	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'help'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9996
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9997	helpFilename
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	9998	^ 'Launcher/miscSettings.html'
19311 53e8a613a407 #REFACTORING by Stefan Reise sr parents: 19309 diff changeset	9999	!
53e8a613a407 #REFACTORING by Stefan Reise sr parents: 19309 diff changeset	10000
53e8a613a407 #REFACTORING by Stefan Reise sr parents: 19309 diff changeset	10001	helpTextForKey:aKey
53e8a613a407 #REFACTORING by Stefan Reise sr parents: 19309 diff changeset	10002	aKey == #markThisApplicationAsHighDpiAwareHelp ifTrue:[
19312 24bebdcf39ff #REFACTORING by Stefan Reise sr parents: 19311 diff changeset	10003	^ self class suppressScalingByWindowsHelpTextWithForView:self
19311 53e8a613a407 #REFACTORING by Stefan Reise sr parents: 19309 diff changeset	10004	].
53e8a613a407 #REFACTORING by Stefan Reise sr parents: 19309 diff changeset	10005
53e8a613a407 #REFACTORING by Stefan Reise sr parents: 19309 diff changeset	10006	^ super helpTextForKey:aKey
53e8a613a407 #REFACTORING by Stefan Reise sr parents: 19309 diff changeset	10007
53e8a613a407 #REFACTORING by Stefan Reise sr parents: 19309 diff changeset	10008	"Created: / 27-11-2019 / 13:16:18 / Stefan Reise"
19312 24bebdcf39ff #REFACTORING by Stefan Reise sr parents: 19311 diff changeset	10009	"Modified: / 28-11-2019 / 10:59:30 / Stefan Reise"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10010	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10011
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10012	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'initialization'!
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10013
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10014	initialize
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10015	super initialize.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10016
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10017	OperatingSystem isMSWINDOWSlike ifTrue:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10018	markThisApplicationAsHighDpiAwareHolder := self class isHighDpiAwareSetInRegistry asValue.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10019	markThisApplicationAsHighDpiAwareHolder addDependent:self.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10020	].
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10021
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10022	"Created: / 28-11-2019 / 10:18:04 / Stefan Reise"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10023	! !
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10024
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10025	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'queries'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10026
13548 dc78ae8a04d0 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13531 diff changeset	10027	displaySupportsArbitraryShapedViews
dc78ae8a04d0 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13531 diff changeset	10028	^ Screen current supportsArbitraryShapedViews
dc78ae8a04d0 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13531 diff changeset	10029	!
dc78ae8a04d0 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13531 diff changeset	10030
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10031	hasUnsavedChanges
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	10032	\|currentScreen\|
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	10033
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	10034	currentScreen := Screen current.
a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	10035
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10036	(self
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10037	hasChangedAspectIn:
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10038	#(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10039	nativeWidgets
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10040	nativeDialogs
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10041	nativeFileDialogs
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10042	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10043	asComparedTo:currentScreen) ifTrue:[^ true].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10044
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10045	(super hasUnsavedChanges) ifTrue:[^ true].
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10046
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10047	self shadows value ~= PopUpView shadows ifTrue:[^ true].
13459 4f96c0faa053 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13419 diff changeset	10048	(currentUserPrefs toolTipShapeStyle == #cartoon) ~= cartoonToolTipStyle value ifTrue:[^ true].
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	10049
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	10050	currentScreen isWindowsPlatform ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10051	(currentScreen rightButtonIsLowerWindow:nil) ~= (self lowerOnRightClickInTitle value) ifTrue:[^ true].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10052	(currentScreen shiftedLeftButtonIsLowerWindow:nil) ~= (self lowerOnShiftClickInTitle value) ifTrue:[^ true].
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10053
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10054	(markThisApplicationAsHighDpiAwareHolder notNil "/ is nil unter linux
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10055	and:[markThisApplicationAsHighDpiAwareHolder value ~= self class isHighDpiAwareSetInRegistry]) ifTrue:[^ true].
9148 a1d7541a1275 * empty log message * Claus Gittinger <cg@exept.de> parents: 9147 diff changeset	10056	].
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10057	^ false
9555 164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	10058
164ea0934c91 comment/format in: #writeAspects:to: sr parents: 9551 diff changeset	10059	"Modified: / 24-08-2010 / 16:44:43 / sr"
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10060	"Modified: / 28-11-2019 / 10:32:10 / Stefan Reise"
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10061	!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10062
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10063	isWindowsDisplay
14745 7ac4401b840e class: AbstractSettingsApplication Stefan Vogel <sv@exept.de> parents: 14631 diff changeset	10064	^ Screen current isWindowsPlatform
19299 96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	10065	!
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	10066
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	10067	operatingSystemIsWindowsLike
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	10068	^ OperatingSystem isMSWINDOWSlike
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	10069
96cf341a4989 #FEATURE by Stefan Reise sr parents: 19133 diff changeset	10070	"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	10071	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10072
19309 2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10073	!AbstractSettingsApplication::MiscDisplay2SettingsAppl methodsFor:'updating'!
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10074
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10075	update:something
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10076	with:aParameter
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10077	from:changedObject
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10078
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10079	changedObject == markThisApplicationAsHighDpiAwareHolder ifTrue:[
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10080	self updateModifiedChannel.
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10081	^ self
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10082	].
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10083
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10084	^ super
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10085	update:something
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10086	with:aParameter
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10087	from:changedObject
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10088
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10089	"Created: / 28-11-2019 / 10:31:27 / Stefan Reise"
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10090	! !
2abb52959be0 #REFACTORING by Stefan Reise sr parents: 19303 diff changeset	10091
12351 8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	10092	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'help specs'!
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	10093
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	10094	helpSpec
12351 8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	10095	"This resource specification was automatically generated
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	10096	by the UIHelpTool of ST/X."
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	10097
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	10098	"Do not manually edit this!! If it is corrupted,
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	10099	the UIHelpTool may not be able to read the specification."
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	10100
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	10101	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	10102	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
12351 8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	10103	"
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	10104
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	10105	<resource: #help>
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	10106
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	10107	^ super helpSpec addPairsFrom:#(
12351 8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	10108
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10109	#showAccelerators
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10110	'Show shortcut-key bindings (if any) in popup menus'
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10111
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10112	#focusFollowsMouse
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10113	'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	10114
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10115	#'shouldRememberLastExtent'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10116	'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	10117
13369 d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	10118	#menuPanelTakesFocusOnClick
d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	10119	'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	10120
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10121	#mouseWheelFocusFollowsMouse
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10122	'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	10123
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10124	#allowMouseWheelZoom
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10125	'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	10126
17641 4211d4bb9e73 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17629 diff changeset	10127	#metaIsMouseWheelZoom
4211d4bb9e73 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17629 diff changeset	10128	'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	10129
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10130	#takeFocus
14833 70e2b677b37c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14832 diff changeset	10131	'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	10132
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10133	#returnFocus
14833 70e2b677b37c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14832 diff changeset	10134	'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	10135
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10136	#activateOnClick
14833 70e2b677b37c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14832 diff changeset	10137	'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	10138
12351 8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	10139	#button2WithAltKey
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	10140	'Use with single button mice to get a right-button emulation'
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	10141
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10142	#selectOnRightClick
15057 50b9d352cd81 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15051 diff changeset	10143	'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	10144
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10145	#showRightButtonMenuOnRelease
15057 50b9d352cd81 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15051 diff changeset	10146	'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	10147
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10148	#hostNameInLabel
14833 70e2b677b37c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14832 diff changeset	10149	'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	10150
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10151	#autoRaiseOnFocusIn
14833 70e2b677b37c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14832 diff changeset	10152	'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	10153
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10154	#forceWindowsIntoMonitorBounds
14833 70e2b677b37c class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14832 diff changeset	10155	'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	10156	)
17641 4211d4bb9e73 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17629 diff changeset	10157
4211d4bb9e73 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17629 diff changeset	10158	"Modified: / 30-08-2017 / 14:57:30 / cg"
12351 8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	10159	! !
8396995136c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12097 diff changeset	10160
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10161	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'image specs'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10162
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10163	defaultIcon
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10164	"This resource specification was automatically generated
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10165	by the ImageEditor of ST/X."
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10166
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10167	"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	10168	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	10169
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10170	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10171	self defaultIcon inspect
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10172	ImageEditor openOnClass:self andSelector:#defaultIcon
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10173	Icon flushCachedIcons
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10174	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10175
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10176	<resource: #image>
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10177
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10178	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	10179	constantNamed:'AbstractSettingsApplication::MiscDisplaySettingsAppl defaultIcon'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	10180	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	10181	@@@@@@@@@@@@@@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	10182	@@@@@@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	10183	@ 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	10184	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	10185	@ 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	10186	B (JB (E@@@@@@@@APTEAPTEAPTEAPTEAPTEAP@@@@@@@@@a')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	10187	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	10188	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	10189	! !
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10190
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10191	!AbstractSettingsApplication::MiscDisplaySettingsAppl class methodsFor:'interface specs'!
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10192
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10193	windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10194	"This resource specification was automatically generated
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10195	by the UIPainter of ST/X."
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10196
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10197	"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	10198	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	10199
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10200	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10201	UIPainter new openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl andSelector:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10202	AbstractSettingsApplication::MiscDisplaySettingsAppl new openInterface:#windowSpec
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10203	AbstractSettingsApplication::MiscDisplaySettingsAppl open
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10204	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10205
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10206	<resource: #canvas>
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10207
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10208	^
13283 697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	10209	#(FullSpec
697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	10210	name: windowSpec
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10211	window:
13283 697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	10212	(WindowSpec
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10213	label: 'Display settings'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10214	name: 'Display settings'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10215	flags: 1
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10216	min: (Point 10 10)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10217	bounds: (Rectangle 0 0 540 662)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10218	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10219	component:
13283 697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	10220	(SpecCollection
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10221	collection: (
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10222	(VerticalPanelViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10223	name: 'VerticalPanel1'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10224	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10225	horizontalLayout: fitSpace
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10226	verticalLayout: topSpace
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10227	horizontalSpace: 5
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10228	verticalSpace: 1
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10229	component:
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10230	(SpecCollection
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10231	collection: (
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10232	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10233	label: 'Beeper enabled'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10234	name: 'beepEnabled'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10235	visibilityChannel: false
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10236	model: beepEnabled
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10237	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10238	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10239	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10240	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10241	label: 'Show Accelerator Keys in Menus'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10242	name: 'showAccelerators'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10243	activeHelpKey: showAccelerators
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10244	model: showAccelerators
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10245	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10246	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10247	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10248	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10249	name: 'SeparatingSpace1'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10250	extent: (Point 530 4)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10251	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10252	(DividerSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10253	name: 'Separator1'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10254	extent: (Point 530 3)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10255	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10256	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10257	name: 'SeparatingSpace2'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10258	extent: (Point 530 3)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10259	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10260	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10261	label: 'Keyboard Focus Follows Mouse'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10262	name: 'focusFollowsMouse'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10263	activeHelpKey: focusFollowsMouse
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10264	model: focusFollowsMouse
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10265	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10266	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10267	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10268	(CheckBoxSpec
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10269	label: 'MouseWheel Focus Follows Mouse'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10270	name: 'mouseWheelFocusFollowsMouse'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10271	activeHelpKey: mouseWheelFocusFollowsMouse
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10272	enableChannel: mouseWheelFocusFollowsMouseEnabled
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10273	model: mouseWheelFocusFollowsMouse
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10274	translateLabel: true
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10275	extent: (Point 530 30)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10276	)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10277	(CheckBoxSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10278	label: 'Zoom with CTRL- or ALT-Mousewheel'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10279	name: 'CheckBox1'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10280	activeHelpKey: allowMouseWheelZoom
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10281	model: allowMouseWheelZoom
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10282	translateLabel: true
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10283	extent: (Point 530 30)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10284	)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10285	(ViewSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10286	name: 'SeparatingSpace4'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10287	extent: (Point 530 3)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10288	)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10289	(DividerSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10290	name: 'Separator2'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10291	extent: (Point 530 3)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10292	)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10293	(ViewSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10294	name: 'SeparatingSpace5'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10295	extent: (Point 530 3)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10296	)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10297	(CheckBoxSpec
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10298	label: 'Menu Panels take Focus on Click'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10299	name: 'CheckBox7'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10300	activeHelpKey: menuPanelTakesFocusOnClick
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10301	model: menuPanelTakesFocusOnClick
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10302	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10303	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10304	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10305	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10306	label: 'Views Catch Focus when Mapped'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10307	name: 'takeFocus'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10308	activeHelpKey: takeFocus
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10309	model: takeFocus
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10310	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10311	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10312	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10313	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10314	label: 'Boxes Return Focus to Previously Active View'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10315	name: 'returnFocus'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10316	activeHelpKey: returnFocus
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10317	model: returnFocus
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10318	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10319	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10320	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10321	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10322	label: 'Raise & Activate Windows on Click'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10323	name: 'activateOnClick'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10324	activeHelpKey: activateOnClick
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10325	model: activateOnClick
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10326	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10327	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10328	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10329	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10330	label: 'Autoraise Windows on FocusIn'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10331	name: 'CheckBox4'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10332	activeHelpKey: autoRaiseOnFocusIn
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10333	model: autoRaiseOnFocusIn
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10334	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10335	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10336	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10337	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10338	label: 'Force Windows into Monitor''s Bounds'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10339	name: 'CheckBox2'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10340	activeHelpKey: forceWindowsIntoMonitorBounds
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10341	model: forceWindowsIntoMonitorBounds
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10342	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10343	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10344	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10345	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10346	label: 'Applications Remember Last Extent as Default'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10347	name: 'CheckBox5'
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10348	activeHelpKey: shouldRememberLastExtent
16338 2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10349	model: shouldRememberLastExtentHolder
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10350	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10351	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10352	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10353	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10354	name: 'SeparatingSpace5'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10355	extent: (Point 530 4)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10356	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10357	(DividerSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10358	name: 'Separator3'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10359	extent: (Point 530 4)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10360	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10361	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10362	name: 'SeparatingSpace6'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10363	extent: (Point 530 3)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10364	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10365	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10366	label: 'Select on Right-Button-Press'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10367	name: 'selectOnRightClick'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10368	activeHelpKey: selectOnRightClick
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10369	model: selectOnRightClick
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10370	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10371	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10372	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10373	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10374	label: 'Menu on Right-Button-Release'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10375	name: 'showRightButtonMenuOnRelease'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10376	activeHelpKey: showRightButtonMenuOnRelease
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10377	model: showRightButtonMenuOnRelease
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10378	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10379	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10380	)
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10381	(CheckBoxSpec
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10382	label: 'ALT-Leftclick is Rightclick'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10383	name: 'CheckBox3'
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10384	activeHelpKey: button2WithAltKey
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10385	model: button2WithAltKey
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10386	translateLabel: true
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10387	extent: (Point 530 30)
41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10388	)
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10389	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10390	name: 'SeparatingSpace7'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10391	extent: (Point 530 4)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10392	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10393	(DividerSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10394	name: 'Separator4'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10395	extent: (Point 530 4)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10396	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10397	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10398	name: 'SeparatingSpace8'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10399	extent: (Point 530 4)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10400	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10401	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10402	name: 'Box1'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10403	component:
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10404	(SpecCollection
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10405	collection: (
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10406	(LabelSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10407	label: 'Label'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10408	name: 'Label1'
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10409	layout: (LayoutFrame 0 0 0 0 218 0 20 0)
14832 e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10410	activeHelpKey: hostNameInLabel
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10411	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10412	labelChannel: formatHostNameWindowLabel
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10413	adjust: right
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10414	useDefaultExtent: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10415	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10416	(LabelSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10417	label: 'Label'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10418	name: 'Label2'
15049 41530cb36c13 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15047 diff changeset	10419	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	10420	activeHelpKey: hostNameInLabel
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10421	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10422	labelChannel: formatHostNameWindowLabel1
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10423	adjust: left
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10424	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10425	(LabelSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10426	label: 'Label'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10427	name: 'Label3'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10428	layout: (LayoutFrame 0 0.59999999999999998 30 0 0 1 0 1)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10429	activeHelpKey: hostNameInLabel
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10430	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10431	labelChannel: formatHostNameWindowLabel2
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10432	adjust: left
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10433	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10434	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10435
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10436	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10437	extent: (Point 530 92)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10438	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10439	(ViewSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10440	name: 'WindowLabelBox'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10441	component:
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10442	(SpecCollection
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10443	collection: (
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10444	(CheckBoxSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10445	label: 'Window Label Format'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10446	name: 'hostNameInLabelHolder'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10447	layout: (LayoutFrame 0 0 0 0 216 0 30 0)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10448	activeHelpKey: hostNameInLabel
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10449	model: hostNameInLabelHolder
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10450	translateLabel: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10451	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10452	(InputFieldSpec
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10453	name: 'hostNameInLabelEntryField'
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10454	layout: (LayoutFrame 218 0 0 0 -5 1 30 0)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10455	activeHelpKey: hostNameInLabel
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10456	enableChannel: hostNameInLabelHolder
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10457	model: newWindowLabelFormat
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10458	immediateAccept: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10459	acceptOnReturn: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10460	acceptOnTab: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10461	acceptOnLostFocus: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10462	acceptOnPointerLeave: true
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10463	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10464	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10465
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10466	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10467	extent: (Point 530 30)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10468	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10469	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10470
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10471	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10472	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10473	)
e69cad05f9b1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14829 diff changeset	10474
13283 697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	10475	)
697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	10476	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10477	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10478
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10479	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10480
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10481	basicReadSettings
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10482	super basicReadSettings.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	10483
16338 2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10484	self shouldRememberLastExtentHolder value:currentUserPrefs shouldRememberLastExtent.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10485	self newWindowLabelFormat value:StandardSystemView windowLabelFormat.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	10486	self hostNameInLabelHolder value:StandardSystemView includeHostNameInLabel.
31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	10487	self returnFocus value:StandardSystemView returnFocusWhenClosingModalBoxes.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10488	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	10489	self activateOnClick value:(Screen current activateOnClick:nil).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10490	self showAccelerators value:MenuView showAcceleratorKeys.
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10491
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10492	self autoRaiseOnFocusIn value: (currentUserPrefs autoRaiseOnFocusInDelay notNil).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10493	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	10494
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10495	basicSaveSettings
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	10496	\|currentScreen\|
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	10497
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	10498	currentScreen := Screen current.
94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	10499
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	10500	(self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	10501	or:[self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat]) ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10502	StandardSystemView includeHostNameInLabel:self hostNameInLabelHolder value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10503	self newWindowLabelFormat value notNil ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10504	StandardSystemView windowLabelFormat:self newWindowLabelFormat value
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10505	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10506
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10507	Screen allScreens do:[:aDisplay \|
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10508	aDisplay allViewsDo:[:aView \|
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10509	\|l\|
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10510
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10511	aView isTopView ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10512	l := aView label.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10513	l notNil ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10514	aView label:(l , ' '); label:l. "/ force a change
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10515	]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10516	]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10517	]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10518	]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10519	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10520
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10521	super basicSaveSettings.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10522
16338 2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10523	currentUserPrefs shouldRememberLastExtent:(self shouldRememberLastExtentHolder value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10524	StandardSystemView returnFocusWhenClosingModalBoxes:self returnFocus value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10525	StandardSystemView takeFocusWhenMapped:self takeFocus value.
6030 94eba9f547a2 * empty log message * ca parents: 6029 diff changeset	10526	currentScreen activateOnClick:self activateOnClick value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10527
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10528	MenuView showAcceleratorKeys:self showAccelerators value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10529
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10530	self autoRaiseOnFocusIn value ~= (currentUserPrefs autoRaiseOnFocusInDelay notNil) ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10531	currentUserPrefs autoRaiseOnFocusInDelay:(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10532	self autoRaiseOnFocusIn value ifTrue:[ 750 ] ifFalse:[nil]).
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10533	].
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10534
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10535	"Modified: / 16.12.2002 / 18:06:31 / penk"
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10536	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	10537
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10538	formatHostNameinWindowLabels
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10539	\|newFormat\|
c72e35116b13 instable state penk parents: 5040 diff changeset	10540
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	10541	newFormat := Dialog
19314 a810beaf09a5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 19312 diff changeset	10542	request:c'Define the Format of Window Labels:\n\n %1 - Label\n %2 - Hostname\n %3 - Username\n %4 - ProcessId\n'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10543	initialAnswer:newWindowLabelFormat.
17418 e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	10544	newFormat notEmptyOrNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10545	newWindowLabelFormat := newFormat.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10546	self updateModifiedChannel
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	10547	]
17418 e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	10548
e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	10549	"Modified: / 17-02-2017 / 08:26:39 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10550	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10551
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10552	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10553
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10554	activateOnClick
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10555	activateOnClick isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10556	activateOnClick := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10557	activateOnClick onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10558	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10559	^ activateOnClick.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10560	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10561
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	10562	allowMouseWheelZoom
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	10563	allowMouseWheelZoom isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10564	allowMouseWheelZoom := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10565	allowMouseWheelZoom onChangeSend:#updateModifiedChannel to:self
9176 56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	10566	].
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	10567	^ allowMouseWheelZoom.
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	10568	!
56692e9031e1 mouseWheel-zoom setting Claus Gittinger <cg@exept.de> parents: 9174 diff changeset	10569
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10570	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10571	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10572	beepEnabled
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10573	focusFollowsMouse
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10574	mouseWheelFocusFollowsMouse
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10575	showRightButtonMenuOnRelease
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10576	selectOnRightClick
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10577	allowMouseWheelZoom
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10578	forceWindowsIntoMonitorBounds
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10579	button2WithAltKey
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10580	menuPanelTakesFocusOnClick
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10581	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10582
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10583	"Modified: / 31-07-2013 / 18:14:44 / cg"
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10584	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10585
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10586	autoRaiseOnFocusIn
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10587	autoRaiseOnFocusIn isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10588	autoRaiseOnFocusIn := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10589	autoRaiseOnFocusIn onChangeSend:#updateModifiedChannel to:self
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10590	].
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10591	^ autoRaiseOnFocusIn.
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10592	!
817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10593
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10594	beepEnabled
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10595	beepEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10596	beepEnabled := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10597	beepEnabled onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10598	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10599	^ beepEnabled.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10600	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10601
12352 1a664d79c63e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12351 diff changeset	10602	button2WithAltKey
1a664d79c63e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12351 diff changeset	10603	button2WithAltKey isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10604	button2WithAltKey := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10605	button2WithAltKey onChangeSend:#updateModifiedChannel to:self
12352 1a664d79c63e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12351 diff changeset	10606	].
1a664d79c63e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12351 diff changeset	10607	^ button2WithAltKey.
1a664d79c63e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12351 diff changeset	10608	!
1a664d79c63e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12351 diff changeset	10609
6025 70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	10610	displaySupportsNativeDialogs
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	10611	^ Screen current supportsNativeDialogs
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	10612	!
70cd59f93dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 6023 diff changeset	10613
6008 4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	10614	displaySupportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	10615	^ Screen current supportsNativeWidgets
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	10616	!
4b14425f2ca3 * empty log message * ca parents: 6003 diff changeset	10617
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10618	focusFollowsMouse
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10619	focusFollowsMouse isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10620	focusFollowsMouse := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10621	focusFollowsMouse onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10622	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10623	^ focusFollowsMouse.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10624	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10625
9592 417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10626	forceWindowsIntoMonitorBounds
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10627	forceWindowsIntoMonitorBounds isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10628	forceWindowsIntoMonitorBounds := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10629	forceWindowsIntoMonitorBounds onChangeSend:#updateModifiedChannel to:self
9592 417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10630	].
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10631	^ forceWindowsIntoMonitorBounds.
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10632
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10633	"Created: / 22-10-2010 / 14:25:40 / cg"
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10634	!
417dcf26fdbe force on monitor Claus Gittinger <cg@exept.de> parents: 9566 diff changeset	10635
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10636	formatHostNameWindowLabel
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10637	formatHostNameWindowLabel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10638	formatHostNameWindowLabel :=
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10639	(resources string:'Window Label Format:').
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10640	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10641	^ formatHostNameWindowLabel.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10642
6939 af3cdc84970f * empty log message * Claus Gittinger <cg@exept.de> parents: 6897 diff changeset	10643	"Created: / 16-12-2002 / 17:50:49 / penk"
af3cdc84970f * empty log message * Claus Gittinger <cg@exept.de> parents: 6897 diff changeset	10644	"Modified: / 22-08-2006 / 11:43:41 / cg"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10645	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10646
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10647	formatHostNameWindowLabel1
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10648	formatHostNameWindowLabel1 isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10649	formatHostNameWindowLabel1 :=
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10650	(resources stringWithCRs:'%1 - Label\%2 - Hostname\%3 - Username')
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10651	].
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10652	^ formatHostNameWindowLabel1.
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10653
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10654	"Created: / 16-12-2002 / 17:50:49 / penk"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10655	"Modified: / 22-08-2006 / 11:43:41 / cg"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10656	!
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10657
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10658	formatHostNameWindowLabel2
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10659	formatHostNameWindowLabel2 isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10660	formatHostNameWindowLabel2 :=
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10661	(resources stringWithCRs:'%4 - ProcessId\%5 - TOP-Directory\%6 - TOP-Path').
8720 fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10662	].
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10663	^ formatHostNameWindowLabel2.
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10664
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10665	"Created: / 16-12-2002 / 17:50:49 / penk"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10666	"Modified: / 22-08-2006 / 11:43:41 / cg"
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10667	!
fbba7eb29381 * empty log message * Claus Gittinger <cg@exept.de> parents: 8710 diff changeset	10668
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10669	hostNameInLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10670	hostNameInLabelHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10671	hostNameInLabelHolder := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10672	hostNameInLabelHolder onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10673	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10674	^ hostNameInLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10675	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10676
13369 d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	10677	menuPanelTakesFocusOnClick
d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	10678	menuPanelTakesFocusOnClick isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10679	menuPanelTakesFocusOnClick := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10680	menuPanelTakesFocusOnClick onChangeSend:#updateModifiedChannel to:self
13369 d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	10681	].
d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	10682	^ menuPanelTakesFocusOnClick.
d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	10683	!
d870f21b21a1 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13353 diff changeset	10684
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10685	mouseWheelFocusFollowsMouse
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10686	mouseWheelFocusFollowsMouse isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10687	mouseWheelFocusFollowsMouse := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10688	mouseWheelFocusFollowsMouse onChangeSend:#updateModifiedChannel to:self
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10689	].
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10690	^ mouseWheelFocusFollowsMouse.
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10691	!
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10692
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10693	mouseWheelFocusFollowsMouseEnabled
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10694	^ BlockValue
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10695	forLogicalNot:(self focusFollowsMouse).
8550 6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10696	!
6cec78ceb9fd +mouseWheelFocusFollowsMouse Claus Gittinger <cg@exept.de> parents: 8502 diff changeset	10697
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10698	newWindowLabelFormat
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10699	newWindowLabelFormat isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10700	newWindowLabelFormat := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10701	newWindowLabelFormat onChangeSend:#updateModifiedChannel to:self
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10702	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10703	^ newWindowLabelFormat.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10704
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10705	"Created: / 16.12.2002 / 17:50:49 / penk"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10706	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	10707
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10708	returnFocus
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10709	returnFocus isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10710	returnFocus := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10711	returnFocus onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10712	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10713	^ returnFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10714	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10715
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10716	selectOnRightClick
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10717	selectOnRightClick isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10718	selectOnRightClick := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10719	selectOnRightClick onChangeSend:#updateModifiedChannel to:self
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10720	].
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10721	^ selectOnRightClick.
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10722	!
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10723
16338 2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10724	shouldRememberLastExtentHolder
2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10725	shouldRememberLastExtentHolder isNil ifTrue:[
2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10726	shouldRememberLastExtentHolder := true asValue.
2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10727	shouldRememberLastExtentHolder onChangeSend:#updateModifiedChannel to:self
2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10728	].
2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10729	^ shouldRememberLastExtentHolder.
13283 697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	10730	!
697d6bd3364e class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13243 diff changeset	10731
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10732	showAccelerators
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10733	showAccelerators isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10734	showAccelerators := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10735	showAccelerators onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10736	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10737	^ showAccelerators.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10738	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10739
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10740	showRightButtonMenuOnRelease
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10741	showRightButtonMenuOnRelease isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10742	showRightButtonMenuOnRelease := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10743	showRightButtonMenuOnRelease onChangeSend:#updateModifiedChannel to:self
8710 ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10744	].
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10745	^ showRightButtonMenuOnRelease.
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10746	!
ba4cd1052b10 * empty log message * Claus Gittinger <cg@exept.de> parents: 8682 diff changeset	10747
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10748	takeFocus
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10749	takeFocus isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10750	takeFocus := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	10751	takeFocus onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10752	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10753	^ takeFocus.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10754	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10755
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10756	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10757
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10758	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10759	^ 'Launcher/miscSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10760	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	10761
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	10762	!AbstractSettingsApplication::MiscDisplaySettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10763
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	10764	hasUnsavedChanges
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	10765	(super hasUnsavedChanges) ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	10766
16338 2fa0985a4a6d #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16332 diff changeset	10767	self shouldRememberLastExtentHolder value ~= currentUserPrefs shouldRememberLastExtent ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10768	self newWindowLabelFormat value ~= StandardSystemView windowLabelFormat ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10769	self hostNameInLabelHolder value ~= StandardSystemView includeHostNameInLabel ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10770	self returnFocus value ~= StandardSystemView returnFocusWhenClosingModalBoxes ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10771	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	10772	self activateOnClick value ~= (Screen current activateOnClick:nil) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10773	self showAccelerators value ~= MenuView showAcceleratorKeys ifTrue:[^ true].
12697 817c14942d65 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12618 diff changeset	10774	self autoRaiseOnFocusIn value ~= (currentUserPrefs autoRaiseOnFocusInDelay notNil) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	10775	^ false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10776	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	10777
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10778	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl class methodsFor:'help specs'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10779
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	10780	helpSpec
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10781	"This resource specification was automatically generated
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10782	by the UIHelpTool of ST/X."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10783
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10784	"Do not manually edit this!! If it is corrupted,
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10785	the UIHelpTool may not be able to read the specification."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10786
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10787	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10788	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10789	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10790
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10791	<resource: #help>
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10792
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	10793	^ super helpSpec addPairsFrom:#(
16164 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	#windowMigration
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10796	'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	10797
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10798	#remoteBrowsing
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10799	'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	10800
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10801	#smallTeamCommon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10802	'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	10803
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10804	#smallTeam
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10805	'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	10806
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10807	#smallTeamHosts
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10808	'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	10809
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10810	#smallTeamHostToAdd
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10811	'Name of host to add (with button below)'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10812
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10813	#addSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10814	'Add the above hostname to the list of team members'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10815
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10816	#removeSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10817	'Remove the selected hostname from the list of team members'
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	#smallTeamViaXMPP
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10820	'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	10821
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10822	#xmppServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10823	'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	10824
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10825	#xmppLoginUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10826	'Your login username on the above xmpp server'
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	#xmppLoginPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10829	'Your login password on the above xmpp server'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10830
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10831	#smallTeamXMPPUsers
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10832	'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	10833
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10834	#smallTeamXMPPUserToAdd
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10835	'Name of user to add (with button below)'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10836
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10837	#addSmallTeamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10838	'Add the above username to the list of team members'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10839
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10840	#removeSmallTeamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10841	'Remove the selected username from the list of team members'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10842	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10843	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10844
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10845	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl class methodsFor:'image specs'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10846
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10847	defaultIcon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10848	"This resource specification was automatically generated
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10849	by the ImageEditor of ST/X."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10850
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10851	"Do not manually edit this!! If it is corrupted,
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10852	the ImageEditor may not be able to read the specification."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10853
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10854	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10855	self defaultIcon inspect
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10856	ImageEditor openOnClass:self andSelector:#defaultIcon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10857	Icon flushCachedIcons
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10858	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10859
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10860	<resource: #image>
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10861
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10862	^Icon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10863	constantNamed:'AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl defaultIcon'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10864	ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10865	@@!!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	10866	]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	10867	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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	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	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl class methodsFor:'interface specs'!
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	windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10873	"This resource specification was automatically generated
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10874	by the UIPainter of ST/X."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10875
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10876	"Do not manually edit this!! If it is corrupted,
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10877	the UIPainter may not be able to read the specification."
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10878
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10879	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10880	UIPainter new openOnClass:AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl andSelector:#windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10881	AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl new openInterface:#windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10882	AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl open
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10883	"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10884
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10885	<resource: #canvas>
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10886
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10887	^
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10888	#(FullSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10889	name: windowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10890	window:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10891	(WindowSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10892	label: 'Smalltalk Communication Settings'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10893	name: 'Smalltalk Communication Settings'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10894	flags: 1
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10895	min: (Point 10 10)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10896	bounds: (Rectangle 0 0 751 766)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10897	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10898	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10899	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10900	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10901	(VerticalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10902	name: 'VerticalPanel1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10903	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	10904	horizontalLayout: fit
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10905	verticalLayout: top
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10906	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10907	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10908	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10909	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10910	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10911	(FramedBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10912	label: 'Window migration'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10913	name: 'WindowMicrationSetupBox'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10914	activeHelpKey: windowMigration
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10915	labelPosition: topLeft
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10916	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10917	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10918	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10919	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10920	(VerticalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10921	name: 'VerticalPanel2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10922	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10923	horizontalLayout: left
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10924	verticalLayout: center
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10925	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10926	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10927	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10928	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10929	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10930	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10931	name: 'Box2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10932	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10933	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10934	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10935	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10936	label: 'Window migration enabled'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10937	name: 'CheckBox2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10938	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10939	enableChannel: hasWindowMigrationServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10940	model: windowMigrationEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10941	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10942	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10943	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10944
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10945	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10946	extent: (Point 696 25)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10947	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10948	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10949	name: 'Box3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10950	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10951	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10952	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10953	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10954	label: 'Password check'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10955	name: 'CheckBox3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10956	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10957	enableChannel: enablePasswordCheck
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10958	model: windowMigrationAuthenticate
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10959	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10960	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10961	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10962
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10963	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10964	extent: (Point 696 25)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10965	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10966	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10967	name: 'Box4'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10968	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10969	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10970	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10971	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10972	label: 'Password:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10973	name: 'Label3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10974	layout: (LayoutFrame 0 0 0 0 150 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10975	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10976	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10977	enableDisableColorChannel: enablePasswordCheck
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10978	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10979	(InputFieldSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10980	name: 'EntryField1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10981	layout: (LayoutFrame 150 0 0 0 400 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10982	enableChannel: windowMigrationAuthenticate
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10983	model: windowMigrationPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10984	type: password
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10985	acceptOnReturn: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10986	acceptOnTab: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10987	acceptOnLostFocus: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10988	acceptOnPointerLeave: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10989	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10990	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10991
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10992	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10993	extent: (Point 696 25)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10994	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10995	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10996
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10997	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10998	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	10999	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11000
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11001	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11002	extent: (Point 751 120)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11003	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11004	(FramedBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11005	label: 'Remote Browsing'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11006	name: 'RemoteBrowsingSetupBox'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11007	activeHelpKey: remoteBrowsing
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11008	labelPosition: topLeft
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11009	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11010	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11011	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11012	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11013	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11014	name: 'Box1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11015	layout: (LayoutFrame 0 0 5 0 0 1 30 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11016	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11017	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11018	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11019	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11020	label: 'Remote browsing enabled'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11021	name: 'CheckBox1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11022	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11023	enableChannel: hasRemoteBrowsingSupport
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11024	model: remoteBrowsingEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11025	translateLabel: true
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	)
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	)
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	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11034	extent: (Point 751 70)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11035	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11036	(FramedBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11037	label: 'SmallTeam Change Distribution'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11038	name: 'SmallTeamSetupBox'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11039	activeHelpKey: smallTeamCommon
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11040	labelPosition: topLeft
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11041	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11042	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11043	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11044	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11045	(ViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11046	name: 'enableBox'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11047	layout: (LayoutFrame 0 0 8 0 0 1 33 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11048	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11049	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11050	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11051	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11052	label: 'SmallTeam Server enabled'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11053	name: 'CheckBox4'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11054	layout: (LayoutFrame 5 0 0 0 600 0 25 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11055	enableChannel: smallTeamServerAvailable
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11056	model: smallTeamServerEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11057	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11058	activeHelpKey: smallTeam
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	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11061
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11062	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11063	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11064	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11065	label: 'SmallTeam Hosts:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11066	name: 'smallTeamHostsLabel'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11067	layout: (LayoutFrame 0 0.0 37 0 60 0.25 62 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11068	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11069	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11070	enableDisableColorChannel: smallTeamServerAvailable
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11071	activeHelpKey: smallTeamHosts
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	(SequenceViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11074	name: 'smallTeamHostsList'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11075	layout: (LayoutFrame 64 0.25 37 0 0 1 131 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11076	enableChannel: smallTeamServerEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11077	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11078	model: selectedSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11079	hasHorizontalScrollBar: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11080	hasVerticalScrollBar: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11081	miniScrollerHorizontal: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11082	useIndex: false
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11083	sequenceList: listOfSmallTeamHosts
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11084	activeHelpKey: smallTeamHosts
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11085	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11086	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11087	label: 'Host:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11088	name: 'hostLabel'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11089	layout: (LayoutFrame 0 0.0 137 0 60 0.25 162 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11090	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11091	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11092	enableDisableColorChannel: smallTeamServerEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11093	activeHelpKey: smallTeamHostToAdd
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	(InputFieldSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11096	name: 'smallTeamHostEntryField'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11097	layout: (LayoutFrame 64 0.25 138 0 0 1 163 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11098	enableChannel: smallTeamServerEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11099	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11100	model: smallTeamHostEntry
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11101	acceptChannel: acceptChannel
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11102	acceptOnPointerLeave: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11103	activeHelpKey: smallTeamHostToAdd
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11104	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11105	(HorizontalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11106	name: 'HorizontalPanel2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11107	layout: (LayoutFrame 64 0.25 168 0 -1 1 193 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11108	horizontalLayout: fitSpace
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11109	verticalLayout: center
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11110	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11111	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11112	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11113	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11114	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11115	(ActionButtonSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11116	label: 'Add'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11117	name: 'addButton'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11118	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11119	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11120	model: addSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11121	enableChannel: addHostEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11122	extent: (Point 226 22)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11123	activeHelpKey: addSmallTeamHost
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	(ActionButtonSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11126	label: 'Remove'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11127	name: 'removeButton'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11128	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11129	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11130	model: removeSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11131	enableChannel: removeHostEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11132	extent: (Point 226 22)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11133	activeHelpKey: removeSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11134	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11135	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11136
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11137	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11138	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11139	(CheckBoxSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11140	label: 'XMPP SmallTeam enabled'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11141	name: 'CheckBox5'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11142	layout: (LayoutFrame 5 0 197 0 600 0 222 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11143	enableChannel: smallTeamViaXMPPAvailable
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11144	model: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11145	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11146	activeHelpKey: smallTeamViaXMPP
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	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11149	label: 'XMPP Team Members:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11150	name: 'Label4'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11151	layout: (LayoutFrame 0 0.0 323 0 60 0.25 348 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11152	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11153	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11154	enableDisableColorChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11155	activeHelpKey: smallTeamXMPPUsers
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	(SequenceViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11158	name: 'List1'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11159	layout: (LayoutFrame 64 0.25 323 0 0 1 417 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11160	enableChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11161	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11162	model: selectedXMPPSmallTeamUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11163	hasHorizontalScrollBar: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11164	hasVerticalScrollBar: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11165	miniScrollerHorizontal: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11166	useIndex: false
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11167	sequenceList: listOfXMPPSmallTeamUsers
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11168	activeHelpKey: smallTeamXMPPUsers
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	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11171	label: 'Member:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11172	name: 'Label5'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11173	layout: (LayoutFrame 0 0.0 423 0 60 0.25 448 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11174	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11175	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11176	enableDisableColorChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11177	activeHelpKey: smallTeamXMPPUserToAdd
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11178	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11179	(InputFieldSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11180	name: 'EntryField2'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11181	layout: (LayoutFrame 64 0.25 424 0 0 1 449 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11182	enableChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11183	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11184	model: xmppSmallTeamUserEntry
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11185	acceptChannel: acceptChannel
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11186	acceptOnPointerLeave: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11187	activeHelpKey: smallTeamXMPPUserToAdd
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	(HorizontalPanelViewSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11190	name: 'HorizontalPanel3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11191	layout: (LayoutFrame 64 0.25 455 0 -1 1 480 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11192	horizontalLayout: fitSpace
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11193	verticalLayout: center
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11194	horizontalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11195	verticalSpace: 3
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11196	component:
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11197	(SpecCollection
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11198	collection: (
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11199	(ActionButtonSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11200	label: 'Add'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11201	name: 'Button3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11202	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11203	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11204	model: addSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11205	enableChannel: addXMPPUserEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11206	extent: (Point 226 22)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11207	activeHelpKey: addSmallTeamXMPPUser
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	(ActionButtonSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11210	label: 'Remove'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11211	name: 'Button4'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11212	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11213	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11214	model: removeSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11215	enableChannel: removeXMPPUserEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11216	extent: (Point 226 22)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11217	activeHelpKey: removeSmallTeamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11218	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11219	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11220
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11221	)
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	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11224	label: 'XMPP Server:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11225	name: 'Label6'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11226	layout: (LayoutFrame 0 0.0 227 0 60 0.25 252 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11227	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11228	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11229	enableDisableColorChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11230	activeHelpKey: xmppServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11231	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11232	(InputFieldSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11233	name: 'EntryField3'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11234	layout: (LayoutFrame 64 0.25 228 0 0 1 253 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11235	enableChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11236	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11237	model: smallteamXMPPServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11238	acceptChannel: acceptChannel
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11239	acceptOnPointerLeave: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11240	activeHelpKey: xmppServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11241	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11242	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11243	label: 'XMPP Username:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11244	name: 'Label7'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11245	layout: (LayoutFrame 0 0.0 258 0 60 0.25 283 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11246	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11247	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11248	enableDisableColorChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11249	activeHelpKey: xmppLoginUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11250	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11251	(InputFieldSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11252	name: 'EntryField4'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11253	layout: (LayoutFrame 64 0.25 259 0 0 1 284 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11254	enableChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11255	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11256	model: smallteamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11257	acceptChannel: acceptChannel
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11258	acceptOnPointerLeave: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11259	activeHelpKey: xmppLoginUser
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	(LabelSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11262	label: 'XMPP Password:'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11263	name: 'Label8'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11264	layout: (LayoutFrame 0 0.0 288 0 60 0.25 313 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11265	translateLabel: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11266	adjust: right
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11267	enableDisableColorChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11268	activeHelpKey: xmppLoginPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11269	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11270	(InputFieldSpec
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11271	name: 'EntryField5'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11272	layout: (LayoutFrame 64 0.25 289 0 0 1 314 0)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11273	enableChannel: smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11274	tabable: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11275	model: smallteamXMPPPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11276	type: password
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11277	acceptChannel: acceptChannel
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11278	acceptOnPointerLeave: true
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11279	activeHelpKey: xmppLoginPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11280	)
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	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11284	extent: (Point 751 521)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11285	)
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	)
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	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11291
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11292	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11293	)
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11294	! !
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	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'actions'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11297
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11298	aspects
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11299	^ #(
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11300	smallteamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11301	smallteamXMPPPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11302	smallteamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11303	smallteamXMPPServer
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11307	basicReadSettings
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11308	\|pw auth\|
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11309
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11310	super basicReadSettings.
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	SmallTeam notNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11313	self smallTeamServerEnabled value:(SmallTeam isLoaded and:[SmallTeam serverRunning]).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11314	self listOfSmallTeamHosts contents:(SmallTeam connectedHosts).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11315	].
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	self remoteBrowsingEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11318	value:(self hasRemoteBrowsingSupport
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11319	and:[SmalltalkShareServer isLoaded and:[SmalltalkShareServer serverRunning]]).
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	self windowMigrationEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11322	value:(self hasWindowMigrationServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11323	and:[ WindowMigrationServer isLoaded
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11324	and:[ WindowMigrationServer serverRunning ]]).
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11327	pw := nil.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11328	auth := false.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11329	(self hasWindowMigrationServer and:[WindowMigrationServer isLoaded]) ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11330	pw := WindowMigrationServer password.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11331	auth := self windowMigrationPassword value notNil
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11334	self windowMigrationPassword value:pw.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11335	self windowMigrationAuthenticate value:auth
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11336
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11337	"Modified: / 20-09-2007 / 16:04:59 / cg"
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11340	basicSaveSettings
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11341	super basicSaveSettings.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11342	self smallTeamServerAvailable ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11343	SmallTeam connectedHosts copy do:[:host \|
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11344	(self listOfSmallTeamHosts includes:host) ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11345	SmallTeam removeHost:host.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11346	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11347	].
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11348	self listOfSmallTeamHosts do:[:eachHost \|
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11349	SmallTeam addHost:eachHost.
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	self smallTeamServerEnabled value ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11352	SmallTeam startServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11353	] ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11354	SmallTeam stopServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11355	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11356	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11357	self smallTeamViaXMPPAvailable ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11358	SmallTeamXMPPRoboter listOfXMPPUsers copy do:[:user \|
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11359	(self listOfXMPPSmallTeamUsers includes:user) ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11360	SmallTeamXMPPRoboter removeUser:user.
16164 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	].
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11363	self listOfXMPPSmallTeamUsers do:[:eachUser \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11364	SmallTeamXMPPRoboter addUser:eachUser.
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	currentUserPrefs smallteamXMPPServer:(self smallteamXMPPServer value).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11367	currentUserPrefs smallteamXMPPUser:(self smallteamXMPPUser value).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11368	currentUserPrefs smallteamXMPPPassword:(self smallteamXMPPPassword value).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11369	self smallTeamViaXMPPEnabled value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11370	SmallTeamXMPPRoboter startServer
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11371	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11372	SmallTeamXMPPRoboter stopServer
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11373	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11374	].
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11375	self hasRemoteBrowsingSupport ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11376	self remoteBrowsingEnabled value ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11377	SmalltalkShareServer serverRunning ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11378	SmalltalkShareServer killAll
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	] ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11381	SmalltalkShareServer serverRunning ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11382	SmalltalkShareServer start.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11383
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11384	"/ must wait a bit; give it a chance to
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11385	"/ really start (before checking)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11386
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11387	Delay waitForSeconds:0.5.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11388	SmalltalkShareServer serverRunning ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11389	self warn:'SmalltalkShareServer startup failed (see stderr).'
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	].
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	self hasWindowMigrationServer ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11395	self windowMigrationAuthenticate value ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11396	WindowMigrationServer password:self windowMigrationPassword value.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11397	] ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11398	WindowMigrationServer password:nil
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11399	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11400	self windowMigrationEnabled value ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11401	WindowMigrationServer serverRunning ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11402	WindowMigrationServer stop
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11403	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11404	] ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11405	WindowMigrationServer serverRunning ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11406	WindowMigrationServer start.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11407
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11408	"/ must wait a bit; give it a chance to
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11409	"/ really start (before checking)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11410
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11411	Delay waitForSeconds:0.5.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11412	WindowMigrationServer serverRunning ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11413	self warn:'WindowMigrationServer startup failed (see stderr).'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11414	]
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11415	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11416	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11417	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11418
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11419	"Modified: / 20-09-2007 / 16:05:01 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11420	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11421
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11422	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'aspects'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11423
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11424	acceptChannel
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11425
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11426	acceptChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11427	acceptChannel := TriggerValue new.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11428	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11429	^ acceptChannel.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11430
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11431	"Created: / 12-11-2006 / 19:04:09 / cg"
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11434	addHostEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11435	^ self smallTeamServerEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11436	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11437
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11438	addXMPPUserEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11439	^ self smallTeamViaXMPPEnabled
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	enablePasswordCheck
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	enablePasswordCheck isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11445	self hasWindowMigrationServer ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11446	enablePasswordCheck := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11447	] ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11448	enablePasswordCheck := self windowMigrationEnabled.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11449	].
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11450	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11451	^ enablePasswordCheck.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11452	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11453
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11454	listOfSmallTeamHosts
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11455
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11456	listOfSmallTeamHosts isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11457	listOfSmallTeamHosts := List new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11458	listOfSmallTeamHosts onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11459	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11460	^ listOfSmallTeamHosts.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11461
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11462	"Created: / 12-11-2006 / 19:06:35 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11463	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11464
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11465	listOfXMPPSmallTeamUsers
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11466
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11467	listOfXMPPSmallTeamUsers isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11468	listOfXMPPSmallTeamUsers := List new.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11469	listOfXMPPSmallTeamUsers onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11470	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11471	^ listOfXMPPSmallTeamUsers.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11472	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11473
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11474	remoteBrowsingEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11475
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11476	remoteBrowsingEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11477	remoteBrowsingEnabled := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11478	remoteBrowsingEnabled onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11479	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11480	^ remoteBrowsingEnabled.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11481	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11482
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11483	removeHostEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11484	^ BlockValue
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11485	forLogical:self smallTeamServerEnabled
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11486	and:(BlockValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11487	with:[:h \| h notEmptyOrNil]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11488	argument:self selectedSmallTeamHost)
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11489
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11490	"Created: / 12-11-2006 / 19:01:42 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11491	"Modified: / 08-03-2007 / 23:02:36 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11492	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11493
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11494	removeXMPPUserEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11495	^ BlockValue
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11496	forLogical:self smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11497	and:(BlockValue
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11498	with:[:h \| h notEmptyOrNil]
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11499	argument:self selectedXMPPSmallTeamUser)
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
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11502	selectedSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11503
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11504	selectedSmallTeamHost isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11505	selectedSmallTeamHost := nil asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11506	selectedSmallTeamHost onChangeSend:#selectedSmallTeamHostChanged to:self.
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	^ selectedSmallTeamHost.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11509
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11510	"Created: / 12-11-2006 / 19:11:01 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11511	!
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	selectedXMPPSmallTeamUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11514
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11515	selectedXMPPSmallTeamUser isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11516	selectedXMPPSmallTeamUser := nil asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11517	selectedXMPPSmallTeamUser onChangeSend:#selectedXMPPSmallTeamUserChanged to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11518	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11519	^ selectedXMPPSmallTeamUser.
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	smallTeamHostEntry
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11523
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11524	smallTeamHostEntry isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11525	smallTeamHostEntry := nil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11526	smallTeamHostEntry onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11527	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11528	^ smallTeamHostEntry.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11529
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11530	"Created: / 12-11-2006 / 19:07:06 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11531	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11532
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11533	smallTeamServerAvailable
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11534	^ SmallTeam notNil.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11535
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11536	"Created: / 12-11-2006 / 18:56:20 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11537	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11538
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11539	smallTeamServerEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11540
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11541	smallTeamServerEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11542	smallTeamServerEnabled := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11543	smallTeamServerEnabled onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11544	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11545	^ smallTeamServerEnabled.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11546
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11547	"Created: / 12-11-2006 / 18:56:11 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11548	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11549
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11550	smallTeamViaXMPPAvailable
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11551	^ SmallTeam notNil
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11552	and:[ JBCClient notNil and:[ SmallTeamXMPPRoboter notNil ] ].
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11553	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11554
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11555	smallTeamViaXMPPEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11556
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11557	smallTeamViaXMPPEnabled isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11558	smallTeamViaXMPPEnabled := false asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11559	smallTeamViaXMPPEnabled onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11560	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11561	^ smallTeamViaXMPPEnabled.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11562	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11563
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11564	smalltalkBridgeEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11565
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11566	smalltalkBridgeEnabled isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11567	smalltalkBridgeEnabled := false asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11568	smalltalkBridgeEnabled onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11569	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11570	^ smalltalkBridgeEnabled.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11571	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11572
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11573	smalltalkBridgeVerbose
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11574
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11575	smalltalkBridgeVerbose isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11576	smalltalkBridgeVerbose := false asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11577	smalltalkBridgeVerbose onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11578	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11579	^ smalltalkBridgeVerbose.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11580	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11581
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11582	smallteamXMPPPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11583
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11584	smallteamXMPPPassword isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11585	smallteamXMPPPassword := '' asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11586	smallteamXMPPPassword onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11587	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11588	^ smallteamXMPPPassword.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11589	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11590
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11591	smallteamXMPPServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11592
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11593	smallteamXMPPServer isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11594	smallteamXMPPServer := '' asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11595	smallteamXMPPServer onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11596	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11597	^ smallteamXMPPServer.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11598	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11599
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11600	smallteamXMPPUser
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11601
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11602	smallteamXMPPUser isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11603	smallteamXMPPUser := '' asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11604	smallteamXMPPUser onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11605	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11606	^ smallteamXMPPUser.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11607	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11608
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11609	windowMigrationAuthenticate
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11610
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11611	windowMigrationAuthenticate isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11612	windowMigrationAuthenticate := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11613	windowMigrationAuthenticate onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11614	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11615	^ windowMigrationAuthenticate.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11616	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11617
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11618	windowMigrationEnabled
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11619
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11620	windowMigrationEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11621	windowMigrationEnabled := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11622	windowMigrationEnabled onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11623	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11624	^ windowMigrationEnabled.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11625	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11626
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11627	windowMigrationPassword
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11628
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11629	windowMigrationPassword isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11630	windowMigrationPassword := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11631	windowMigrationPassword onChangeSend:#updateModifiedChannel to:self.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11632	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11633	^ windowMigrationPassword.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11634	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11635
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11636	xmppSmallTeamUserEntry
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11637
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11638	xmppSmallTeamUserEntry isNil ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11639	xmppSmallTeamUserEntry := nil asValue.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11640	xmppSmallTeamUserEntry onChangeSend:#updateModifiedChannel to:self.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11641	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11642	^ xmppSmallTeamUserEntry.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11643	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11644
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11645	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'change & update'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11646
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11647	selectedSmallTeamHostChanged
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11648	self acceptChannel value:true.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11649	self smallTeamHostEntry value:( self selectedSmallTeamHost value).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11650
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11651	"Created: / 12-11-2006 / 19:09:49 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11652	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11653
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11654	selectedXMPPSmallTeamUserChanged
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11655	self acceptChannel value:true.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11656	self xmppSmallTeamUserEntry value:( self selectedXMPPSmallTeamUser value).
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11657	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11658
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11659	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'help'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11660
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11661	helpFilename
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11662	^ 'Launcher/communicationsSettings.html'
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11663	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11664
16172 39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11665	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'help specs'!
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11666
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11667	helpTextForKey:aKey
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11668	\|normalText hasWindowMigrationServer\|
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11669
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11670	hasWindowMigrationServer := self hasWindowMigrationServer.
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11671
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11672	normalText := super helpTextForKey:aKey.
16172 39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11673	aKey == #windowMigration ifTrue:[
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11674	hasWindowMigrationServer ifFalse:[
16172 39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11675	^ normalText , (resources stringWithCRs:'\\Disabled because the windowMigration package is not loaded')
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11676	]
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11677	].
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11678	aKey == #remoteBrowsing ifTrue:[
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11679	hasWindowMigrationServer ifFalse:[
16172 39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11680	^ normalText , (resources stringWithCRs:'\\Disabled because the remoteBrowsing package is not loaded')
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11681	]
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11682	].
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11683	(#(smallTeamCommon
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11684	smallTeam smallTeamHosts
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11685	addSmallTeamHost removeSmallTeamHost
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11686	smallTeamViaXMPP
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11687	xmppServer xmppLoginUser xmppLoginPassword
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11688	smallTeamXMPPUsers smallTeamXMPPUserToAdd
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11689	addSmallTeamXMPPUser removeSmallTeamXMPPUser
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11690	) includes:aKey) ifTrue:[
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	11691	hasWindowMigrationServer ifFalse:[
16172 39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11692	^ normalText , (resources stringWithCRs:'\\Disabled because the smallTeam package is not loaded')
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11693	]
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11694	].
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11695	^ normalText
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11696	! !
39b0d187be9e #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16167 diff changeset	11697
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11698	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'initialization & release'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11699
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11700	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	11701	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	11702
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11703	super initialize.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11704	self readSettings.
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	11705
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	11706	"Modified: / 08-02-2017 / 00:30:03 / cg"
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11707	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11708
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11709	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'queries'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11710
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11711	hasRemoteBrowsingSupport
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11712
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11713	^ SmalltalkShareServer notNil
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11714	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11715
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11716	hasUnsavedChanges
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11717	(super hasUnsavedChanges) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11718	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11719	].
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11720	(self smallTeamServerAvailable) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11721	self smallTeamServerEnabled value
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11722	~= (SmallTeam isLoaded and:[ SmallTeam serverRunning ]) ifTrue:[ ^ true ].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11723	self listOfSmallTeamHosts asSet ~= (SmallTeam connectedHosts asSet) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11724	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11725	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11726	].
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11727	(self smallTeamViaXMPPAvailable) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11728	self smallTeamViaXMPPEnabled value ~= (SmallTeamXMPPRoboter isLoaded
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11729	and:[ SmallTeamXMPPRoboter serverRunning ]) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11730	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11731	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11732	self listOfXMPPSmallTeamUsers asSet
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11733	~= ((SmallTeamXMPPRoboter listOfXMPPUsers ? #()) asSet) ifTrue:[ ^ true ].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11734	self smallteamXMPPServer value ~= (currentUserPrefs smallteamXMPPServer) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11735	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11736	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11737	self smallteamXMPPUser value ~= (currentUserPrefs smallteamXMPPUser) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11738	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11739	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11740	self smallteamXMPPPassword value
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11741	~= (currentUserPrefs smallteamXMPPPassword) ifTrue:[ ^ true ].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11742	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11743	(self hasRemoteBrowsingSupport and:[ SmalltalkShareServer isLoaded ]) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11744	self remoteBrowsingEnabled value ~~ SmalltalkShareServer serverRunning ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11745	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11746	].
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11747	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11748	self hasWindowMigrationServer ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11749	WindowMigrationServer isLoaded ifFalse:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11750	self windowMigrationEnabled value ifTrue:[
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11751	WindowMigrationServer autoload.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11752	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11753	].
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11754	(self windowMigrationEnabled value ~~ WindowMigrationServer serverRunning) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11755	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11756	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11757	(self windowMigrationPassword value ~= WindowMigrationServer password) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11758	^ true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11759	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11760	(self windowMigrationAuthenticate value
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11761	~= self windowMigrationPassword value notNil) ifTrue:[ ^ true ].
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11762	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11763	^ false
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11764
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11765	"Modified: / 20-09-2007 / 16:04:56 / cg"
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11766	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11767
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11768	hasWindowMigrationServer
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11769
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11770	^ WindowMigrationServer notNil
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11771	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11772
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11773	!AbstractSettingsApplication::MiscSmalltalkCommunicationSettingsAppl methodsFor:'user actions'!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11774
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11775	addSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11776	\|host\|
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11777
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11778	acceptChannel value:true.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11779
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11780	host := self smallTeamHostEntry value.
17418 e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	11781
e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	11782	host notEmptyOrNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11783	self listOfSmallTeamHosts add:host
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11784	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11785
17418 e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	11786	"Modified (format): / 17-02-2017 / 08:33:52 / cg"
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11787	!
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11788
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11789	removeSmallTeamHost
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11790	\|host\|
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11791
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11792	acceptChannel value:true.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11793
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11794	host := self selectedSmallTeamHost value.
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11795
17418 e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	11796	host notEmptyOrNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11797	self selectedSmallTeamHost value:nil.
17939 128b51c94f39 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17904 diff changeset	11798	self listOfSmallTeamHosts remove:host ifAbsent:[ self beep ].
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11799	self smallTeamHostEntry value:''.
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11800	].
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11801
17418 e4dfa78a0a63 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17389 diff changeset	11802	"Modified: / 17-02-2017 / 08:33:29 / cg"
16164 c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11803	! !
c3ea9b00529c #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16162 diff changeset	11804
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11805	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11806
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11807	defaultIcon
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	11808	<resource: #programImage>
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	11809
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	11810	^ AbstractSettingsApplication::MiscCommunicationSettingsAppl defaultIcon.
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11811	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	11812
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11813	!AbstractSettingsApplication::OsiSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11814
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	11815	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	11816	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11817	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11818
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11819	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11820	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11821
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11822	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11823	UIPainter new openOnClass:AbstractSettingsApplication::OsiSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11824	AbstractSettingsApplication::OsiSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11825	AbstractSettingsApplication::OsiSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11826	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11827
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11828	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	11829
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	11830	^
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11831	#(FullSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11832	name: windowSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11833	window:
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11834	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11835	label: 'OSI Protocols Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11836	name: 'OSI Protocols Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11837	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11838	bounds: (Rectangle 0 0 600 550)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11839	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11840	component:
5149 b36d1f1ee54e Remove max windowsize constraint from windowSpecs. Stefan Vogel <sv@exept.de> parents: 5140 diff changeset	11841	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11842	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11843	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11844	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11845	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	11846	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11847	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11848	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11849	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11850	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11851	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11852	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11853	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11854	label: 'ACSE'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11855	name: 'Label1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11856	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11857	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11858	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11859	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11860	name: 'Box1a'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11861	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11862	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11863	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11864	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11865	label: 'Log Errors'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11866	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11867	layout: (LayoutFrame 25 0 0 0 -2 0.33 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11868	enableChannel: osiACSEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11869	model: osiACSEErrorLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11870	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11871	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11872	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11873
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11874	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11875	extent: (Point 600 27)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11876	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11877	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11878	name: 'Box1b'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11879	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11880	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11881	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11882	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11883	label: 'Log Connections'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11884	name: 'CheckBox10'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11885	layout: (LayoutFrame 25 0 0 0 -2 0.66 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11886	enableChannel: osiACSEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11887	model: osiACSEConnectionLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11888	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11889	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11890	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11891
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11892	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11893	extent: (Point 600 26)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11894	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11895	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11896	name: 'Box1c'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11897	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11898	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11899	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11900	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11901	label: 'Log Data Transfer'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11902	name: 'CheckBox14'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11903	layout: (LayoutFrame 25 0 0 0 -2 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11904	enableChannel: osiACSEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11905	model: osiACSEDataLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11906	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11907	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11908	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11909
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11910	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11911	extent: (Point 600 26)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11912	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11913	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11914	name: 'Separator1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11915	extent: (Point 600 4)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11916	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11917	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11918	label: 'ROSE'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11919	name: 'Label2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11920	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11921	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11922	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11923	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11924	name: 'Box4a'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11925	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11926	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11927	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11928	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11929	label: 'Log Errors'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11930	name: 'CheckBox4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11931	layout: (LayoutFrame 25 0 0 0 -2 0.33 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11932	enableChannel: osiROSEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11933	model: osiROSEErrorLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11934	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11935	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11936	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11937
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11938	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11939	extent: (Point 600 25)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11940	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11941	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11942	name: 'Box4b'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11943	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11944	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11945	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11946	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11947	label: 'Log Invoactions'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11948	name: 'CheckBox16'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11949	layout: (LayoutFrame 25 0 0 0 -2 0.66 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11950	enableChannel: osiROSEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11951	model: osiROSEInvokationLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11952	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11953	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11954	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11955
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11956	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11957	extent: (Point 600 25)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11958	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11959	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11960	name: 'Box4c'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11961	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11962	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11963	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11964	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11965	label: 'Log Responses'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11966	name: 'CheckBox20'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11967	layout: (LayoutFrame 25 0 0 0 -2 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11968	enableChannel: osiROSEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11969	model: osiROSEResponseLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11970	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11971	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11972	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11973
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11974	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11975	extent: (Point 600 25)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11976	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11977	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11978	name: 'Separator2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11979	extent: (Point 600 3)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11980	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11981	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11982	label: 'CMISE'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11983	name: 'Label3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11984	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11985	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11986	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11987	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11988	name: 'Box7a'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11989	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11990	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11991	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11992	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11993	label: 'Log Errors'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11994	name: 'CheckBox7'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11995	layout: (LayoutFrame 25 0 0 0 -2 0.33 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11996	enableChannel: osiCMISEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11997	model: osiCMISEErrorLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11998	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	11999	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12000	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12001
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12002	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12003	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12004	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12005	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12006	name: 'Box7b'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12007	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12008	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12009	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12010	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12011	label: 'Log Messages'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12012	name: 'CheckBox22'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12013	layout: (LayoutFrame 25 0 0 0 -2 0.66 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12014	enableChannel: osiCMISEPresent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12015	model: osiCMISEMessageLogging
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12016	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12017	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12018	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12019
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12020	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12021	extent: (Point 600 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12022	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12023	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12024
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12025	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12026	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12027	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12028
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12029	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12030	)
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12031	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12032
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12033	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12034
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12035	basicReadSettings
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	12036	self updateOSIPackagePresentHolders.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12037	self osiACSEPresent value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12038	self osiACSEErrorLogging value:OSI::ACSE errorLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12039	self osiACSEConnectionLogging value:OSI::ACSE connectionLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12040	self osiACSEDataLogging value:OSI::ACSE dataLogging
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12041	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12042	self osiROSEPresent value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12043	self osiROSEErrorLogging value:OSI::ROSE errorLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12044	self osiROSEInvokationLogging value:OSI::ROSE invocationLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12045	self osiROSEResponseLogging value:OSI::ROSE responseLogging
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12046	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12047	self osiCMISEPresent value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12048	self osiCMISEErrorLogging value:OSI::CMISE errorLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12049	self osiCMISEMessageLogging value:OSI::CMISE messageLogging
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12050	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12051	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12052
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12053	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12054
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12055	self osiACSEPresent value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12056	OSI::ACSE errorLogging:self osiACSEErrorLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12057	OSI::ACSE connectionLogging:self osiACSEConnectionLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12058	OSI::ACSE dataLogging:self osiACSEDataLogging value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12059	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12060	self osiROSEPresent value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12061	OSI::ROSE errorLogging:self osiROSEErrorLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12062	OSI::ROSE invocationLogging:self osiROSEInvokationLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12063	OSI::ROSE responseLogging:self osiROSEResponseLogging value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12064	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12065	self osiCMISEPresent value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12066	OSI::CMISE errorLogging:self osiCMISEErrorLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12067	OSI::CMISE messageLogging:self osiCMISEMessageLogging value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12068	].
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	12069	!
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	12070
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	12071	updateOSIPackagePresentHolders
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	12072	self osiACSEPresent value:(OSI::ACSE notNil and:[OSI::ACSE isLoaded]).
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	12073	self osiROSEPresent value:(OSI::ROSE notNil and:[OSI::ROSE isLoaded]).
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	12074	self osiCMISEPresent value:(OSI::CMISE notNil and:[OSI::CMISE isLoaded]).
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12075	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12076
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12077	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12078
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12079	osiACSEConnectionLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12080	osiACSEConnectionLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12081	osiACSEConnectionLogging := true asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12082	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12083	^ osiACSEConnectionLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12084	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12085
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12086	osiACSEDataLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12087
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12088	osiACSEDataLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12089	osiACSEDataLogging := true asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12090	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12091	^ osiACSEDataLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12092	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12093
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12094	osiACSEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12095	osiACSEErrorLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12096	osiACSEErrorLogging := true asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12097	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12098	^ osiACSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12099	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12100
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12101	osiACSEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12102	osiACSEPresent isNil ifTrue:[
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	12103	osiACSEPresent := OSI::ACSE notNil asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12104	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12105	^ osiACSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12106	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12107
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12108	osiCMISEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12109	osiCMISEErrorLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12110	osiCMISEErrorLogging := true asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12111	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12112	^ osiCMISEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12113	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12114
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12115	osiCMISEMessageLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12116	osiCMISEMessageLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12117	osiCMISEMessageLogging := true asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12118	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12119	^ osiCMISEMessageLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12120	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12121
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12122	osiCMISEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12123	osiCMISEPresent isNil ifTrue:[
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	12124	osiCMISEPresent := OSI::CMISE notNil asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12125	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12126	^ osiCMISEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12127	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12128
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12129	osiROSEErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12130	osiROSEErrorLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12131	osiROSEErrorLogging := true asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12132	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12133	^ osiROSEErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12134	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12135
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12136	osiROSEInvokationLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12137	osiROSEInvokationLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12138	osiROSEInvokationLogging := true asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12139	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12140	^ osiROSEInvokationLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12141	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12142
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12143	osiROSEPresent
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12144
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12145	osiROSEPresent isNil ifTrue:[
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	12146	osiROSEPresent := OSI::ROSE notNil asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12147	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12148	^ osiROSEPresent.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12149	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12150
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12151	osiROSEResponseLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12152
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12153	osiROSEResponseLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12154	osiROSEResponseLogging := true asValue.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12155	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12156	^ osiROSEResponseLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12157	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12158
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12159	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12160
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12161	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12162	^ 'Launcher/communicationsSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12163	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	12164
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12165	!AbstractSettingsApplication::OsiSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12166
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12167	hasUnsavedChanges
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	12168	self updateOSIPackagePresentHolders.
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	12169
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	12170	(self osiACSEPresent value
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	12171	and:[
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	12172	self osiACSEErrorLogging value ~= OSI::ACSE errorLogging
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	12173	or:[ self osiACSEConnectionLogging value ~= OSI::ACSE connectionLogging
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	12174	or:[ self osiACSEDataLogging value ~= OSI::ACSE dataLogging]]]) ifTrue:[^ true].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	12175
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	12176	(self osiROSEPresent value
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	12177	and:[
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	12178	self osiROSEErrorLogging value ~= OSI::ROSE errorLogging
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	12179	or:[ self osiROSEInvokationLogging value ~= OSI::ROSE invocationLogging
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	12180	or:[ self osiROSEResponseLogging value ~= OSI::ROSE responseLogging]]]) ifTrue:[^ true].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	12181
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	12182	(self osiCMISEPresent value
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	12183	and:[
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	12184	self osiCMISEErrorLogging value ~= OSI::CMISE errorLogging
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	12185	or:[ self osiCMISEMessageLogging value ~= OSI::CMISE messageLogging]])ifTrue:[^ true].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	12186
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	12187	^ false.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12188	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12189
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12190	!AbstractSettingsApplication::PackagePathSettingsAppl class methodsFor:'image specs'!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12191
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12192	defaultIcon
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12193	<resource: #programImage>
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12194
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12195	^ ToolbarIconLibrary packageOpen24x24Icon
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12196	! !
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12197
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12198	!AbstractSettingsApplication::PackagePathSettingsAppl class methodsFor:'interface specs'!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12199
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12200	windowSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12201	"This resource specification was automatically generated
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12202	by the UIPainter of ST/X."
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12203
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12204	"Do not manually edit this!! If it is corrupted,
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12205	the UIPainter may not be able to read the specification."
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12206
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12207	"
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12208	UIPainter new openOnClass:AbstractSettingsApplication::PackagePathSettingsAppl andSelector:#windowSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12209	AbstractSettingsApplication::PackagePathSettingsAppl new openInterface:#windowSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12210	AbstractSettingsApplication::PackagePathSettingsAppl open
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12211	"
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12212
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12213	<resource: #canvas>
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12214
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12215	^
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12216	#(FullSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12217	name: windowSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12218	window:
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12219	(WindowSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12220	label: 'Package Path Settings'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12221	name: 'Package Path Settings'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12222	min: (Point 10 10)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12223	bounds: (Rectangle 0 0 659 287)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12224	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12225	component:
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12226	(SpecCollection
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12227	collection: (
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12228	(FramedBoxSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12229	label: 'Package Path'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12230	name: 'FramedBox1'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12231	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12232	labelPosition: topLeft
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12233	translateLabel: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12234	component:
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12235	(SpecCollection
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12236	collection: (
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12237	(LabelSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12238	label: 'Folders in Package Path'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12239	name: 'Label1'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12240	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	12241	translateLabel: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12242	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12243	(SequenceViewSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12244	name: 'List1'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12245	layout: (LayoutFrame 0 0 40 0 0 1 -40 1)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12246	model: selectedFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12247	hasHorizontalScrollBar: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12248	hasVerticalScrollBar: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12249	useIndex: false
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12250	sequenceList: listOfFoldersInPath
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12251	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12252	(HorizontalPanelViewSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12253	name: 'HorizontalPanel1'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12254	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	12255	horizontalLayout: right
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12256	verticalLayout: center
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12257	horizontalSpace: 3
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12258	verticalSpace: 3
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12259	component:
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12260	(SpecCollection
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12261	collection: (
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12262	(ActionButtonSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12263	label: 'Add...'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12264	name: 'Button1'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12265	translateLabel: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12266	model: addFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12267	extent: (Point 93 31)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12268	usePreferredWidth: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12269	usePreferredHeight: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12270	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12271	(ActionButtonSpec
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12272	label: 'Remove Selected'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12273	name: 'Button2'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12274	translateLabel: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12275	model: removeSelectedFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12276	extent: (Point 144 31)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12277	usePreferredWidth: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12278	usePreferredHeight: true
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12279	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12280	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12281
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12282	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12283	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12284	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12285
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12286	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12287	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12288	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12289
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12290	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12291	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12292	! !
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12293
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12294	!AbstractSettingsApplication::PackagePathSettingsAppl methodsFor:'actions'!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12295
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12296	addFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12297	\|folder\|
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12298
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12299	folder := Dialog requestDirectoryName:'Additional Folder with Packages:'.
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12300	folder isEmptyOrNil ifTrue:[^ self].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12301	(self listOfFoldersInPath includes:folder) ifFalse:[
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12302	self listOfFoldersInPath add:folder.
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12303	self updateModifiedChannel.
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12304	].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12305	!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12306
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12307	basicReadSettings
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12308	self listOfFoldersInPath contents:(Smalltalk packagePath).
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12309	!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12310
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12311	basicSaveSettings
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12312	Smalltalk packagePath:(self listOfFoldersInPath asOrderedCollection).
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12313	!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12314
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12315	removeSelectedFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12316	self listOfFoldersInPath remove:(self selectedFolder value) ifAbsent:[].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12317	self updateModifiedChannel.
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12318	! !
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12319
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12320	!AbstractSettingsApplication::PackagePathSettingsAppl methodsFor:'aspects'!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12321
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12322	aspects
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12323	^ #(
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12324	)
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12325	!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12326
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12327	listOfFoldersInPath
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12328	listOfFoldersInPath isNil ifTrue:[
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12329	listOfFoldersInPath := List new.
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12330	listOfFoldersInPath addAll:Smalltalk packagePath
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12331	].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12332	^ listOfFoldersInPath
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12333	!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12334
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12335	selectedFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12336	selectedFolder isNil ifTrue:[
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12337	selectedFolder := nil asValue.
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12338	].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12339	^ selectedFolder
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12340	! !
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12341
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12342	!AbstractSettingsApplication::PackagePathSettingsAppl methodsFor:'help'!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12343
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12344	helpFilename
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12345	^ 'Launcher/packagePathSettings.html'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12346	! !
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12347
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12348	!AbstractSettingsApplication::PackagePathSettingsAppl methodsFor:'queries'!
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12349
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12350	hasUnsavedChanges
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12351	self listOfFoldersInPath asOrderedCollection ~= Smalltalk packagePath asOrderedCollection ifTrue:[^ true].
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12352	^ false.
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12353	! !
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	12354
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12355	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12356
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12357	defaultIcon
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	12358	<resource: #programImage>
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	12359
f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	12360	^ ToolbarIconLibrary printerIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12361	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	12362
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12363	!AbstractSettingsApplication::PrinterSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12364
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12365	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12366	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12367	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12368
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12369	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12370	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12371
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12372	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	12373	UIPainter new openOnClass:AbstractSettingsApplication::PrinterSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12374	AbstractSettingsApplication::PrinterSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	12375	AbstractSettingsApplication::PrinterSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12376	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12377
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12378	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12379
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12380	^
14241 e20d2a66f0b5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14240 diff changeset	12381	#(FullSpec
e20d2a66f0b5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14240 diff changeset	12382	name: windowSpec
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12383	window:
14241 e20d2a66f0b5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14240 diff changeset	12384	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12385	label: 'Printer Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12386	name: 'Printer Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12387	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12388	min: (Point 10 10)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12389	bounds: (Rectangle 0 0 601 474)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12390	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12391	component:
14241 e20d2a66f0b5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14240 diff changeset	12392	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12393	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12394	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12395	name: 'VerticalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12396	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	12397	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12398	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12399	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12400	verticalSpace: 3
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12401	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12402	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12403	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12404	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12405	name: 'PrinterSelectBox'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12406	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12407	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12408	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12409	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12410	label: 'Printer Type:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12411	name: 'PrinterTypeLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12412	layout: (LayoutFrame 0 0 5 0 181 0 35 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12413	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12414	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12415	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12416	(ComboListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12417	name: 'PrinterTypeComboList'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12418	layout: (LayoutFrame 183 0 5 0 -5 1 35 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12419	model: printerTypeSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12420	comboList: printerType
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12421	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12422	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12423	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12424	label: 'Print Command:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12425	name: 'PrinterCommandLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12426	layout: (LayoutFrame 0 0 38 0 181 0 68 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12427	visibilityChannel: printerIsDrivenByCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12428	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12429	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12430	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12431	(ComboBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12432	name: 'CommandComboBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12433	layout: (LayoutFrame 183 0 38 0 -5 1 68 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12434	visibilityChannel: printerIsDrivenByCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12435	enableChannel: printCommandEnabled
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12436	model: printCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12437	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12438	acceptOnPointerLeave: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12439	comboList: printCommandList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12440	useIndex: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12441	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12442	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12443	label: 'Print to File:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12444	name: 'PrinterFileLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12445	layout: (LayoutFrame 0 0 71 0 181 0 101 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12446	visibilityChannel: printerSupportsPrintingToFile
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12447	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12448	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12449	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12450	(FilenameInputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12451	name: 'PrinterFileEntryField'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12452	layout: (LayoutFrame 183 0 71 0 -5 1 101 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12453	visibilityChannel: printerSupportsPrintingToFile
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12454	model: printFilename
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12455	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12456	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12457	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12458	acceptOnPointerLeave: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12459	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12460	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12461
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12462	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12463	extent: (Point 601 108)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12464	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12465	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12466	name: 'FormatBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12467	visibilityChannel: supportsPageFormatSetting
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12468	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12469	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12470	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12471	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12472	name: 'Separator1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12473	layout: (LayoutFrame 0 0 4 0 0 1 7 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12474	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12475	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12476	label: 'Page Format:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12477	name: 'PageFormatLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12478	layout: (LayoutFrame 0 0 11 0 181 0 41 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12479	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12480	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12481	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12482	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12483	label: 'PopUp List'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12484	name: 'PageFormatPopUpList'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12485	layout: (LayoutFrame 183 0 11 0 333 0 41 0)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12486	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12487	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12488	model: pageFormat
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12489	enableChannel: enableFormat
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12490	menu: pageFormatList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12491	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12492	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12493	label: 'Landscape'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12494	name: 'LandscapeCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12495	layout: (LayoutFrame 380 0 11 0 -5 1 41 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12496	enableChannel: enablelandscape
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12497	model: landscape
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12498	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12499	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12500	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12501
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12502	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12503	extent: (Point 601 43)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12504	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12505	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12506	name: 'MarginBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12507	visibilityChannel: supportsMarginSetting
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12508	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12509	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12510	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12511	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12512	name: 'Separator5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12513	layout: (LayoutFrame 0 0 0 0 0 1 3 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12514	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12515	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12516	name: 'VerticalPanel2'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12517	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	12518	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12519	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12520	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12521	verticalSpace: 3
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12522	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12523	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12524	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12525	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12526	name: 'Box1'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12527	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12528	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12529	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12530	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12531	label: 'Top Margin:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12532	name: 'TopMarginLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12533	layout: (LayoutFrame 0 0 0 0 181 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12534	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12535	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12536	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12537	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12538	name: 'TopMarginEntryField'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12539	layout: (LayoutFrame 183 0 0 0 283 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12540	enableChannel: enableMargins
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12541	model: topMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12542	type: numberOrNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12543	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12544	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12545	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12546	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12547	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12548	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12549	label: 'PopUp List'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12550	name: 'PopUpList2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12551	layout: (LayoutFrame -155 1 0 0 -5 1 30 0)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12552	translateLabel: true
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12553	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12554	model: selectedUnit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12555	menu: unitList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12556	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12557	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12558	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12559
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12560	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12561	extent: (Point 601 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12562	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12563	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12564	name: 'Box2'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12565	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12566	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12567	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12568	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12569	label: 'Left Margin:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12570	name: 'LeftMarginLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12571	layout: (LayoutFrame 0 0 0 0 181 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12572	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12573	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12574	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12575	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12576	name: 'LeftMarginEntryField'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12577	layout: (LayoutFrame 183 0 0 0 283 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12578	enableChannel: enableMargins
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12579	model: leftMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12580	type: numberOrNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12581	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12582	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12583	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12584	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12585	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12586	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12587
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12588	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12589	extent: (Point 601 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12590	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12591	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12592	name: 'Box3'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12593	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12594	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12595	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12596	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12597	label: 'Right Margin:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12598	name: 'RightMarginLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12599	layout: (LayoutFrame 0 0 0 0 181 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12600	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12601	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12602	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12603	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12604	name: 'RightMarginEntryField'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12605	layout: (LayoutFrame 183 0 0 0 283 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12606	enableChannel: enableMargins
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12607	model: rightMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12608	type: numberOrNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12609	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12610	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12611	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12612	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12613	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12614	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12615
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12616	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12617	extent: (Point 601 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12618	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12619	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12620	name: 'Box4'
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12621	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12622	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12623	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12624	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12625	label: 'Bottom Margin:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12626	name: 'BottomMarginLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12627	layout: (LayoutFrame 0 0 0 0 181 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12628	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12629	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12630	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12631	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12632	name: 'BottomMarginEntryField'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12633	layout: (LayoutFrame 183 0 0 0 283 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12634	enableChannel: enableMargins
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12635	model: bottomMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12636	type: numberOrNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12637	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12638	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12639	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12640	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12641	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12642	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12643
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12644	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12645	extent: (Point 601 32)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12646	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12647	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12648
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12649	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12650	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12651	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12652
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12653	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12654	extent: (Point 601 164)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12655	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12656	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12657	name: 'ColorBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12658	visibilityChannel: supportsColorSetting
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12659	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12660	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12661	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12662	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12663	name: 'Separator6'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12664	layout: (LayoutFrame 0 0 0 0 0 1 3 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12665	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12666	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12667	label: 'Color Printer'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12668	name: 'ColorPrinterCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12669	layout: (LayoutFrame 183 0 4 0 782 0 34 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12670	enableChannel: enableColorBox
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12671	model: supportsColor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12672	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12673	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12674	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12675
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12676	)
8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12677	extent: (Point 601 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12678	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12679	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12680
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12681	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12682	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12683	)
16972 8cbd6ed75e2e #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 16953 diff changeset	12684
14241 e20d2a66f0b5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14240 diff changeset	12685	)
e20d2a66f0b5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14240 diff changeset	12686	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12687	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12688
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12689	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12690
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12691	basicReadSettings
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12692	Printer notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12693	self
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12694	readAspects:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12695	#(
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12696	topMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12697	bottomMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12698	leftMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12699	rightMargin
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12700	landscape
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12701	printCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12702	printFilename
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12703	supportsColor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12704	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12705	from:Printer.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12706	].
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12707
9811 6ac0aaf84f1e Fix printting under linux Stefan Vogel <sv@exept.de> parents: 9803 diff changeset	12708	self printerTypeSelection value:(self possiblePrinters identityIndexOf:Printer ifAbsent:1).
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12709	self pageFormatList notEmpty ifTrue:[ self pageFormat value:Printer pageFormat ].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12710	self printerTypeSelectionOrUnitListChanged.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12711
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12712	"Modified: / 07-08-2006 / 15:22:27 / fm"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12713	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	12714
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12715	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12716
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12717	Printer := self possiblePrinters at:(self printerTypeSelection value).
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	12718
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12719	Printer printCommand:self printCommand value.
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12720	Printer printFilename:(printFilename value isEmptyOrNil ifTrue:[nil] ifFalse:[printFilename value]).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12721
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12722	Printer supportsPageSizes ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12723	Printer pageFormat:(self pageFormat value).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12724	Printer landscape:(self landscape value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12725	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12726	Printer supportsMargins ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12727	\| unit \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12728	self selectedUnit value == 2 ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12729	unit := #mm
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12730	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12731	unit := #inch
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12732	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12733	Printer topMargin:(UnitConverter convert:(self topMargin value) from:unit to:#inch).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12734	Printer leftMargin:(UnitConverter convert:(self leftMargin value) from:unit to:#inch).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12735	Printer rightMargin:(UnitConverter convert:(self rightMargin value) from:unit to:#inch).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12736	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	12737	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12738	Printer supportsPostscript ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12739	Printer supportsColor:self supportsColor value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	12740	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12741	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12742
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12743	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12744
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12745	bottomMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12746
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12747	bottomMargin isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12748	bottomMargin := Printer bottomMargin asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12749	bottomMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12750	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12751	^ bottomMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12752	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12753
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12754	enableColorBox
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12755
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12756	enableColorBox isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12757	enableColorBox := true asValue.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12758	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12759	^ enableColorBox.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12760	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12761
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12762	enableFormat
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12763
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12764	enableFormat isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12765	enableFormat := true asValue.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12766	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12767	^ enableFormat.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12768	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12769
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12770	enableMargins
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12771
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12772	enableMargins isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12773	enableMargins := true asValue.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12774	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12775	^ enableMargins.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12776	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12777
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12778	enablelandscape
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12779
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12780	enablelandscape isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12781	enablelandscape := true asValue.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12782	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12783	^ enablelandscape.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12784	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12785
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12786	landscape
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12787
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12788	landscape isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12789	landscape := (Printer isNil ifTrue:[ false ] ifFalse:[ Printer landscape]) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12790	landscape onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12791	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12792	^ landscape.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12793
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12794	"Modified: / 07-08-2006 / 15:22:44 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12795	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12796
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12797	leftMargin
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12798
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12799	leftMargin isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12800	leftMargin := Printer leftMargin asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12801	leftMargin onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12802	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12803	^ leftMargin.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12804	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12805
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12806	pageFormat
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12807
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12808	pageFormat isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12809	self pageFormatList notEmpty ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12810	\| index \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12811	(index := self pageFormatList indexOf:#a4) ~~ 0 ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12812	pageFormat := index asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12813	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12814	pageFormat := 1 asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12815	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12816	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12817	pageFormat onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12818	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12819	^ pageFormat.
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	pageFormatList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12823
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12824	pageFormatList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12825	pageFormatList := (Printer isNil ifTrue:[ #() ] ifFalse: [Printer defaultPageFormats]) asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12826	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12827	^ pageFormatList.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12828
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12829	"Modified: / 07-08-2006 / 15:23:19 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12830	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12831
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12832	printCommand
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12833
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12834	printCommand isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12835	printCommand := Printer printCommand asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12836	printCommand onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12837	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12838	^ printCommand.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12839	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12840
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12841	printCommandEnabled
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	12842	^ BlockValue
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12843	with:[:m \| m isEmptyOrNil]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12844	argument:(self printFilename).
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12845
06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12846	"Modified: / 08-03-2007 / 23:02:40 / cg"
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12847	!
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12848
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12849	printCommandList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12850
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12851	printCommandList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12852	printCommandList := self commandList asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12853	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12854	^ printCommandList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12855	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12856
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12857	printFilename
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12858	printFilename isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12859	printFilename := (Printer isNil ifTrue:[''] ifFalse:[Printer printFilename ? '']) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12860	printFilename onChangeSend:#updateModifiedChannel to:self
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12861	].
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12862	^ printFilename.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12863
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12864	"Modified: / 07-08-2006 / 15:24:45 / fm"
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12865	!
d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	12866
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12867	printerIsDrivenByCommand
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12868	printerIsDrivenByCommand isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12869	printerIsDrivenByCommand := BlockValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12870	with:[:m \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12871	\|printer\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12872
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12873	printer := self possiblePrinters at:m value ifAbsent:nil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12874	printer notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12875	printer isDrivenByCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12876	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12877	self breakPoint:#expecco.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12878	false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12879	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12880	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12881	argument:self printerTypeSelection.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12882	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12883	^ printerIsDrivenByCommand.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12884
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12885	"Created: / 10-10-2006 / 18:22:32 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12886	"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	12887	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12888
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12889	printerSupportsPrintingToFile
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12890	printerSupportsPrintingToFile isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12891	printerSupportsPrintingToFile := BlockValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12892	with:[:m \| (self possiblePrinters at:m) supportsPrintingToFile ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12893	argument:self printerTypeSelection.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12894	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12895	^ printerSupportsPrintingToFile.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12896
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12897	"Created: / 10-10-2006 / 18:27:44 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12898	"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	12899	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12900
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12901	printerType
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12902	printerType isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12903	printerType := (self possiblePrinters collect:[:cls \| cls printerTypeName]) asList.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12904	printerType onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12905	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12906	^ printerType.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12907
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12908	"Modified: / 10-10-2006 / 18:09:43 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12909	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12910
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12911	printerTypeSelection
9811 6ac0aaf84f1e Fix printting under linux Stefan Vogel <sv@exept.de> parents: 9803 diff changeset	12912	\|printerIndex\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12913
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12914	printerTypeSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12915	printerIndex := self possiblePrinters identityIndexOf:Printer.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12916	printerIndex == 0 ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12917	self possiblePrinters isEmptyOrNil ifTrue:[self error:'no printer'].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12918	printerIndex := 1.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12919	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12920	printerTypeSelection := printerIndex asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12921
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12922	printerTypeSelection addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12923	printerTypeSelection changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12924	printerTypeSelection onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12925	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12926	^ printerTypeSelection.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12927
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12928	"Modified: / 10-10-2006 / 18:22:58 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12929	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12930
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12931	rightMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12932
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12933	rightMargin isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12934	rightMargin := Printer rightMargin asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12935	rightMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12936	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12937	^ rightMargin.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12938	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12939
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12940	selectedUnit
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12941
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12942	selectedUnit isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12943	selectedUnit := 1 asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12944	selectedUnit addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12945	selectedUnit changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12946	selectedUnit onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12947	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12948	^ selectedUnit.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12949	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12950
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12951	supportsColor
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12952
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12953	supportsColor isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12954	supportsColor := (Printer notNil and:[Printer supportsColor]) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12955	supportsColor onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12956	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12957	^ supportsColor.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12958
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	12959	"Modified: / 07-08-2006 / 15:24:22 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12960	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12961
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12962	supportsColorSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12963	supportsColorSetting isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12964	supportsColorSetting := BlockValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12965	with:[:m \| (self possiblePrinters at:m) supportsColor ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12966	argument:self printerTypeSelection.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12967	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12968	^ supportsColorSetting.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12969
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12970	"Created: / 10-10-2006 / 18:35:47 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12971	"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	12972	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12973
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12974	supportsMarginSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12975	supportsMarginSetting isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12976	supportsMarginSetting := BlockValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12977	with:[:m \| (self possiblePrinters at:m) supportsMargins ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12978	argument:self printerTypeSelection.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12979	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12980	^ supportsMarginSetting.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12981
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12982	"Created: / 10-10-2006 / 18:35:33 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12983	"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	12984	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12985
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12986	supportsPageFormatSetting
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12987	supportsPageFormatSetting isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12988	supportsPageFormatSetting := BlockValue
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12989	with:[:m \| (self possiblePrinters at:m) supportsPageSizes ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	12990	argument:self printerTypeSelection.
7385 c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12991	].
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12992	^ supportsPageFormatSetting.
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12993
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12994	"Created: / 10-10-2006 / 18:36:33 / cg"
7725 06e1eb7247d9 BlockValue usage cleanup Claus Gittinger <cg@exept.de> parents: 7720 diff changeset	12995	"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	12996	!
c85a59467972 support for printers which dotheir own settings (windows printer) Claus Gittinger <cg@exept.de> parents: 7348 diff changeset	12997
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	12998	topMargin
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	12999
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13000	topMargin isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13001	topMargin := (Printer isNil ifTrue:[ 0 ] ifFalse:[ Printer topMargin ]) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13002	topMargin onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13003	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13004	^ topMargin.
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	13005
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	13006	"Modified: / 07-08-2006 / 15:21:50 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13007	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13008
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13009	unitList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13010
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13011	unitList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13012	unitList := #('inch' 'mm') asList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13013	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13014	^ unitList.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13015	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13016
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13017	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13018
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13019	printerTypeSelectionChanged
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13020	\| p hasPageSize hasMargins\|
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	13021
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	13022	self printerType selectionIndex ~~ 0 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13023	p := self possiblePrinters at:(self printerType selectionIndex).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13024	hasPageSize := p supportsPageSizes.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13025	hasMargins := p supportsMargins.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13026	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13027	hasPageSize := false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13028	hasMargins := false.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13029	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13030	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13031
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13032	printerTypeSelectionOrUnitListChanged
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	13033	\| p hasPageSize hasMargins unit printerSupportsPostscript\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13034
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13035	self printerTypeSelection value ~~ 0 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13036	p := self possiblePrinters at:(self printerTypeSelection value).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13037	hasPageSize := p supportsPageSizes.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13038	hasMargins := p supportsMargins.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13039	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13040	hasPageSize := false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13041	hasMargins := false.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13042	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13043	self enablelandscape value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13044	self enableFormat value:hasPageSize.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13045	hasPageSize ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13046	self pageFormat value:(p pageFormat).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13047	self landscape value:(p landscape).
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13048	] ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13049	self landscape value:false.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13050	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13051	hasMargins ifTrue:[
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13052	self selectedUnit value == 2 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13053	unit := #mm
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13054	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13055	unit := #inch
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13056	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13057
4371 d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	13058	self topMargin value:(UnitConverter convert:p topMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	13059	self leftMargin value:(UnitConverter convert:p leftMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	13060	self rightMargin value:(UnitConverter convert:p rightMargin from:#inch to:unit).
d7531f2aa154 restart process after restart from image penk parents: 4357 diff changeset	13061	self bottomMargin value:(UnitConverter convert:p bottomMargin from:#inch to:unit).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13062
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13063	] ifFalse:[
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13064	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13065	self enableMargins value:hasMargins.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13066
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13067	p notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13068	\| newCommandList \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13069	newCommandList := p defaultCommands.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13070	newCommandList notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13071	self printCommandList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13072	contents:(newCommandList asList);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13073	changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13074	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13075	self printCommand value:(p printCommand).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13076	self printFilename value:(p printFilename ? '').
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13077	].
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	13078	printerSupportsPostscript := p notNil and:[p supportsPostscript].
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	13079	self enableColorBox value:printerSupportsPostscript.
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	13080	printerSupportsPostscript ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13081	self supportsColor value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13082	] ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13083	self supportsColor value:(Printer supportsColor).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13084	]
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	13085
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	13086	"Modified: / 07-08-2006 / 15:24:06 / fm"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13087	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13088
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13089	unitListChanged
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13090	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13091
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13092	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13093	(changedObject == self selectedUnit or:[changedObject == self printerTypeSelection]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13094	self printerTypeSelectionOrUnitListChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13095	^ self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13096	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13097
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13098	super update:something with:aParameter from:changedObject
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13099	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13100
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13101	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13102
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13103	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13104	^ 'Launcher/printerSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13105	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13106
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13107	!AbstractSettingsApplication::PrinterSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13108
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13109	commandList
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13110	commandList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13111	commandList := resources string:'PRINT_COMMANDS' default:nil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13112	commandList isNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13113	commandList := PrinterStream defaultCommands.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13114	commandList isNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13115	commandList := #('lpr' 'lp').
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13116	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13117	(commandList includes:self printCommand value) ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13118	commandList := commandList copyWith:self printCommand value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13119	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13120	].
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13121	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13122	^ commandList
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13123	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13124
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13125	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13126	\| printer unit\|
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	13127
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	13128	Printer isNil ifTrue:[^ false].
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	13129
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13130	self selectedUnit value == 2 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13131	unit := #mm
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13132	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13133	unit := #inch
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13134	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13135	printer := self possiblePrinters at:(self printerTypeSelection value).
5181 d2a4bb23ea50 allow printing into a file. Claus Gittinger <cg@exept.de> parents: 5175 diff changeset	13136
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	13137	printer ~= Printer ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	13138
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	13139	Printer printCommand ~= self printCommand value ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	13140	(Printer printFilename ? '') ~= (self printFilename value ? '') ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	13141
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	13142	Printer supportsPageSizes ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13143	Printer pageFormat ~= self pageFormat value ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13144	Printer landscape ~= (self landscape value) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	13145	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	13146	Printer supportsMargins ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13147	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	13148	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	13149	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	13150	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	13151	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	13152	Printer supportsPostscript ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13153	Printer supportsColor ~= self supportsColor value ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	13154	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	13155	^ false
6853 daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	13156
daa2e7da1c7e allow for a nil-printer fm parents: 6807 diff changeset	13157	"Modified: / 07-08-2006 / 15:25:47 / fm"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13158	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13159
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13160	possiblePrinters
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13161	possiblePrinters isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13162	possiblePrinters := PrinterStream withAllSubclasses asArray.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13163	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13164	^ possiblePrinters
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13165	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	13166
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	13167	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'help specs'!
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	13168
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13169	helpSpec
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	13170	"This resource specification was automatically generated
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	13171	by the UIHelpTool of ST/X."
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	13172
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	13173	"Do not manually edit this!! If it is corrupted,
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	13174	the UIHelpTool may not be able to read the specification."
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	13175
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	13176	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13177	UIHelpTool openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	13178	"
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	13179
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	13180	<resource: #help>
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	13181
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13182	^ super helpSpec addPairsFrom:#(
12970 012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	13183
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	13184	#dynamicPriorities
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	13185	'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	13186
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	13187	#preemptiveScheduling
16992 01cd10d0a65a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16989 diff changeset	13188	'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	13189
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	13190	)
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	13191	! !
012386ca74e2 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12872 diff changeset	13192
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13193	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13194
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13195	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13196	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13197	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13198
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13199	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13200	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13201
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13202	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13203	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13204	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13205	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13206	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13207
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13208	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13209
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13210	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	13211	constantNamed:'AbstractSettingsApplication::ProcessorSchedulerSettingsAppl defaultIcon'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	13212	ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	13213	@@@@@@@@@@@@@@@@@@@@ADQ@@@@@@@@@@DQBL2QD@@@@@@@DH"D3D"I@@@@@@DHQDSLQDRP@@@@DHQDQDQDQD$@@@DHQDQDQDQDQI@@@P!!DQDQDQDQD$@@AB
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	13214	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	13215	DQDQDQI@@@@@P!!DQDQDQI@@@@@@DH"DQD"I@@@@@@@ADP"H$Q@@@@@@@@@@DQD@@@@@@@@@@@@@@@@@@@@@b')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	13216	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	13217	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	13218	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13219
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13220	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13221
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13222	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13223	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13224	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13225
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13226	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13227	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13228
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13229	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13230	UIPainter new openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13231	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13232	AbstractSettingsApplication::ProcessorSchedulerSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13233	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13234
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13235	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13236
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13237	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	13238	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	13239	name: windowSpec
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13240	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	13241	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13242	label: 'Processor and Scheduler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13243	name: 'Processor and Scheduler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13244	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13245	bounds: (Rectangle 0 0 600 320)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13246	)
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13247	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	13248	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13249	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13250	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13251	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13252	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	13253	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13254	verticalLayout: topSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13255	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13256	verticalSpace: 5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13257	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13258	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13259	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13260	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13261	label: 'Preemptive Scheduling'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13262	name: 'CheckBox11'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13263	activeHelpKey: preemptiveScheduling
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13264	model: preemptive
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13265	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13266	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13267	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13268	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13269	name: 'Box2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13270	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13271	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13272	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13273	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13274	label: 'Dynamic Priorities'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13275	name: 'CheckBox12'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13276	layout: (LayoutFrame 30 0.0 0 0 0 1.0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13277	activeHelpKey: dynamicPriorities
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13278	enableChannel: preemptive
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13279	model: dynamicPrios
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13280	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13281	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13282	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13283
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13284	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13285	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13286	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13287	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13288
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13289	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13290	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13291	)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13292
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	13293	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	13294	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13295	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13296
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13297	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13298
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13299	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13300	self preemptive value:Processor isTimeSlicing.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13301	self dynamicPrios value:Processor supportDynamicPriorities.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13302	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13303
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13304	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13305
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13306	Processor isTimeSlicing ~~ self preemptive value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13307	self preemptive value ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13308	Processor startTimeSlicing
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13309	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13310	Processor stopTimeSlicing
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13311	]
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13312	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13313	Processor supportDynamicPriorities ~~ self dynamicPrios value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13314	Processor supportDynamicPriorities:self dynamicPrios value
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13315	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13316	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13317
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13318	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13319
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13320	dynamicPrios
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13321	dynamicPrios isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13322	dynamicPrios := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13323	dynamicPrios onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13324	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13325	^ dynamicPrios.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13326	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13327
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13328	preemptive
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13329	preemptive isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13330	preemptive := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13331	preemptive onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13332	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13333	^ preemptive.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13334	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13335
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13336	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13337
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13338	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13339	^ 'Launcher/miscSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13340	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13341
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13342	!AbstractSettingsApplication::ProcessorSchedulerSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13343
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13344	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	13345	self preemptive value ~= Processor isTimeSlicing ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	13346	self dynamicPrios value ~= Processor supportDynamicPriorities ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	13347	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13348	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	13349
16161 6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13350	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'help specs'!
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13351
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13352	helpSpec
16161 6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13353	"This resource specification was automatically generated
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13354	by the UIHelpTool of ST/X."
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13355
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13356	"Do not manually edit this!! If it is corrupted,
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13357	the UIHelpTool may not be able to read the specification."
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13358
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13359	"
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13360	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13361	"
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13362
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13363	<resource: #help>
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13364
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13365	^ super helpSpec addPairsFrom:#(
16161 6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13366
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13367	#rdoitDisabled
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13368	'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	13369
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13370	#rdoitSettings
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13371	'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	13372
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13373	#scriptingDisabled
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13374	'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	13375
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13376	#scriptingSettings
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13377	'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	13378	)
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13379	! !
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13380
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13381	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13382
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13383	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13384	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13385	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13386
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13387	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13388	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13389
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13390	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13391	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13392	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13393	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13394	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13395
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13396	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13397
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13398	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	13399	constantNamed:'AbstractSettingsApplication::RDoItServerSettingsAppl defaultIcon'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	13400	ifAbsentPut:[(Depth4Image width:22 height:22) bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	13401	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&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	13402	''#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	13403	!!B D @A%T@@@@@BBP$IH @@@@@@@@HPHHB"@@@@@@@@@@@!!H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	13404	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	13405	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	13406	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	13407
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13408	!AbstractSettingsApplication::RDoItServerSettingsAppl class methodsFor:'interface specs'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13409
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13410	windowSpec
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13411	"This resource specification was automatically generated
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13412	by the UIPainter of ST/X."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13413
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13414	"Do not manually edit this!! If it is corrupted,
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13415	the UIPainter may not be able to read the specification."
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13416
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13417	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13418	UIPainter new openOnClass:AbstractSettingsApplication::RDoItServerSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13419	AbstractSettingsApplication::RDoItServerSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13420	AbstractSettingsApplication::RDoItServerSettingsAppl open
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13421	"
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13422
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13423	<resource: #canvas>
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13424
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13425	^
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	13426	#(FullSpec
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	13427	name: windowSpec
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13428	window:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	13429	(WindowSpec
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13430	label: 'RDoIt Server Settings'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13431	name: 'RDoIt Server Settings'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13432	flags: 1
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13433	min: (Point 10 10)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13434	bounds: (Rectangle 0 0 601 535)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13435	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13436	component:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	13437	(SpecCollection
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13438	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13439	(FramedBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13440	label: 'RDoIt'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13441	name: 'RDoItFramedBox'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13442	layout: (LayoutFrame 0 0 0 0 0 1 232 0)
16162 c59b8f5ba4ae #FEATURE Claus Gittinger <cg@exept.de> parents: 16161 diff changeset	13443	activeHelpKey: rdoitSettings
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13444	labelPosition: topLeft
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13445	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13446	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13447	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13448	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13449	(VerticalPanelViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13450	name: 'VerticalPanel2'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13451	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	13452	horizontalLayout: fit
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13453	verticalLayout: top
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13454	horizontalSpace: 0
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13455	verticalSpace: 0
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13456	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13457	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13458	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13459	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13460	name: 'Box1'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13461	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13462	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13463	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13464	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13465	label: 'Remote doits enabled'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13466	name: 'CheckBox1'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13467	layout: (LayoutFrame 0 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13468	enableChannel: hasRDoitServerClass
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13469	model: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13470	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13471	)
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	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13475	extent: (Point 567 25)
16151 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	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13478	name: 'Box2'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13479	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13480	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13481	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13482	(LabelSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13483	label: 'Port/Path:'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13484	name: 'Label2'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13485	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13486	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13487	adjust: right
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13488	enableDisableColorChannel: rDoitsEnabled
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13489	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13490	(InputFieldSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13491	name: 'EntryField1'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13492	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13493	enableChannel: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13494	model: rDoitServerPortOrPath
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13495	acceptOnReturn: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13496	acceptOnTab: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13497	acceptOnLostFocus: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13498	acceptOnPointerLeave: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13499	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13500	(LabelSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13501	label: 'Port# for Tcp Socket; Path for Unix Domain Socket (Unix only).'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13502	name: 'Label3'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13503	layout: (LayoutFrame 150 0 28 0 596 0 50 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13504	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13505	adjust: left
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13506	enableDisableColorChannel: rDoitsEnabled
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13507	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13508	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13509
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13510	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13511	extent: (Point 567 60)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13512	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13513	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13514	name: 'Box13'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13515	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13516	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13517	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13518	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13519	label: 'Local Connections Only'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13520	name: 'CheckBox10'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13521	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13522	enableChannel: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13523	model: rDoitEnabledOnlyViaLocalConnection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13524	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13525	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13526	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13527
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13528	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13529	extent: (Point 567 25)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13530	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13531	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13532	name: 'Box3'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13533	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13534	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13535	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13536	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13537	label: 'Log errors'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13538	name: 'CheckBox2'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13539	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13540	enableChannel: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13541	model: rDoitErrorLogging
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13542	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13543	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13544	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13545
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13546	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13547	extent: (Point 567 25)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13548	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13549	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13550	name: 'Box4'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13551	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13552	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13553	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13554	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13555	label: 'Log requests'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13556	name: 'CheckBox3'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13557	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13558	enableChannel: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13559	model: rDoitLogging
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13560	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13561	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13562	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13563
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13564	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13565	extent: (Point 567 24)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13566	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13567	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13568	name: 'Box5'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13569	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13570	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13571	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13572	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13573	label: 'Debug errors'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13574	name: 'CheckBox4'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13575	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13576	enableChannel: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13577	model: rDoitErrorDebugging
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13578	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13579	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13580	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13581
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13582	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13583	extent: (Point 567 23)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13584	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13585	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13586
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13587	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13588	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13589	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13590
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13591	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13592	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13593	(FramedBoxSpec
16161 6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	13594	label: 'JavaScript/Smalltalk-Scripting via Telnet'
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13595	name: 'ScriptingFramedBox'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13596	layout: (LayoutFrame 0 0 224 0 0 1 460 0)
16162 c59b8f5ba4ae #FEATURE Claus Gittinger <cg@exept.de> parents: 16161 diff changeset	13597	activeHelpKey: scriptingSettings
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13598	labelPosition: topLeft
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13599	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13600	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13601	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13602	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13603	(VerticalPanelViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13604	name: 'VerticalPanel3'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13605	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	13606	horizontalLayout: fit
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13607	verticalLayout: top
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13608	horizontalSpace: 0
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13609	verticalSpace: 0
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13610	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13611	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13612	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13613	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13614	name: 'Box6'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13615	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13616	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13617	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13618	(CheckBoxSpec
16162 c59b8f5ba4ae #FEATURE Claus Gittinger <cg@exept.de> parents: 16161 diff changeset	13619	label: 'Telnet Scripting enabled'
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13620	name: 'CheckBox5'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13621	layout: (LayoutFrame 0 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13622	enableChannel: hasScriptingServerClass
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13623	model: scriptingEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13624	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13625	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13626	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13627
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13628	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13629	extent: (Point 567 25)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13630	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13631	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13632	name: 'Box12'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13633	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13634	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13635	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13636	(LabelSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13637	label: 'Port:'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13638	name: 'Label4'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13639	layout: (LayoutFrame 0 0 0 0 150 0 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13640	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13641	adjust: right
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13642	enableDisableColorChannel: scriptingEnabled
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13643	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13644	(InputFieldSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13645	name: 'EntryField2'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13646	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13647	enableChannel: rDoitsEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13648	model: scriptingServerPortOrPath
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13649	isReadOnly: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13650	acceptOnReturn: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13651	acceptOnTab: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13652	acceptOnLostFocus: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13653	acceptOnPointerLeave: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13654	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13655	(LabelSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13656	label: 'Port# for Tcp Socket; Path for Unix Domain Socket (Unix only).'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13657	name: 'Label5'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13658	layout: (LayoutFrame 150 0 28 0 596 0 50 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13659	initiallyInvisible: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13660	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13661	adjust: left
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13662	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13663	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13664
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13665	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13666	extent: (Point 567 60)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13667	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13668	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13669	name: 'Box11'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13670	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13671	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13672	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13673	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13674	label: 'Local Connections Only'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13675	name: 'CheckBox9'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13676	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13677	enableChannel: scriptingEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13678	model: scriptingEnabledOnlyViaLocalConnection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13679	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13680	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13681	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13682
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13683	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13684	extent: (Point 567 25)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13685	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13686	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13687	name: 'Box8'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13688	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13689	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13690	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13691	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13692	label: 'Log errors'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13693	name: 'CheckBox6'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13694	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13695	enableChannel: scriptingEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13696	model: scriptingErrorLogging
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13697	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13698	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13699	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13700
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13701	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13702	extent: (Point 567 25)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13703	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13704	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13705	name: 'Box9'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13706	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13707	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13708	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13709	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13710	label: 'Log requests'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13711	name: 'CheckBox7'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13712	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13713	enableChannel: scriptingEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13714	model: scriptingLogging
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13715	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13716	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13717	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13718
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13719	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13720	extent: (Point 567 24)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13721	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13722	(ViewSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13723	name: 'Box10'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13724	component:
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13725	(SpecCollection
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13726	collection: (
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13727	(CheckBoxSpec
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13728	label: 'Debug errors'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13729	name: 'CheckBox8'
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13730	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13731	enableChannel: scriptingEnabled
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13732	model: scriptingErrorDebugging
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13733	translateLabel: true
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13734	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13735	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13736
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13737	)
16173 438d42e1e67b #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16172 diff changeset	13738	extent: (Point 567 23)
16151 6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13739	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13740	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13741
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13742	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13743	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13744	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13745
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13746	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13747	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13748	)
6c2a370fe001 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16144 diff changeset	13749
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	13750	)
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	13751	)
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13752	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13753
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13754	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'actions'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13755
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13756	basicReadSettings
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13757	\|rDoitsEnabled rDoitLogging rDoitErrorLogging rDoitErrorDebugging rDoitServerPortOrPath
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13758	rDoitEnabledOnlyViaLocalConnection
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13759	scriptingEnabled scriptingEnabledOnlyViaLocalConnection scriptingLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13760	scriptingErrorLogging scriptingErrorDebugging\|
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13761
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13762	rDoitsEnabled := false.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13763	rDoitLogging := false.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13764	rDoitErrorLogging := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13765	rDoitErrorDebugging := false.
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13766	rDoitServerPortOrPath := ''.
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13767	rDoitEnabledOnlyViaLocalConnection := true.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13768
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13769	scriptingEnabled := false.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13770	scriptingEnabledOnlyViaLocalConnection := true.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13771
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13772	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13773	rDoitsEnabled := RDoItServer serverRunning.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13774	rDoitEnabledOnlyViaLocalConnection := RDoItServer localConnectionsOnly.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13775	rDoitLogging := RDoItServer isLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13776	rDoitErrorLogging := RDoItServer isErrorLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13777	rDoitErrorDebugging := RDoItServer isErrorCatching not.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13778	rDoitServerPortOrPath := RDoItServer defaultPortNumberOrPath asString.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13779	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13780
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	13781	(STXScriptingServer notNil
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13782	and:[ STXScriptingServer isLoaded ]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13783	scriptingEnabled := STXScriptingServer serverRunning.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13784	scriptingEnabledOnlyViaLocalConnection := STXScriptingServer localConnectionsOnly.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13785	scriptingLogging := STXScriptingServer isLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13786	scriptingErrorLogging := STXScriptingServer isErrorLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13787	scriptingErrorDebugging := STXScriptingServer isErrorDebugging.
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13788	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13789
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13790	self rDoitsEnabled value:rDoitsEnabled.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13791	self rDoitLogging value:rDoitLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13792	self rDoitErrorLogging value:rDoitErrorLogging.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13793	self rDoitErrorDebugging value:rDoitErrorDebugging.
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13794	self rDoitServerPortOrPath value:rDoitServerPortOrPath.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13795
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13796	self scriptingEnabled value:scriptingEnabled.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13797	self scriptingEnabledOnlyViaLocalConnection value:scriptingEnabledOnlyViaLocalConnection.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13798	self scriptingLogging value:scriptingLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13799	self scriptingErrorLogging value:scriptingErrorLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13800	self scriptingErrorDebugging value:scriptingErrorDebugging.
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13801
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13802	"Modified: / 20-05-2010 / 14:49:50 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13803	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	13804
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13805	basicSaveSettings
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	13806	\|shouldRun portOrPath\|
1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	13807
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13808	portOrPath := self getPortNumberOrPath.
5991 1f8b715b9c06 Fix rdoit settings: allow to specify a port number Stefan Vogel <sv@exept.de> parents: 5943 diff changeset	13809
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13810	self hasRDoitServerClass ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13811	RDoItServer defaultPortNumberOrPath:portOrPath.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13812	RDoItServer logging:self rDoitLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13813	RDoItServer errorLogging:self rDoitErrorLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13814	RDoItServer errorCatching:(self rDoitErrorDebugging value not).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13815	RDoItServer localConnectionsOnly:(self rDoitEnabledOnlyViaLocalConnection value).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13816	shouldRun := self rDoitsEnabled value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13817	shouldRun ~~ RDoItServer serverRunning ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13818	shouldRun ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13819	RDoItServer stop
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13820	] ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13821	RDoItServer start.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13822	"/ must wait a bit; give it a chance to
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13823	"/ really start (before checking)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13824	Delay waitForSeconds:1.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13825	RDoItServer serverRunning ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13826	self warn:'RDoit startup failed (see stderr).'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13827	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13828	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13829	].
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13830	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13831
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13832	self hasScriptingServerClass ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13833	STXScriptingServer logging:self scriptingLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13834	STXScriptingServer errorLogging:self scriptingErrorLogging value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13835	STXScriptingServer errorDebugging:(self scriptingErrorDebugging value).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13836	STXScriptingServer localConnectionsOnly:(self scriptingEnabledOnlyViaLocalConnection value).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13837	shouldRun := self scriptingEnabled value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13838	shouldRun ~~ STXScriptingServer serverRunning ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13839	shouldRun ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13840	STXScriptingServer stop
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13841	] ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13842	STXScriptingServer start.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13843	"/ must wait a bit; give it a chance to
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13844	"/ really start (before checking)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13845	Delay waitForSeconds:1.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13846	STXScriptingServer serverRunning ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13847	self warn:'STXScripting startup failed (see stderr).'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13848	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13849	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13850	].
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13851	].
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13852
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13853	"Modified: / 20-05-2010 / 14:50:44 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13854	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	13855
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13856	getPortNumberOrPath
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13857	\|portOrPath nrOrNil\|
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13858
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13859	portOrPath := self rDoitServerPortOrPath value.
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13860	portOrPath isNumber ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13861	"a numeric string means it is a TCP port number"
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13862	nrOrNil := Integer readFrom:portOrPath onError:nil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13863	nrOrNil notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13864	portOrPath := nrOrNil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13865	]
7906 cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13866	].
cdf1b4ddf194 * empty log message * Claus Gittinger <cg@exept.de> parents: 7872 diff changeset	13867	^ portOrPath
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13868	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13869
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13870	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'aspects'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13871
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13872	rDoitEnabledOnlyViaLocalConnection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13873	rDoitEnabledOnlyViaLocalConnection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13874	rDoitEnabledOnlyViaLocalConnection := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13875	rDoitEnabledOnlyViaLocalConnection onChangeSend:#updateModifiedChannel to:self
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13876	].
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13877	^ rDoitEnabledOnlyViaLocalConnection.
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13878
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13879	"Created: / 20-05-2010 / 12:15:12 / cg"
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13880	!
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13881
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13882	rDoitErrorDebugging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13883	rDoitErrorDebugging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13884	rDoitErrorDebugging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13885	rDoitErrorDebugging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13886	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13887	^ rDoitErrorDebugging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13888	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13889
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13890	rDoitErrorLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13891	rDoitErrorLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13892	rDoitErrorLogging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13893	rDoitErrorLogging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13894	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13895	^ rDoitErrorLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13896	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13897
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13898	rDoitLogging
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13899	rDoitLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13900	rDoitLogging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13901	rDoitLogging onChangeSend:#updateModifiedChannel to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13902	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13903	^ rDoitLogging.
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13904	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13905
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13906	rDoitOnlyViaLocalConnection
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13907	rDoitOnlyViaLocalConnection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13908	rDoitOnlyViaLocalConnection := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13909	rDoitOnlyViaLocalConnection onChangeSend:#updateModifiedChannel to:self
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13910	].
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13911	^ rDoitOnlyViaLocalConnection.
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13912
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13913	"Created: / 20-05-2010 / 12:14:50 / cg"
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13914	!
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	13915
5032 2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	13916	rDoitServerPortOrPath
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	13917	rDoitServerPortOrPath isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13918	rDoitServerPortOrPath := nil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13919	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	13920	].
2a26da89dada allow for rdoitPort to be a string (for ud sockets) Claus Gittinger <cg@exept.de> parents: 5031 diff changeset	13921	^ rDoitServerPortOrPath.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13922	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13923
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13924	rDoitsEnabled
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13925	rDoitsEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13926	rDoitsEnabled := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13927	rDoitsEnabled onChangeSend:#rDoitsEnabledChanged to:self
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13928	].
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13929	^ rDoitsEnabled.
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13930	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13931
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13932	scriptingEnabled
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13933	scriptingEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13934	scriptingEnabled := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13935	scriptingEnabled onChangeSend:#updateModifiedChannel to:self
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13936	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13937	^ scriptingEnabled.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13938	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13939
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13940	scriptingEnabledOnlyViaLocalConnection
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13941	scriptingEnabledOnlyViaLocalConnection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13942	scriptingEnabledOnlyViaLocalConnection := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13943	scriptingEnabledOnlyViaLocalConnection onChangeSend:#updateModifiedChannel to:self
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13944	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13945	^ scriptingEnabledOnlyViaLocalConnection.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13946	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13947
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13948	scriptingErrorDebugging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13949	scriptingErrorDebugging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13950	scriptingErrorDebugging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13951	scriptingErrorDebugging onChangeSend:#updateModifiedChannel to:self
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13952	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13953	^ scriptingErrorDebugging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13954	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13955
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13956	scriptingErrorLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13957	scriptingErrorLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13958	scriptingErrorLogging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13959	scriptingErrorLogging onChangeSend:#updateModifiedChannel to:self
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13960	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13961	^ scriptingErrorLogging.
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13962	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13963
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13964	scriptingLogging
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13965	scriptingLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13966	scriptingLogging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13967	scriptingLogging onChangeSend:#updateModifiedChannel to:self
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13968	].
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	13969	^ scriptingLogging.
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13970	!
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13971
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13972	scriptingServerPortOrPath
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13973	<resource: #uiAspect>
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13974
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13975	scriptingServerPortOrPath isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13976	STXScriptingServer notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13977	scriptingServerPortOrPath := STXScriptingServer defaultPortNumber asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13978	].
8740 bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13979	].
bc04213d1951 in RDoitServerSettingsAppl Stefan Vogel <sv@exept.de> parents: 8720 diff changeset	13980	^ scriptingServerPortOrPath.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13981	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13982
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13983	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'change & update'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13984
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	13985	rDoitsEnabledChanged
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13986	self updateModifiedChannel.
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13987	self rDoitsEnabled value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13988	RDoItServer autoload.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13989	rDoitServerPortOrPath value isEmptyOrNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13990	rDoitServerPortOrPath value:(RDoItServer defaultPortNumberOrPath asString)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	13991	]
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	13992	]
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	13993	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	13994
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13995	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	13996
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13997	helpFilename
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13998	^ 'Launcher/communicationsSettings.html'
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	13999	!
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	14000
67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	14001	helpTextForKey:aKey
16161 6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	14002	\|usedKey\|
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	14003
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	14004	usedKey := aKey.
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	14005	usedKey == #rdoitSettings ifTrue:[
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	14006	self hasRDoitServerClass ifFalse:[
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	14007	usedKey := #rdoitDisabled
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	14008	].
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	14009	].
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	14010	usedKey == #scriptingSettings ifTrue:[
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	14011	self hasScriptingServerClass ifFalse:[
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	14012	usedKey := #scriptingDisabled
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	14013	].
6c7dd271a017 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 16151 diff changeset	14014	].
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	14015	^ super helpTextForKey:usedKey.
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14016	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14017
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	14018	!AbstractSettingsApplication::RDoItServerSettingsAppl methodsFor:'queries'!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	14019
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14020	hasRDoitServer
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	14021	^ RDoItServer notNil and:[RDoItServer isLoaded]
933cd54deefe checkin from browser penk parents: 4292 diff changeset	14022	!
933cd54deefe checkin from browser penk parents: 4292 diff changeset	14023
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14024	hasRDoitServerClass
4675 40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	14025	^ RDoItServer notNil
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	14026	!
40c7fa2ca3e5 rDoit - enablement fixed. Claus Gittinger <cg@exept.de> parents: 4658 diff changeset	14027
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	14028	hasScriptingServer
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	14029	^ STXScriptingServer notNil and:[STXScriptingServer isLoaded]
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	14030	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	14031
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	14032	hasScriptingServerClass
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	14033	^ STXScriptingServer notNil
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	14034	!
5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	14035
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14036	hasUnsavedChanges
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	14037	(self hasRDoitServer and:[RDoItServer isLoaded]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14038	self rDoitsEnabled value ~= RDoItServer serverRunning ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14039	RDoItServer serverRunning ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14040	self rDoitLogging value ~= RDoItServer isLogging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14041	self rDoitErrorLogging value ~= RDoItServer isErrorLogging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14042	self rDoitErrorDebugging value ~= RDoItServer isErrorCatching not ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14043	self getPortNumberOrPath ~= RDoItServer defaultPortNumberOrPath ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14044	self rDoitEnabledOnlyViaLocalConnection value ~= RDoItServer localConnectionsOnly ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14045	]
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	14046	].
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	14047	(self hasScriptingServer and:[STXScriptingServer isLoaded]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14048	self scriptingEnabled value ~= STXScriptingServer serverRunning ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14049	STXScriptingServer serverRunning ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14050	self scriptingLogging value ~= STXScriptingServer isLogging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14051	self scriptingErrorLogging value ~= STXScriptingServer isErrorLogging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14052	self scriptingErrorDebugging value ~= STXScriptingServer isErrorDebugging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14053	self scriptingEnabledOnlyViaLocalConnection value ~= STXScriptingServer localConnectionsOnly ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14054	]
8442 5af97e9fbcfa Scripting Claus Gittinger <cg@exept.de> parents: 8422 diff changeset	14055	].
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	14056	^ false
9495 546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	14057
546f349805ee added localConnectionsOnly to rdoit Claus Gittinger <cg@exept.de> parents: 9484 diff changeset	14058	"Modified: / 20-05-2010 / 14:48:52 / cg"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	14059	! !
933cd54deefe checkin from browser penk parents: 4292 diff changeset	14060
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14061	!AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'help specs'!
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14062
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	14063	helpSpec
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14064	"This resource specification was automatically generated
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14065	by the UIHelpTool of ST/X."
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	"Do not manually edit this!! If it is corrupted,
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14068	the UIHelpTool may not be able to read the specification."
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14069
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14070	"
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14071	UIHelpTool openOnClass:AbstractSettingsApplication::MiscDisplaySettingsAppl
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14072	"
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14073
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14074	<resource: #help>
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14075
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	14076	^ super helpSpec addPairsFrom:#(
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14077
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14078	#sqlServer
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14079	'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	14080
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14081	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14082	! !
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14083
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14084	!AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'image specs'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14085
8594 f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	14086	dbIcon1
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14087	"This resource specification was automatically generated
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14088	by the ImageEditor of ST/X."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14089
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14090	"Do not manually edit this!! If it is corrupted,
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14091	the ImageEditor may not be able to read the specification."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14092
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14093	"
8594 f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	14094	self dbIcon1 inspect
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	14095	ImageEditor openOnClass:self andSelector:#dbIcon1
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14096	Icon flushCachedIcons
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	<resource: #image>
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14100
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14101	^Icon
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14102	constantNamed:#'AbstractSettingsApplication::SQLServerSettingsAppl class dbIcon1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14103	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	14104	H"H"H @@@@@@@@@@@@@@@@@@@@@"H"H"@@@@@@@@@@@@@@@@@@@@@@@@@@@"H"H"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH"@@@@@@@@@@@@J"(J"(@@@@
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14105	@@@@@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	14106	@@@@@@@@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	14107	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	14108	@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	14109	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	14110	@@@@@@@@@@@@@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	14111	!
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	14112
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	14113	dbIcon2
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	14114	"This resource specification was automatically generated
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	14115	by the ImageEditor of ST/X."
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	14116
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	14117	"Do not manually edit this!! If it is corrupted,
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	14118	the ImageEditor may not be able to read the specification."
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	14119
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	14120	"
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	14121	self dbIcon2 inspect
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	14122	ImageEditor openOnClass:self andSelector:#dbIcon2
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	14123	Icon flushCachedIcons
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	14124	"
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	14125
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	14126	<resource: #image>
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	14127
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	14128	^Icon
17690 9a1a80e2cc0c #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17653 diff changeset	14129	constantNamed:'AbstractSettingsApplication::SQLServerSettingsAppl class dbIcon2'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14130	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	14131	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	14132	@@@@@@@@@@@@@@@@@@@@!!!!"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	14133	"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	14134	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	14135	@@@@@@@@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	14136	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	14137	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; 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	14138
9a1a80e2cc0c #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17653 diff changeset	14139	"Modified: / 13-09-2017 / 18:34:43 / cg"
8594 f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	14140	!
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	14141
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	14142	defaultIcon
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	14143	<resource: #programImage>
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	14144
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	14145	"/ ^ self dbIcon1.
f48d0e2ce08b * empty log message * Claus Gittinger <cg@exept.de> parents: 8593 diff changeset	14146	^ self dbIcon2.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14147	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14148
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14149	!AbstractSettingsApplication::SQLServerSettingsAppl class methodsFor:'interface specs'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14150
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14151	windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14152	"This resource specification was automatically generated
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14153	by the UIPainter of ST/X."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14154
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14155	"Do not manually edit this!! If it is corrupted,
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14156	the UIPainter may not be able to read the specification."
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14157
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14158	"
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14159	UIPainter new openOnClass:AbstractSettingsApplication::SQLServerSettingsAppl andSelector:#windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14160	AbstractSettingsApplication::SQLServerSettingsAppl new openInterface:#windowSpec
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14161	AbstractSettingsApplication::SQLServerSettingsAppl open
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	<resource: #canvas>
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14165
15635 4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14166	^
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14167	#(FullSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14168	name: windowSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14169	window:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14170	(WindowSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14171	label: 'SQL Server Settings'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14172	name: 'SQL Server Settings'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14173	min: (Point 10 10)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14174	bounds: (Rectangle 0 0 600 550)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14175	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14176	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14177	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14178	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14179	(VerticalPanelViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14180	activeHelpKey: #sqlServer
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14181	name: 'VerticalPanel2'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14182	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	14183	horizontalLayout: fit
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14184	verticalLayout: top
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14185	horizontalSpace: 3
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14186	verticalSpace: 3
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14187	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14188	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14189	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14190	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14191	name: 'EnableBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14192	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14193	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14194	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14195	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14196	label: 'SQL Server Enabled'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14197	name: 'EnableCheckBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14198	layout: (LayoutFrame 5 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14199	enableChannel: hasSQLServerClass
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14200	model: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14201	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14202	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14203	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14204
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14205	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14206	extent: (Point 600 25)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14207	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14208	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14209	name: 'PortBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14210	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14211	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14212	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14213	(LabelSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14214	label: 'MySQL Port:'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14215	name: 'Label2'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14216	layout: (LayoutFrame 5 0 0 0 150 0 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14217	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14218	adjust: right
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14219	enableDisableColorChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14220	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14221	(InputFieldSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14222	name: 'EntryField1'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14223	layout: (LayoutFrame 150 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14224	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14225	model: sqlServerPort
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14226	acceptOnReturn: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14227	acceptOnTab: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14228	acceptOnLostFocus: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14229	acceptOnPointerLeave: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14230	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14231	(LabelSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14232	label: 'MySQL Port-Number (ODBC)'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14233	name: 'Label3'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14234	layout: (LayoutFrame 150 0 28 0 596 0 50 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14235	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14236	adjust: left
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14237	enableDisableColorChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14238	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14239	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14240
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14241	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14242	extent: (Point 600 72)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14243	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14244	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14245	name: 'LogErrorsBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14246	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14247	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14248	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14249	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14250	label: 'Log Errors'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14251	name: 'ErrorLoggingCheckBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14252	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14253	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14254	model: sqlErrorLogging
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14255	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14256	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14257	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14258
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14259	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14260	extent: (Point 600 25)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14261	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14262	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14263	name: 'LogDataBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14264	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14265	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14266	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14267	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14268	label: 'Log Data'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14269	name: 'LogDataCheckBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14270	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14271	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14272	model: sqlDataLogging
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14273	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14274	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14275	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14276
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14277	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14278	extent: (Point 600 23)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14279	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14280	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14281	name: 'LogRequestsBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14282	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14283	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14284	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14285	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14286	label: 'Log Requests'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14287	name: 'LogRequestsCheckBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14288	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14289	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14290	model: sqlLogging
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14291	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14292	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14293	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14294
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14295	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14296	extent: (Point 600 24)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14297	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14298	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14299	name: 'LogSQLBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14300	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14301	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14302	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14303	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14304	label: 'Log SQL'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14305	name: 'CheckBox1'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14306	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14307	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14308	model: sqlStatementLogging
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14309	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14310	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14311	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14312
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14313	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14314	extent: (Point 600 24)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14315	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14316	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14317	name: 'DebugErrorsBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14318	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14319	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14320	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14321	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14322	label: 'Debug Errors'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14323	name: 'DebugErrorsCheckBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14324	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14325	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14326	model: sqlErrorDebugging
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14327	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14328	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14329	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14330
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14331	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14332	extent: (Point 600 23)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14333	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14334	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14335	name: 'Box1'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14336	extent: (Point 600 10)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14337	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14338	(ViewSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14339	name: 'EnableSmalltalkBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14340	component:
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14341	(SpecCollection
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14342	collection: (
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14343	(CheckBoxSpec
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14344	label: 'Virtual Smalltalk Tables Enabled'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14345	name: 'EnableSmalltalkCheckBox'
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14346	layout: (LayoutFrame 25 0 0 0 -5 1 22 0)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14347	enableChannel: sqlServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14348	model: sqlSmalltalkServerEnabled
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14349	translateLabel: true
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14350	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14351	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14352
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14353	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14354	extent: (Point 600 24)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14355	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14356	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14357
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14358	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14359	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14360	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14361
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14362	)
4473f27efaaa class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15624 diff changeset	14363	)
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14364	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14365
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14366	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'actions'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14367
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14368	basicReadSettings
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14369	\|sqlServerClass\|
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14370
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14371	sqlServerClass := self sqlServerClass.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14372	(sqlServerClass notNil and:[sqlServerClass isLoaded]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14373	self sqlServerEnabled value:sqlServerClass serverRunning.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14374	self sqlSmalltalkServerEnabled value:sqlServerClass isSmalltalkServerEnabled.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14375	self sqlLogging value:sqlServerClass isLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14376	self sqlStatementLogging value:sqlServerClass isSQLLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14377	self sqlErrorLogging value:sqlServerClass isErrorLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14378	self sqlDataLogging value:sqlServerClass isDataLogging.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14379	self sqlErrorDebugging value:sqlServerClass isErrorCatching not.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14380	self sqlServerPort value:sqlServerClass defaultPort
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14381	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14382	self sqlServerEnabled value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14383	self sqlSmalltalkServerEnabled value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14384	self sqlLogging value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14385	self sqlStatementLogging value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14386	self sqlErrorLogging value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14387	self sqlDataLogging value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14388	self sqlErrorDebugging value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14389	self sqlServerPort value:nil
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14390	].
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14391
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14392	"Modified: / 25-01-2007 / 17:40:53 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14393	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	14394
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14395	basicSaveSettings
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14396	\|sqlServerClass shouldRun port\|
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14397
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14398	sqlServerClass := self sqlServerClass.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14399
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14400	port := self sqlServerPort value.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14401	port isNumber ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14402	port := port asInteger.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14403	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14404
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14405	sqlServerClass defaultPort:port.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14406	sqlServerClass logging:self sqlLogging value.
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	14407	sqlServerClass sqlLogging:self sqlStatementLogging value.
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14408	sqlServerClass errorLogging:self sqlErrorLogging value.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14409	sqlServerClass dataLogging:self sqlDataLogging value.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14410	sqlServerClass errorCatching:(self sqlErrorDebugging value not).
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14411	sqlServerClass smalltalkServerEnabled:(self sqlSmalltalkServerEnabled value).
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14412
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14413	shouldRun := self sqlServerEnabled value.
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14414	shouldRun ~~ sqlServerClass serverRunning ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14415	shouldRun ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14416	sqlServerClass stop
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14417	] ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14418	sqlServerClass start.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14419	"/ must wait a bit; give it a chance to
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14420	"/ really start (before checking)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14421	Delay waitForSeconds:1.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14422	sqlServerClass serverRunning ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14423	self warn:'SQLServer startup failed (see stderr).'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14424	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14425	]
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14426	].
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14427
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14428	"Modified: / 25-01-2007 / 17:41:20 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14429	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14430
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14431	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'aspects'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14432
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	14433	sqlDataLogging
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	14434	sqlDataLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14435	sqlDataLogging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14436	sqlDataLogging onChangeSend:#updateModifiedChannel to:self
6431 6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	14437	].
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	14438	^ sqlDataLogging.
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	14439	!
6631f1406289 * empty log message * Claus Gittinger <cg@exept.de> parents: 6429 diff changeset	14440
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14441	sqlErrorDebugging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14442	sqlErrorDebugging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14443	sqlErrorDebugging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14444	sqlErrorDebugging onChangeSend:#updateModifiedChannel to:self
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14445	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14446	^ sqlErrorDebugging.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14447	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14448
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14449	sqlErrorLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14450	sqlErrorLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14451	sqlErrorLogging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14452	sqlErrorLogging onChangeSend:#updateModifiedChannel to:self
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14453	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14454	^ sqlErrorLogging.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14455	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14456
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14457	sqlLogging
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14458	sqlLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14459	sqlLogging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14460	sqlLogging onChangeSend:#updateModifiedChannel to:self
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14461	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14462	^ sqlLogging.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14463	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14464
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14465	sqlServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14466	sqlServerEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14467	sqlServerEnabled := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14468	sqlServerEnabled onChangeSend:#sqlServerEnabledChanged to:self
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14469	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14470	^ sqlServerEnabled.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14471	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14472
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14473	sqlServerPort
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14474	sqlServerPort isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14475	sqlServerPort := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14476	sqlServerPort onChangeSend:#updateModifiedChannel to:self
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14477	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14478	^ sqlServerPort.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14479	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14480
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14481	sqlSmalltalkServerEnabled
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14482	sqlSmalltalkServerEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14483	sqlSmalltalkServerEnabled := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14484	sqlSmalltalkServerEnabled onChangeSend:#sqlSmalltalkServerEnabledChanged to:self
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14485	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14486	^ sqlSmalltalkServerEnabled.
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	14487	!
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	14488
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	14489	sqlStatementLogging
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	14490	sqlStatementLogging isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14491	sqlStatementLogging := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14492	sqlStatementLogging onChangeSend:#updateModifiedChannel to:self
8279 f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	14493	].
f1fa62379064 * empty log message * Claus Gittinger <cg@exept.de> parents: 8273 diff changeset	14494	^ sqlStatementLogging.
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14495	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14496
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14497	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'change & update'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14498
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14499	sqlServerEnabledChanged
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14500	self updateModifiedChannel.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14501	self sqlServerEnabled value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14502	sqlServerPort value isEmptyOrNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14503	sqlServerPort value:(self sqlServerClass defaultPort)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14504	]
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14505	]
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14506
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14507	"Modified: / 25-01-2007 / 17:46:07 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14508	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14509
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14510	sqlSmalltalkServerEnabledChanged
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14511	self updateModifiedChannel.
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14512	self sqlSmalltalkServerEnabled value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14513	sqlServerPort value isEmptyOrNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14514	sqlServerPort value:(self sqlServerClass defaultPort)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14515	]
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14516	]
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14517
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14518	"Modified: / 25-01-2007 / 17:40:03 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14519	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14520
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14521	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14522
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14523	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14524	^ 'Launcher/communicationsSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14525	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	14526
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14527	!AbstractSettingsApplication::SQLServerSettingsAppl methodsFor:'queries'!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14528
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14529	hasSQLServerClass
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14530	^ self sqlServerClass notNil
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14531
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14532	"Created: / 25-01-2007 / 17:45:54 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14533	!
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14534
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14535	hasUnsavedChanges
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14536	\|sqlServerClass\|
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14537
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14538	sqlServerClass := self sqlServerClass.
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14539	(sqlServerClass notNil and:[sqlServerClass isLoaded]) ifFalse:[^ false ].
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14540
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14541	self sqlServerEnabled value ~= sqlServerClass serverRunning ifTrue:[^ true].
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14542	sqlServerClass serverRunning ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14543	self sqlSmalltalkServerEnabled value ~= sqlServerClass isSmalltalkServerEnabled ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14544	self sqlLogging value ~= sqlServerClass isLogging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14545	self sqlStatementLogging value ~= sqlServerClass isSQLLogging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14546	self sqlErrorLogging value ~= sqlServerClass isErrorLogging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14547	self sqlDataLogging value ~= sqlServerClass isDataLogging ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14548	self sqlErrorDebugging value ~= sqlServerClass isErrorCatching not ifTrue:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14549	self sqlServerPort value ~= sqlServerClass defaultPort ifTrue:[^ true].
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14550	].
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14551	^ false
7608 99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14552
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14553	"Modified: / 25-01-2007 / 17:47:32 / cg"
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14554	!
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14555
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14556	sqlServerClass
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14557	^ SQLServer::SQLServer
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14558
99732b44caec * empty log message * Claus Gittinger <cg@exept.de> parents: 7607 diff changeset	14559	"Created: / 25-01-2007 / 17:29:59 / cg"
6427 b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14560	! !
b2a6087bbedf * empty log message * Claus Gittinger <cg@exept.de> parents: 6426 diff changeset	14561
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14562	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'defaults'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14563
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14564	stcCompilationOptions
5278 67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	14565	^ #(default never)
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	14566	!
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	14567
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	14568	stcCompilationStrings
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	14569
67cd86f196dc fixed compiler settings - removed #always option for stc Michael Beyl <mb@exept.de> parents: 5214 diff changeset	14570	^ #('primitive code only' 'never')
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14571	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14572
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14573	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'help specs'!
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14574
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14575	helpSpec
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14576	"This resource specification was automatically generated
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14577	by the UIHelpTool of ST/X."
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14578
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14579	"Do not manually edit this!! If it is corrupted,
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14580	the UIHelpTool may not be able to read the specification."
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14581
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14582	"
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14583	UIHelpTool openOnClass:AbstractSettingsApplication::STCCompilerSettingsAppl
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14584	"
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14585
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14586	<resource: #help>
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14587
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14588	^ super helpSpec addPairsFrom:#(
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14589
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14590	#stcCommand
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14591	'Path to the stc compiler (compiles Smalltalk to C-code)'
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14592	#stcCommandOptions
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14593	'Options to the stc compiler (see stc man-page)'
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14594	#stcKeepCIntermediate
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14595	'Keep the intermediate C-file (for st/x developers)'
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14596	#stcIncluedDirectories
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14597	'Include directories (for stc and cc)'
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14598	#ccCommand
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14599	'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	14600	#ccCommandOptions
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14601	'Options to the c compiler'
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14602
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14603	)
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14604
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14605	"Modified: / 22-04-2019 / 10:23:35 / Claus Gittinger"
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14606	! !
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14607
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14608	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'image specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14609
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14610	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	14611	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	14612
8208 8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14613	^ self defaultIcon4
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	14614
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	14615	"Modified: / 17-09-2007 / 11:35:12 / cg"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14616	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14617
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14618	defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14619	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14620	by the ImageEditor of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14621
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14622	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14623	the ImageEditor may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14624
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14625	"
6346 3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14626	self defaultIcon1 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14627	ImageEditor openOnClass:self andSelector:#defaultIcon1
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14628	Icon flushCachedIcons
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14629	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14630
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14631	<resource: #image>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14632
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14633	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	14634	constantNamed:'AbstractSettingsApplication::STCCompilerSettingsAppl defaultIcon1'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	14635	ifAbsentPut:[(Depth2Image width:22 height:22) bits:(ByteArray fromPackedString:'
6202 f3c5c2808268 * empty log message * Claus Gittinger <cg@exept.de> parents: 6201 diff changeset	14636	@@@@@@@@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	14637	CUU")UWICUUR%UWJCUUR!!UWACUUTEUW@CUUUUUW@C??????@@@@@@@@B')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	14638	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	14639	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	14640	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14641
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14642	defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14643	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14644	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14645
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14646	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14647	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14648
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14649	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14650	self defaultIcon2 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14651	ImageEditor openOnClass:self andSelector:#defaultIcon2
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14652	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14653	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14654
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14655	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14656
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14657	^Icon
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14658	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14659	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	14660	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	14661	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	14662	@@@@@@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	14663	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	14664	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	14665	@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	14666	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	14667	!
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14668
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14669	defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14670	"This resource specification was automatically generated
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14671	by the ImageEditor of ST/X."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14672
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14673	"Do not manually edit this!! If it is corrupted,
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14674	the ImageEditor may not be able to read the specification."
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14675
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14676	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14677	self defaultIcon3 inspect
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14678	ImageEditor openOnClass:self andSelector:#defaultIcon3
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14679	Icon flushCachedIcons
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14680	"
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14681
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14682	<resource: #image>
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14683
3b3d962e691c * empty log message * Claus Gittinger <cg@exept.de> parents: 6345 diff changeset	14684	^Icon
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14685	constantNamed:#'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14686	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	14687	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	14688	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	14689	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	14690	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	14691	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	14692	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	14693	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	14694	!
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14695
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14696	defaultIcon4
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14697	"This resource specification was automatically generated
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14698	by the ImageEditor of ST/X."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14699
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14700	"Do not manually edit this!! If it is corrupted,
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14701	the ImageEditor may not be able to read the specification."
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14702
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14703	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14704	self defaultIcon4 inspect
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14705	ImageEditor openOnClass:self andSelector:#defaultIcon4
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14706	Icon flushCachedIcons
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14707	"
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14708
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14709	<resource: #image>
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14710
8cb3cf186cbd * empty log message * Claus Gittinger <cg@exept.de> parents: 8203 diff changeset	14711	^Icon
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14712	constantNamed:'AbstractSettingsApplication::STCCompilerSettingsAppl class defaultIcon4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14713	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	14714	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	14715	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	14716	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	14717	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	14718	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	14719	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	14720	@@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	14721	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14722
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14723	!AbstractSettingsApplication::STCCompilerSettingsAppl class methodsFor:'interface specs'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14724
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	14725	windowSpec
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14726	"This resource specification was automatically generated
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14727	by the UIPainter of ST/X."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14728
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14729	"Do not manually edit this!! If it is corrupted,
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14730	the UIPainter may not be able to read the specification."
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14731
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14732	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14733	UIPainter new openOnClass:AbstractSettingsApplication::STCCompilerSettingsAppl andSelector:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14734	AbstractSettingsApplication::STCCompilerSettingsAppl new openInterface:#windowSpec
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14735	AbstractSettingsApplication::STCCompilerSettingsAppl open
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14736	"
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14737
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14738	<resource: #canvas>
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	14739
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14740	^
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	14741	#(FullSpec
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	14742	name: windowSpec
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14743	window:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	14744	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14745	label: 'STC Compiler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14746	name: 'STC Compiler Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14747	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14748	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14749	bounds: (Rectangle 0 0 600 602)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14750	)
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	14751	component:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	14752	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14753	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14754	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14755	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14756	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	14757	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14758	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14759	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14760	verticalSpace: 0
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14761	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14762	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14763	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14764	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14765	name: 'SeparatingBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14766	extent: (Point 600 4)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14767	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14768	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14769	name: 'InfoTextBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14770	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14771	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14772	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14773	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14774	name: 'Label14'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14775	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14776	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14777	labelChannel: helpText
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14778	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14779	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14780	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14781
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14782	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14783	extent: (Point 600 90)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14784	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14785	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14786	name: 'STCCompilationBox11'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14787	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14788	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14789	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14790	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14791	label: 'STC Compilation to Machine Code:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14792	name: 'Label11'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14793	layout: (LayoutFrame 0 0 0 0 240 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14794	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14795	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14796	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14797	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14798	label: 'PopUp List'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14799	name: 'StcCompilation'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14800	layout: (LayoutFrame 241 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14801	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14802	model: stcCompilationSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14803	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14804	menu: stcCompilationList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14805	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14806	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14807	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14808
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14809	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14810	extent: (Point 600 29)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14811	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14812	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14813	name: 'STCCommandBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14814	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14815	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14816	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14817	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14818	label: 'STC Command:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14819	name: 'Label1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14820	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14821	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14822	adjust: right
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14823	activeHelpKey: stcCommand
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14824	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14825	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14826	name: 'EntryField1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14827	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14828	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14829	model: stc
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14830	activeHelpKey: stcCommand
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14831	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14832	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14833	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14834	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14835	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14836	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14837	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14838
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14839	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14840	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14841	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14842	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14843	name: 'STCOptionsBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14844	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14845	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14846	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14847	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14848	label: 'STC Options:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14849	name: 'Label2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14850	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14851	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14852	adjust: right
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14853	activeHelpKey: stcCommandOptions
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14854	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14855	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14856	name: 'EntryField2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14857	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14858	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14859	model: stcOptions
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14860	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14861	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14862	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14863	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14864	acceptOnPointerLeave: true
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14865	activeHelpKey: stcCommandOptions
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14866	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14867	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14868
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14869	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14870	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14871	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14872	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14873	name: 'KeepCIntermediateBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14874	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14875	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14876	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14877	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14878	label: 'Keep Intermediate C File:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14879	name: 'Label15'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14880	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14881	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14882	adjust: right
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14883	activeHelpKey: stcKeepCIntermediate
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14884	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14885	(CheckToggleSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14886	name: 'CheckToggle1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14887	layout: (LayoutOrigin 203 0 4 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14888	model: stcKeepCIntermediate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14889	isTriggerOnDown: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14890	showLamp: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14891	lampColor: (Color 100.0 100.0 0.0)
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14892	activeHelpKey: stcKeepCIntermediate
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14893	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14894	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14895
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14896	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14897	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14898	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14899	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14900	name: 'CCCommandBox3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14901	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14902	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14903	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14904	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14905	label: 'CC Command:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14906	name: 'Label3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14907	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14908	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14909	adjust: right
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14910	activeHelpKey: ccCommand
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14911	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14912	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14913	name: 'EntryField3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14914	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14915	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14916	model: cc
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14917	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14918	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14919	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14920	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14921	acceptOnPointerLeave: true
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14922	activeHelpKey: ccCommand
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14923	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14924	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14925
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14926	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14927	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14928	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14929	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14930	name: 'CCOptionsBox4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14931	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14932	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14933	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14934	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14935	label: 'CC Options:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14936	name: 'Label4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14937	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14938	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14939	adjust: right
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14940	activeHelpKey: ccCommandOptions
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14941	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14942	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14943	name: 'EntryField4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14944	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14945	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14946	model: ccOptions
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14947	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14948	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14949	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14950	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14951	acceptOnPointerLeave: true
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14952	activeHelpKey: ccCommandOptions
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14953	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14954	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14955
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14956	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14957	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14958	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14959	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14960	name: 'IncludeDirectoriesBox5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14961	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14962	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14963	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14964	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14965	label: 'Include Directories:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14966	name: 'Label5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14967	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14968	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14969	adjust: right
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14970	activeHelpKey: stcIncluedDirectories
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14971	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14972	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14973	name: 'EntryField5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14974	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14975	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14976	model: stcIncludes
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14977	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14978	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14979	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14980	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14981	acceptOnPointerLeave: true
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	14982	activeHelpKey: stcIncluedDirectories
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14983	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14984	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14985
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14986	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14987	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14988	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14989	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14990	name: 'STCDefinesBox6'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14991	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14992	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14993	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14994	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14995	label: 'Defines:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14996	name: 'Label6'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14997	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14998	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	14999	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15000	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15001	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15002	name: 'EntryField6'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15003	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15004	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15005	model: stcDefines
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15006	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15007	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15008	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15009	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15010	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15011	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15012	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15013
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15014	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15015	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15016	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15017	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15018	name: 'LinkCommandBox7'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15019	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15020	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15021	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15022	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15023	label: 'Link Command:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15024	name: 'Label7'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15025	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15026	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15027	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15028	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15029	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15030	name: 'EntryField7'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15031	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15032	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15033	model: linkCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15034	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15035	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15036	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15037	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15038	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15039	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15040	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15041
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15042	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15043	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15044	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15045	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15046	name: 'LinkArgumentsBox8'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15047	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15048	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15049	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15050	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15051	label: 'Link Arguments:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15052	name: 'Label8'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15053	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15054	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15055	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15056	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15057	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15058	name: 'EntryField8'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15059	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15060	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15061	model: linkArgs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15062	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15063	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15064	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15065	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15066	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15067	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15068	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15069
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15070	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15071	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15072	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15073	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15074	name: 'LinkSharedArgumentsBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15075	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15076	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15077	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15078	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15079	label: 'Link Shared Arguments:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15080	name: 'Label12'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15081	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15082	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15083	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15084	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15085	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15086	name: 'EntryField11'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15087	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15088	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15089	model: linkSharedArgs
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15090	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15091	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15092	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15093	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15094	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15095	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15096	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15097
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15098	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15099	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15100	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15101	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15102	name: 'CLibrariesBox9'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15103	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15104	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15105	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15106	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15107	label: 'C-Libraries:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15108	name: 'Label9'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15109	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15110	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15111	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15112	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15113	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15114	name: 'EntryField9'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15115	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15116	enableChannel: canLoadBinaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15117	model: stcLibraries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15118	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15119	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15120	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15121	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15122	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15123	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15124	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15125
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15126	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15127	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15128	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15129	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15130	name: 'STCLibraryPathBox10'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15131	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15132	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15133	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15134	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15135	label: 'STC Library Path:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15136	name: 'Label10'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15137	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15138	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15139	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15140	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15141	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15142	name: 'EntryField10'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15143	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15144	enableChannel: enableStcLibraryPath
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15145	model: stcLibraryPath
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15146	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15147	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15148	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15149	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15150	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15151	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15152	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15153
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15154	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15155	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15156	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15157	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15158	name: 'MakeCommandBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15159	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15160	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15161	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15162	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15163	label: 'Make Command:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15164	name: 'Label13'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15165	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15166	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15167	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15168	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15169	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15170	name: 'EntryField12'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15171	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15172	model: makeCommand
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15173	acceptOnLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15174	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15175	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15176	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15177	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15178	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15179	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15180
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15181	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15182	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15183	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15184	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15185	name: 'SeparatingBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15186	extent: (Point 600 12)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15187	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15188	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15189	name: 'SetupForBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15190	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15191	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15192	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15193	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15194	label: 'Set above Options for:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15195	name: 'Label16'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15196	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15197	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15198	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15199	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15200	(PopUpListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15201	name: 'PopUpList1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15202	layout: (LayoutFrame 201 0 0 0 -5 1 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15203	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15204	model: supportedCCompilerSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15205	menu: supportedCCompilerList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15206	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15207	stateChangeCallBackSelector: supportedCCompilerSelectionChanged
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15208	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15209	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15210
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15211	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15212	extent: (Point 600 29)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15213	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15214	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15215	name: 'Box1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15216	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15217	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15218	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15219	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15220	label: 'Verbose (Trace Commands):'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15221	name: 'Label17'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15222	layout: (LayoutFrame 0 0 0 0 200 0 22 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15223	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15224	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15225	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15226	(CheckToggleSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15227	name: 'CheckToggle2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15228	layout: (LayoutOrigin 203 0 4 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15229	model: verbose
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15230	isTriggerOnDown: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15231	showLamp: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15232	lampColor: (Color 100.0 100.0 0.0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15233	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15234	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15235
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15236	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15237	extent: (Point 600 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15238	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15239	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15240
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15241	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15242	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15243	)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15244
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	15245	)
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	15246	)
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	15247
bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	15248	"Modified: / 22-04-2019 / 10:23:13 / Claus Gittinger"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15249	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15250
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15251	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'actions'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15252
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15253	basicReadSettings
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15254	\|t\|
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15255
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15256	self canLoadBinaries
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15257	value:(ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]).
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15258
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15259	self verbose value:(STCCompilerInterface verbose ? false).
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15260
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15261	self stcIncludes value:ParserFlags stcCompilationIncludes.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15262	self stcDefines value:ParserFlags stcCompilationDefines.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15263	self stcOptions value:ParserFlags stcCompilationOptions.
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15264	self stcKeepCIntermediate value:ParserFlags stcKeepCIntermediate.
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15265	self ccOptions value:ParserFlags ccCompilationOptions.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15266	self cc value:ParserFlags ccPath.
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15267	self stc value:ParserFlags stcPath.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	15268	self makeCommand value:ParserFlags makeCommand.
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15269
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15270	self linkCommand value:ParserFlags linkCommand.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15271	self linkArgs value:ParserFlags linkArgs.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15272	self linkSharedArgs value:ParserFlags linkSharedArgs.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15273
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15274	(t := ParserFlags searchedLibraries) notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15275	self stcLibraries value:(String fromStringCollection:t separatedBy:' ')
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15276	].
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15277	(t := ParserFlags libPath) notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15278	self stcLibraryPath value:t
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15279	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15280
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15281	self stcCompilationSelection value:(self class stcCompilationOptions
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15282	indexOf:(ParserFlags stcCompilation)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15283	ifAbsent:1).
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	15284
ec908ed4b944 make command fm parents: 6860 diff changeset	15285	"Modified: / 09-08-2006 / 18:49:38 / fm"
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15286	"Modified: / 16-09-2011 / 18:45:15 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15287	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15288
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15289	basicSaveSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15290
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15291	STCCompilerInterface verbose:self verbose value.
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15292
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15293	ParserFlags stcCompilation:(self class stcCompilationOptions at:self stcCompilationSelection value).
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15294	ParserFlags stcCompilationIncludes:self stcIncludes value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15295	ParserFlags stcCompilationDefines:self stcDefines value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15296	ParserFlags stcCompilationOptions:self stcOptions value.
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15297	ParserFlags stcKeepCIntermediate:self stcKeepCIntermediate value.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15298	ParserFlags ccCompilationOptions:self ccOptions value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15299	ParserFlags ccPath:self cc value.
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	15300	ParserFlags makeCommand:self makeCommand value.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	15301
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15302	self stc value ~= ParserFlags stcPath ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15303	ParserFlags stcPath:self stc value
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15304	].
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15305	ParserFlags linkCommand:self linkCommand value.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15306	ParserFlags linkArgs:self linkArgs value.
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15307	ParserFlags linkSharedArgs:self linkSharedArgs value.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15308	self stcLibraries value notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15309	ParserFlags searchedLibraries:(self stcLibraries value asCollectionOfWords).
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15310	].
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15311	stcLibraryPath notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15312	ParserFlags libPath:(self stcLibraryPath value).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	15313	].
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	15314
6868 50e8be0545f4 * empty log message * fm parents: 6867 diff changeset	15315	"Modified: / 09-08-2006 / 19:33:10 / fm"
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15316	"Modified: / 16-09-2011 / 18:45:28 / cg"
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15317	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15318
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15319	setupForBCC
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15320	"set values for using borland C (windows)"
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15321
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15322	\|bccDir\|
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15323
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15324	bccDir := 'c:\borland\bcc55'.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15325
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15326	bccDir asFilename exists ifFalse:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15327	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	15328	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15329
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15330	self cc value:(bccDir,'\bin\bcc32').
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15331	self ccOptions value:'-w-'.
17531 e5f01f829695 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17530 diff changeset	15332	self stcIncludes value:('-I..\..\include -I',bccDir,'\Include').
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15333	self linkCommand value:(bccDir,'\bin\ilink32').
17531 e5f01f829695 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17530 diff changeset	15334	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	15335	self stcLibraries value:'import32.lib odbc32.lib glu32.lib opengl32.lib'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15336	self makeCommand value:'bmake'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15337
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15338	self updateModifiedChannel.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15339	self supportedCCompilerSelection value:0
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15340
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15341	"Modified: / 14-06-2017 / 11:04:00 / cg"
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15342	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15343
16820 8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15344	setupForCLANG
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15345	"set values for using CLANG"
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15346
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15347	\|cpuType ccOptions linkArgs linkSharedArgs\|
16820 8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15348
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15349	self cc value:'clang'.
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15350	cpuType := OperatingSystem getCPUType.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15351
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15352	ccOptions := '-O3 -arch ',cpuType.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15353	linkArgs := '-arch ',cpuType.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15354	linkSharedArgs := '-shared -arch ',cpuType.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15355
16820 8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15356	OperatingSystem isOSXlike ifTrue:[
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15357	ccOptions := ccOptions , ' -mmacosx-version-min=10.3'.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15358	linkSharedArgs := linkSharedArgs , ' -mmacosx-version-min=10.3 librun.so'
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15359	].
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15360
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15361	self ccOptions value:ccOptions.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15362	self linkArgs value:linkArgs.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15363	self linkSharedArgs value:linkSharedArgs.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15364	self stcIncludes value:'-I../../include -I/usr/include/freetype2'.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15365	self linkCommand value:'clang'.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15366	self stcLibraries value:''.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15367	self makeCommand value:'make'.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15368
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15369	self updateModifiedChannel.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15370	self supportedCCompilerSelection value:0
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15371
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15372	"Modified (comment): / 14-06-2017 / 10:48:34 / cg"
16820 8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15373	!
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15374
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15375	setupForGCC
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15376	"set values for using gcc (linux/unix)"
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15377
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15378	self cc value:'gcc'.
18108 cf744b854f74 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18075 diff changeset	15379	ExternalBytes sizeofPointer == 4 ifTrue:[
15744 6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	15380	self ccOptions value:'-m32'.
6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	15381	self linkArgs value:'-m32'.
6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	15382	self linkSharedArgs value:'-shared -m32'.
6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	15383	] ifFalse:[
17693 ea835103d495 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 17690 diff changeset	15384	self ccOptions value:'-m64 -fPIC'.
15744 6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	15385	self linkArgs value:'-m64'.
6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	15386	self linkSharedArgs value:'-shared -m64'.
6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	15387	].
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15388	self stcIncludes value:'-I../../include -I/usr/include/freetype2'.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15389	self linkCommand value:'gcc'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15390	self stcLibraries value:''.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15391	self makeCommand value:'make'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15392
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15393	self updateModifiedChannel.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15394	self supportedCCompilerSelection value:0
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15395
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15396	"Modified: / 14-06-2017 / 11:09:07 / cg"
17693 ea835103d495 #BUGFIX by stefan Stefan Vogel <sv@exept.de> parents: 17690 diff changeset	15397	"Modified: / 20-09-2017 / 19:48:10 / stefan"
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15398	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15399
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15400	setupForMINGW
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15401	"set values for using mingw (windows)"
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15402
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15403	\|programFiles programFilesX86 mingwFolder\|
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15404
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15405	programFiles := OperatingSystem getEnvironment:'ProgramFiles'.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15406	programFiles isEmptyOrNil ifTrue:[ programFiles := 'C:\Program Files' ].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15407	programFilesX86 := OperatingSystem getEnvironment:'ProgramFiles(x86)'.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15408	programFilesX86 isEmptyOrNil ifTrue:[ programFilesX86 := 'C:\Program Files (x86)' ].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15409
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15410	"/ where to search
18108 cf744b854f74 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18075 diff changeset	15411	ExternalBytes sizeofPointer == 4 ifTrue:[
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15412	mingwFolder := 'C:\mingw32'.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15413	] ifFalse:[
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15414	mingwFolder := 'C:\mingw64'.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15415	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15416
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15417	{ programFilesX86 . programFiles . 'C:\' . 'C:\mingw' } do:[:triedFolder \|
18108 cf744b854f74 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18075 diff changeset	15418	ExternalBytes sizeofPointer == 4 ifTrue:[
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15419	(triedFolder asFilename / 'mingw32') exists ifTrue:[
17531 e5f01f829695 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17530 diff changeset	15420	mingwFolder := triedFolder asFilename constructString: 'mingw32'
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15421	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15422	] ifFalse:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15423	(triedFolder asFilename / 'mingw64') exists ifTrue:[
17531 e5f01f829695 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17530 diff changeset	15424	mingwFolder := triedFolder asFilename constructString: 'mingw64'
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15425	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15426	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15427	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15428
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15429	self cc value:(mingwFolder,'\bin\gcc').
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15430	self linkArgs value:('-L..\..\lib\mingw -L',mingwFolder,'\lib').
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15431	self ccOptions value:''.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15432	self stcIncludes value:'-I..\..\include'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15433	self linkCommand value:(self cc value).
16812 d9494aeded9d #BUGFIX by sr sr parents: 16788 diff changeset	15434	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	15435	self makeCommand value:'mingwmake'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15436
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15437	self updateModifiedChannel.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15438	self supportedCCompilerSelection value:0
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15439
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15440	"Modified: / 14-06-2017 / 11:08:33 / cg"
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15441	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15442
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15443	setupForMSVC
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15444	"set values for using msvc (windows)"
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15445
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15446	\|programFiles programFilesX86 nothingFound found\|
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15447
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15448	programFiles := OperatingSystem getEnvironment:'ProgramFiles'.
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15449	programFiles isEmptyOrNil ifTrue:[ programFiles := 'C:\Program Files' ].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15450	programFilesX86 := OperatingSystem getEnvironment:'ProgramFiles(x86)'.
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15451	programFilesX86 isEmptyOrNil ifTrue:[ programFilesX86 := 'C:\Program Files (x86)' ].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15452
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15453	self cc value:('cl.exe').
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15454	self linkCommand value:('ilink32.exe').
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15455	self ccOptions value:'/O1'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15456	self stcIncludes value:'-I..\..\include'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15457	self linkArgs value:'-L..\..\lib\vc'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15458	self stcLibraries value:'import32.lib odbc32.lib glu32.lib opengl32.lib'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15459	self makeCommand value:'vcmake'.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15460
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15461	"/ no try to find cl and ilink32
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15462	nothingFound := false.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15463
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15464	programFilesX86 asFilename exists ifFalse:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15465	programFiles asFilename exists ifFalse:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15466	nothingFound := true.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15467	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15468	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15469	nothingFound ifFalse:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15470	#('13.0' '12.0' '11.0' '10.0') do:[:triedVersion \|
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15471	{ programFilesX86 . programFiles } do:[:triedFolder \|
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15472	\|each\|
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15473
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15474	found ifFalse:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15475	each := triedFolder,'\Microsoft Visual Studio ',triedVersion,'\VC\bin'.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15476	each asFilename exists ifTrue:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15477	self cc value:(each,'\cl.exe').
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15478	self linkCommand value:(each,'\ilink32.exe').
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15479	found := true.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15480	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15481	]
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15482	]
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15483	]
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15484	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15485
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15486	self updateModifiedChannel.
17530 d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15487	self supportedCCompilerSelection value:0.
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15488
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15489	nothingFound ifTrue:[
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15490	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	15491	].
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15492
d7bfe73420e6 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17524 diff changeset	15493	"Modified: / 14-06-2017 / 11:04:11 / cg"
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15494	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15495
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15496	supportedCCompilerSelectionChanged
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15497	\|idx spec compiler\|
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15498
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15499	idx := self supportedCCompilerSelection value.
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15500	idx == 0 ifTrue:[^ self].
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15501
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15502	spec := self supportedCCompilerListSpec at:idx ifAbsent:[^ self].
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15503	compiler := spec second.
16820 8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15504	compiler == #clang ifTrue:[
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15505	self setupForCLANG.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15506	^ self.
8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15507	].
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15508	compiler == #gcc ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15509	self setupForGCC.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15510	^ self.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15511	].
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15512	compiler == #bcc ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15513	self setupForBCC.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15514	^ self.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15515	].
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15516	compiler == #msvc ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15517	self setupForMSVC.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15518	^ self.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15519	].
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15520	compiler == #mingw ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15521	self setupForMINGW.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15522	^ self.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15523	].
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15524	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15525
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15526	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'aspects'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15527
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15528	canLoadBinaries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15529
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15530	canLoadBinaries isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15531	canLoadBinaries := (ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) asValue.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15532	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15533	^ canLoadBinaries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15534	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15535
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15536	cc
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15537
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15538	cc isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15539	cc := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15540	cc onChangeSend:#updateModifiedChannel to:self.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15541	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15542	^ cc.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15543	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15544
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15545	ccOptions
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15546
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15547	ccOptions isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15548	ccOptions := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15549	ccOptions onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15550	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15551	^ ccOptions.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15552	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15553
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15554	enableStcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15555
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15556	^ (ObjectFileLoader libPath notNil and:[self canLoadBinaries])
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15557	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15558
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15559	linkArgs
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15560
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15561	linkArgs isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15562	linkArgs := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15563	linkArgs onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15564	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15565	^ linkArgs.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15566	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15567
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15568	linkCommand
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15569
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15570	linkCommand isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15571	linkCommand := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15572	linkCommand onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15573	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15574	^ linkCommand.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15575	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15576
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15577	linkSharedArgs
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15578
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15579	linkSharedArgs isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15580	linkSharedArgs := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15581	linkSharedArgs onChangeSend:#updateModifiedChannel to:self.
6343 66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15582	].
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15583	^ linkSharedArgs.
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15584	!
66d03d2f16f4 separate setting for shared-link-arguments Claus Gittinger <cg@exept.de> parents: 6294 diff changeset	15585
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	15586	makeCommand
ec908ed4b944 make command fm parents: 6860 diff changeset	15587
ec908ed4b944 make command fm parents: 6860 diff changeset	15588	makeCommand isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15589	makeCommand := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15590	makeCommand onChangeSend:#updateModifiedChannel to:self.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	15591	].
ec908ed4b944 make command fm parents: 6860 diff changeset	15592	^ makeCommand.
ec908ed4b944 make command fm parents: 6860 diff changeset	15593
ec908ed4b944 make command fm parents: 6860 diff changeset	15594	"Created: / 09-08-2006 / 18:49:52 / fm"
ec908ed4b944 make command fm parents: 6860 diff changeset	15595	!
ec908ed4b944 make command fm parents: 6860 diff changeset	15596
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15597	stc
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15598
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15599	stc isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15600	stc := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15601	stc onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15602	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15603	^ stc.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15604	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15605
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15606	stcCompilationList
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15607
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15608	stcCompilationList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15609	stcCompilationList := (resources array:(self class stcCompilationStrings)) asList.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15610	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15611	^ stcCompilationList.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15612	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15613
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15614	stcCompilationSelection
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15615
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15616	stcCompilationSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15617	stcCompilationSelection := (self class stcCompilationOptions indexOf:(ParserFlags stcCompilation) ifAbsent:1) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15618	stcCompilationSelection onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15619	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15620	^ stcCompilationSelection.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15621	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15622
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15623	stcDefines
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15624
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15625	stcDefines isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15626	stcDefines := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15627	stcDefines onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15628	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15629	^ stcDefines.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15630	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15631
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15632	stcIncludes
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15633
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15634	stcIncludes isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15635	stcIncludes := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15636	stcIncludes onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15637	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15638	^ stcIncludes.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15639	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15640
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15641	stcKeepCIntermediate
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15642	stcKeepCIntermediate isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15643	stcKeepCIntermediate := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15644	stcKeepCIntermediate onChangeSend:#updateModifiedChannel to:self.
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15645	].
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15646	^ stcKeepCIntermediate.
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15647
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15648	"Created: / 16-09-2011 / 18:42:10 / cg"
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15649	!
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15650
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15651	stcLibraries
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15652
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15653	stcLibraries isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15654	stcLibraries := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15655	stcLibraries onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15656	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15657	^ stcLibraries.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15658	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15659
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15660	stcLibraryPath
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15661
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15662	stcLibraryPath isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15663	stcLibraryPath := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15664	stcLibraryPath onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15665	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15666	^ stcLibraryPath.
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15667	!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15668
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15669	stcOptions
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15670
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15671	stcOptions isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15672	stcOptions := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15673	stcOptions onChangeSend:#updateModifiedChannel to:self.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15674	].
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15675	^ stcOptions.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15676	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15677
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15678	supportedCCompilerList
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15679	^ self supportedCCompilerListSpec collect:[:s \| s first].
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15680	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15681
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15682	supportedCCompilerListSpec
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15683	OperatingSystem isMSWINDOWSlike ifTrue:[
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	('Borland CC v5.5 (bcc)' #bcc)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15686	('Microsoft Visual C (cl)' #msvc)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15687	('Mingw (gcc)' #mingw)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15688	).
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15689	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15690
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15691	^ #(
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15692	('GNU gcc' #gcc)
16820 8bf34bf7eaf5 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16812 diff changeset	15693	('clang' #clang)
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15694	).
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15695	!
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15696
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15697	supportedCCompilerSelection
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15698	supportedCCompilerSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15699	supportedCCompilerSelection := ValueHolder new.
12411 342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15700	].
342b4192df01 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12409 diff changeset	15701	^ supportedCCompilerSelection.
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15702	!
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15703
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15704	verbose
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15705
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15706	verbose isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15707	verbose := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15708	verbose onChangeSend:#updateModifiedChannel to:self.
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15709	].
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15710	^ verbose.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15711	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15712
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15713	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15714
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15715	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15716	^ 'Launcher/compilerSettings.html'
10707 25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15717	!
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15718
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15719	helpText
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15720	^ 'These settings are only relevant if methods are to be compiled directly to
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15721	machine code (i.e. using the external stc, not the builtin bytecode compiler).
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15722	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	15723	for plain Smalltalk code, it is not needed.'
10707 25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15724
25acaf19a3e3 x Claus Gittinger <cg@exept.de> parents: 10698 diff changeset	15725	"Created: / 16-09-2011 / 18:18:32 / cg"
18743 bec660fe7335 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18722 diff changeset	15726	"Modified: / 22-04-2019 / 10:14:16 / Claus Gittinger"
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15727	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	15728
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15729	!AbstractSettingsApplication::STCCompilerSettingsAppl methodsFor:'queries'!
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15730
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15731	hasUnsavedChanges
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15732	\| searchedLibs \|
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15733
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15734	((ObjectFileLoader notNil and:[ObjectFileLoader canLoadObjectFiles]) ~= self canLoadBinaries value ) ifTrue:[^ true].
20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15735
12764 708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15736	((STCCompilerInterface verbose) ~= (self verbose value)) ifTrue:[^ true].
708a66028cad class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12721 diff changeset	15737
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15738	((ParserFlags stcCompilation ? #default) ~= (self class stcCompilationOptions at:self stcCompilationSelection value)) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15739	((ParserFlags stcCompilationIncludes) ~= self stcIncludes value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15740	((ParserFlags stcCompilationDefines) ~= self stcDefines value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15741	((ParserFlags stcCompilationOptions) ~= self stcOptions value) ifTrue:[^ true].
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15742	((ParserFlags stcKeepCIntermediate) ~= self stcKeepCIntermediate value) ifTrue:[^ true].
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15743	((ParserFlags ccCompilationOptions) ~= self ccOptions value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15744	((ParserFlags ccPath) ~= self cc value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15745	((ParserFlags stcPath) ~= self stc value) ifTrue:[^ true].
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	15746	((ParserFlags makeCommand) ~= self makeCommand value) ifTrue:[^ true].
6536 aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15747	((ParserFlags linkCommand) ~= self linkCommand value) ifTrue:[^ true].
aa882cb0567f flags moved Claus Gittinger <cg@exept.de> parents: 6531 diff changeset	15748	((ParserFlags linkArgs) ~= self linkArgs value) ifTrue:[^ true].
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15749	((ParserFlags linkSharedArgs) ~= self linkSharedArgs value) ifTrue:[^ true].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15750	(ParserFlags libPath ~= self stcLibraryPath value) ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15751
7071 72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15752	searchedLibs := ParserFlags searchedLibraries.
72b45ddec569 * empty log message * Claus Gittinger <cg@exept.de> parents: 7007 diff changeset	15753	searchedLibs notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15754	(String fromStringCollection:searchedLibs separatedBy:' ') ~= self stcLibraries value ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15755	].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	15756	^ false.
6866 ec908ed4b944 make command fm parents: 6860 diff changeset	15757
ec908ed4b944 make command fm parents: 6860 diff changeset	15758	"Modified: / 09-08-2006 / 18:50:36 / fm"
10711 20dc922ed54a x Claus Gittinger <cg@exept.de> parents: 10707 diff changeset	15759	"Modified: / 16-09-2011 / 18:42:00 / cg"
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15760	! !
bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	15761
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15762	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15763
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15764	exampleText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15765
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15766	^ 'methodSelector:methodArg
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15767	"method comment:
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15768	some stupid code to show the current settings"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15769
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15770	\|index\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15771
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15772	"/ another comment ...
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	15773	self at:index+1. "/ a message
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15774	self at:index put:methodArg. "/ a two arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15775	self from:1 to:index put:methodArg. "/ a three arg message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15776	methodArg ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15777	Transcript showCR:''hello''. "/ condition
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15778	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15779	methodArg ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15780	Transcript showCR:''hello''. "/ condition
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15781	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15782	Transcript showCR:''world''.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15783	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15784	[methodArg] whileTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15785	Transcript showCR:''hello''. "/ looping
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15786	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15787	[self aVeryLongConditionBlock and:[self toMakeBlockLonger]] whileTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15788	Transcript showCR:''hello''. "/ long blocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15789	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15790	methodArg do:[:element \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15791	Transcript showCR:''hello''. "/ looping
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15792	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15793	1 to:methodArg size do:[:index \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15794	Transcript showCR:''hello''. "/ looping
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15795	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15796	methodArg keysAndValuesDo:[:index \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15797	Transcript showCR:''hello''. "/ looping
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15798	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15799	Object errorSignal handle:[:ex \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15800	ex return
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15801	] do:[ "/ exception handling
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15802	self someAction "/ blocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15803	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15804	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15805	'.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15806	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15807
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15808	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'image specs'!
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15809
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15810	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15811	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15812	by the ImageEditor of ST/X."
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15813
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15814	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15815	the ImageEditor may not be able to read the specification."
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15816
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15817	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15818	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	15819	ImageEditor openOnClass:self andSelector:#defaultIcon
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15820	Icon flushCachedIcons
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15821	"
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15822
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15823	<resource: #image>
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15824
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15825	^Icon
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15826	constantNamed:'AbstractSettingsApplication::SourceCodeFormatSettingsAppl defaultIcon'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15827	ifAbsentPut:[(Depth4Image new) width:22; height:22; bits:(ByteArray fromPackedString:'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	15828	@@@@@@@@@@@@@@@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	15829	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	15830	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	15831	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15832
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15833	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15834
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	15835	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15836	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15837	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15838
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15839	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15840	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15841
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15842	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15843	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeFormatSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15844	AbstractSettingsApplication::SourceCodeFormatSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15845	AbstractSettingsApplication::SourceCodeFormatSettingsAppl open
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	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	15849
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15850	^
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	15851	#(FullSpec
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	15852	name: windowSpec
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15853	window:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	15854	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15855	label: 'Code Format Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15856	name: 'Code Format Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15857	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15858	bounds: (Rectangle 0 0 613 685)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	15859	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15860	component:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	15861	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15862	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15863	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15864	name: 'VerticalPanel3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15865	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	15866	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15867	verticalLayout: topSpaceFit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15868	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15869	verticalSpace: 3
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15870	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15871	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15872	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15873	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15874	name: 'VerticalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15875	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15876	verticalLayout: bottom
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15877	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15878	verticalSpace: 3
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15879	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15880	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15881	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15882	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15883	name: 'Box1'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15884	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15885	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15886	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15887	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15888	label: 'Space around Temporaries'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15889	name: 'CheckBox3'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15890	layout: (LayoutFrame 0 0 0 0 270 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15891	model: spaceAroundTemporaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15892	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15893	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15894	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15895	label: 'Blank line after local Var Declaration'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15896	name: 'CheckBox4'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15897	layout: (LayoutFrame 270 0 0 0 0 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15898	model: emptyLineAfterTemporaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15899	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15900	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15901	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15902
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15903	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15904	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15905	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15906	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15907	name: 'Box11'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15908	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15909	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15910	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15911	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15912	label: 'Space after ''^'''
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15913	name: 'CheckBox5'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15914	layout: (LayoutFrame 0 0 0 0 270 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15915	model: spaceAfterReturnToken
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15916	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15917	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15918	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15919	label: 'Space after '':'' in Keywords'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15920	name: 'CheckBox6'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15921	layout: (LayoutFrame 270 0 0 0 -5 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15922	model: spaceAfterKeywordSelector
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15923	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15924	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15925	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15926
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15927	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15928	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15929	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15930	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15931	name: 'Box15'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15932	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15933	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15934	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15935	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15936	label: 'Space after ''['''
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15937	name: 'CheckBox9'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15938	layout: (LayoutFrame 0 0 0 0 270 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15939	model: spaceAfterBlockStart
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15940	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15941	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15942	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15943	label: 'Space before '']'''
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15944	name: 'CheckBox10'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15945	layout: (LayoutFrame 270 0 0 0 -5 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15946	model: spaceBeforeBlockEnd
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15947	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15948	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15949	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15950
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15951	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15952	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15953	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15954	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15955	name: 'Box12'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15956	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15957	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15958	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15959	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15960	label: 'C-Style Blocks'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15961	name: 'CheckBox8'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15962	layout: (LayoutFrame 0 0 0 0 270 0 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15963	model: cStyleBlocks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15964	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15965	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15966	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15967	label: 'Block Args on new Line'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15968	name: 'CheckBox7'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15969	layout: (LayoutFrame 270 0 0 0 -5 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15970	model: blockArgumentsOnNewLine
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15971	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15972	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15973	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15974
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15975	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15976	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15977	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15978	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15979	name: 'Box13'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	15980	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15981	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15982	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15983	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15984	label: 'Indent:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15985	name: 'Label1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15986	layout: (LayoutFrame 0 0 0 0 327 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15987	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15988	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15989	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15990	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15991	name: 'EntryField1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15992	layout: (LayoutFrame 334 0 0 0 381 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15993	model: tabIndent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15994	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15995	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15996	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15997	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15998	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	15999	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16000	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	16001
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16002	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16003	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16004	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16005	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16006	name: 'Box16'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	16007	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16008	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16009	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16010	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16011	label: 'Max Length for Single Line Blocks:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16012	name: 'Label5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16013	layout: (LayoutFrame 0 0 0 0 327 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16014	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16015	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16016	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16017	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16018	name: 'EntryField4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16019	layout: (LayoutFrame 334 0 0 0 381 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16020	model: maxLengthForSingleLineBlocks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16021	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16022	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16023	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16024	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16025	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16026	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16027	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	16028
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16029	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16030	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16031	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16032	(HorizontalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16033	name: 'HorizontalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16034	horizontalLayout: fitSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16035	verticalLayout: bottom
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16036	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16037	verticalSpace: 3
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	16038	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16039	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16040	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16041	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16042	label: 'Reset to ST/X Default'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16043	name: 'Button1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16044	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16045	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16046	model: resetToStxDefault
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	16047	extent: (Point 300 22)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16048	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16049	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16050	label: 'Reset to RefactoryBrowser Default'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16051	name: 'Button2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16052	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16053	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16054	model: resetToRBDefault
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	16055	extent: (Point 301 22)
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	16056	)
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	16057	)
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	16058
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16059	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16060	extent: (Point 613 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16061	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16062	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	16063
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16064	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16065	extent: (Point 613 180)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16066	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16067	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16068	name: 'SpacingBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16069	extent: (Point 613 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16070	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16071	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16072	name: 'Box14'
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	16073	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16074	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16075	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16076	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16077	label: 'Sample Output:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16078	name: 'Label3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16079	layout: (LayoutFrame 0 0 0 0 0 1 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16080	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16081	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16082	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16083	(TextEditorSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16084	name: 'TextEditor3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16085	layout: (LayoutFrame 0 0 30 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16086	model: editorText
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16087	hasHorizontalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16088	hasVerticalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16089	isReadOnly: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16090	hasKeyboardFocusInitially: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16091	postBuildCallback: postBuildTextEditor:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16092	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16093	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	16094
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16095	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16096	extent: (Point 613 453)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16097	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16098	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	16099
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16100	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16101	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16102	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16103	label: 'Auto Format'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16104	name: 'CheckBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16105	layout: (LayoutFrame 3 0 -30 1 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16106	model: autoFormat
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16107	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16108	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16109	)
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	16110
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	16111	)
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	16112	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16113	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16114
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16115	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16116
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16117	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16118	reformatLocked := true.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16119
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16120	self
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16121	readAspects:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16122	#(
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16123	tabIndent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16124	spaceAroundTemporaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16125	emptyLineAfterTemporaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16126	spaceAfterReturnToken
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16127	spaceAfterKeywordSelector
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16128	spaceAfterBlockStart
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16129	spaceBeforeBlockEnd
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16130	cStyleBlocks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16131	blockArgumentsOnNewLine
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16132	maxLengthForSingleLineBlocks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16133	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16134	from:RBFormatter.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	16135
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16136	self autoFormat value:currentUserPrefs autoFormatting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16137	self updateModifiedChannel.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16138	reformatLocked := false.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16139	self reformat.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16140	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	16141
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16142	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16143
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16144	currentUserPrefs autoFormatting:self autoFormat value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16145	currentUserPrefs at:#'formatter.tabIndent' put:self tabIndent value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16146	currentUserPrefs at:#'formatter.spaceAroundTemporaries' put:self spaceAroundTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16147	currentUserPrefs at:#'formatter.emptyLineAfterTemporaries' put:self emptyLineAfterTemporaries value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16148	currentUserPrefs at:#'formatter.spaceAfterReturnToken' put:self spaceAfterReturnToken value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16149	currentUserPrefs at:#'formatter.spaceAfterKeywordSelector' put:self spaceAfterKeywordSelector value.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16150	currentUserPrefs at:#'formatter.spaceAfterBlockStart' put:self spaceAfterBlockStart value.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16151	currentUserPrefs at:#'formatter.spaceBeforeBlockEnd' put:self spaceBeforeBlockEnd value.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16152	currentUserPrefs at:#'formatter.cStyleBlocks' put:self cStyleBlocks value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16153	currentUserPrefs at:#'formatter.blockArgumentsOnNewLine' put:self blockArgumentsOnNewLine value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16154	currentUserPrefs at:#'formatter.maxLengthForSingleLineBlocks' put:self maxLengthForSingleLineBlocks value.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16155	RBFormatter
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16156	tabIndent:self tabIndent value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16157	spaceAroundTemporaries:self spaceAroundTemporaries value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16158	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16159	spaceAfterReturnToken:self spaceAfterReturnToken value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16160	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16161	spaceAfterBlockStart:self spaceAfterBlockStart value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16162	spaceBeforeBlockEnd:self spaceBeforeBlockEnd value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16163	cStyleBlocks:self cStyleBlocks value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16164	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16165	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value asInteger.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16166	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16167
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16168	reformat
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16169
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16170	\|tree s_tabIndent s_spaceAroundTemporaries s_emptyLineAfterTemporaries
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16171	s_spaceAfterReturnToken s_spaceAfterKeywordSelector s_cStyleBlocks
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16172	s_maxLengthForSingleLineBlocks s_blockArgumentsOnNewLine
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16173	s_spaceAfterBlockStart s_spaceBeforeBlockEnd\|
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16174
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16175	reformatLocked ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16176	"/
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16177	"/ temporary change the RBFormatters settings ...
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16178	"/
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16179	s_tabIndent := RBFormatter tabIndent.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16180	s_spaceAroundTemporaries := RBFormatter spaceAroundTemporaries.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16181	s_emptyLineAfterTemporaries := RBFormatter emptyLineAfterTemporaries.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16182	s_spaceAfterReturnToken := RBFormatter spaceAfterReturnToken.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16183	s_spaceAfterKeywordSelector := RBFormatter spaceAfterKeywordSelector.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16184	s_spaceAfterBlockStart := RBFormatter spaceAfterBlockStart.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16185	s_spaceBeforeBlockEnd := RBFormatter spaceBeforeBlockEnd.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16186	s_cStyleBlocks := RBFormatter cStyleBlocks.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16187	s_blockArgumentsOnNewLine := RBFormatter blockArgumentsOnNewLine.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16188	s_maxLengthForSingleLineBlocks := RBFormatter maxLengthForSingleLineBlocks.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16189
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16190	RBFormatter
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16191	tabIndent:self tabIndent value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16192	spaceAroundTemporaries:self spaceAroundTemporaries value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16193	emptyLineAfterTemporaries:self emptyLineAfterTemporaries value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16194	spaceAfterReturnToken:self spaceAfterReturnToken value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16195	spaceAfterKeywordSelector:self spaceAfterKeywordSelector value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16196	spaceAfterBlockStart:self spaceAfterBlockStart value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16197	spaceBeforeBlockEnd:self spaceBeforeBlockEnd value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16198	cStyleBlocks:self cStyleBlocks value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16199	blockArgumentsOnNewLine:self blockArgumentsOnNewLine value;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16200	maxLengthForSingleLineBlocks:self maxLengthForSingleLineBlocks value.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16201
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16202	"/ tree := RBParser
5076 c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	16203	"/ parseMethod:self class exampleText
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	16204	"/ onError: [:aString :position \| nil].
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	16205	"/ tree do:[:node \|
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	16206	"/ (node ~~ tree and:[node parent isNil]) ifTrue:[
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	16207	"/ self error:'No parent for node'.
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	16208	"/ ]
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	16209	"/ ].
c5d65fffae16 checkin from browser Claus Gittinger <cg@exept.de> parents: 5072 diff changeset	16210	"/ self editorText value:tree printString.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16211	self editorText value:(RBFormatter format:(self class exampleText)).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16212
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16213	RBFormatter
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16214	tabIndent:s_tabIndent;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16215	spaceAroundTemporaries:s_spaceAroundTemporaries;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16216	emptyLineAfterTemporaries:s_emptyLineAfterTemporaries;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16217	spaceAfterReturnToken:s_spaceAfterReturnToken;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16218	spaceAfterKeywordSelector:s_spaceAfterKeywordSelector;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16219	spaceAfterBlockStart:s_spaceAfterBlockStart;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16220	spaceBeforeBlockEnd:s_spaceBeforeBlockEnd;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16221	cStyleBlocks:s_cStyleBlocks;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16222	blockArgumentsOnNewLine:s_blockArgumentsOnNewLine;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16223	maxLengthForSingleLineBlocks:s_maxLengthForSingleLineBlocks.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16224	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16225	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16226
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16227	resetToRBDefault
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16228
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16229	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16230	self tabIndent value: 8.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16231	self spaceAfterReturnToken value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16232	self spaceAfterKeywordSelector value:true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16233	self spaceAroundTemporaries value:true.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16234	self spaceAfterBlockStart value:true.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16235	self spaceBeforeBlockEnd value:true.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16236	self emptyLineAfterTemporaries value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16237	self cStyleBlocks value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16238	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16239	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16240	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16241	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16242	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16243
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16244	resetToStxDefault
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16245
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16246	reformatLocked := true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16247	self tabIndent value: 4.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16248	self spaceAfterReturnToken value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16249	self spaceAfterKeywordSelector value: false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16250	self spaceAroundTemporaries value: false.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16251	self spaceAfterBlockStart value:false.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16252	self spaceBeforeBlockEnd value:false.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16253	self emptyLineAfterTemporaries value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16254	self cStyleBlocks value: true.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16255	self blockArgumentsOnNewLine value:false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16256	self maxLengthForSingleLineBlocks value: 20.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16257	reformatLocked := false.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16258	self reformat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16259	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16260
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16261	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16262
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16263	autoFormat
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16264
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16265	autoFormat isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16266	autoFormat := currentUserPrefs autoFormatting asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16267	autoFormat onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16268	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16269	^ autoFormat.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16270	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16271
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16272	blockArgumentsOnNewLine
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16273
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16274	blockArgumentsOnNewLine isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16275	blockArgumentsOnNewLine := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16276	blockArgumentsOnNewLine addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16277	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16278	^ blockArgumentsOnNewLine.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16279	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16280
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16281	cStyleBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16282
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16283	cStyleBlocks isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16284	cStyleBlocks := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16285	cStyleBlocks addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16286	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16287	^ cStyleBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16288	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16289
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16290	editorText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16291
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16292	editorText isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16293	editorText := ValueHolder new.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16294	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16295	^ editorText.
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
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16298	emptyLineAfterTemporaries
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16299
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16300	emptyLineAfterTemporaries isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16301	emptyLineAfterTemporaries := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16302	emptyLineAfterTemporaries addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16303	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16304	^ emptyLineAfterTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16305	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16306
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16307	maxLengthForSingleLineBlocks
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16308
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16309	maxLengthForSingleLineBlocks isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16310	maxLengthForSingleLineBlocks := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16311	maxLengthForSingleLineBlocks addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16312	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16313	^ maxLengthForSingleLineBlocks.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16314	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16315
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16316	spaceAfterBlockStart
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16317
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16318	spaceAfterBlockStart isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16319	spaceAfterBlockStart := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16320	spaceAfterBlockStart addDependent:self.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16321	].
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16322	^ spaceAfterBlockStart.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16323	!
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16324
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16325	spaceAfterKeywordSelector
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16326
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16327	spaceAfterKeywordSelector isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16328	spaceAfterKeywordSelector := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16329	spaceAfterKeywordSelector addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16330	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16331	^ spaceAfterKeywordSelector.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16332	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16333
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16334	spaceAfterReturnToken
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16335
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16336	spaceAfterReturnToken isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16337	spaceAfterReturnToken := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16338	spaceAfterReturnToken addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16339	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16340	^ spaceAfterReturnToken.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16341	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16342
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16343	spaceAroundTemporaries
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16344
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16345	spaceAroundTemporaries isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16346	spaceAroundTemporaries := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16347	spaceAroundTemporaries addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16348	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16349	^ spaceAroundTemporaries.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16350	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16351
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16352	spaceBeforeBlockEnd
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16353
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16354	spaceBeforeBlockEnd isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16355	spaceBeforeBlockEnd := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16356	spaceBeforeBlockEnd addDependent:self.
5072 9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16357	].
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16358	^ spaceBeforeBlockEnd.
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16359	!
9502dd5cad9b * empty log message * Claus Gittinger <cg@exept.de> parents: 5060 diff changeset	16360
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16361	tabIndent
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16362
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16363	tabIndent isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16364	tabIndent := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16365	tabIndent addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16366	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16367	^ tabIndent.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16368	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16369
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16370	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16371
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16372	update:something with:aParameter from:changedObject
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16373	(changedObject == self blockArgumentsOnNewLine
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16374	or:[ changedObject == self cStyleBlocks
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16375	or:[ changedObject == self emptyLineAfterTemporaries
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16376	or:[ changedObject == self maxLengthForSingleLineBlocks
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16377	or:[ changedObject == self spaceAfterKeywordSelector
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16378	or:[ changedObject == self spaceAfterReturnToken
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16379	or:[ changedObject == self spaceAfterBlockStart
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16380	or:[ changedObject == self spaceBeforeBlockEnd
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16381	or:[ changedObject == self spaceAroundTemporaries
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16382	or:[ changedObject == self tabIndent]]]]]]]]])
8502 b50e19c115d9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8475 diff changeset	16383	ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16384	self updateModifiedChannel.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16385	self reformat.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16386	^ self
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16387	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16388	super
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16389	update:something
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16390	with:aParameter
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16391	from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16392	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16393
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16394	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16395
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16396	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16397	^ 'Launcher/sourceFormatSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16398	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	16399
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16400	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16401
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16402	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	16403	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	16404
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16405	super initialize.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16406	RBFormatter isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16407	^ self warn:'Sorry, no RBFormatter class'
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16408	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16409	RBFormatter isLoaded ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16410	WindowGroup activeGroup withWaitCursorDo:[RBFormatter autoload]
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	16411	].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16412	reformatLocked := false.
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	16413
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	16414	"Modified: / 08-02-2017 / 00:30:17 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16415	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16416
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16417	postBuildTextEditor:aWidget
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16418
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16419	aWidget cursorMovementWhenUpdating:nil;
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16420	scrollWhenUpdating:nil.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16421	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16422
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16423	!AbstractSettingsApplication::SourceCodeFormatSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16424
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16425	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	16426	self autoFormat value ~= currentUserPrefs autoFormatting ? false ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16427
42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16428	(self
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16429	hasChangedAspectIn:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16430	#(
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16431	tabIndent
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16432	spaceAroundTemporaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16433	emptyLineAfterTemporaries
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16434	spaceAfterReturnToken
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16435	spaceAfterKeywordSelector
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16436	spaceAfterBlockStart
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16437	spaceBeforeBlockEnd
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16438	cStyleBlocks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16439	blockArgumentsOnNewLine
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16440	maxLengthForSingleLineBlocks
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16441	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16442	asComparedTo:RBFormatter) ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	16443
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	16444	^ false
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16445	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16446
11325 0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16447	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'documentation'!
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16448
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16449	documentation
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16450	"
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16451	this is the old (now obsolete) settings app, which was used until multiple
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16452	managers were supported (i.e. when only the CVSSourceCodeManager was available).
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16453	It has been split into a generic part (manager-to-module assignment),
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16454	and per-manager subapplications.
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16455	"
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16456	! !
0538cba70e7b comment Claus Gittinger <cg@exept.de> parents: 11293 diff changeset	16457
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16458	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'help specs'!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16459
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16460	helpSpec
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16461	"This resource specification was automatically generated
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16462	by the UIHelpTool of ST/X."
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16463
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16464	"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	16465	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	16466
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16467	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16468	UIHelpTool openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16469	"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16470
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16471	<resource: #help>
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16472
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16473	^ super helpSpec addPairsFrom:#(
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16474
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16475	#addPerPackageManager
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16476	'Add a new per-package manager definition'
9835 b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	16477
10738 9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	16478	#browseSourceCache
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	16479	'Open a file browser on the source cache directory'
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	16480
11005 449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16481	#checkClassesWhenCheckingIn
17453 67a6373fd536 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	16482	'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	16483
449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16484	#checkPerPackageManager
11732 67c6691a705a help texts Claus Gittinger <cg@exept.de> parents: 11711 diff changeset	16485	'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	16486
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16487	#condenseSourceCache
10978 d9418bcfdc4d help specs Claus Gittinger <cg@exept.de> parents: 10951 diff changeset	16488	'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	16489
11005 449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16490	#defaultManagerType
449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16491	'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	16492
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16493	#editPerPackageManager
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16494	'Modify the selected per-package manager definition'
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16495
12872 2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16496	#fillSourceCache
2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	16497	'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	16498
10738 9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	16499	#flushSourceCache
10978 d9418bcfdc4d help specs Claus Gittinger <cg@exept.de> parents: 10951 diff changeset	16500	'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	16501
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16502	#keepMethodSourceInImage
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16503	'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	16504
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16505	#moveManagerDown
11732 67c6691a705a help texts Claus Gittinger <cg@exept.de> parents: 11711 diff changeset	16506	'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	16507
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16508	#moveManagerUp
11732 67c6691a705a help texts Claus Gittinger <cg@exept.de> parents: 11711 diff changeset	16509	'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	16510
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16511	#perPackageConfiguration
11732 67c6691a705a help texts Claus Gittinger <cg@exept.de> parents: 11711 diff changeset	16512	'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	16513
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16514	#removePerPackageManager
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16515	'Remove the selected per-package manager definition'
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16516
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	16517	#sourceCache
10978 d9418bcfdc4d help specs Claus Gittinger <cg@exept.de> parents: 10951 diff changeset	16518	'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	16519
b43a25708762 helps Claus Gittinger <cg@exept.de> parents: 9833 diff changeset	16520	#useLocalSources
13222 e5ff6ff1acb5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13220 diff changeset	16521	'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	16522
11005 449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16523	#useManager
449ebd8c29bd help texts Claus Gittinger <cg@exept.de> parents: 10978 diff changeset	16524	'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	16525
d9418bcfdc4d help specs Claus Gittinger <cg@exept.de> parents: 10951 diff changeset	16526	#verboseSourceCodeAccess
d9418bcfdc4d help specs Claus Gittinger <cg@exept.de> parents: 10951 diff changeset	16527	'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	16528
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16529	)
17453 67a6373fd536 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	16530
67a6373fd536 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	16531	"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	16532	! !
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16533
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16534	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16535
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16536	defaultIcon
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16537	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16538	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16539
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16540	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16541	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16542
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16543	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16544	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16545	ImageEditor openOnClass:self andSelector:#defaultIcon
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16546	Icon flushCachedIcons
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16547	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16548
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16549	<resource: #image>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16550
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16551	^Icon
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	16552	constantNamed:'AbstractSettingsApplication::SourceCodeManagementSettingsAppl defaultIcon'
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	16553	ifAbsentPut:[(Depth8Image width:22 height:22) bits:(ByteArray fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	16554	@@@@@@@@@@@A@PHB@0P@@@@@@@@@@@@@@@@@@@HEA \HA $JB0HD@@@@@@@@@@@@@@HLA04NC0HD@@L@@ P@@@@@@@@@@@@ED@ NDP@@@@@@@@@D@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	16555	@@@BA \FAPP@@@@@@@@@@@P@@@@@@@@@AQ@RC0@@@@@@@@@@@@@@@@@@@@@@@@TGA!!DD@@@@@@@@@@@@@@@@@@@D@PDIA08OA@@@@@@@@@@@@@@@@@@@AP S
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	16556	A0XIBPXGC0P@@@@@@@@@@@@@@@@ECAPLBPXOAP@@@@@@EQX@@@@@@@@@@@TIE@XOAP@@@@@@EQ\XE @@@@@@@@@@AP$OAP@@@@@@FQ\ZE!! V@@@@@@@@@@@E
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	16557	F0@@@@@@EQ\ZF!!(VFAX@@@@@@@@@@@@@@@@ZEQ\VE!!(ZF!!XWF @@@@@@@@@@@@@@@@@@@A\ZE!!(@@@@@@@@@@@@@@@@@@@@@@@@XE!!XZ@@@@@@@@@@@@@@@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	16558	@@@@@@@@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	16559	EQXVE @@@@@@@@@@@@@@@@@@@@@@@A(Z@@@@@@@@@@@@@@@a')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	16560	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	16561	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	16562	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16563
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	16564	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'interface specs'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16565
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	16566	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16567	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16568	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16569
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16570	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16571	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16572
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16573	"
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16574	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16575	AbstractSettingsApplication::SourceCodeManagementSettingsAppl new openInterface:#windowSpec
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	16576	AbstractSettingsApplication::SourceCodeManagementSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16577	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16578
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16579	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16580
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16581	^
13189 895b7f28de37 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13163 diff changeset	16582	#(FullSpec
895b7f28de37 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13163 diff changeset	16583	name: windowSpec
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16584	window:
13189 895b7f28de37 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13163 diff changeset	16585	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16586	label: 'Source Code Manager Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16587	name: 'Source Code Manager Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16588	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16589	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16590	bounds: (Rectangle 0 0 660 639)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	16591	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16592	component:
13189 895b7f28de37 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13163 diff changeset	16593	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16594	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16595	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16596	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16597	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	16598	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16599	verticalLayout: topSpace
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16600	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16601	verticalSpace: 20
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16602	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16603	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16604	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16605	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16606	name: 'VerticalPanel3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16607	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16608	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16609	horizontalSpace: 3
17453 67a6373fd536 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	16610	verticalSpace: 2
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16611	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16612	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16613	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16614	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16615	name: 'Box3'
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16616	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16617	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16618	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16619	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16620	label: 'Sourcecode Management'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16621	name: 'SourcecodeManagementCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16622	layout: (LayoutFrame 5 0 0 0.0 332 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16623	activeHelpKey: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16624	model: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16625	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16626	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16627	(ComboListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16628	name: 'ComboList1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16629	layout: (LayoutFrame -151 1 0 0 -5 1 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16630	activeHelpKey: defaultManagerType
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16631	visibilityChannel: moreThanOneManagerTypesAvailable
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16632	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16633	model: selectedManagerTypeIndexHolder
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16634	comboList: availableManagerTypeNames
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16635	useIndex: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16636	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16637	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16638	label: 'Default Repository Type:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16639	name: 'Label14'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16640	layout: (AlignmentOrigin -154 1 16 0 1 0.5)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16641	activeHelpKey: defaultManagerType
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16642	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16643	resizeForLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16644	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16645	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16646	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16647
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16648	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16649	extent: (Point 660 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16650	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16651	(FramedBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16652	label: 'Per Package Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16653	name: 'PerPackageConfiguration'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16654	activeHelpKey: perPackageConfiguration
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16655	labelPosition: topLeft
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16656	translateLabel: true
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16657	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16658	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16659	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16660	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16661	name: 'RepositoryConfigurations'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16662	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16663	activeHelpKey: perPackageConfiguration
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16664	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16665	verticalLayout: bottomFit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16666	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16667	verticalSpace: 3
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16668	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16669	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16670	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16671	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16672	name: 'RepositoryConfigurationListBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16673	activeHelpKey: perPackageConfiguration
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16674	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16675	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16676	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16677	(DataSetSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16678	name: 'RepositoryConfigurationList'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16679	layout: (LayoutFrame 0 0 0 0 -122 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16680	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16681	model: selectedManagerPerMatchingModuleHolder
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16682	hasHorizontalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16683	hasVerticalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16684	dataList: managerPerMatchingModule
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16685	columnHolder: managerPerMatchingModuleColumns
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16686	beDependentOfRows: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16687	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16688	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16689	name: 'Buttons1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16690	layout: (LayoutFrame -121 1 0 0 0 1 -22 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16691	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16692	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16693	horizontalSpace: 5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16694	verticalSpace: 3
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16695	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16696	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16697	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16698	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16699	label: 'Add...'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16700	name: 'ButtonAdd'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16701	activeHelpKey: addPerPackageManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16702	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16703	model: actionAdd
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16704	extent: (Point 119 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16705	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16706	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16707	label: 'Edit...'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16708	name: 'ButtonEdit'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16709	activeHelpKey: editPerPackageManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16710	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16711	model: actionEdit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16712	enableChannel: canRemoveManagerPerPackageEntry
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16713	extent: (Point 119 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16714	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16715	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16716	label: 'Move Up'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16717	name: 'ButtonModeUp'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16718	activeHelpKey: moveManagerUp
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16719	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16720	model: actionMoveUp
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16721	enableChannel: canMoveUp
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16722	extent: (Point 119 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16723	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16724	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16725	label: 'Move Down'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16726	name: 'ButtonModeDown'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16727	activeHelpKey: moveManagerDown
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16728	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16729	model: actionMoveDown
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16730	enableChannel: canMoveDown
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16731	extent: (Point 119 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16732	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16733	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16734	name: 'SpacingLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16735	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16736	extent: (Point 121 22)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16737	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16738	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16739	label: 'Remove'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16740	name: 'ButtonRemove'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16741	activeHelpKey: removePerPackageManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16742	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16743	model: actionRemove
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16744	enableChannel: canRemoveManagerPerPackageEntry
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16745	extent: (Point 119 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16746	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16747	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16748
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16749	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16750	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16751	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16752	label: 'Test'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16753	name: 'Button2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16754	layout: (LayoutFrame -90 1 -30 1 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16755	activeHelpKey: checkPerPackageManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16756	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16757	model: actionTest
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16758	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16759	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16760
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16761	)
17453 67a6373fd536 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17425 diff changeset	16762	extent: (Point 618 258)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16763	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16764	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16765
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16766	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16767	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16768	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16769
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16770	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16771	extent: (Point 660 300)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16772	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16773	(FramedBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16774	label: 'Source Cache'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16775	name: 'SourceCacheBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16776	activeHelpKey: sourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16777	labelPosition: topLeft
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16778	translateLabel: true
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16779	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16780	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16781	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16782	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16783	name: 'SourceCacheDirBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16784	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	16785	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16786	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16787	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16788	(FilenameInputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16789	name: 'FilenameEntryField1'
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16790	layout: (LayoutFrame 64 0.25 0 0 -2 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16791	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16792	model: sourceCacheDir
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16793	immediateAccept: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16794	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16795	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16796	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16797	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16798	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16799	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16800	label: 'Source Cache Dir:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16801	name: 'SourceCacheDirLabel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16802	layout: (LayoutFrame 0 0.0 0 0 60 0.25 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16803	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16804	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16805	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16806	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16807
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16808	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16809	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16810	(HorizontalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16811	name: 'CacheActionsHorizontalPanel1'
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16812	layout: (LayoutFrame 0 0 37 0 -1 1 67 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16813	horizontalLayout: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16814	verticalLayout: center
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16815	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16816	verticalSpace: 3
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16817	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16818	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16819	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16820	(ActionButtonSpec
16673 72965741529d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16644 diff changeset	16821	label: 'Fill Cache'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16822	name: 'FillCacheInBackgroundButton'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16823	activeHelpKey: fillSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16824	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16825	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16826	model: fillSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16827	enableChannel: useManager
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16828	extent: (Point 150 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16829	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16830	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16831
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16832	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16833	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16834	(HorizontalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16835	name: 'CacheActionsHorizontalPanel2'
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16836	layout: (LayoutFrame 0 0 70 0 -1 1 100 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16837	horizontalLayout: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16838	verticalLayout: center
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16839	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16840	verticalSpace: 3
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16841	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16842	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16843	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16844	(ActionButtonSpec
16673 72965741529d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16644 diff changeset	16845	label: 'Browse'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16846	name: 'Button3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16847	activeHelpKey: browseSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16848	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16849	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16850	model: browseSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16851	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16852	extent: (Point 171 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16853	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16854	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16855	name: 'Box5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16856	extent: (Point 20 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16857	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16858	(ActionButtonSpec
16673 72965741529d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16644 diff changeset	16859	label: 'Flush'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16860	name: 'Button4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16861	activeHelpKey: flushSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16862	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16863	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16864	model: flushSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16865	enableChannel: useManager
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16866	extent: (Point 150 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16867	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16868	(ActionButtonSpec
16673 72965741529d #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16644 diff changeset	16869	label: 'Condense'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16870	name: 'Button5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16871	activeHelpKey: condenseSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16872	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16873	tabable: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16874	model: condenseSourceCache
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16875	enableChannel: useManager
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16876	extent: (Point 150 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16877	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16878	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16879
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16880	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16881	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16882	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16883
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16884	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16885	extent: (Point 660 136)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16886	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16887	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16888	name: 'UseLocalSourceBox'
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16889	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16890	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16891	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16892	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16893	label: 'If Present, Use Local Source (Suppress Checkout)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16894	name: 'CheckBox4'
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16895	layout: (LayoutFrame 30 0 1 0 -5 1 29 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16896	activeHelpKey: useLocalSources
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16897	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16898	model: localSourceFirst
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16899	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16900	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16901	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16902
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16903	)
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16904	extent: (Point 660 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16905	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16906	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16907	name: 'KeepMethodSourceBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16908	activeHelpKey: keepMethodSourceInImage
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16909	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16910	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16911	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16912	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16913	label: 'Keep Method Source (In Image)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16914	name: 'CheckBox7'
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16915	layout: (LayoutFrame 30 0 1 0 -5 1 29 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16916	activeHelpKey: keepMethodSourceInImage
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16917	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16918	model: keepMethodSource
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16919	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16920	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16921	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16922
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16923	)
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16924	extent: (Point 660 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16925	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16926	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16927	name: 'CheckForHaltSendsBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16928	activeHelpKey: checkClassesWhenCheckingIn
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16929	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16930	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16931	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16932	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16933	label: 'Check for halt/error-Sends when Checking in'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16934	name: 'CheckBox5'
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16935	layout: (LayoutFrame 30 0 1 0 -5 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16936	activeHelpKey: checkClassesWhenCheckingIn
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16937	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16938	model: checkClassesWhenCheckingIn
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16939	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16940	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16941	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16942
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16943	)
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16944	extent: (Point 660 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16945	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16946	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16947	name: 'VerboseBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16948	activeHelpKey: verboseSourceCodeAccess
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16949	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16950	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16951	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16952	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16953	label: 'Verbose (Trace Operations on Transcript)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16954	name: 'CheckBox6'
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16955	layout: (LayoutFrame 30 0 1 0 -5 1 30 0)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16956	activeHelpKey: verboseSourceCodeAccess
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16957	enableChannel: useManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16958	model: verboseSourceCodeAccess
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16959	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16960	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16961	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16962
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16963	)
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	16964	extent: (Point 660 32)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16965	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16966	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16967
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16968	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16969	extent: (Point 660 768)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16970	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16971	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16972
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16973	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16974	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16975	)
16682 c338771ee657 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16673 diff changeset	16976
13189 895b7f28de37 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13163 diff changeset	16977	)
895b7f28de37 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13163 diff changeset	16978	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16979	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	16980
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16981	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl class methodsFor:'tableColumns specs'!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16982
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16983	managerPerMatchingModuleColumns
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16984	"This resource specification was automatically generated
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16985	by the DataSetBuilder of ST/X."
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16986
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16987	"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	16988	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	16989
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16990	"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16991	DataSetBuilder new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl andSelector:#managerPerMatchingModuleColumns
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16992	"
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16993
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16994	<resource: #tableColumns>
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16995
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16996	^#(
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	16997	(DataSetColumnSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16998	label: 'Module (PackageID Match)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	16999	labelButtonType: Button
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17000	width: 0.5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17001	model: displayStringForPackage
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17002	menuFromApplication: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17003	writeSelector: package:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17004	canSelect: false
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17005	)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17006	(DataSetColumnSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17007	label: 'Repository Type'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17008	labelButtonType: Button
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17009	width: 0.5
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17010	model: displayStringForManagerTypeName
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17011	menuFromApplication: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17012	writeSelector: manager:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17013	canSelect: false
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17014	)
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17015	)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17016
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17017	! !
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17018
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	17019	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'accessing'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17020
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17021	manager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17022
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17023	^ Smalltalk at:#SourceCodeManager
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17024	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17025
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	17026	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'actions'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17027
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17028	actionAdd
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17029	\|dlg package mgr oldEntry idx\|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17030
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17031	dlg := PerModuleManagerSettingDialog new.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17032	dlg open ifFalse:[ ^ self ].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17033	package := dlg package.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17034	mgr := dlg manager.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17035	oldEntry := managerPerMatchingModule
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17036	detect:[:entry \| entry package = package and:[ entry manager = mgr ] ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17037	ifNone:nil.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17038	oldEntry notNil
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17039	ifTrue:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17040	[ oldEntry manager:mgr.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17041	managerPerMatchingModule changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17042	idx := managerPerMatchingModule indexOf:oldEntry. ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17043	ifFalse:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17044	[ managerPerMatchingModule
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17045	add:(AbstractSourceCodeManager::PackageAndManager package:package manager:mgr).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17046	idx := managerPerMatchingModule size. ].
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17047	selectedManagerPerMatchingModuleHolder value:idx.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17048
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17049	"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	17050	"Modified: / 18-04-2011 / 21:24:52 / cg"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17051	"Modified: / 09-07-2011 / 14:07:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17052	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17053
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17054	actionEdit
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17055	<resource: #uiCallback>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17056
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17057	\| entry dlg \|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17058	entry := managerPerMatchingModule at: selectedManagerPerMatchingModuleHolder value.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	17059	dlg := PerModuleManagerSettingDialog new.
10301 1ec2ef0050ca Fix vrany parents: 10299 diff changeset	17060	dlg package: entry package.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17061	dlg manager: entry manager.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17062	dlg open ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17063	entry package: dlg package.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17064	entry manager: dlg manager.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17065	entry changed.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17066	self updateModifiedChannel.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17067	]
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17068
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	17069	"Modified: / 29-03-2012 / 11:53:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17070	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17071
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17072	actionMoveDown
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17073	<resource: #uiCallback>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17074
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17075	\| idx \|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17076	idx := selectedManagerPerMatchingModuleHolder value.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17077	idx == managerPerMatchingModule size ifTrue:[^self].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17078	managerPerMatchingModule swap: idx with: idx + 1.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17079	selectedManagerPerMatchingModuleHolder value: idx + 1
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17080
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17081	"Modified: / 09-07-2011 / 13:23:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17082	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17083
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17084	actionMoveUp
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17085	<resource: #uiCallback>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17086
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17087	\| idx \|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17088	idx := selectedManagerPerMatchingModuleHolder value.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17089	idx == 1 ifTrue:[^self].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17090	managerPerMatchingModule swap: idx - 1 with: idx.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17091	selectedManagerPerMatchingModuleHolder value: idx - 1
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17092
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17093	"Modified: / 09-07-2011 / 13:23:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17094	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17095
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17096	actionRemove
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17097	\|idx\|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17098
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17099	idx := self selectedManagerPerMatchingModuleHolder value.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17100	managerPerMatchingModule removeIndex:idx.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17101	managerPerMatchingModule size >= idx
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17102	ifTrue:[ selectedManagerPerMatchingModuleHolder value:idx. ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17103	ifFalse:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17104	[ managerPerMatchingModule size >= (idx - 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17105	ifTrue:[ selectedManagerPerMatchingModuleHolder value:idx - 1. ]. ].
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17106
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17107	"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	17108	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17109
10796 2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	17110	actionTest
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	17111	<resource: #uiCallback>
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	17112
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	17113	Tools::SourceCodeManagerConfigurationTestTool open
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	17114
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	17115	"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	17116	!
2754d9b07b70 Added test button to SCM settings application vrany parents: 10792 diff changeset	17117
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17118	addModule:module withData:data
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17119	(self listOfModules includes:module) ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17120	self listOfModules add:module; sort.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17121	].
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17122	rootsPerModule at:module put:data.
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17123
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17124	self updateModifiedChannel.
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17125
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17126	"Created: / 08-11-2006 / 19:25:21 / cg"
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17127	!
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17128
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	17129	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	17130	self initialize.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17131
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	17132	self verboseSourceCodeAccess value:(AbstractSourceCodeManager verboseSourceCodeAccess).
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17133	self keepMethodSource value:(currentUserPrefs keepMethodSourceCode).
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17134
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	17135	self hasManager ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17136	self useManager value:(manager := Smalltalk at:#SourceCodeManager) notNil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17137	self localSourceFirst value:Class tryLocalSourceFirst.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17138	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17139
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17140	manager notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17141	manager forgetDisabledModules.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17142	].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	17143	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17144	self useManager value:false.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17145	self localSourceFirst value:false.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	17146	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17147
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17148	self managerPerMatchingModule removeAll.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17149	AbstractSourceCodeManager managerPerMatchingModuleDefinitions do:[:each \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17150	self managerPerMatchingModule add: each copy
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17151	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17152
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17153	self availableManagers do:[:eachManager \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17154	\|infoPerModule\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17155
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17156	infoPerModule := eachManager repositoryInfoPerModule.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17157	infoPerModule keysAndValuesDo:[:module :info \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17158	rootsPerModule at:module put:(Array with:eachManager with:info).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17159	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17160	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17161
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17162	self updateSelectedManager.
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17163
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17164	self checkClassesWhenCheckingIn value:(currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true).
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17165
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	17166	rootsPerModule notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17167	self listOfModules removeAll.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17168	listOfModules addAll:rootsPerModule keys asList.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	17169	].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17170	"/ self selectedPerModuleRootChanged.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17171
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17172	"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	17173	"Modified (format): / 27-07-2012 / 12:36:19 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	17174	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	17175
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17176	basicSaveSettings
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17177	\|modules\|
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17178
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	17179	AbstractSourceCodeManager verboseSourceCodeAccess:(self verboseSourceCodeAccess value).
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17180	currentUserPrefs at:#checkClassesWhenCheckingIn put:self checkClassesWhenCheckingIn value.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17181	Class tryLocalSourceFirst:self localSourceFirst value.
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17182	currentUserPrefs keepMethodSourceCode:(self keepMethodSource value).
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	17183
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	17184	(self hasManager and:[self useManager value]) ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17185	manager ~~ self selectedManager ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17186	manager := nil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17187	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17188
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17189	manager isNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17190	manager := self selectedManager.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17191	manager isNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17192	manager := self availableManagers first.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17193	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17194	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17195	Smalltalk at:#SourceCodeManager put:manager.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17196
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17197	manager notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17198	\| nm fn\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17199
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17200	nm := self sourceCacheDir value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17201	nm notEmptyOrNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17202	(fn := nm asFilename) exists ifFalse:[
19041 7e56f18cb39e #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 18957 diff changeset	17203	(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	17204	fn recursiveMakeDirectory;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17205	makeReadableForAll;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17206	makeWritableForAll;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17207	makeExecutableForAll.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17208	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17209	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17210	(fn isWritableDirectory and:[fn isReadable]) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17211	AbstractSourceCodeManager cacheDirectoryName:nm.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17212	] ifFalse:[
19041 7e56f18cb39e #REFACTORING by exept Claus Gittinger <cg@exept.de> parents: 18957 diff changeset	17213	self warn:'Invalid sourceCache directory (not a read/writable directory).'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17214	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17215	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17216	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17217
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17218	AbstractSourceCodeManager
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17219	managerPerMatchingModuleDefinitions:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17220	managerPerMatchingModule asOrderedCollection.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17221
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17222	self availableManagers do:[:eachManager \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17223	\|infoPerModule\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17224
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17225	modules := rootsPerModule select:[:entry \| entry first == eachManager].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17226	infoPerModule := Dictionary new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17227	modules keysAndValuesDo:[:module :entry \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17228	entry first == eachManager ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17229	infoPerModule at:module put:(entry second).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17230	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17231	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17232	eachManager repositoryInfoPerModule:infoPerModule.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17233	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17234
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17235	self sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17236
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17237	DebugView newDebugger. "/ ???
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	17238	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17239	Smalltalk at:#SourceCodeManager put:nil
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	17240	].
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	17241
7494 6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	17242	self acceptChannel value.
6f26553bcc80 * empty log message * Claus Gittinger <cg@exept.de> parents: 7493 diff changeset	17243
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17244	"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	17245	"Modified: / 27-07-2012 / 12:36:44 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	17246	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	17247
10811 2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	17248	browseSourceCache
2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	17249	<resource: #uiCallback>
2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	17250
16387 f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	17251	\|cacheDir\|
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	17252
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	17253	cacheDir := self sourceCacheDir value.
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	17254	cacheDir isNil ifTrue:[
16629 940c80b32393 #OTHER by mawalch mawalch parents: 16625 diff changeset	17255	AbstractSourceCodeManager cachingSources ifTrue:[
16387 f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	17256	AbstractSourceCodeManager initCacheDirPath.
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	17257	cacheDir := self sourceCacheDir value.
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	17258	cacheDir isNil ifTrue:[
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	17259	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	17260	^ self.
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	17261	].
16629 940c80b32393 #OTHER by mawalch mawalch parents: 16625 diff changeset	17262	] ifFalse:[
940c80b32393 #OTHER by mawalch mawalch parents: 16625 diff changeset	17263	(Dialog confirm:'No cache directory defined. Setup now?') ifTrue:[
940c80b32393 #OTHER by mawalch mawalch parents: 16625 diff changeset	17264	AbstractSourceCodeManager cachingSources:true.
940c80b32393 #OTHER by mawalch mawalch parents: 16625 diff changeset	17265	self browseSourceCache
940c80b32393 #OTHER by mawalch mawalch parents: 16625 diff changeset	17266	].
16387 f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	17267	].
f34948f0f43f #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 16383 diff changeset	17268	].
17653 091a927c9578 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17644 diff changeset	17269	FileBrowser default openOn:cacheDir
091a927c9578 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17644 diff changeset	17270
10811 2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	17271	"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	17272	"Modified: / 01-09-2017 / 14:03:40 / cg"
10811 2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	17273	!
2da3db63023c added action for "Browse cache" button vrany parents: 10796 diff changeset	17274
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17275	condenseSourceCache
7549 68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	17276	self withWaitCursorDo:[ AbstractSourceCodeManager condenseSourceCache ].
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	17277	Method flushSourceStreamCache.
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	17278
68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	17279	"Modified: / 28-11-2006 / 12:21:33 / cg"
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17280	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17281
12872 2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	17282	fillSourceCache
2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	17283	\|p\|
2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	17284
2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	17285	FillCacheProcess notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17286	FillCacheProcess terminate
12872 2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	17287	].
2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	17288	FillCacheProcess := p :=
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17289	[
17536 37d42dd27be8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 17532 diff changeset	17290	Transcript showCR:'Fill cache background process started...'.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17291	[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17292	Smalltalk allClasses do:[:eachClass \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17293	eachClass source
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17294	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17295	] ensure:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17296	(FillCacheProcess == p) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17297	FillCacheProcess := nil
17536 37d42dd27be8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 17532 diff changeset	17298	].
37d42dd27be8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 17532 diff changeset	17299	Transcript showCR:'Fill cache background process finished.'.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17300	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17301	] forkAt:(Processor systemBackgroundPriority)
17536 37d42dd27be8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 17532 diff changeset	17302
37d42dd27be8 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 17532 diff changeset	17303	"Modified: / 19-06-2017 / 17:26:29 / cg"
12872 2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	17304	!
2f2d2bb58976 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12792 diff changeset	17305
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17306	flushSourceCache
7549 68f5d6ce4a90 * empty log message * Claus Gittinger <cg@exept.de> parents: 7548 diff changeset	17307	self withWaitCursorDo:[ AbstractSourceCodeManager flushSourceCache ].
10738 9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	17308
9b524eb36600 flush Claus Gittinger <cg@exept.de> parents: 10711 diff changeset	17309	"Modified: / 30-09-2011 / 13:34:01 / cg"
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17310	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17311
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17312	removePerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17313
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17314	\|module\|
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17315
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17316	acceptChannel value:true.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17317	module := self perModuleRootModule value.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	17318	self listOfModules remove:module ifAbsent:nil.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17319	rootsPerModule removeKey:module ifAbsent:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17320	self perModuleRootModule value:nil.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17321	self perModuleRoot value:nil.
5174 bfd29db1a419 source code management per module get apply for changes Michael Beyl <mb@exept.de> parents: 5172 diff changeset	17322	self updateModifiedChannel.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17323	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17324
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17325	setupSourceCodeManager
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17326
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17327	AbstractLauncherApplication::LauncherDialogs cvsConfigurationDialog.
18722 be7f278206d9 #DOCUMENTATION by stefan Stefan Vogel <sv@exept.de> parents: 18720 diff changeset	17328	manager := Smalltalk at:#SourceCodeManager.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17329	manager notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17330	repositoryHolder value: manager repositoryName.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17331	sourceCacheDir value:(AbstractSourceCodeManager cacheDirectoryName).
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17332	].
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17333
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17334	"Modified: / 16-08-2006 / 11:07:51 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	17335	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	17336
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	17337	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'aspects'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17338
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17339	acceptChannel
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17340
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17341	acceptChannel isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17342	acceptChannel := TriggerValue new.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17343	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17344	^ acceptChannel.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17345	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17346
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17347	availableManagerTypeNames
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17348	^ self availableManagers collect:[:cls \| cls managerTypeName].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17349
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17350	"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	17351	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17352
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17353	availableManagers
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17354	availableManagers isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17355	availableManagers := AbstractSourceCodeManager availableManagers copy.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17356	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	17357	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17358	^ availableManagers.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17359
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17360	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17361	self basicNew availableManagers
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17362	"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17363
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17364	"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	17365	"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	17366	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17367
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17368	canMoveDown
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17369	^ BlockValue
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17370	with:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17371	[:sel \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17372	sel notNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17373	and:[sel ~~ 0
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17374	and:[sel ~~ managerPerMatchingModule size]]]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17375	argument:(self selectedManagerPerMatchingModuleHolder)
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17376
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17377	"Created: / 18-04-2011 / 20:52:48 / cg"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17378	"Created: / 09-07-2011 / 14:18:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17379	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17380
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17381	canMoveUp
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17382	^ BlockValue
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17383	with:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17384	[:sel \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17385	sel notNil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17386	and:[sel > 1]]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17387	argument:(self selectedManagerPerMatchingModuleHolder)
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17388
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17389	"Created: / 18-04-2011 / 20:52:48 / cg"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17390	"Created: / 09-07-2011 / 14:18:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17391	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17392
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17393	canRemoveManagerPerPackageEntry
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17394	^ BlockValue
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17395	with:[:sel :use \| sel notNil and:[sel ~~ 0 and:[use]] ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17396	argument:(self selectedManagerPerMatchingModuleHolder)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17397	argument:(self useManager)
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17398
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17399	"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	17400	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17401
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17402	checkClassesWhenCheckingIn
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17403
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17404	checkClassesWhenCheckingIn isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17405	checkClassesWhenCheckingIn := (currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17406	checkClassesWhenCheckingIn onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17407	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17408	^ checkClassesWhenCheckingIn.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17409	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17410
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17411	keepMethodSource
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17412
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17413	keepMethodSource isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17414	keepMethodSource := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17415	keepMethodSource onChangeSend:#updateModifiedChannel to:self
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17416	].
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17417	^ keepMethodSource.
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17418	!
8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17419
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17420	listOfModules
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17421
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17422	listOfModules isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17423	rootsPerModule notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17424	listOfModules := rootsPerModule keys asList.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17425	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17426	listOfModules sort.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17427	listOfModules onChangeSend:#updateModifiedChannel to:self
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17428	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17429	^ listOfModules.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17430	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17431
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17432	localSourceFirst
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17433
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17434	localSourceFirst isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17435	localSourceFirst := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17436	localSourceFirst onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17437	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17438	^ localSourceFirst.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17439	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17440
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17441	managerIsCVSSourceCodeManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17442	managerIsCVSSourceCodeManager isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17443	managerIsCVSSourceCodeManager := (SourceCodeManager notNil and:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17444	[SourceCodeManager isCVS]) asValue.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17445	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17446	^ managerIsCVSSourceCodeManager.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17447
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17448	"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	17449	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17450
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17451	managerIsSmallTeamSourceCodeManager
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17452	managerIsSmallTeamSourceCodeManager isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17453	managerIsSmallTeamSourceCodeManager := (SourceCodeManager notNil and:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17454	[SourceCodeManager isSmallTeam]) asValue.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17455	].
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17456	^ managerIsSmallTeamSourceCodeManager.
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17457
5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17458	"Created: / 09-11-2006 / 14:33:53 / cg"
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17459	!
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17460
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17461	managerIsStoreSourceCodeManager
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17462	managerIsStoreSourceCodeManager isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17463	managerIsStoreSourceCodeManager := (SourceCodeManager notNil and:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17464	[SourceCodeManager isStore]) asValue.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17465	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17466	^ managerIsStoreSourceCodeManager.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17467
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17468	"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	17469	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17470
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17471	managerPerMatchingModule
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17472	managerPerMatchingModule isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17473	managerPerMatchingModule := List new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17474	managerPerMatchingModule onChangeSend:#updateModifiedChannel to:self
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17475	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17476	^ managerPerMatchingModule.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17477
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17478	"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	17479	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17480
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17481	managerTypeIndexToAddHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17482	managerTypeIndexToAddHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17483	managerTypeIndexToAddHolder := ValueHolder new.
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17484	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17485	^ managerTypeIndexToAddHolder.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17486
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17487	"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	17488	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17489
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17490	managerTypeToAddHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17491	managerTypeToAddHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17492	managerTypeToAddHolder := ValueHolder new.
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17493	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17494	^ managerTypeToAddHolder.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17495
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17496	"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	17497	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17498
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17499	moreThanOneManagerTypesAvailable
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17500	^ self availableManagers size > 1
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17501
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17502	"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	17503	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17504
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17505	packageToAddHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17506	packageToAddHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17507	packageToAddHolder := ValueHolder new.
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17508	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17509	^ packageToAddHolder.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17510
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17511	"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	17512	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17513
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17514	perModuleFieldsEnableHolder
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17515
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17516	perModuleFieldsEnableHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17517	perModuleFieldsEnableHolder := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17518	perModuleFieldsEnableHolder addDependent:self.
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17519	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17520	^ perModuleFieldsEnableHolder.
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17521	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17522
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17523	perModuleRoot
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	17524	perModuleRoot isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17525	perModuleRoot := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17526	perModuleRoot addDependent:self.
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	17527	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17528	^ perModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17529	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17530
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17531	perModuleRootModule
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	17532	perModuleRootModule isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17533	perModuleRootModule := ValueHolder new.
5332 d02586ccaa63 value holder for roots per module penk parents: 5318 diff changeset	17534	].
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17535	^ perModuleRootModule.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17536	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17537
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17538	removeEnabled
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17539
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17540	removeEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17541	removeEnabled := false asValue.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17542	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17543	^ removeEnabled.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17544	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17545
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17546	selectedManager
13580 5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17547	\|idx availableManagers\|
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17548
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17549	availableManagers := self availableManagers.
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17550	availableManagers size == 1 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17551	^ availableManagers anElement
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	17552	].
3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	17553
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17554	idx := self selectedManagerTypeIndexHolder value.
6997 3b32b9cdef10 care for single avail. manager Claus Gittinger <cg@exept.de> parents: 6994 diff changeset	17555	(idx == 0 or:[idx isNil]) ifTrue:[ ^ nil].
13580 5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17556	^ availableManagers at:idx
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17557
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17558	"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	17559	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17560
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17561	selectedManagerPerMatchingModuleHolder
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17562	selectedManagerPerMatchingModuleHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17563	selectedManagerPerMatchingModuleHolder := nil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17564	selectedManagerPerMatchingModuleHolder addDependent:self.
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17565	].
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17566	^ selectedManagerPerMatchingModuleHolder.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17567
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17568	"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	17569	!
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17570
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17571	selectedManagerTypeIndexHolder
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17572	\|selectedManager\|
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17573
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17574	selectedManagerTypeIndexHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17575	selectedManagerTypeIndexHolder := nil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17576	selectedManagerTypeIndexHolder onChangeEvaluate:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17577	selectedManager := self selectedManager.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17578	self managerIsCVSSourceCodeManager value:( selectedManager notNil and:[ selectedManager isCVS] ).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17579	self managerIsStoreSourceCodeManager value:( selectedManager notNil and:[ selectedManager isStore] ).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17580	self managerIsSmallTeamSourceCodeManager value:( selectedManager notNil and:[ selectedManager isSmallTeam] ).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17581	self updateModifiedChannel
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17582	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17583
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17584	self updateSelectedManager.
6897 4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17585	].
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17586	^ selectedManagerTypeIndexHolder.
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17587
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17588	"Created: / 16-08-2006 / 11:17:20 / cg"
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17589	"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	17590	!
4b8d96845325 preps for multiple repository-types (store-db) Claus Gittinger <cg@exept.de> parents: 6868 diff changeset	17591
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17592	selectedPerModuleRoot
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17593	selectedPerModuleRoot isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17594	selectedPerModuleRoot := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17595	selectedPerModuleRoot addDependent:self.
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17596	].
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17597	^ selectedPerModuleRoot.
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17598	!
8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17599
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17600	sourceCacheDir
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	17601	sourceCacheDir isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17602	sourceCacheDir := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17603	sourceCacheDir onChangeSend:#updateModifiedChannel to:self
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	17604	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17605	^ sourceCacheDir.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17606	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17607
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17608	useManager
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	17609	useManager isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17610	useManager := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17611	useManager onChangeSend:#updateModifiedChannel to:self
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	17612	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17613	^ useManager.
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	17614	!
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	17615
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	17616	verboseSourceCodeAccess
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	17617	verboseSourceCodeAccess isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17618	verboseSourceCodeAccess := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17619	verboseSourceCodeAccess onChangeSend:#updateModifiedChannel to:self
8110 6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	17620	].
6e02f22bccb9 * empty log message * Claus Gittinger <cg@exept.de> parents: 8081 diff changeset	17621	^ verboseSourceCodeAccess.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17622	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17623
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	17624	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'change & update'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17625
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17626	selectedPerModuleRootChanged
16584 6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17627	\|module entry firstEntry
18925 15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17628	newRemoveEnabled newPerModuleRootModule newPerModuleRoot\|
16584 6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17629
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17630	self acceptChannel value:true.
18925 15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17631
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17632	newRemoveEnabled := false.
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17633	newPerModuleRootModule := ' '.
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17634	newPerModuleRoot := ''.
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17635
4405 8b9a9ee966bf * empty log message * penk parents: 4398 diff changeset	17636	module := self selectedPerModuleRoot value.
18925 15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17637	module notNil ifTrue:[
16584 6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17638	entry := rootsPerModule at:module ifAbsent:#().
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17639	firstEntry := entry first.
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17640	(firstEntry = CVSSourceCodeManager) ifTrue:[
18925 15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17641	newRemoveEnabled := true.
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17642	newPerModuleRootModule := module.
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17643	newPerModuleRoot := (entry at:2).
16584 6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17644	] ifFalse:[
18925 15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17645	newPerModuleRootModule := module, ' ',('<< use ',firstEntry managerTypeName,' >>') allBold.
16584 6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17646	].
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17647	].
6c4ffefdafa1 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16556 diff changeset	17648
18925 15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17649	self removeEnabled value:newRemoveEnabled.
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17650	self perModuleRootModule value:newPerModuleRootModule.
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17651	self perModuleRoot value:newPerModuleRoot.
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17652
15a338cfc8f9 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18841 diff changeset	17653	"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	17654	!
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17655
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17656	sourceDirChanged
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17657	\|nm fn previousDir\|
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17658
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17659	manager isNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17660
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17661	previousDir := AbstractSourceCodeManager cacheDirectoryName.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17662
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17663	nm := self sourceCacheDir value.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17664	nm isEmptyOrNil ifTrue:[^ self].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17665
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17666	(fn := nm asFilename) exists ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17667	(self confirm:(resources
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17668	stringWithCRs:'SourceCache directory "%1" does not exist.\Create ?'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17669	with:nm)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17670	) ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17671	self sourceCacheDir value:previousDir.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17672	^ self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17673	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17674	fn
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17675	recursiveMakeDirectory;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17676	makeReadableForAll;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17677	makeWritableForAll;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17678	makeExecutableForAll.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17679	^ self.
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17680	].
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17681
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17682	(fn isDirectory) ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17683	self warn:(resources
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17684	stringWithCRs:'Not a directory: "%1"'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17685	with:nm).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17686	self sourceCacheDir value:previousDir.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17687	^ self.
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17688	].
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17689
13243 6184dc32e5cb Use #isWritableDirectory Stefan Vogel <sv@exept.de> parents: 13224 diff changeset	17690	(fn isWritableDirectory and:[fn isReadable]) ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17691	(self confirm:(resources
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17692	stringWithCRs:'SourceCache directory "%1" is not both readable and writable.\Change ?'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17693	with:nm)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17694	) ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17695	self sourceCacheDir value:previousDir.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17696	^ self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17697	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17698	fn
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17699	makeReadableForAll;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17700	makeWritableForAll;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17701	makeExecutableForAll.
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17702	].
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17703	"/ (fn isReadableForAll and:[fn isWritableForAll]) ifFalse:[
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17704	"/ (self confirm:(resources
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17705	"/ 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	17706	"/ with:nm)
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17707	"/ ) ifTrue:[
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17708	"/ fn
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17709	"/ makeReadableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17710	"/ makeWritableForAll;
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17711	"/ makeExecutableForAll.
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17712	"/ ]
94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17713	"/ ].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17714	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17715
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17716	update:something with:aParameter from:changedObject
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17717	\|idx entry\|
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17718
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17719	changedObject == sourceCacheDir ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17720	self sourceDirChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17721	self updateModifiedChannel.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17722	^ self
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17723	].
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17724
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17725	changedObject == selectedManagerPerMatchingModuleHolder ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17726	idx := changedObject value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17727	(idx notNil and:[idx ~~ 0]) ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17728	entry := self managerPerMatchingModule at:idx.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17729	self packageToAddHolder value:(entry package).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17730	self managerTypeToAddHolder value:(entry managerTypeName).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17731	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17732	^ self.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17733	].
dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17734
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17735	super update:something with:aParameter from:changedObject
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17736
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17737	"Modified: / 18-04-2011 / 21:23:08 / cg"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17738	"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	17739	!
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17740
bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17741	updateSelectedManager
13580 5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17742	\|selectedManagerTypeIndex availableManagers\|
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17743
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17744	availableManagers := self availableManagers.
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17745
5726ca967c94 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13548 diff changeset	17746	selectedManagerTypeIndex := availableManagers indexOf:SourceCodeManager.
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17747	selectedManagerTypeIndex == 0 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17748	availableManagers size == 1 ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17749	selectedManagerTypeIndex := 1.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17750	].
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17751	].
7178 1f33a61499e6 * empty log message * ca parents: 7175 diff changeset	17752	self selectedManagerTypeIndexHolder value:selectedManagerTypeIndex.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17753	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17754
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	17755	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	17756
14252 0a96c65c7c90 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14242 diff changeset	17757	editorHelpRelativeWikiURL
0a96c65c7c90 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14242 diff changeset	17758	"the relative URL of the dialog-description in the Wiki"
0a96c65c7c90 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14242 diff changeset	17759
0a96c65c7c90 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14242 diff changeset	17760	^ 'Settings_SourceCodeManagerSettings'
0a96c65c7c90 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14242 diff changeset	17761	!
0a96c65c7c90 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14242 diff changeset	17762
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	17763	helpFilename
10125 8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	17764	^ 'Launcher/sourceRepositorySetup.html'
8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	17765
8c08ad056878 language strings Claus Gittinger <cg@exept.de> parents: 10124 diff changeset	17766	"Modified: / 04-07-2011 / 17:22:39 / cg"
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	17767	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	17768
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	17769	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'initialization & release'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17770
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17771	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	17772	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	17773
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17774	(AbstractSourceCodeManager notNil) ifTrue:[ AbstractSourceCodeManager autoload ].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17775
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17776	managerTypePerModule := Dictionary new.
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17777
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17778	useManager := false asValue.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	17779	useManager onChangeSend:#updateModifiedChannel to:self.
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17780
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17781	sourceCacheDir := nil asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17782	sourceCacheDir addDependent:self.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17783
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17784	repositoryHolder := '' asValue.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17785	rootsPerModule := Dictionary new.
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17786
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17787	self availableManagers do:[:eachManager \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17788	eachManager repositoryInfoPerModule
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17789	keysAndValuesDo:[:module :info \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17790	module withoutSeparators ~= module ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17791	self halt:'should not happen any longer'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17792	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17793	rootsPerModule at:module put:(Array with:eachManager with:info)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17794	].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17795	].
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17796
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	17797	super initialize.
7490 dc6114d2ae5b preps for shareServer Claus Gittinger <cg@exept.de> parents: 7485 diff changeset	17798
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	17799	"Modified: / 08-02-2017 / 00:30:14 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17800	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17801
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	17802	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl methodsFor:'queries'!
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17803
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17804	cvsRootFromCVSRootFileOrNil
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17805	\|cvsDir cvsRootFile cvsRoot\|
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17806
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17807	cvsDir := 'CVS' asFilename.
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17808	cvsDir isDirectory ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17809	cvsRootFile := cvsDir construct:'Root'.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17810	cvsRootFile isReadable ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17811	cvsRoot := cvsRootFile contents firstIfEmpty:nil.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17812	].
5318 02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17813	].
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17814	^ cvsRoot
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17815	!
02eada09b745 isDirectory implies exists. Claus Gittinger <cg@exept.de> parents: 5291 diff changeset	17816
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17817	hasManager
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17818	"true if ANY source code management class is available"
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17819
8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17820	^ AbstractSourceCodeManager notNil and:[AbstractSourceCodeManager isLoaded]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17821	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	17822
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	17823	hasUnsavedChanges
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	17824	(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	17825	(Smalltalk at:#SourceCodeManager) ~~ self selectedManager ifTrue:[^ true].
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	17826	(self hasManager and:[self useManager value]) ifFalse:[^ false].
5286 ab068226973e has unsaved changes penk parents: 5283 diff changeset	17827
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17828	(Class tryLocalSourceFirst ~= self localSourceFirst value) ifTrue:[^ true].
9057 94c1b8977ab3 source cache settings fixed Claus Gittinger <cg@exept.de> parents: 9041 diff changeset	17829	((self selectedManager cacheDirectoryName ? '') ~= (self sourceCacheDir value ? '')) ifTrue:[^ true].
6994 8e86dc209edd support multiple managers (per module) Claus Gittinger <cg@exept.de> parents: 6939 diff changeset	17830
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17831	((currentUserPrefs at:#checkClassesWhenCheckingIn ifAbsent:true) ~= self checkClassesWhenCheckingIn value)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17832	ifTrue:[^ true].
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17833
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17834	((currentUserPrefs keepMethodSourceCode) ~= self keepMethodSource value)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17835	ifTrue:[^ true].
9322 8d90a3c27969 * empty log message * Claus Gittinger <cg@exept.de> parents: 9279 diff changeset	17836
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17837	((AbstractSourceCodeManager managerPerMatchingModuleDefinitions)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17838	~= (self managerPerMatchingModule asOrderedCollection)) ifTrue:[^ true].
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	17839
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	17840	(AbstractSourceCodeManager verboseSourceCodeAccess
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17841	~= self verboseSourceCodeAccess value) ifTrue:[^ true].
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	17842
7493 5228ee30b54a * empty log message * Claus Gittinger <cg@exept.de> parents: 7492 diff changeset	17843	self availableManagers do:[:mgr \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17844	\|modules\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17845
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17846	modules := rootsPerModule select:[:entry \| entry first == mgr].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17847
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17848	mgr repositoryInfoPerModule keysAndValuesDo:[:module :info \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17849	((modules includesKey:module) and:[info = (modules at:module) second])
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17850	ifFalse:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17851	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17852	modules keysAndValuesDo:[:module :info\|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17853	((mgr repositoryInfoPerModule includesKey:module) and:[(mgr repositoryInfoPerModule at:module) = info second])
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17854	ifFalse:[^ true].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	17855	].
7173 bd31e17910b1 +build settings Claus Gittinger <cg@exept.de> parents: 7099 diff changeset	17856	].
4805 a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17857
a25bdf89086d cleanup Claus Gittinger <cg@exept.de> parents: 4779 diff changeset	17858	^ false
7331 b8986149fdfd use CVSExecutable instead of CVSBindir Claus Gittinger <cg@exept.de> parents: 7326 diff changeset	17859
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17860	"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	17861	"Modified: / 27-07-2012 / 12:35:40 / cg"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17862	! !
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17863
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17864	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog class methodsFor:'help specs'!
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17865
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	17866	helpSpec
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17867	"This resource specification was automatically generated
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17868	by the UIHelpTool of ST/X."
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17869
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17870	"Do not manually edit this!! If it is corrupted,
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17871	the UIHelpTool may not be able to read the specification."
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17872
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17873	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	17874	UIHelpTool openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17875	"
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17876
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17877	<resource: #help>
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17878
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	17879	^ super helpSpec addPairsFrom:#(
10944 b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17880
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17881	#manager
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17882	'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	17883
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17884	#packageMatchPattern
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17885	'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	17886
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17887	)
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17888
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17889	"Created: / 01-12-2011 / 19:52:19 / cg"
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17890	! !
b87f1b504617 x Claus Gittinger <cg@exept.de> parents: 10904 diff changeset	17891
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17892	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog class methodsFor:'interface specs'!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17893
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17894	windowSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17895	"This resource specification was automatically generated
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17896	by the UIPainter of ST/X."
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17897
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17898	"Do not manually edit this!! If it is corrupted,
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17899	the UIPainter may not be able to read the specification."
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17900
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17901	"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17902	UIPainter new openOnClass:AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog andSelector:#windowSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17903	AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog new openInterface:#windowSpec
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17904	AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog open
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17905	"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17906
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17907	<resource: #canvas>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	17908
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17909	^
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17910	#(FullSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17911	name: windowSpec
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17912	uuid: '60fff4f4-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17913	window:
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17914	(WindowSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17915	label: 'Per Module Source Code Manager'
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17916	name: 'Per Module Source Code Manager'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17917	uuid: '60fff846-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17918	min: (Point 10 10)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17919	bounds: (Rectangle 0 0 581 98)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17920	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17921	component:
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17922	(SpecCollection
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17923	collection: (
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17924	(ViewSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17925	name: 'Content'
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17926	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	17927	uuid: '60fffab2-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17928	component:
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17929	(SpecCollection
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17930	collection: (
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17931	(LabelSpec
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17932	label: 'Package ID (Matchpattern):'
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17933	name: 'Label15'
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17934	layout: (LayoutFrame 2 0 9 0 250 0 31 0)
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17935	activeHelpKey: packageMatchPattern
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17936	uuid: '60fffc10-d9d9-11e7-a8cd-c42c033b4871'
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17937	translateLabel: true
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17938	adjust: left
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17939	)
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17940	(ComboBoxSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17941	name: 'ComboBox1'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17942	layout: (LayoutFrame 250 0 9 0 -2 1 31 0)
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17943	activeHelpKey: packageMatchPattern
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17944	uuid: '60fffdb4-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17945	enableChannel: useManager
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17946	model: packageHolder
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17947	comboList: samplePackageList
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17948	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17949	(LabelSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17950	label: 'Manager:'
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17951	name: 'Label16'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17952	layout: (LayoutFrame 2 0 37 0 250 0 59 0)
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17953	activeHelpKey: manager
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17954	uuid: '61000048-d9d9-11e7-a8cd-c42c033b4871'
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17955	translateLabel: true
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17956	adjust: left
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17957	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17958	(ComboListSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17959	name: 'ComboList2'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17960	layout: (LayoutFrame 250 0 39 0 -2 1 61 0)
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17961	activeHelpKey: manager
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17962	uuid: '61000188-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17963	model: managerNameHolder
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17964	comboList: availableManagerTypeNames
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17965	useIndex: false
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17966	hidePullDownMenuButton: true
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17967	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17968	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17969
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17970	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17971	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17972	(HorizontalPanelViewSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17973	name: 'Buttons'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17974	layout: (LayoutFrame 0 0 -30 1 -16 1 0 1)
51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17975	uuid: '61000336-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17976	horizontalLayout: fit
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17977	verticalLayout: center
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17978	horizontalSpace: 3
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17979	verticalSpace: 3
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17980	reverseOrderIfOKAtLeft: true
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17981	component:
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17982	(SpecCollection
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17983	collection: (
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17984	(ActionButtonSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17985	label: 'Cancel'
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17986	name: 'Button2'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17987	uuid: '610004e4-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17988	translateLabel: true
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17989	model: doCancel
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17990	extent: (Point 279 28)
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17991	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17992	(ActionButtonSpec
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17993	label: 'OK'
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17994	name: 'Button1'
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17995	uuid: '610006c4-d9d9-11e7-a8cd-c42c033b4871'
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17996	translateLabel: true
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17997	model: doAccept
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	17998	enableChannel: doAcceptEnabled
17842 51877843555f #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17792 diff changeset	17999	extent: (Point 280 28)
14954 75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	18000	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	18001	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	18002
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	18003	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	18004	keepSpaceForOSXResizeHandleH: true
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	18005	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	18006	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	18007
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	18008	)
75e430536342 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14918 diff changeset	18009	)
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18010	! !
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18011
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18012	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog methodsFor:'accessing'!
9833 0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	18013
0ef5a7088355 refactored and changed to allow pluggable managers Claus Gittinger <cg@exept.de> parents: 9814 diff changeset	18014	manager
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18015
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18016	\| m mn\|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18017	mn := self managerNameHolder value.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18018	m := self availableManagers detect:[:mgr \| mgr managerTypeName = mn] ifNone:nil.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18019	^m
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18020
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18021	"Created: / 09-07-2011 / 13:07:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18022	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18023
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18024	manager: aSourceCodeManager
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18025
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18026	self managerNameHolder value: aSourceCodeManager managerTypeName
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18027
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18028	"Created: / 09-07-2011 / 13:02:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18029	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18030
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18031	package
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18032
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18033	^self packageHolder value
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18034
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18035	"Created: / 09-07-2011 / 13:06:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18036	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18037
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18038	package: aString
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18039
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18040	self packageHolder value: aString
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18041
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18042	"Created: / 09-07-2011 / 13:02:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18043	! !
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18044
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18045	!AbstractSettingsApplication::SourceCodeManagementSettingsAppl::PerModuleManagerSettingDialog methodsFor:'aspects'!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18046
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18047	availableManagerTypeNames
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18048	^ self availableManagers collect:[:cls \| cls managerTypeName].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18049
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18050	"Created: / 16-08-2006 / 11:16:25 / cg"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18051	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18052
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18053	availableManagers
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18054	availableManagers isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18055	availableManagers := AbstractSourceCodeManager availableManagers copy.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18056	availableManagers := availableManagers sort:[:a :b \| a managerTypeName asLowercase < b managerTypeName asLowercase].
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18057	].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18058	^ availableManagers.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18059
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18060	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18061	self basicNew availableManagers
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18062	"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18063
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18064	"Created: / 16-08-2006 / 11:01:10 / cg"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18065	"Modified: / 18-04-2011 / 19:05:47 / cg"
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18066	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18067
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18068	doAcceptEnabled
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18069	<resource: #uiAspect>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18070
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18071	\|holder\|
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18072
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18073	(holder := builder bindingAt:#doAcceptEnabled) isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18074	holder := BlockValue
18763 6a3d3a6ac24e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18744 diff changeset	18075	with:[:package :manager\|
6a3d3a6ac24e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18744 diff changeset	18076	package notEmptyOrNil and:[manager notNil]]
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18077	argument: self packageHolder
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18078	argument: self managerHolder.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18079
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18080	builder aspectAt:#doAcceptEnabled put:holder.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18081	].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18082	^ holder.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18083
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18084	"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	18085	"Modified: / 17-05-2019 / 15:30:00 / Stefan Vogel"
6a3d3a6ac24e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18744 diff changeset	18086	"Modified (format): / 17-05-2019 / 16:49:27 / Stefan Vogel"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18087	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18088
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18089	managerHolder
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18090	<resource: #uiAspect>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18091
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18092	managerNameHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18093	managerNameHolder := ValueHolder new.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18094	].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18095	^ managerNameHolder.
10951 a160d08cac9a comment/format in: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 10944 diff changeset	18096
a160d08cac9a comment/format in: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 10944 diff changeset	18097	"Modified (comment): / 03-12-2011 / 11:30:58 / cg"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18098	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18099
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18100	managerNameHolder
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18101	<resource: #uiAspect>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18102
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18103	managerNameHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18104	managerNameHolder := ValueHolder new.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18105	].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18106	^ managerNameHolder.
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18107
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18108	"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	18109	"Modified (comment): / 03-12-2011 / 11:30:45 / cg"
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18110	!
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18111
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18112	packageHolder
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18113	<resource: #uiAspect>
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18114
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18115	packageHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18116	packageHolder := ValueHolder new.
10299 898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18117	].
898291b1f38f SourceCodeManager settings refactored vrany parents: 10295 diff changeset	18118	^ packageHolder.
10951 a160d08cac9a comment/format in: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 10944 diff changeset	18119
a160d08cac9a comment/format in: #readAspects:from: Claus Gittinger <cg@exept.de> parents: 10944 diff changeset	18120	"Modified (comment): / 03-12-2011 / 11:30:51 / cg"
11415 36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	18121	!
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	18122
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	18123	samplePackageList
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	18124	<resource: #uiAspect>
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	18125
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	18126	\|modules\|
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	18127
16210 58264c7da774 #REFACTORING Claus Gittinger <cg@exept.de> parents: 16200 diff changeset	18128	modules := Smalltalk allPackageIDs
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18129	collect:[:packageId \| packageId asPackageId module ]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18130	as:Set.
11415 36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	18131
11420 7b46a38ae2c6 Fix in #sampleProjectList (__NoProject__ may not be present) vrany parents: 11415 diff changeset	18132	modules remove:(PackageId noProjectID) ifAbsent:[].
11415 36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	18133	modules := modules collect:[:packageId \| packageId , ':*' ].
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	18134	^ modules asSortedCollection
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	18135
36a9efd23cf6 modulelist Claus Gittinger <cg@exept.de> parents: 11395 diff changeset	18136	"Created: / 12-03-2012 / 11:35:40 / cg"
11420 7b46a38ae2c6 Fix in #sampleProjectList (__NoProject__ may not be present) vrany parents: 11415 diff changeset	18137	"Modified: / 13-03-2012 / 13:12:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18138	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18139
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18140	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'defaults'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18141
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18142	standardStyles
15885 db029287dbf3 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15876 diff changeset	18143	"only those are presented initially"
db029287dbf3 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15876 diff changeset	18144
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18145	^ #(
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18146	'adwaita'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18147	"/ 'decWindows'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18148	'iris'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18149	'macosx'
15885 db029287dbf3 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15876 diff changeset	18150	'macosx_yosemite'
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18151	'motif'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18152	'mswindows8'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18153	'mswindows95'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18154	'mswindowsXP'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18155	'mswindowsxp'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18156	'mswindowsVista'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18157	'mswindowsvista'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18158	'napkin'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18159	"/ 'next'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18160	"/ 'normal'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18161	"/ 'os2'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18162	'sgmotif'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18163	"/ 'st80'
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18164	)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18165	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18166
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	18167	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	18168
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18169	closePreviewButtonImage
18285 a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	18170	<resource: #programImage>
a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	18171	^ ToolbarIconLibrary removeTabIcon
a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	18172
a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	18173	"Modified: / 28-07-2018 / 09:59:43 / Claus Gittinger"
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18174	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18175
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18176	defaultIcon
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	18177	"This resource specification was automatically generated
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	18178	by the ImageEditor of ST/X."
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	18179
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	18180	"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	18181	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	18182
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	18183	"
15083 f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	18184	self defaultIcon inspect
f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	18185	ImageEditor openOnClass:self andSelector:#defaultIcon
9136 ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	18186	Icon flushCachedIcons
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	18187	"
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	18188
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	18189	<resource: #image>
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	18190
ec32a440bac4 window settings splitted; lower window settings added Claus Gittinger <cg@exept.de> parents: 9071 diff changeset	18191	^Icon
15083 f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	18192	constantNamed:'AbstractSettingsApplication::StyleSettingsAppl defaultIcon'
f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	18193	ifAbsentPut:[(Depth8Image new) width:22; height:22; bits:(ByteArray fromPackedString:'
f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	18194	@@@@@@@@@@@@@@DA@@@@@@@@@@@@@@@@@@@@@@@@@@DB@ D@@@@@@@@@@@@@@@@@@@@@@@DB@ HB@P@@@@@@@@@@@@@@@@@@@@DCA@HB@ DA@@@@@@@@@@@@
f23a825e7132 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15057 diff changeset	18195	@@@@@@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	18196	@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	18197	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	18198	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	18199	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	18200	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	18201
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18202	!AbstractSettingsApplication::StyleSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18203
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18204	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18205	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18206	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18207
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18208	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18209	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18210
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18211	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	18212	UIPainter new openOnClass:AbstractSettingsApplication::StyleSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	18213	AbstractSettingsApplication::StyleSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	18214	AbstractSettingsApplication::StyleSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18215	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18216
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18217	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18218
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18219	^
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	18220	#(FullSpec
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	18221	name: windowSpec
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18222	window:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	18223	(WindowSpec
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18224	label: 'ViewStyle Selection'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18225	name: 'ViewStyle Selection'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18226	min: (Point 10 10)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18227	bounds: (Rectangle 0 0 562 661)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18228	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18229	component:
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	18230	(SpecCollection
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18231	collection: (
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18232	(VariableVerticalPanelSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18233	name: 'VariableVerticalPanel1'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18234	layout: (LayoutFrame 0 0.0 0 0 0 1.0 -65 1)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18235	component:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18236	(SpecCollection
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18237	collection: (
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18238	(ViewSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18239	name: 'Box1'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18240	component:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18241	(SpecCollection
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18242	collection: (
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18243	(TextEditorSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18244	name: 'TextEditor1'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18245	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	18246	style: (FontDescription arial medium roman 9)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18247	model: noticeLabelHolder
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18248	hasHorizontalScrollBar: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18249	hasVerticalScrollBar: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18250	isReadOnly: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18251	hasKeyboardFocusInitially: false
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18252	postBuildCallback: postBuildHelpLabel:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18253	viewClassName: 'TextView'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18254	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18255	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18256
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18257	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18258	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18259	(ViewSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18260	name: 'Box2'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18261	component:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18262	(SpecCollection
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18263	collection: (
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18264	(VerticalPanelViewSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18265	name: 'VerticalPanel1'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18266	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	18267	horizontalLayout: fit
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18268	verticalLayout: topFit
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18269	horizontalSpace: 3
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18270	verticalSpace: 3
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18271	component:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18272	(SpecCollection
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18273	collection: (
16925 782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18274	(ViewSpec
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18275	name: 'Box4'
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18276	component:
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18277	(SpecCollection
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18278	collection: (
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18279	(CheckBoxSpec
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18280	label: 'standard styles only'
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18281	name: 'CheckBox1'
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18282	layout: (LayoutFrame 0 0 0 0 -150 1 0 1)
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18283	model: showStandardStylesOnly
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18284	translateLabel: true
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18285	)
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18286	(CheckBoxSpec
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18287	label: 'Preview'
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18288	name: 'CheckBox2'
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18289	layout: (AlignmentOrigin 0 1 17 0 1 0.5)
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18290	model: previewVisibleHolder
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18291	translateLabel: true
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18292	)
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18293	)
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18294
782bbb325250 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16924 diff changeset	18295	)
14918 66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18296	extent: (Point 562 35)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18297	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18298	(SequenceViewSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18299	name: 'StyleList'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18300	model: selectedStyle
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18301	hasHorizontalScrollBar: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18302	hasVerticalScrollBar: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18303	doubleClickSelector: doubleClickAt:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18304	useIndex: false
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18305	sequenceList: styleList
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18306	extent: (Point 562 334)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18307	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18308	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18309
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18310	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18311	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18312	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18313
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18314	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18315	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18316	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18317
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18318	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18319	handles: (Any 0.37 1.0)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18320	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18321	(ViewSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18322	name: 'Box3'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18323	layout: (LayoutFrame 0 0 -65 1 0 1 0 1)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18324	component:
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18325	(SpecCollection
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18326	collection: (
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18327	(LabelSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18328	label: 'Label'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18329	name: 'Label1'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18330	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	18331	translateLabel: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18332	labelChannel: infoLabelHolder
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18333	resizeForLabel: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18334	adjust: left
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18335	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18336	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18337
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18338	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18339	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18340	(LabelSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18341	label: 'Preview'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18342	name: 'PreviewLabel'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18343	layout: (LayoutFrame 29 0 39 0 129 0 61 0)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18344	level: 0
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18345	borderWidth: 1
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18346	visibilityChannel: previewVisibleHolder
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18347	backgroundColor: (Color 87.0 87.0 87.0)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18348	translateLabel: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18349	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18350	(NonScrollableArbitraryComponentSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18351	name: 'Preview'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18352	layout: (LayoutFrame 27 0 63 0 444 0 240 0)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18353	level: 1
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18354	visibilityChannel: previewVisibleHolder
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18355	hasBorder: false
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18356	component: ImageView
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18357	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18358	(ActionButtonSpec
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18359	label: 'closePreviewButtonImage'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18360	name: 'ClosePreviewButton'
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18361	layout: (LayoutFrame 423 0 41 0 443 0 63 0)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18362	visibilityChannel: previewVisibleHolder
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18363	hasCharacterOrientedLabel: false
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18364	translateLabel: true
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18365	model: closePreview
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18366	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18367	)
66372d36cbdc class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14895 diff changeset	18368
14320 d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	18369	)
d559509527ed class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14307 diff changeset	18370	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18371	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18372
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18373	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18374
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18375	basicReadSettings
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18376	"nothing done here"
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18377	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18378
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18379	basicSaveSettings
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	18380	\|newStyle\|
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18381
17104 616d379392a9 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17073 diff changeset	18382	newStyle := self selectedStyle value asSymbol.
4705 16cfb945d591 * empty log message * penk parents: 4675 diff changeset	18383
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18384	self withWaitCursorDo:[
15899 ea88da97ae6c #BUGFIX Claus Gittinger <cg@exept.de> parents: 15888 diff changeset	18385	Transcript showCR:'Change style to ' , newStyle , ' ...'.
17104 616d379392a9 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17073 diff changeset	18386	View defaultStyle:newStyle.
616d379392a9 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17073 diff changeset	18387	currentUserPrefs viewStyle:newStyle.
15899 ea88da97ae6c #BUGFIX Claus Gittinger <cg@exept.de> parents: 15888 diff changeset	18388	currentUserPrefs fontPreferencesChanged. "/ force into class defaults
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18389	].
6029 40b96dc2621d * empty log message * ca parents: 6025 diff changeset	18390	self reopenToolsAfterChangedViewStyleSetting.
17104 616d379392a9 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17073 diff changeset	18391
616d379392a9 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17073 diff changeset	18392	"Modified: / 24-11-2016 / 18:02:04 / cg"
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18393	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18394
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18395	closePreview
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18396	self previewVisibleHolder value:false.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18397	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18398
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18399	doubleClickAt:aLine
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18400
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18401	self saveSettings.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18402	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18403
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18404	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18405
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18406	infoLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18407
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18408	infoLabelHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18409	infoLabelHolder := '' asValue.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18410	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18411	^ infoLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18412	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18413
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18414	noticeLabelHolder
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18415
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18416	noticeLabelHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18417	noticeLabelHolder := '' asValue.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18418	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18419	^ noticeLabelHolder.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18420	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18421
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18422	previewVisibleHolder
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18423
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18424	previewVisibleHolder isNil ifTrue:[
16924 b1a7600d559b #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16923 diff changeset	18425	previewVisibleHolder := false asValue.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18426	previewVisibleHolder onChangeSend:#changeInfoLabel to:self.
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18427	].
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18428	^ previewVisibleHolder.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18429	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18430
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18431	selectedStyle
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18432
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18433	selectedStyle isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18434	selectedStyle := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18435	selectedStyle addDependent:self.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18436	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18437	^ selectedStyle.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18438	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18439
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18440	showStandardStylesOnly
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18441
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18442	showStandardStylesOnly isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18443	showStandardStylesOnly := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18444	showStandardStylesOnly addDependent:self.
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18445	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18446	^ showStandardStylesOnly.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18447	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18448
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18449	styleList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18450
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18451	styleList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18452	styleList := List new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18453	styleList addDependent:self.
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18454	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	18455	^ styleList.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18456	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18457
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18458	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'change & update'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18459
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18460	changeInfoLabel
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18461	\|nm sheet comment previewFile previewImage imgView labelView\|
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18462
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18463	comment := ''.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18464	nm := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18465	nm notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18466	sheet := ViewStyle fromFile:(nm , '.style').
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18467	comment := (sheet at:#comment ifAbsent:'') withoutSeparators.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18468	previewFile := sheet at:#previewFileName ifAbsent:nil.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18469	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18470	comment := comment withCRs asStringCollection.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18471	comment size == 1 ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18472	comment := comment first
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18473	].
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18474	self infoLabelHolder value:comment.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18475
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18476	self previewVisibleHolder value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18477	self builder notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18478	labelView := self componentAt:#PreviewLabel.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18479	imgView := (self componentAt:#Preview).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18480
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18481	previewFile notEmptyOrNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18482	previewImage := Image fromFile:'../../doc/online/pictures' asFilename / previewFile.
16923 20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18483	].
20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18484	previewImage notNil ifTrue:[
20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18485	labelView label:'Preview'.
20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18486	imgView adjust:#fitBig; image:previewImage.
20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18487	] ifFalse:[
20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18488	labelView label:'Sorry - no preview available'.
20656147dcba #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16902 diff changeset	18489	imgView image:nil.
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18490	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18491	labelView forceResizeHorizontally.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18492	]
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18493	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18494	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18495
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18496	update:something with:aParameter from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18497	changedObject == self showStandardStylesOnly ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18498	self updateList.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18499	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18500	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18501	changedObject == self selectedStyle ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18502	self changeInfoLabel.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18503	self updateModifiedChannel.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18504	^ self
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18505	].
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18506	super
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18507	update:something
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18508	with:aParameter
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18509	from:changedObject
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18510	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18511
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18512	updateList
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18513
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18514	\|listOfStyles lastSelection\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18515
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18516	lastSelection := self selectedStyle value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18517	listOfStyles := styleDirectoryContents select:[:aFileName \| aFileName asFilename hasSuffix:'style'].
7485 041323d3ca7b use nameWithoutSuffix Claus Gittinger <cg@exept.de> parents: 7440 diff changeset	18518	listOfStyles := listOfStyles collect:[:aFileName \| aFileName asFilename nameWithoutSuffix].
13912 75ca3cc82521 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13902 diff changeset	18519	"/ Filename isCaseSensitive ifFalse:[
75ca3cc82521 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13902 diff changeset	18520	"/ listOfStyles := listOfStyles collect:[:aStyleName \| aStyleName asLowercase].
75ca3cc82521 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13902 diff changeset	18521	"/ ].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18522	listOfStyles remove:'generic' ifAbsent:nil; remove:'mswindows3' ifAbsent:nil.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18523	self showStandardStylesOnly value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18524	listOfStyles := listOfStyles select:[:aStyleName \| self class standardStyles includes:aStyleName asLowercase].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18525	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18526
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18527	listOfStyles sort.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18528	self styleList contents:listOfStyles.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18529	self selectedStyle value:lastSelection.
7485 041323d3ca7b use nameWithoutSuffix Claus Gittinger <cg@exept.de> parents: 7440 diff changeset	18530
13912 75ca3cc82521 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13902 diff changeset	18531	"Modified: / 06-02-2014 / 14:58:34 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18532	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18533
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18534	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18535
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18536	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18537	^ 'Launcher/styleSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18538	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	18539
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18540	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'initialization & release'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18541
9163 431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18542	commonPostBuild
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18543	super commonPostBuild.
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18544	self changeInfoLabel
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18545	!
431dba763647 * empty log message * Claus Gittinger <cg@exept.de> parents: 9148 diff changeset	18546
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18547	initialize
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18548
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18549	\|someRsrcFile resourceDir\|
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18550
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	18551	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	18552
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18553	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18554
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18555	someRsrcFile := Smalltalk getSystemFileName:('resources' asFilename constructString:'normal.style').
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18556	someRsrcFile isNil ifTrue:[
16090 3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18557	someRsrcFile := Smalltalk getResourceFileName:'normal.style' forPackage:'stx:libview'.
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18558	someRsrcFile isNil ifTrue:[
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18559	someRsrcFile := Smalltalk getResourceFileName:'styles/normal.style' forPackage:'stx:libview'.
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18560	].
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18561	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18562	someRsrcFile notNil ifTrue:[
16090 3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18563	resourceDir := someRsrcFile asFilename directoryName
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18564	] ifFalse:[
16090 3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18565	resourceDir := Smalltalk getSystemFileName:'resources'.
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18566	resourceDir isNil ifTrue:[
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18567	self warn:'no styles found (missing ''resources'' directory)'.
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18568	^ self
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18569	].
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	18570	].
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	18571
6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	18572	[
16090 3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18573	styleDirectoryContents := resourceDir asFilename directoryContents.
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	18574	] on:FileStream openErrorSignal do:[:ex\|
16090 3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18575	self warn:'no styles found (unaccessible ''resources'' directory)'.
3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18576	^ self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18577	].
4635 6e9480e52468 Handle openErrorSignal in preparition for change openErrorSignal Stefan Vogel <sv@exept.de> parents: 4598 diff changeset	18578
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18579	self updateList.
6086 1d3d8652e87d * empty log message * Claus Gittinger <cg@exept.de> parents: 6081 diff changeset	18580	(self class standardStyles includes:View defaultStyle asLowercase) ifFalse:[
16090 3300770a1ebe #DOCUMENTATION mawalch parents: 15956 diff changeset	18581	self showStandardStylesOnly value:false
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18582	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18583	self selectedStyle value:(View defaultStyle).
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18584	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	18585
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	18586	"Modified: / 08-02-2017 / 00:29:59 / cg"
5378 4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	18587	!
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	18588
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	18589	postBuildHelpLabel:aWidget
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	18590	aWidget level:0.
4054d8298e68 windowspec for view style penk parents: 5362 diff changeset	18591	aWidget scrolledView backgroundColor:self window viewBackground.
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18592	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18593
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18594	!AbstractSettingsApplication::StyleSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18595
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18596	hasUnsavedChanges
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18597
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18598	^ (self selectedStyle value ~= View defaultStyle)
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18599	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	18600
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18601	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'defaults'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18602
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18603	emphasisList
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18604	^ self emphasisMappingList collect:#first
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18605	!
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18606
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18607	emphasisMappingList
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18608	"self emphasisMappingList"
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18609
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18610	^ {
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18611	#( #'normal' #normal ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18612	#( #'underline' #underline) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18613	{ 'red underline' . { #underline . (#underlineColor->Color red) } } .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18614	#( #'underwave' #underwave) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18615	{ 'red underwave' . { #underwave . (#underlineColor->Color red) } } .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18616	#( #'bold' #bold ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18617	#( 'bold + underline' #(bold underline) ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18618	{ 'bold + red underline' . { #bold . #underline . (#underlineColor->Color red) } } .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18619	#( 'bold + underwave' #(bold underwave) ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18620	{ 'bold + red underwave' . { #bold . #underwave . (#underlineColor->Color red) } } .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18621	#( #'italic' #italic ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18622	#( 'italic + underline' #(italic underline) ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18623	{ 'italic + red underline'. { #italic . #underline . (#underlineColor->Color red) } } .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18624	#( 'italic + underwave' #(italic underwave) ) .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18625	{ 'italic + red underwave'. { #italic . #underwave . (#underlineColor->Color red) } } .
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18626	#( #'reverse' #reverse )
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18627	}
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18628	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18629
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18630	exampleText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18631
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18632	^ 'methodSelector:methodArg
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18633	"method comment: some stupid code to show the current settings"
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18634
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18635	\|methodVar\| "/ an end-of-line comment...
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18636
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18637	self at:methodArg. "/ a message
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18638	self fooBarBaz:methodVar. "/ a bad message
13220 1c20a49c7223 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13189 diff changeset	18639	self halt. "/ a debug message
1c20a49c7223 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13189 diff changeset	18640	Error raise. "/ an error
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18641	methodVar := Array new:1.
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18642	instVar := 1234. "/ side effect
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18643	ClassVar := instVar. "/ side effect
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18644	methodVar := ClassVar + instVar. "/ not a side effect
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18645	unknonVar := 1. "/ a bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18646	UnknonVar := 1. "/ another bad variable
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18647	"self bar:methodVar. detect commented code easily"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18648	1 to:5 do:[:i \| self at:i + 1].
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18649	[:blockArg \| blockArg + 1].
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18650	Transcript showCR:''some string'' , #someSymbol.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18651	^ self.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18652	'.
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18653
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18654	"Modified: / 14-02-2012 / 10:18:48 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18655	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18656
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18657	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'help specs'!
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18658
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	18659	helpSpec
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18660	"This resource specification was automatically generated
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18661	by the UIHelpTool of ST/X."
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18662
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18663	"Do not manually edit this!! If it is corrupted,
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18664	the UIHelpTool may not be able to read the specification."
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18665
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18666	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18667	UIHelpTool openOnClass:AbstractSettingsApplication::SyntaxColorSettingsAppl
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18668	"
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18669
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18670	<resource: #help>
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18671
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	18672	^ super helpSpec addPairsFrom:#(
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18673
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18674	#colorSelection
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18675	'Choose a color for the selected element type'
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18676
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18677	#commonStyleSelection
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18678	'Choose a common style, then change by clicking on the "Reset To" button'
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18679
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18680	#elementSelection
15624 50d08ec562c5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15496 diff changeset	18681	'Select the element which you want to define/modify'
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18682
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18683	#emphasisSelection
15624 50d08ec562c5 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15496 diff changeset	18684	'Choose a presentation style for the selected element type'
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18685
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18686	#immediateSelectorCheck
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18687	'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	18688
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18689	#resetToCommonStyle
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18690	'Press to reset to the selected common style'
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18691
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18692	#syntaxColoringEnabled
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18693	'If checked, syntax coloring is enabled'
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18694
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18695	#individualStyleSetting
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18696	'Personal style configuration'
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18697
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18698	#commonStyleSetting
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18699	'Choose a common style'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18700
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18701	#sampleOutput
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18702	'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	18703
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18704	)
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18705
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18706	"Created: / 14-02-2012 / 10:44:21 / cg"
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18707	! !
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	18708
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18709	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'image specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18710
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18711	defaultIcon
14411 858d91fea116 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14389 diff changeset	18712	<resource: #image>
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18713	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18714	by the ImageEditor of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18715	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18716	the ImageEditor may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18717	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18718	self defaultIcon inspect
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18719	ImageEditor openOnClass:self andSelector:#defaultIcon
14411 858d91fea116 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14389 diff changeset	18720	Icon flushCachedIcons"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18721
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18722	^ Icon
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18723	constantNamed:#'AbstractSettingsApplication::SyntaxColorSettingsAppl class defaultIcon'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18724	ifAbsentPut:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18725	(Depth4Image new)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18726	width:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18727	height:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18728	photometric:(#palette);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18729	bitsPerSample:(#( 4 ));
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18730	samplesPerPixel:(1);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18731	bits:(ByteArray
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18732	fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	18733	DQDQDQDQDQDQDQDTQDQDQDQDQDQDPQQ@QDADQBP$QDP!!E@QDQ@QDIBQDP$DTADQDADQDQDQBPQPDQDPDQDQDQBQAE@QDQ@QDQDQDIDDTADQDADQDQDIDPQPD
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	18734	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	18735	A@PDQDQDPQQ@QDADPDQ@QDQAEDQDQDQDQDQDQDDTMCP4MCP4QDQDPQQCP4MCP4MDQDQADQDQDQDQDQDQDQDb');
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18736	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	18737	mask:((ImageMask new)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18738	width:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18739	height:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18740	bits:(ByteArray
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18741	fromPackedString:'???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<???<');
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18742	yourself);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18743	yourself
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18744	]
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18745	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18746
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18747	!AbstractSettingsApplication::SyntaxColorSettingsAppl class methodsFor:'interface specs'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18748
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18749	windowSpec
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18750	"This resource specification was automatically generated
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18751	by the UIPainter of ST/X."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18752
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18753	"Do not manually edit this!! If it is corrupted,
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18754	the UIPainter may not be able to read the specification."
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18755
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18756	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18757	UIPainter new openOnClass:AbstractSettingsApplication::SyntaxColorSettingsAppl andSelector:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18758	AbstractSettingsApplication::SyntaxColorSettingsAppl new openInterface:#windowSpec
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18759	AbstractSettingsApplication::SyntaxColorSettingsAppl open
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18760	"
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18761
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18762	<resource: #canvas>
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18763
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18764	^
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18765	#(FullSpec
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18766	name: windowSpec
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18767	window:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18768	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18769	label: 'Syntax Color Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18770	name: 'Syntax Color Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18771	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18772	bounds: (Rectangle 0 0 695 609)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18773	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18774	component:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18775	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18776	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18777	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18778	name: 'VerticalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18779	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	18780	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18781	verticalLayout: topSpaceFit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18782	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18783	verticalSpace: 3
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18784	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18785	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18786	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18787	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18788	label: 'Syntax Coloring'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18789	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18790	activeHelpKey: syntaxColoringEnabled
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18791	model: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18792	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18793	extent: (Point 695 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18794	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18795	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18796	label: 'Immediate Selector Check'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18797	name: 'ImmediateSelectorCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18798	activeHelpKey: immediateSelectorCheck
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18799	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18800	model: fullSelectorCheck
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18801	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18802	extent: (Point 695 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18803	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18804	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18805	name: 'SpacingBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18806	extent: (Point 695 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18807	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18808	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18809	label: 'Style:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18810	name: 'Label5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18811	activeHelpKey: individualStyleSetting
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18812	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18813	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18814	extent: (Point 695 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18815	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18816	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18817	name: 'ElementSelectionBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18818	activeHelpKey: elementSelection
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18819	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18820	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18821	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18822	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18823	label: 'Element:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18824	name: 'Label4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18825	layout: (LayoutFrame 4 0 0 0 140 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18826	activeHelpKey: elementSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18827	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18828	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18829	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18830	(ComboListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18831	name: 'ComboList3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18832	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	18833	activeHelpKey: elementSelection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18834	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18835	model: syntaxElementSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18836	comboList: syntaxElementList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18837	useIndex: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18838	hidePullDownMenuButton: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18839	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18840	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18841
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18842	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18843	extent: (Point 695 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18844	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18845	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18846	name: 'ColorBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18847	activeHelpKey: colorSelection
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18848	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18849	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18850	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18851	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18852	label: 'Color:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18853	name: 'Label2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18854	layout: (LayoutFrame 4 0 0 0 140 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18855	activeHelpKey: colorSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18856	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18857	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18858	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18859	(ColorMenuSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18860	name: 'ColorMenu2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18861	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	18862	activeHelpKey: colorSelection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18863	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18864	model: syntaxColor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18865	labelsAreColored: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18866	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18867	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18868
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18869	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18870	extent: (Point 695 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18871	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18872	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18873	name: 'EmphasisBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18874	activeHelpKey: emphasisSelection
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18875	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18876	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18877	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18878	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18879	label: 'Emphasis:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18880	name: 'Label1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18881	layout: (LayoutFrame 4 0 0 0 140 0 30 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18882	activeHelpKey: emphasisSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18883	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18884	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18885	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18886	(ComboListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18887	name: 'ComboList5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18888	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	18889	activeHelpKey: emphasisSelection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18890	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18891	model: syntaxEmphasisSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18892	comboList: syntaxEmphasisList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18893	useIndex: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18894	hidePullDownMenuButton: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18895	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18896	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18897
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18898	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18899	extent: (Point 695 34)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18900	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18901	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18902	name: 'ResetBox'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18903	activeHelpKey: resetToCommonStyle
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18904	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18905	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18906	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18907	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18908	label: 'Reset To:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18909	name: 'Button2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18910	layout: (LayoutFrame 0 0 -36 1 150 0 -6 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18911	activeHelpKey: resetToCommonStyle
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18912	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18913	model: resetToColorScheme
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18914	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18915	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18916	(ComboListSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18917	name: 'ComboList4'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18918	layout: (LayoutFrame 152 0 -36 1 0 1 -6 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18919	activeHelpKey: commonStyleSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18920	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18921	model: resetListSelection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18922	comboList: resetList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18923	useIndex: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18924	hidePullDownMenuButton: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18925	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18926	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18927
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18928	)
936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18929	extent: (Point 695 40)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18930	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18931	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18932	name: 'SpacingBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18933	extent: (Point 695 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18934	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18935	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18936	label: 'Sample Output:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18937	name: 'SampleLabel3'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18938	activeHelpKey: sampleOutput
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18939	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18940	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18941	extent: (Point 695 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18942	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18943	(TextEditorSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18944	name: 'TextEditor2'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18945	activeHelpKey: sampleOutput
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18946	enableChannel: syntaxColoring
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18947	model: coloredText
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18948	hasHorizontalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18949	hasVerticalScrollBar: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18950	isReadOnly: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18951	hasKeyboardFocusInitially: false
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18952	extent: (Point 695 291)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18953	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18954	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18955
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18956	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18957	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	18958	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	18959
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18960	)
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	18961	)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18962	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18963
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18964	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'actions'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	18965
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18966	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18967	^ #(
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18968	syntaxColoring
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18969	fullSelectorCheck
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18970	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18971	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18972
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18973	basicReadSettings
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18974	\|elementColorList elementList resetListLoc\|
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18975
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18976	oldUserPreferences notNil ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18977	(UserPreferences reset; current) addAll:oldUserPreferences
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18978	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18979
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	18980	super basicReadSettings.
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	18981
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18982	oldUserPreferences := currentUserPrefs copy.
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18983	elementColorList := UserPreferences syntaxColorNames.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18984	elementList := elementColorList
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18985	collect:[:each \|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18986	(each endsWith:' Color')
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18987	ifTrue:[ each copyButLast:' Color' size ]
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18988	ifFalse:[each]].
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18989
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	18990	resetListLoc := currentUserPrefs listOfPredefinedSyntaxColoringSchemes
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18991	collect:[:entry \| entry second].
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18992	self resetList value:resetListLoc.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18993	self resetListSelection value:resetListLoc first.
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18994	self syntaxElementList value:elementList.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	18995	self syntaxElementSelection value:(elementList at:1).
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18996	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	18997
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	18998	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	18999
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	19000	oldUserPreferences := currentUserPrefs copy.
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19001	super basicSaveSettings.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	19002	!
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	19003
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19004	discardChangesAndReadSettings
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19005	\|prefs\|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19006
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19007	"/ UserPreferences reset.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19008	prefs := currentUserPrefs. "/ UserPreferences current.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19009	changedSettings keysAndValuesDo:[:k :v \|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19010	prefs at:k put:v
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19011	].
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19012	changedSettings := Dictionary new.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19013	"/ self flyByHelpSettingChanged. "/ reinstall
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19014	self recolor.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19015	super discardChangesAndReadSettings.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19016	!
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19017
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19018	recolor
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	19019	\|text dummyClass\|
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19020
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19021	self syntaxColoring value ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19022	Class withoutUpdatingChangesDo:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19023	dummyClass := Object
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19024	subclass:#DummyClass
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19025	instanceVariableNames:'instVar'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19026	classVariableNames:'ClassVar'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19027	poolDictionaries:''
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19028	category:''
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19029	inEnvironment:nil
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19030	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19031	text := SyntaxHighlighter
18048 ff4443f3cba5 #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18035 diff changeset	19032	formatMethodSource:self class exampleText
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19033	in:dummyClass
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19034	using:currentUserPrefs.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19035	] ifFalse:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19036	text := self class exampleText.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19037	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19038	self coloredText value:text
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	19039
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	19040	"Modified: / 14-02-2012 / 10:13:56 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19041	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19042
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19043	resetToColorScheme
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19044	\|resetSelector\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19045
11428 2b0f4aec1c3b x Claus Gittinger <cg@exept.de> parents: 11420 diff changeset	19046	resetSelector := resetListDictionary keyAtValue:(self resetListSelection value).
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	19047	currentUserPrefs perform:resetSelector.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19048	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	19049	self updateModifiedChannel
11428 2b0f4aec1c3b x Claus Gittinger <cg@exept.de> parents: 11420 diff changeset	19050
2b0f4aec1c3b x Claus Gittinger <cg@exept.de> parents: 11420 diff changeset	19051	"Modified (format): / 16-03-2012 / 10:32:02 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19052	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19053
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19054	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'aspects'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19055
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19056	coloredText
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19057
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19058	coloredText isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19059	coloredText := ValueHolder new.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19060	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19061	^ coloredText.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19062	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19063
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19064	fullSelectorCheck
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19065
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19066	fullSelectorCheck isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19067	fullSelectorCheck := currentUserPrefs fullSelectorCheck asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19068	fullSelectorCheck onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19069	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19070	^ fullSelectorCheck.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19071	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19072
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19073	resetList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19074
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19075	resetList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19076	resetList := ValueHolder new.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19077	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19078	^ resetList.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	19079
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	19080	"Modified: / 08-09-2006 / 16:00:58 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19081	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19082
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19083	resetListSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19084
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19085	resetListSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19086	resetListSelection := ValueHolder new.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19087	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19088	^ resetListSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19089	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19090
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19091	syntaxColor
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19092
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19093	syntaxColor isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19094	syntaxColor := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19095	syntaxColor addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19096	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19097	^ syntaxColor.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19098	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19099
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19100	syntaxColoring
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19101
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19102	syntaxColoring isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19103	syntaxColoring := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19104	syntaxColoring addDependent:self.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19105	syntaxColoring onChangeSend:#updateModifiedChannel to:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19106	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19107	^ syntaxColoring.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19108	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19109
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19110	syntaxElementList
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19111	syntaxElementList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19112	syntaxElementList := ValueHolder new.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19113	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19114	^ syntaxElementList.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	19115
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	19116	"Modified: / 08-09-2006 / 16:01:05 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19117	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19118
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19119	syntaxElementSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19120
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19121	syntaxElementSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19122	syntaxElementSelection := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19123	syntaxElementSelection addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19124	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19125	^ syntaxElementSelection.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	19126
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	19127	"Modified: / 08-09-2006 / 16:01:08 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19128	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19129
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19130	syntaxEmphasisList
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	19131	syntaxEmphasisList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19132	syntaxEmphasisList := ValueHolder new.
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	19133	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	19134	^ syntaxEmphasisList.
7099 786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	19135
786bfd931b07 control flow color&emphasis Claus Gittinger <cg@exept.de> parents: 7080 diff changeset	19136	"Modified: / 08-09-2006 / 16:01:13 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	19137	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	19138
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19139	syntaxEmphasisSelection
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19140
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19141	syntaxEmphasisSelection isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19142	syntaxEmphasisSelection := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19143	syntaxEmphasisSelection addDependent:self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19144	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19145	^ syntaxEmphasisSelection.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19146	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19147
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19148	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'change & update'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19149
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19150	getEmphasis:anEmphasisOrSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19151	" return emphasis Symbol for emphasis or emphasis for emphasis symbol "
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19152
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19153	^ emphasisDictionary at:anEmphasisOrSymbol ifAbsent:[nil]
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19154	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19155
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19156	syntaxColorChanged
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19157	\|prefKey\|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19158
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19159	prefKey := self syntaxColorSelector.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19160	(changedSettings includesKey:prefKey) ifFalse:[
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19161	"/ remember previous value
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19162	changedSettings at:prefKey put:(currentUserPrefs at:prefKey ifAbsent:nil).
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19163	].
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19164	currentUserPrefs at:prefKey put:(self syntaxColor value).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19165	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	19166	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19167	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19168
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19169	syntaxElementSelectionChanged
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19170	\| syntaxEmphasisValue \|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19171
6017 4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	19172	self syntaxColor value:(currentUserPrefs perform:(self syntaxColorSelector)).
4e350ae8f4e4 cleanup and fixes Claus Gittinger <cg@exept.de> parents: 6015 diff changeset	19173	syntaxEmphasisValue := (currentUserPrefs perform:(self syntaxEmphasisSelector)).
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19174	self syntaxEmphasisSelection value:(self getEmphasis:syntaxEmphasisValue).
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19175	"/ self recolor.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19176	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19177
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19178	syntaxEmphasisSelectionChanged
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19179	\|em prefKey\|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19180
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19181	prefKey := self syntaxEmphasisSelector.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19182	(changedSettings includesKey:prefKey) ifFalse:[
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19183	"/ remember previous value
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19184	changedSettings at:prefKey put:(currentUserPrefs at:prefKey ifAbsent:nil).
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19185	].
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19186	em := self getEmphasis:(self syntaxEmphasisSelection value ? 'normal') string.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19187	currentUserPrefs at:prefKey put:em.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19188
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19189	self recolor.
5041 c72e35116b13 instable state penk parents: 5040 diff changeset	19190	self updateModifiedChannel
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19191	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19192
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19193	update:something with:aParameter from:changedObject
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19194	changedObject == self syntaxElementSelection ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19195	self syntaxElementSelectionChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19196	^ self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19197	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19198	changedObject == self syntaxColor ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19199	self syntaxColorChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19200	^ self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19201	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19202	changedObject == self syntaxEmphasisSelection ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19203	self syntaxEmphasisSelectionChanged.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19204	^ self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19205	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19206	changedObject == self syntaxColoring ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19207	self recolor.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19208	^ self.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19209	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19210
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19211	super update:something with:aParameter from:changedObject
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19212	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19213
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19214	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19215
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19216	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19217	^ 'Launcher/sourceSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19218	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19219
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19220	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'initialization & release'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19221
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19222	initialize
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	19223	<modifier: #super> "must be called if redefined"
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	19224
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19225	self initializeEmphasisDictionary.
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	19226	super initialize.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	19227
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19228	self syntaxEmphasisList
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19229	value:(self class emphasisList
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19230	collect:[:lbl \|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19231	lbl emphasizeAllWith:( self getEmphasis:lbl )
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19232	]).
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19233
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19234	changedSettings := Dictionary new.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19235	resetListDictionary := Dictionary new.
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	19236	currentUserPrefs listOfPredefinedSyntaxColoringSchemes do:[:entry \|
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19237	resetListDictionary at:(entry at:1) put:(entry at:2)
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	19238	].
17369 bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	19239
bdffc1b4b8b5 #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17321 diff changeset	19240	"Modified: / 08-02-2017 / 00:30:23 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19241	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19242
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19243	initializeEmphasisDictionary
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19244
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19245	emphasisDictionary := Dictionary new.
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19246	self class emphasisMappingList do:[ :mapping \|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19247	\|name emphasis\|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19248
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19249	name := mapping first.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19250	emphasis := mapping second.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19251	emphasisDictionary at:name put:emphasis.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19252	emphasisDictionary at:emphasis put:name.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19253	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19254	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19255
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19256	release
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19257
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19258	oldUserPreferences notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19259	(UserPreferences reset; current)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19260	addAll:oldUserPreferences;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19261	flyByHelpSettingChanged. "/ reinstall
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19262	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19263	super release
11268 769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	19264
769ca2f9eb6b x Claus Gittinger <cg@exept.de> parents: 11242 diff changeset	19265	"Modified: / 14-02-2012 / 11:01:49 / cg"
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19266	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19267
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19268	!AbstractSettingsApplication::SyntaxColorSettingsAppl methodsFor:'queries'!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19269
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19270	hasUnsavedChanges
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19271	\|colorList colorPerformer emphasisPerformer\|
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19272
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	19273	oldUserPreferences isNil ifTrue:[^ false].
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	19274
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19275	colorList := UserPreferences syntaxColorNames.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19276	colorList do:[:syntaxElement \|
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19277	colorPerformer := (self syntaxColorSelectorForElement:syntaxElement).
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19278	emphasisPerformer := (self syntaxEmphasisSelectorForElement:syntaxElement).
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19279	((oldUserPreferences perform:colorPerformer) ~= (currentUserPrefs perform:colorPerformer)) ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19280	^ true
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19281	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19282	((oldUserPreferences perform:emphasisPerformer) ~= (currentUserPrefs perform:emphasisPerformer)) ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19283	^ true
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19284	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19285	syntaxElement
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19286	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19287
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19288	(super hasUnsavedChanges) ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	19289
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19290	^ false
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19291	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19292
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19293	syntaxColorSelector
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19294	\|elementName key\|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19295
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19296	elementName := key := self syntaxElementSelection value.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19297	(elementName endsWith:' Color') ifFalse:[
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19298	key := elementName,' Color'.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19299	].
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19300	^ (self syntaxColorSelectorForElement:key)
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19301	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19302
15166 eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	19303	syntaxColorSelectorForElement:aSyntaxElementsName
eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	19304	"/ old code - error prone
eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	19305	^ (UserPreferences syntaxColorNamesAndKeys detect:[:el \| el first = aSyntaxElementsName]) second
eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	19306	"/ ^ (aSyntaxElementsName replChar:$ withString: '') asLowercaseFirst asSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19307	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19308
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	19309	syntaxEmphasisSelector
16324 5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19310	\|elementName key\|
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19311
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19312	elementName := self syntaxElementSelection value.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19313	key := elementName,' Color'.
5f36246be507 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16317 diff changeset	19314	^ self syntaxEmphasisSelectorForElement:key
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	19315	!
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	19316
15166 eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	19317	syntaxEmphasisSelectorForElement:aSyntaxElementsName
eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	19318	^ (UserPreferences syntaxColorNamesAndKeys detect:[:el \| el first = aSyntaxElementsName]) third
eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	19319	"/ ^ (((self syntaxColorSelectorForElement:anEmElement) upToAll: 'Color'), 'Emphasis')
eef38531f655 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15083 diff changeset	19320	"/ asLowercaseFirst asSymbol
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19321	! !
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	19322
12478 6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19323	!AbstractSettingsApplication::SystemBrowserSettingsAppl class methodsFor:'help specs'!
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19324
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19325	helpSpec
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19326	"This resource specification was automatically generated
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19327	by the UIHelpTool of ST/X."
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19328
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19329	"Do not manually edit this!! If it is corrupted,
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19330	the UIHelpTool may not be able to read the specification."
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19331
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19332	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	19333	UIHelpTool openOnClass:AbstractSettingsApplication::SystemBrowserSettingsAppl
12478 6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19334	"
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19335
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19336	<resource: #help>
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19337
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19338	^ super helpSpec addPairsFrom:#(
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19339
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19340	#compactSCMLayout
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19341	'Arrange source code manager menu items in a compact layout'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19342
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19343	#inPlaceSearch
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19344	'In-place search to browser lists'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19345
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19346	#inlineSCMLayout
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19347	'Arrange source code manager menu items in a falt inline layout'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19348
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19349	#oldSCMMenuLayout
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19350	'Arrange source code manager menu items in the old, traditional layout'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19351
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19352	#searchBarInBrowser
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19353	'Add a search bar to the browser (like in web browsers)'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19354
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19355	#showBookmarksBar
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19356	'Show the bookmarks bar'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19357
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19358	#showGlobalHistory
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19359	'Show a toolbar button to navigate the global visited classes history'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19360
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19361	#showLocalHistory
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19362	'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	19363
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19364	#showMarqueeInfo
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19365	'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	19366
12478 6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19367	#showMethodTemplate
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19368	'Show a method code template when no method is selected'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19369
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19370	#sortAndIndentClassesByInheritance
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19371	'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	19372
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19373	#useEmbeddedTestRunner
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19374	'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	19375
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19376	#webBrowserLikeLayout
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19377	'Use a layout similar to web browsers'
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19378
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19379	)
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19380	! !
6fac64b968d8 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12419 diff changeset	19381
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19382	!AbstractSettingsApplication::SystemBrowserSettingsAppl class methodsFor:'image specs'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19383
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19384	defaultIcon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	19385	<resource: #programImage>
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	19386
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19387	^ ToolbarIconLibrary systemBrowser24x24Icon
7838 dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	19388
dd07c137f36f icon resource Claus Gittinger <cg@exept.de> parents: 7819 diff changeset	19389	"Modified: / 17-09-2007 / 11:35:15 / cg"
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19390	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19391
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19392	!AbstractSettingsApplication::SystemBrowserSettingsAppl class methodsFor:'interface specs'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19393
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19394	windowSpec
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19395	"This resource specification was automatically generated
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19396	by the UIPainter of ST/X."
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19397
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19398	"Do not manually edit this!! If it is corrupted,
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19399	the UIPainter may not be able to read the specification."
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19400
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19401	"
8203 3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	19402	UIPainter new openOnClass:AbstractSettingsApplication::SystemBrowserSettingsAppl andSelector:#windowSpec
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	19403	AbstractSettingsApplication::SystemBrowserSettingsAppl new openInterface:#windowSpec
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	19404	AbstractSettingsApplication::SystemBrowserSettingsAppl open
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19405	"
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19406
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19407	<resource: #canvas>
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19408
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19409	^
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	19410	#(FullSpec
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	19411	name: windowSpec
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19412	window:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	19413	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19414	label: 'System Browser Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19415	name: 'System Browser Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19416	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19417	min: (Point 10 10)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19418	bounds: (Rectangle 0 0 569 590)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19419	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19420	component:
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	19421	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19422	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19423	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19424	name: 'SettingsPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19425	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19426	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19427	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19428	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19429	verticalSpace: 3
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19430	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19431	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19432	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19433	(FramedBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19434	label: 'Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19435	name: 'ToolsSettingsPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19436	labelPosition: topLeft
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19437	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19438	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19439	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19440	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19441	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19442	name: 'ToolSettingsVPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19443	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19444	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19445	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19446	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19447	verticalSpace: 3
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19448	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19449	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19450	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19451	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19452	label: 'Use the Embedded Test Runner'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19453	name: 'UseEmbeddedTestRunner'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19454	activeHelpKey: useEmbeddedTestRunner
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19455	model: showEmbeddedTestRunnerInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19456	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19457	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19458	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19459	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19460	label: 'Web Browser Like Layout (Toolbars are Part of the Tab - experimental)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19461	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19462	activeHelpKey: webBrowserLikeLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19463	initiallyInvisible: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19464	model: webBrowserLikeLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19465	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19466	extent: (Point 607 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19467	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19468	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19469	label: 'Show Bookmarks Bar'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19470	name: 'ShowBookmarksBar'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19471	activeHelpKey: showBookmarksBar
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19472	model: showBookmarkBar
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19473	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19474	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19475	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19476	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19477	label: 'Sort and Indent Classes by Inheritance'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19478	name: 'SortAndIndentClassesByInheritance'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19479	activeHelpKey: sortAndIndentClassesByInheritance
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19480	model: sortAndIndentClassesByInheritance
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19481	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19482	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19483	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19484	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19485	label: 'Show Local Navigation History (Separate History per Browser Tab)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19486	name: 'CheckBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19487	activeHelpKey: showLocalHistory
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19488	model: showLocalHistory
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19489	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19490	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19491	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19492	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19493	label: 'Show Global Navigation History (Global History for all Browsers)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19494	name: 'CheckBox3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19495	activeHelpKey: showGlobalHistory
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19496	model: showGlobalHistory
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19497	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19498	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19499	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19500	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19501	label: 'Show Search Bar in Browser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19502	name: 'ShowSearchBarInBrowser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19503	activeHelpKey: searchBarInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19504	model: useSearchBarInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19505	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19506	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19507	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19508	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19509	label: 'Use in-place Search in Browser Lists (experimental)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19510	name: 'CheckBox4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19511	activeHelpKey: inPlaceSearch
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19512	model: useInPlaceSearchInBrowserLists
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19513	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19514	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19515	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19516	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19517	label: 'Show Method Template'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19518	name: 'MethodTemplate'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19519	activeHelpKey: showMethodTemplate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19520	model: showMethodTemplate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19521	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19522	extent: (Point 533 30)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19523	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19524	(CheckBoxSpec
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19525	label: 'Marquee Info'
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19526	name: 'CheckBox5'
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19527	activeHelpKey: showMarqueeInfo
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19528	model: showMarqueeInfo
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19529	translateLabel: true
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19530	extent: (Point 533 30)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19531	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19532	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19533
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19534	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19535	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19536	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19537
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19538	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19539	extent: (Point 569 333)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19540	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19541	(FramedBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19542	label: 'Sourcecode Management Menu Layout'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19543	name: 'MenuLayoutPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19544	labelPosition: topLeft
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19545	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19546	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19547	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19548	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19549	(VerticalPanelViewSpec
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19550	name: 'MenuLayoutVPanel'
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19551	layout: (LayoutFrame 0 0 5 0 0 1 0 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19552	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19553	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19554	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19555	verticalSpace: 3
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19556	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19557	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19558	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19559	(RadioButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19560	label: 'Old'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19561	name: 'SCMMenuLayoutOld'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19562	activeHelpKey: oldSCMMenuLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19563	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19564	model: sourceCodeManagementMenuLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19565	isTriggerOnDown: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19566	select: 'old'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19567	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19568	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19569	(RadioButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19570	label: 'Inline'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19571	name: 'SCMMenuLayoutInline'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19572	activeHelpKey: inlineSCMLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19573	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19574	model: sourceCodeManagementMenuLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19575	isTriggerOnDown: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19576	select: 'inline'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19577	extent: (Point 533 30)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19578	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19579	(RadioButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19580	label: 'Compact'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19581	name: 'SCMMenuLayoutCompact'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19582	activeHelpKey: compactSCMLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19583	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19584	model: sourceCodeManagementMenuLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19585	isTriggerOnDown: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19586	select: 'compact'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19587	extent: (Point 533 30)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19588	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19589	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19590
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19591	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19592	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19593	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19594
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19595	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19596	extent: (Point 569 135)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19597	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19598	(FramedBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19599	label: 'Static Analysis (Lint)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19600	name: 'LintPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19601	labelPosition: topLeft
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19602	translateLabel: true
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19603	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19604	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19605	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19606	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19607	name: 'LintPanelContent'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19608	layout: (LayoutFrame 0 0 0 0 0 1 53 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19609	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19610	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19611	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19612	verticalSpace: 3
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19613	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19614	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19615	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19616	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19617	name: 'DefaultRulesetBox'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19618	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19619	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19620	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19621	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19622	label: 'Default Rules:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19623	name: 'DefaultRulesetLabel'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19624	layout: (LayoutFrame 0 0 0 0 138 0 0 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19625	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19626	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19627	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19628	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19629	name: 'DefaultRuleset'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19630	layout: (LayoutFrame 144 0 0 0 -100 1 0 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19631	model: smallLintRulesetDefault
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19632	isReadOnly: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19633	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19634	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19635	converter: smallLintRulesetDefaultAdaptor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19636	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19637	emptyFieldReplacementText: 'Default'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19638	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19639	(ActionButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19640	label: 'Select'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19641	name: 'DefaultRulesetSelectButton'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19642	layout: (LayoutFrame -100 1 0 0 0 1 0 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19643	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19644	model: doSelectDefaultRuleset
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19645	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19646	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19647
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19648	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19649	extent: (Point 533 25)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19650	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19651	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19652	name: 'Box1'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19653	component:
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19654	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19655	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19656	(LinkButtonSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19657	label: 'Configure Rule Sets...'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19658	name: 'Button1'
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19659	layout: (LayoutFrame -200 1 -20 1 0 1 0 1)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19660	foregroundColor: (Color 0.0 0.0 100.0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19661	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19662	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19663	model: doConfigureRulesets
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19664	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19665	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19666
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19667	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19668	extent: (Point 533 25)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19669	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19670	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19671
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19672	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19673	useDynamicPreferredHeight: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19674	usePreferredHeight: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19675	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19676	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19677
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19678	)
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19679	extent: (Point 569 92)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19680	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19681	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19682
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19683	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19684	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19685	)
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19686
14234 f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	19687	)
f22005a44f35 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14230 diff changeset	19688	)
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19689	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19690
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19691	!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'actions'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19692
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	19693	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	19694	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	19695	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	19696
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	19697	"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	19698	!
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	19699
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	19700	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	19701	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	19702
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	19703	"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	19704	!
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	19705
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	19706	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	19707	<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	19708
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	19709	\| 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	19710
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	19711	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	19712	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	19713	dialog accepted ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19714	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	19715	]
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	19716
14771 65840e41c10f UI tweaks in browser settings application, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14759 diff changeset	19717	"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	19718	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19719
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19720	!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'aspects'!
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19721
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19722	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19723	^ #(
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19724	"/ showAcceptCancelBarInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19725	useSearchBarInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19726	showMethodTemplate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19727	"/ useCodeView2InTools
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19728	showEmbeddedTestRunnerInBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19729	showBookmarkBar
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19730	webBrowserLikeLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19731	sortAndIndentClassesByInheritance
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19732	showGlobalHistory
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19733	showLocalHistory
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19734	useInPlaceSearchInBrowserLists
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19735	sourceCodeManagementMenuLayout
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19736	confirmRefactorings
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19737	smallLintRulesetDefault
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19738	showMarqueeInfo
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19739	)
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19740
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19741	"Created: / 25-11-2011 / 15:09:28 / cg"
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19742	"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	19743	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	19744
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19745	confirmRefactorings
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19746
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19747	confirmRefactorings isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19748	confirmRefactorings := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19749	confirmRefactorings onChangeSend:#updateModifiedChannel to:self
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19750	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19751	^ confirmRefactorings.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19752
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19753	"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	19754	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	19755
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19756	showAcceptCancelBarInBrowser
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19757	showAcceptCancelBarInBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19758	showAcceptCancelBarInBrowser := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19759	showAcceptCancelBarInBrowser onChangeSend:#updateModifiedChannel to:self
7819 30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19760	].
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19761	^ showAcceptCancelBarInBrowser.
8203 3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	19762	!
3e66cc59ba5c add #showSearchBarInBrowser fm parents: 8151 diff changeset	19763
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19764	showBookmarkBar
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19765	"return/create the 'showMethodTemplate' value holder (automatically generated)"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19766
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19767	showBookmarkBar isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19768	showBookmarkBar := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19769	showBookmarkBar onChangeSend:#updateModifiedChannel to:self
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19770
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19771	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19772	^ showBookmarkBar
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19773
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19774	"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	19775	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19776
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19777	showEmbeddedTestRunnerInBrowser
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19778	"return/create the 'showEmbeddedTestRunnerInBrowser' value holder (automatically generated)"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19779
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19780	showEmbeddedTestRunnerInBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19781	showEmbeddedTestRunnerInBrowser := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19782	showEmbeddedTestRunnerInBrowser onChangeSend:#updateModifiedChannel to:self
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19783	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19784	^ showEmbeddedTestRunnerInBrowser
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19785
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19786	"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	19787	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19788
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19789	showGlobalHistory
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19790
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19791	showGlobalHistory isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19792	showGlobalHistory := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19793	showGlobalHistory onChangeSend:#updateModifiedChannel to:self
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19794	].
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19795	^ showGlobalHistory.
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19796
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19797	"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	19798	!
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19799
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19800	showLocalHistory
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19801
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19802	showLocalHistory isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19803	showLocalHistory := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19804	showLocalHistory onChangeSend:#updateModifiedChannel to:self
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19805	].
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19806	^ showLocalHistory.
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19807
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19808	"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	19809	!
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19810
16945 757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19811	showMarqueeInfo
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19812	showMarqueeInfo isNil ifTrue:[
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19813	showMarqueeInfo := true asValue.
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19814	showMarqueeInfo onChangeSend:#updateModifiedChannel to:self
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19815	].
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19816	^ showMarqueeInfo.
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19817	!
757790afffd4 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16943 diff changeset	19818
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19819	showMethodTemplate
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19820	"return/create the 'showMethodTemplate' value holder (automatically generated)"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19821
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19822	showMethodTemplate isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19823	showMethodTemplate := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19824	showMethodTemplate onChangeSend:#updateModifiedChannel to:self
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19825
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19826	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19827	^ showMethodTemplate
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19828
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19829	"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	19830	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19831
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	19832	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	19833	<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	19834
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	19835	smallLintRulesetDefault isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19836	smallLintRulesetDefault := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19837	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	19838	].
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	19839	^ 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	19840
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	19841	"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	19842	"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	19843	!
65840e41c10f UI tweaks in browser settings application, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14759 diff changeset	19844
65840e41c10f UI tweaks in browser settings application, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14759 diff changeset	19845	smallLintRulesetDefaultAdaptor
65840e41c10f UI tweaks in browser settings application, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14759 diff changeset	19846	^ PluggableAdaptor new
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19847	getter:[ :model \| model value isNil ifTrue:[nil] ifFalse:[model value name]]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19848	setter:[ :model :value \| ]
14771 65840e41c10f UI tweaks in browser settings application, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14759 diff changeset	19849
65840e41c10f UI tweaks in browser settings application, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 14759 diff changeset	19850	"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	19851	!
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	19852
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19853	sortAndIndentClassesByInheritance
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19854
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19855	sortAndIndentClassesByInheritance isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19856	sortAndIndentClassesByInheritance := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19857	sortAndIndentClassesByInheritance onChangeSend:#updateModifiedChannel to:self
10241 0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19858	].
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19859	^ sortAndIndentClassesByInheritance.
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19860
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19861	"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	19862	!
0fc51cf9b272 Added new preferences for NewSystemBrowser vrany parents: 10191 diff changeset	19863
10778 c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19864	sourceCodeManagementMenuLayout
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19865	sourceCodeManagementMenuLayout isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19866	sourceCodeManagementMenuLayout := #inline "#old" asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19867	sourceCodeManagementMenuLayout onChangeSend:#updateModifiedChannel to:self
10778 c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19868	].
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19869	^ sourceCodeManagementMenuLayout.
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19870
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19871	"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	19872	!
c3d6726646eb Added SCM menu layout options vrany parents: 10738 diff changeset	19873
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19874	useCodeView2InTools
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19875	"return/create the 'useCodeView2InTools' value holder (automatically generated)"
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19876
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19877	useCodeView2InTools isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19878	useCodeView2InTools := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19879	useCodeView2InTools onChangeSend:#updateModifiedChannel to:self
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19880
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19881	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19882	^ useCodeView2InTools
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19883
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19884	"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	19885	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19886
10418 d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19887	useInPlaceSearchInBrowserLists
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19888	useInPlaceSearchInBrowserLists isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19889	useInPlaceSearchInBrowserLists := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19890	useInPlaceSearchInBrowserLists onChangeSend:#updateModifiedChannel to:self
10418 d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19891	].
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19892	^ useInPlaceSearchInBrowserLists.
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19893
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19894	"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	19895	!
d2c09f0a39a2 Added "Use In-place Search In Browser Lists" setting vrany parents: 10301 diff changeset	19896
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	19897	useSearchBarInBrowser
8325 1a34a35f4eec * empty log message * Claus Gittinger <cg@exept.de> parents: 8296 diff changeset	19898	"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	19899	(like in firefox). False if a dialog is to be opened."
1a34a35f4eec * empty log message * Claus Gittinger <cg@exept.de> parents: 8296 diff changeset	19900
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	19901	useSearchBarInBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19902	useSearchBarInBrowser := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19903	useSearchBarInBrowser onChangeSend:#updateModifiedChannel to:self
8916 1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	19904	].
1e3dc9435b97 * empty log message * fm parents: 8846 diff changeset	19905	^ useSearchBarInBrowser.
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19906	!
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19907
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19908	webBrowserLikeLayout
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19909	"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	19910	(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	19911
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19912	webBrowserLikeLayout isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19913	webBrowserLikeLayout := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	19914	webBrowserLikeLayout onChangeSend:#updateModifiedChannel to:self
10124 5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19915	].
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19916	^ webBrowserLikeLayout.
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19917
5cb50166c940 Jan's enhanced settings Claus Gittinger <cg@exept.de> parents: 9928 diff changeset	19918	"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	19919	! !
30508f79a524 show accept/cancel setting Claus Gittinger <cg@exept.de> parents: 7725 diff changeset	19920
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19921	!AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19922
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19923	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19924	^ 'Launcher/browserSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19925	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	19926
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19927	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'help specs'!
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19928
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	19929	helpSpec
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19930	"This resource specification was automatically generated
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19931	by the UIHelpTool of ST/X."
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19932
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19933	"Do not manually edit this!! If it is corrupted,
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19934	the UIHelpTool may not be able to read the specification."
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19935
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19936	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	19937	UIHelpTool openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19938	"
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19939
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19940	<resource: #help>
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19941
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	19942	^ super helpSpec addPairsFrom:#(
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19943
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19944	#vmInfo
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19945	'Enable/disable information messages from the Virtual Machine (VM)'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19946
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19947	#vmErrors
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19948	'Enable/disable error messages from the Virtual Machine (VM)'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19949
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19950	#displayErrors
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19951	'Enable/disable error messages from the display (X or Windows screen connection)'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19952
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19953	#classInfos
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19954	'Enable/disable messages from the class library'
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19955
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19956	#showToolTips
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19957	'Show tooltips (fly-by help)'
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19958
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19959	#toolTipAutoHideDelay
14373 61a21c44e7f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14330 diff changeset	19960	'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	19961
14547 9a51a43e4327 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14515 diff changeset	19962	#onlyShowTooltipsForActiveWindow
9a51a43e4327 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14515 diff changeset	19963	'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	19964
14240 ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19965	#beepEnabled
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19966	'Enable/disable audible beeps altogether'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19967
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19968	#beepInEditor
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19969	'Enable/disable audible beeps from the editor (search found nothing, etc.)'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19970
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19971	#beepForInfoDialog
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19972	'Enable/disable audible beeps when an info dialog is opened'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19973
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19974	#beepForWarningDialog
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19975	'Enable/disable audible beeps when a warning dialog is opened'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19976
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19977	#beepForErrorDialog
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19978	'Enable/disable audible beeps when an error dialog is opened'
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19979
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19980	#flyByHelpActive
ea873107de76 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14236 diff changeset	19981	'Enable/disable tooltips'
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19982
14278 bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	19983	#sendMessagesAlsoToTranscript
bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	19984	'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	19985	)
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19986	! !
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	19987
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19988	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19989
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	19990	defaultIcon
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19991	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19992	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19993
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19994	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19995	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19996
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19997	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19998	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	19999	ImageEditor openOnClass:self andSelector:#defaultIcon
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20000	Icon flushCachedIcons
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20001	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20002
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20003	<resource: #image>
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20004
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20005	^Icon
18653 590ea11e403e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18624 diff changeset	20006	constantNamed:'AbstractSettingsApplication::SystemMessageSettingsAppl class defaultIcon'
16556 16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	20007	ifAbsentPut:[(Depth8Image width:22 height:22) bits:(ByteArray fromPackedString:'
18653 590ea11e403e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18624 diff changeset	20008	@@@@@@@@@@@@@PDAA @@@@@@@@@@@@@@@@@@@@@@@PHB@0D@@@@@@@@@@@@@@@@@@@@@@PHDAPLC@P@@@@@@@@@@@@@@@@@@@@DBA PGA0 @@@@@@@@@@@@@
590ea11e403e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18624 diff changeset	20009	@@@@@@@A@ XDA0\H@@@@@@@@@@@@@@@@@@@@@PHIA@(J@@@@@@@@@@@@@@@@@@@@@@@AB00MCP@@@@@@@@@@@@@@@@@@@@@@@@DN@@@@@@@@@@@@@@@@@@@@
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	20010	@@@@@@@AC @@@@@@@@@@@@@@@@@@@@@@@@@@@P8@@@@@@@@@@@@@@@@@@@@@@@<OC0PNDA@@DQD@@@@@@@@@@@@@@@<RD1LTEQXVE1 XDP@@@@@@@@@@@@@O
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	20011	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	20012	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	20013	F!!(ZF!!(ZF@@@@@@@@@@@@@@ODQ0\H"H"H @@@@@@@@@@@@@a')
16f7ac7bf01b #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 16524 diff changeset	20014	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	20015	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	20016	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	20017
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20018	!AbstractSettingsApplication::SystemMessageSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20019
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20020	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20021	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20022	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20023
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20024	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20025	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20026
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20027	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	20028	UIPainter new openOnClass:AbstractSettingsApplication::SystemMessageSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	20029	AbstractSettingsApplication::SystemMessageSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	20030	AbstractSettingsApplication::SystemMessageSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20031	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20032
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20033	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20034
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20035	^
13694 8a0442b537f7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13692 diff changeset	20036	#(FullSpec
8a0442b537f7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13692 diff changeset	20037	name: windowSpec
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20038	window:
13694 8a0442b537f7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13692 diff changeset	20039	(WindowSpec
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20040	label: 'Messages Settings'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20041	name: 'Messages Settings'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20042	flags: 1
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20043	min: (Point 10 10)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20044	bounds: (Rectangle 0 0 574 602)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20045	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20046	component:
13694 8a0442b537f7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13692 diff changeset	20047	(SpecCollection
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20048	collection: (
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20049	(VerticalPanelViewSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20050	name: 'VerticalPanel2'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20051	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	20052	horizontalLayout: fitSpace
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20053	verticalLayout: topSpace
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20054	horizontalSpace: 5
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20055	verticalSpace: 5
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20056	component:
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20057	(SpecCollection
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20058	collection: (
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20059	(FramedBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20060	label: 'Info & Error Messages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20061	name: 'FramedBox1'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20062	labelPosition: topLeft
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20063	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20064	component:
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20065	(SpecCollection
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20066	collection: (
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20067	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20068	label: 'VM Info Messages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20069	name: 'VMInfoMessages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20070	layout: (LayoutFrame 5 0 5 0 -5 1 35 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20071	activeHelpKey: vmInfo
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20072	model: vmInfo
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20073	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20074	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20075	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20076	label: 'VM Error Messages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20077	name: 'VMErrorMessages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20078	layout: (LayoutFrame 5 0 35 0 -5 1 65 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20079	activeHelpKey: vmErrors
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20080	model: vmErrors
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20081	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20082	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20083	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20084	label: 'Display Error Messages (Xlib, Xtlib, WinAPI ...)'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20085	name: 'DisplayErrorMessages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20086	layout: (LayoutFrame 5 0 65 0 -5 1 95 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20087	activeHelpKey: displayErrors
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20088	model: displayErrors
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20089	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20090	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20091	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20092	label: 'Other Info Messages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20093	name: 'OtherInfoMessages'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20094	layout: (LayoutFrame 5 0 95 0 -5 1 125 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20095	activeHelpKey: classInfos
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20096	model: classInfos
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20097	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20098	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20099	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20100	label: 'Send also to Transcript (in addition to Stderr)'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20101	name: 'CheckBox8'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20102	layout: (LayoutFrame 5 0 149 0 -5 1 179 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20103	activeHelpKey: sendMessagesAlsoToTranscript
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20104	model: sendMessagesAlsoToTranscript
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20105	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20106	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20107	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20108
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20109	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20110	extent: (Point 564 213)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20111	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20112	(FramedBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20113	label: 'Audible Bell'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20114	name: 'FramedBox3'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20115	labelPosition: topLeft
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20116	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20117	component:
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20118	(SpecCollection
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20119	collection: (
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20120	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20121	label: 'Beep Generally Enabled'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20122	name: 'beepEnabled'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	20123	layout: (LayoutFrame 5 0 10 0 0 1 40 0)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20124	activeHelpKey: beepEnabled
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20125	model: beepEnabled
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20126	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20127	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20128	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20129	label: 'Beep in Editor'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20130	name: 'CheckBox7'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	20131	layout: (LayoutFrame 40 0 35 0 0 1 65 0)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20132	activeHelpKey: beepInEditor
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20133	enableChannel: beepEnabled
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20134	model: beepInEditor
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20135	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20136	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20137	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20138	label: 'Beep for Info Dialogs'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20139	name: 'CheckBox3'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	20140	layout: (LayoutFrame 40 0 60 0 0 1 90 0)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20141	activeHelpKey: beepForInfoDialog
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20142	enableChannel: beepEnabled
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20143	model: beepForInfoDialog
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20144	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20145	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20146	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20147	label: 'Beep for Warning Dialogs'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20148	name: 'CheckBox4'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	20149	layout: (LayoutFrame 40 0 85 0 0 1 115 0)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20150	activeHelpKey: beepForWarningDialog
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20151	enableChannel: beepEnabled
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20152	model: beepForWarningDialog
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20153	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20154	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20155	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20156	label: 'Beep for Error Dialogs'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20157	name: 'CheckBox5'
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	20158	layout: (LayoutFrame 40 0 111 0 0 1 141 0)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20159	activeHelpKey: beepForErrorDialog
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20160	enableChannel: beepEnabled
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20161	model: beepForErrorDialog
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20162	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20163	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20164	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20165
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20166	)
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	20167	extent: (Point 564 178)
15876 f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20168	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20169	(FramedBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20170	label: 'Help'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20171	name: 'FramedBox4'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20172	labelPosition: topLeft
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20173	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20174	component:
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20175	(SpecCollection
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20176	collection: (
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20177	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20178	label: 'Tooltips (FlyBy Help)'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20179	name: 'CheckBox6'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20180	layout: (LayoutFrame 5 0 7 0 -5 1 37 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20181	activeHelpKey: flyByHelpActive
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20182	model: flyByHelpActive
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20183	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20184	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20185	(InputFieldSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20186	name: 'EntryField1'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20187	layout: (LayoutFrame -90 1 5 0 -34 1 35 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20188	activeHelpKey: toolTipAutoHideDelay
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20189	enableChannel: flyByHelpActive
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20190	model: toolTipAutoHideDelay
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20191	type: timeDurationOrNil
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20192	acceptOnReturn: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20193	acceptOnTab: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20194	acceptOnPointerLeave: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20195	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20196	(LabelSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20197	label: 'Autohide after:'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20198	name: 'Label1'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20199	layout: (AlignmentOrigin -94 1 21 0 1 0.5)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20200	activeHelpKey: toolTipAutoHideDelay
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20201	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20202	adjust: right
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20203	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20204	(LabelSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20205	label: '(s)'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20206	name: 'Label2'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20207	layout: (LayoutFrame -31 1 6 0 0 1 36 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20208	activeHelpKey: toolTipAutoHideDelay
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20209	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20210	adjust: left
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20211	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20212	(CheckBoxSpec
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20213	label: 'Only Show Tooltips for Active Window'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20214	name: 'CheckBox9'
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20215	layout: (LayoutFrame 40 0 42 0 0 1 72 0)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20216	activeHelpKey: onlyShowTooltipsForActiveWindow
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20217	enableChannel: flyByHelpActive
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20218	model: onlyShowTooltipsForActiveWindow
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20219	translateLabel: true
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20220	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20221	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20222
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20223	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20224	extent: (Point 564 108)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20225	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20226	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20227
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20228	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20229	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20230	)
f6c3e18d8dfd #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15795 diff changeset	20231
13694 8a0442b537f7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13692 diff changeset	20232	)
8a0442b537f7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13692 diff changeset	20233	)
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20234	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20235
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20236	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20237
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20238	basicReadSettings
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20239	super basicReadSettings.
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	20240
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	20241	self vmInfo value:ObjectMemory infoPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	20242	self vmErrors value:ObjectMemory debugPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	20243	self classInfos value:Object infoPrinting.
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	20244	self displayErrors value:DeviceWorkstation errorPrinting.
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	20245
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20246	"Modified: / 10-11-2010 / 12:08:03 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	20247	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	20248
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20249	basicSaveSettings
4574 bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	20250
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	20251	ObjectMemory infoPrinting:self vmInfo value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	20252	ObjectMemory debugPrinting:self vmErrors value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	20253	Object infoPrinting:self classInfos value.
bcc59a552bca * empty log message * Claus Gittinger <cg@exept.de> parents: 4566 diff changeset	20254	DeviceWorkstation errorPrinting:self displayErrors value.
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20255
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20256	super basicSaveSettings.
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20257
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20258	"Modified: / 10-11-2010 / 12:08:14 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20259	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20260
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20261	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20262
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20263	aspects
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20264	^ #(
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20265	beepEnabled
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20266	beepInEditor
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20267	beepForInfoDialog
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20268	beepForWarningDialog
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20269	beepForErrorDialog
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20270	flyByHelpActive
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20271	toolTipAutoHideDelay
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20272	sendMessagesAlsoToTranscript
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20273	onlyShowTooltipsForActiveWindow
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20274	)
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20275
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20276	"Created: / 10-11-2010 / 12:07:42 / cg"
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20277	!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20278
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	20279	beepEnabled
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	20280	beepEnabled isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20281	beepEnabled := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20282	beepEnabled onChangeSend:#updateModifiedChannel to:self
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	20283	].
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	20284	^ beepEnabled.
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	20285	!
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	20286
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20287	beepForErrorDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20288	beepForErrorDialog isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20289	beepForErrorDialog := currentUserPrefs beepForErrorDialog asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20290	beepForErrorDialog onChangeSend:#updateModifiedChannel to:self
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20291	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20292	^ beepForErrorDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20293	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20294
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20295	beepForInfoDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20296	beepForInfoDialog isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20297	beepForInfoDialog := currentUserPrefs beepForInfoDialog asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20298	beepForInfoDialog onChangeSend:#updateModifiedChannel to:self
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20299	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20300	^ beepForInfoDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20301	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20302
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20303	beepForWarningDialog
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20304	beepForWarningDialog isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20305	beepForWarningDialog := currentUserPrefs beepForWarningDialog asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20306	beepForWarningDialog onChangeSend:#updateModifiedChannel to:self
6163 00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20307	].
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20308	^ beepForWarningDialog.
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20309	!
00410a71d4e2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6135 diff changeset	20310
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	20311	beepInEditor
17943 b2efb0175eab #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17939 diff changeset	20312	"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	20313	should beep or not."
b2efb0175eab #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 17939 diff changeset	20314
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	20315	beepInEditor isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20316	beepInEditor := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20317	beepInEditor onChangeSend:#updateModifiedChannel to:self
8623 7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	20318	].
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	20319	^ beepInEditor.
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	20320	!
7a63aa996449 * empty log message * Claus Gittinger <cg@exept.de> parents: 8594 diff changeset	20321
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20322	changeFileName
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	20323
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	20324	changeFileName isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20325	changeFileName := ObjectMemory nameForChanges asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20326	changeFileName onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	20327	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	20328	^ changeFileName.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	20329	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	20330
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20331	classInfos
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20332
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20333	classInfos isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20334	classInfos := Object infoPrinting asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20335	classInfos onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20336	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20337	^ classInfos.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20338	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20339
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20340	displayErrors
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20341
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20342	displayErrors isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20343	displayErrors := DeviceWorkstation errorPrinting asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20344	displayErrors onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20345	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20346	^ displayErrors.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20347	!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20348
6781 facbb533a366 * empty log message * Claus Gittinger <cg@exept.de> parents: 6780 diff changeset	20349	flyByHelpActive
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	20350	flyByHelp isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20351	flyByHelp := currentUserPrefs flyByHelpActive asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20352	flyByHelp onChangeSend:#updateModifiedChannel to:self
6166 92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	20353	].
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	20354	^ flyByHelp.
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	20355	!
92d4bff65c1d * empty log message * Claus Gittinger <cg@exept.de> parents: 6165 diff changeset	20356
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20357	logDoits
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	20358
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	20359	logDoits isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20360	logDoits := Smalltalk logDoits asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20361	logDoits onChangeSend:#updateModifiedChannel to:self
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	20362	].
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	20363	^ logDoits.
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	20364	!
4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	20365
14515 14584fa647c7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14514 diff changeset	20366	onlyShowTooltipsForActiveWindow
14584fa647c7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14514 diff changeset	20367	onlyShowTooltipsForActiveWindow isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20368	onlyShowTooltipsForActiveWindow := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20369	onlyShowTooltipsForActiveWindow onChangeSend:#updateModifiedChannel to:self
14515 14584fa647c7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14514 diff changeset	20370	].
14584fa647c7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14514 diff changeset	20371	^ onlyShowTooltipsForActiveWindow.
14584fa647c7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14514 diff changeset	20372	!
14584fa647c7 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14514 diff changeset	20373
14278 bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	20374	sendMessagesAlsoToTranscript
bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	20375	sendMessagesAlsoToTranscript isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20376	sendMessagesAlsoToTranscript := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20377	sendMessagesAlsoToTranscript onChangeSend:#updateModifiedChannel to:self
14278 bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	20378	].
bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	20379	^ sendMessagesAlsoToTranscript.
bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	20380	!
bf34a3f16877 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14266 diff changeset	20381
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20382	toolTipAutoHideDelay
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20383	toolTipAutoHideDelay isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20384	toolTipAutoHideDelay := 10 seconds asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20385	toolTipAutoHideDelay onChangeSend:#updateModifiedChannel to:self
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20386	].
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20387	^ toolTipAutoHideDelay.
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20388
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20389	"Created: / 10-11-2010 / 12:07:10 / cg"
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20390	!
a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20391
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20392	updChanges
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20393
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20394	updChanges isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20395	updChanges := Class updatingChanges asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20396	updChanges onChangeSend:#updateModifiedChannel to:self
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20397	].
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20398	^ updChanges.
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20399	!
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20400
e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20401	vmErrors
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	20402
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	20403	vmErrors isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20404	vmErrors := ObjectMemory debugPrinting asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20405	vmErrors onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	20406	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	20407	^ vmErrors.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	20408	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	20409
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20410	vmInfo
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20411
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20412	vmInfo isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20413	vmInfo := ObjectMemory infoPrinting asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20414	vmInfo onChangeSend:#updateModifiedChannel to:self
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20415	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20416	^ vmInfo.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20417	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20418
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	20419	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	20420
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	20421	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	20422	^ 'Launcher/messageSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	20423	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	20424
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20425	!AbstractSettingsApplication::SystemMessageSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20426
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	20427	hasUnsavedChanges
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20428	(super hasUnsavedChanges) ifTrue:[^ true].
6784 42bbd1c1ffe2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6783 diff changeset	20429
5918 d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	20430	self vmInfo value ~= ObjectMemory infoPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	20431	self vmErrors value ~= ObjectMemory debugPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	20432	self classInfos value ~= Object infoPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	20433	self displayErrors value ~= DeviceWorkstation errorPrinting ifTrue:[^ true].
d575b87ea523 or: / and: orgies stopped Claus Gittinger <cg@exept.de> parents: 5915 diff changeset	20434	^ false
9610 64f38a5a9fb6 change file settings in separate tab Claus Gittinger <cg@exept.de> parents: 9595 diff changeset	20435
9627 a2054a643f52 toolTipAutoHideDelay Claus Gittinger <cg@exept.de> parents: 9610 diff changeset	20436	"Modified: / 10-11-2010 / 12:08:25 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20437	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	20438
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20439	!AbstractSettingsApplication::TerminalViewSettingsAppl class methodsFor:'help specs'!
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20440
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	20441	helpSpec
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20442	"This resource specification was automatically generated
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20443	by the UIHelpTool of ST/X."
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20444
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20445	"Do not manually edit this!! If it is corrupted,
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20446	the UIHelpTool may not be able to read the specification."
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20447
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20448	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	20449	UIHelpTool openOnClass:AbstractSettingsApplication::FontSettingsAppl
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20450	"
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20451
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20452	<resource: #help>
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20453
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	20454	^ super helpSpec addPairsFrom:#(
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20455
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20456	#terminalOutputIsUTF8
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20457	'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	20458
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20459	#terminalInputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20460	'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	20461
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20462	)
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20463	! !
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20464
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20465	!AbstractSettingsApplication::TerminalViewSettingsAppl class methodsFor:'image specs'!
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20466
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20467	defaultIcon
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20468	<resource: #programImage>
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20469
16953 9ad8c3d47cf2 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16951 diff changeset	20470	OperatingSystem isUNIXlike ifTrue:[
9ad8c3d47cf2 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16951 diff changeset	20471	^ ToolbarIconLibrary unixShellTerminal22x22Icon
9ad8c3d47cf2 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16951 diff changeset	20472	].
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20473	^ ToolbarIconLibrary terminal16x16Icon
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20474	! !
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20475
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20476	!AbstractSettingsApplication::TerminalViewSettingsAppl class methodsFor:'interface specs'!
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20477
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20478	windowSpec
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20479	"This resource specification was automatically generated
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20480	by the UIPainter of ST/X."
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20481
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20482	"Do not manually edit this!! If it is corrupted,
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20483	the UIPainter may not be able to read the specification."
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20484
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20485	"
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20486	UIPainter new openOnClass:AbstractSettingsApplication::TerminalViewSettingsAppl andSelector:#windowSpec
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20487	AbstractSettingsApplication::TerminalViewSettingsAppl new openInterface:#windowSpec
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20488	AbstractSettingsApplication::TerminalViewSettingsAppl open
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20489	"
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20490
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20491	<resource: #canvas>
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20492
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20493	^
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20494	#(FullSpec
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20495	name: windowSpec
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20496	window:
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20497	(WindowSpec
16332 bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	20498	label: 'Terminalview Settings'
bf165cac21fd #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16324 diff changeset	20499	name: 'Terminalview Settings'
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20500	flags: 1
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20501	min: (Point 10 10)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20502	bounds: (Rectangle 0 0 658 543)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20503	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20504	component:
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20505	(SpecCollection
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20506	collection: (
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20507	(VerticalPanelViewSpec
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20508	name: 'VerticalPanel1'
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20509	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20510	horizontalLayout: fit
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20511	verticalLayout: top
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20512	horizontalSpace: 3
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20513	verticalSpace: 3
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20514	component:
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20515	(SpecCollection
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20516	collection: (
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20517	(CheckBoxSpec
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20518	label: 'Shell / Command Output is UTF8 encoded'
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20519	name: 'UserCodeView2'
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20520	activeHelpKey: terminalOutputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20521	model: terminalOutputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20522	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	20523	extent: (Point 658 30)
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20524	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20525	(CheckBoxSpec
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20526	label: 'Shell / Command Input is UTF8 encoded'
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20527	name: 'CheckBox1'
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20528	activeHelpKey: terminalInputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20529	model: terminalInputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20530	translateLabel: true
16317 936828ad0b35 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16312 diff changeset	20531	extent: (Point 658 30)
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20532	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20533	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20534
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20535	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20536	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20537	)
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20538
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20539	)
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20540	)
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20541	! !
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20542
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20543	!AbstractSettingsApplication::TerminalViewSettingsAppl methodsFor:'aspects'!
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20544
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20545	aspects
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	20546	^ #(
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20547	#terminalOutputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20548	#terminalInputIsUTF8
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20549	)
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	20550	!
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20551
15795 5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20552	terminalInputIsUTF8
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20553	terminalInputIsUTF8 isNil ifTrue:[
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20554	terminalInputIsUTF8 := false asValue.
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20555	terminalInputIsUTF8 onChangeSend:#updateModifiedChannel to:self.
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20556	].
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20557	^ terminalInputIsUTF8.
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20558	!
5f87fdfb8513 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15764 diff changeset	20559
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20560	terminalOutputIsUTF8
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20561	terminalOutputIsUTF8 isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20562	terminalOutputIsUTF8 := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20563	terminalOutputIsUTF8 onChangeSend:#updateModifiedChannel to:self.
14477 46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20564	].
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20565	^ terminalOutputIsUTF8.
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20566	! !
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20567
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20568	!AbstractSettingsApplication::TerminalViewSettingsAppl methodsFor:'help'!
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20569
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20570	helpFilename
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20571	^ 'Launcher/terminalSettings.html'
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20572	! !
46925e5f02c6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14474 diff changeset	20573
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20574	!AbstractSettingsApplication::ToolboxSettingsAppl class methodsFor:'image specs'!
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	defaultIcon
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20577	"This resource specification was automatically generated
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20578	by the ImageEditor of ST/X."
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	"Do not manually edit this!! If it is corrupted,
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20581	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	20582
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20583	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20584	self defaultIcon inspect
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20585	ImageEditor openOnClass:self andSelector:#defaultIcon
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20586	Icon flushCachedIcons
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20587	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20588
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20589	<resource: #image>
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	^Icon
15496 822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	20592	constantNamed:'AbstractSettingsApplication::ToolboxSettingsAppl defaultIcon'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	20593	ifAbsentPut:[(Depth4Image new) width:24; height:24; bits:(ByteArray fromPackedString:'
822b42fb58f6 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15494 diff changeset	20594	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	20595	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	20596	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	20597	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	20598	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20599
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20600	!AbstractSettingsApplication::ToolboxSettingsAppl class methodsFor:'interface specs'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20601
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20602	developmentToolsSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20603	"This resource specification was automatically generated
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20604	by the UIPainter of ST/X."
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	"Do not manually edit this!! If it is corrupted,
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20607	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	20608
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	UIPainter new openOnClass:AbstractSettingsApplication::ToolboxSettingsAppl andSelector:#developmentToolsSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20611	AbstractSettingsApplication::ToolboxSettingsAppl new openInterface:#developmentToolsSpec
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	<resource: #canvas>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20615
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20616	^
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20617	#(FullSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20618	name: developmentToolsSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20619	window:
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20620	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20621	label: 'Development'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20622	name: 'Development'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20623	bounds: (Rectangle 0 0 674 614)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20624	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20625	component:
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20626	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20627	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20628	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20629	name: 'DevToolsPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20630	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20631	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20632	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20633	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20634	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20635	postBuildCallback: developmentToolSettingsInto:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20636	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20637	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20638
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20639	)
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20640	)
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20641
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20642	"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	20643	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20644
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20645	miscToolsSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20646	"This resource specification was automatically generated
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20647	by the UIPainter of ST/X."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20648
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20649	"Do not manually edit this!! If it is corrupted,
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20650	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	20651
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20652	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20653	UIPainter new openOnClass:AbstractSettingsApplication::ToolboxSettingsAppl andSelector:#developmentToolsSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20654	AbstractSettingsApplication::ToolboxSettingsAppl new openInterface:#developmentToolsSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20655	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20656
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20657	<resource: #canvas>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20658
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20659	^
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20660	#(FullSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20661	name: miscToolsSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20662	window:
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20663	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20664	label: 'Other'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20665	name: 'Other'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20666	bounds: (Rectangle 0 0 674 614)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20667	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20668	component:
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20669	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20670	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20671	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20672	name: 'DevToolsPanel'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20673	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20674	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20675	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20676	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20677	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20678	postBuildCallback: miscToolSettingsInto:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20679	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20680	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20681
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20682	)
13849 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	"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	20686	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20687
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20688	windowSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20689	"This resource specification was automatically generated
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20690	by the UIPainter of ST/X."
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	"Do not manually edit this!! If it is corrupted,
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20693	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	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	UIPainter new openOnClass:AbstractSettingsApplication::ToolboxSettingsAppl andSelector:#windowSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20697	AbstractSettingsApplication::ToolboxSettingsAppl new openInterface:#windowSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20698	AbstractSettingsApplication::ToolboxSettingsAppl open
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
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20701	<resource: #canvas>
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	^
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20704	#(FullSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20705	name: windowSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20706	window:
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20707	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20708	label: 'Toolbox Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20709	name: 'Toolbox Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20710	bounds: (Rectangle 0 0 551 561)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20711	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20712	component:
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20713	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20714	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20715	(NoteBookViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20716	name: 'NoteBook'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20717	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20718	menu: notebookTabList
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20719	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20720	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20721
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20722	)
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20723	)
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20724	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20725
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20726	!AbstractSettingsApplication::ToolboxSettingsAppl class methodsFor:'list specs'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20727
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20728	notebookTabList
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20729	"This resource specification was automatically generated
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20730	by the TabListEditor of ST/X."
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	"Do not manually edit this!! If it is corrupted,
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20733	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	20734
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20735	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20736	TabListEditor new openOnClass: self andSelector:#notebookTabList
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20737	"
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	<resource: #tabList>
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	^ #(
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20742	(TabItem
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20743	label: 'Development'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20744	minorKey: developmentToolsSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20745	createNewBuilder: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20746	)
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20747	(TabItem
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20748	label: 'Miscellaneous'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20749	minorKey: miscToolsSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20750	createNewBuilder: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20751	)
13849 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	)
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20754
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20755	collect:[:aTab\| TabItem new fromLiteralArrayEncoding:aTab ]
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20756
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20757	"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	20758	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20759
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20760	!AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'aspects'!
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	aspects
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20763
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20764	^#(
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20765	"Development"
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20766	changesBrowserClassName
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20767
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20768	"Misc"
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20769	fileBrowserClassName
13849 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
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20772	"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	20773	!
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	changesBrowserClassName
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20776	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20777
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20778	changesBrowserClassName isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20779	changesBrowserClassName := ValueHolder new.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20780	changesBrowserClassName onChangeSend:#updateModifiedChannel to:self.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20781	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20782	^ changesBrowserClassName.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20783
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20784	"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	20785	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20786
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20787	fileBrowserClassName
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20788	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20789
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20790	fileBrowserClassName isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20791	fileBrowserClassName := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20792	fileBrowserClassName onChangeSend:#updateModifiedChannel to:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20793	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20794	^ fileBrowserClassName.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20795
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20796	"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	20797	"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	20798	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20799
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20800	notebookTabList
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20801	"Generated by the TabListEditor"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20802
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20803	\|list\|
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20804
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20805	(list := builder bindingAt:#notebookTabList) isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20806	builder aspectAt:#notebookTabList put:(list := self class notebookTabList).
13849 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	^ list
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20809	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20810
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20811	!AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'hooks'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20812
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20813	developmentToolSettingsInto:panel
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20814
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20815	(self addClassToolSettingTo: panel)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20816	label: 'Changes Browser';
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20817	classes:#( #ChangesBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20818	#NewChangesBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20819	#Tools::ChangeSetBrowser2 );
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20820	labels: #( 'ChangesBrowser - default'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20821	'NewChangesBrowser - experimental, not maintained'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20822	'Tools::ChangeSetBrowser2 - experimental' );
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20823	model: self changesBrowserClassName
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20824
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20825	"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	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	miscToolSettingsInto:panel
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	(self addClassToolSettingTo: panel)
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20831	label: 'File Browser';
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20832	classes:#( #FileBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20833	#FileBrowserV2
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20834	#FileBrowserV3 );
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20835	labels: #( 'FileBrowser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20836	'FileBrowserV2 - default'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20837	'FileBrowserV3 - experimental' );
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20838	model: self fileBrowserClassName
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20839
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20840	"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	20841	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20842
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20843	!AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'private'!
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	addClassToolSettingTo: panel
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20846
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20847	\| model setting canvas \|
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20848	canvas := ApplicationSubView new.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20849	setting := ClassToolSetting new.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20850	setting createBuilder.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20851	setting model: model.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20852	setting window: canvas.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20853	canvas client: setting.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20854	canvas height: 30.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20855	panel addSubView: canvas.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20856	^setting
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20857
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20858	"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	20859	! !
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	!AbstractSettingsApplication::ToolboxSettingsAppl methodsFor:'protocol'!
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	helpFilename
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20864	"subclasses must return the relative name of a helpFile
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20865	in the doc/online/<language>/help directory.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20866	Or nil, if no help is available."
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	^ self shouldImplement
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20869	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20870
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20871	!AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting class methodsFor:'interface specs'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20872
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20873	windowSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20874	"This resource specification was automatically generated
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20875	by the UIPainter of ST/X."
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20876
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20877	"Do not manually edit this!! If it is corrupted,
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20878	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	20879
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20880	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20881	UIPainter new openOnClass:AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting andSelector:#windowSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20882	AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting new openInterface:#windowSpec
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20883	AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting open
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20884	"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20885
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20886	<resource: #canvas>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20887
16989 1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20888	^
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20889	#(FullSpec
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20890	name: windowSpec
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20891	window:
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20892	(WindowSpec
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20893	label: 'ToolSetting'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20894	name: 'ToolSetting'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20895	min: (Point 10 10)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20896	bounds: (Rectangle 0 0 431 60)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20897	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20898	component:
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20899	(SpecCollection
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20900	collection: (
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20901	(LabelSpec
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20902	label: 'Tool...'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20903	name: 'Label'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20904	layout: (LayoutFrame 0 0 0 0 250 0 30 0)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20905	translateLabel: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20906	labelChannel: optionLabelHolder
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20907	adjust: left
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20908	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20909	(PopUpListSpec
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20910	label: 'Please select...'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20911	name: 'OptionList'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20912	layout: (LayoutFrame 250 0 3 0 0 1 27 0)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20913	translateLabel: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20914	model: optionSelectionHolder
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20915	menu: optionLabelList
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20916	useIndex: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20917	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20918	(InputFieldSpec
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20919	name: 'EntryField1'
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20920	layout: (LayoutFrame 250 0 33 0 0 1 56 0)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20921	visibilityChannel: optionCustomValueVisibleHolder
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20922	backgroundChannel: optionCustomValueBackgroundHolder
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20923	model: optionCustomValueHolder
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20924	type: string
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20925	immediateAccept: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20926	acceptOnReturn: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20927	acceptOnTab: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20928	acceptOnPointerLeave: true
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20929	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20930	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20931
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20932	)
1714bd619d1d #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16986 diff changeset	20933	)
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20934	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20935
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20936	!AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting methodsFor:'accessing'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20937
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20938	classes: aCollection
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20939
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20940	optionValueList := aCollection.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20941
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20942	"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	20943	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20944
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20945	label: aString
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20946
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20947	self optionLabelHolder value: aString
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20948
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20949	"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	20950	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20951
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20952	labels: aCollection
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20953
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20954	\| labels \|
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20955	labels := aCollection asOrderedCollection.
18692 a12a8ca6179e #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18653 diff changeset	20956	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	20957	self optionLabelList value: labels.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20958
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20959	"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	20960	"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	20961	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20962
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20963	model: aValueHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20964
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20965	self optionValueHolder: aValueHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20966
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20967	"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	20968	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20969
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20970	!AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting methodsFor:'aspects'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20971
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20972	optionCustomValueBackgroundHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20973	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20974
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20975	optionCustomValueBackgroundHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20976	optionCustomValueBackgroundHolder := ValueHolder new.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20977	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20978	^ optionCustomValueBackgroundHolder.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20979	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20980
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20981	optionCustomValueBackgroundHolder:something
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20982	"set the 'optionCustomValueBackgroundHolder' value holder (automatically generated)"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20983
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20984	optionCustomValueBackgroundHolder := something.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20985	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20986
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20987	optionCustomValueHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20988	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20989
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20990	optionCustomValueHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	20991	optionCustomValueHolder := ValueHolder new.
16189 0386621f56dc x Claus Gittinger <cg@exept.de> parents: 16173 diff changeset	20992	optionCustomValueHolder addDependent:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20993	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20994	^ optionCustomValueHolder.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20995
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20996	"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	20997	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20998
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	20999	optionCustomValueVisibleHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21000	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21001
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21002	optionCustomValueVisibleHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21003	optionCustomValueVisibleHolder := false asValue.
16189 0386621f56dc x Claus Gittinger <cg@exept.de> parents: 16173 diff changeset	21004	optionCustomValueVisibleHolder addDependent:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21005	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21006	^ optionCustomValueVisibleHolder.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21007
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21008	"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	21009	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21010
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21011	optionLabelHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21012	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21013
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21014	optionLabelHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21015	optionLabelHolder := ValueHolder new.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21016	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21017	^ optionLabelHolder.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21018	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21019
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21020	optionLabelList
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21021	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21022
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21023	optionLabelList isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21024	optionLabelList := ValueHolder new.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21025	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21026	^ optionLabelList.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21027	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21028
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21029	optionLabelList:something
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21030	"set the 'optionLabelList' value holder (automatically generated)"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21031
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21032	optionLabelList := something.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21033	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21034
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21035	optionSelectionHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21036	<resource: #uiAspect>
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21037
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21038	optionSelectionHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21039	optionSelectionHolder := ValueHolder new.
16189 0386621f56dc x Claus Gittinger <cg@exept.de> parents: 16173 diff changeset	21040	optionSelectionHolder addDependent:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21041	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21042	^ optionSelectionHolder.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21043
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21044	"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	21045	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21046
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21047	optionSelectionHolder:something
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21048	"set the 'optionSelectionHolder' value holder (automatically generated)"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21049
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21050	\|oldValue newValue\|
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21051
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21052	optionSelectionHolder notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21053	oldValue := optionSelectionHolder value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21054	optionSelectionHolder removeDependent:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21055	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21056	optionSelectionHolder := something.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21057	optionSelectionHolder notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21058	optionSelectionHolder addDependent:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21059	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21060	newValue := optionSelectionHolder value.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21061	oldValue ~~ newValue ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21062	self update:#value with:newValue from:optionSelectionHolder.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21063	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21064	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21065
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21066	optionValueHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21067	"return/create the 'optionValueHolder' value holder (automatically generated)"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21068
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21069	optionValueHolder isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21070	optionValueHolder := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21071	optionValueHolder addDependent:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21072	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21073	^ optionValueHolder
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21074	!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21075
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21076	optionValueHolder:something
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21077	"set the 'optionValueHolder' value holder (automatically generated)"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21078
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21079	\|oldValue newValue\|
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21080
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21081	optionValueHolder notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21082	oldValue := optionValueHolder value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21083	optionValueHolder removeDependent:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21084	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21085	optionValueHolder := something.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21086	optionValueHolder notNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21087	optionValueHolder addDependent:self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21088	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21089	newValue := optionValueHolder value.
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21090	oldValue ~~ newValue ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21091	self update:#value with:newValue from:optionValueHolder.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21092	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21093	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21094
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21095	!AbstractSettingsApplication::ToolboxSettingsAppl::ClassToolSetting methodsFor:'change & update'!
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21096
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21097	update:something with:aParameter from:changedObject
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21098	"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	21099
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21100	"stub code automatically generated - please change as required"
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21101
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21102	changedObject == optionSelectionHolder ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21103	\| idx \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21104
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21105	idx := self optionSelectionHolder value.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21106	self optionCustomValueVisibleHolder value: (idx == optionLabelList value size).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21107	idx <= optionValueList size ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21108	self optionValueHolder value: (optionValueList at: idx)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21109	].
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21110	^ self.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21111	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21112	changedObject == optionCustomValueVisibleHolder ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21113	self window notNil ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21114	optionCustomValueVisibleHolder value ifTrue:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21115	self window height: 60
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21116	] ifFalse:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21117	self window height: 30
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21118	]
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21119	]
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21120	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21121
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21122	changedObject == optionValueHolder ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21123	\| idx \|
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21124
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21125	self optionSelectionHolder value: ((optionValueList ? #()) indexOf: optionValueHolder value ifAbsent:[optionLabelList value size]).
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21126	self optionCustomValueHolder value: optionValueHolder value.
13849 32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21127
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21128	].
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21129
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21130
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21131	super update:something with:aParameter from:changedObject
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21132
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21133	"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	21134	! !
32273f58f327 merged in jv's chenges Claus Gittinger <cg@exept.de> parents: 13792 diff changeset	21135
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21136	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'help specs'!
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21137
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	21138	helpSpec
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21139	"This resource specification was automatically generated
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21140	by the UIHelpTool of ST/X."
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21141
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21142	"Do not manually edit this!! If it is corrupted,
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21143	the UIHelpTool may not be able to read the specification."
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21144
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21145	"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	21146	UIHelpTool openOnClass:AbstractSettingsApplication::ToolsSettingsAppl
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21147	"
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21148
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21149	<resource: #help>
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21150
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	21151	^ super helpSpec addPairsFrom:#(
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21152
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21153	#autoRaiseTranscript
11732 67c6691a705a help texts Claus Gittinger <cg@exept.de> parents: 11711 diff changeset	21154	'Autoraise the Transcript window when messages are added'
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21155
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21156	#useNewFileBrowser
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21157	'Use the new, improved FileBrowser (as opposed to the simpler, older version)'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21158
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21159	#useNewSystemBrowser
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21160	'Use the new, improved SystemBrowser (as opposed to the simpler, older version)'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21161
11293 65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	21162	#useHierarchicalInspector
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	21163	'Use the new, hierarchical inspector (unfinished, experimental)'
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	21164
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	21165	#showDidYouKnowTips
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	21166	'Show the "Did you Know?" tip browser at startup'
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	21167
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21168	#showClockInLauncher
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21169	'Show the current time in the Launcher'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21170
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21171	#transcriptBufferSize
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21172	'Number of lines that are remembered in the Transcript'
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21173
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21174	#useSmalltalkDocumentView
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21175	'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	21176
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	21177	#eclipseStyleMenus
65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	21178	'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	21179	)
11293 65f343e4dc19 flybyhelp Claus Gittinger <cg@exept.de> parents: 11292 diff changeset	21180
11732 67c6691a705a help texts Claus Gittinger <cg@exept.de> parents: 11711 diff changeset	21181	"Modified: / 09-08-2012 / 09:34:41 / cg"
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21182	! !
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21183
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	21184	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'image specs'!
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	21185
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21186	defaultIcon
14411 858d91fea116 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14389 diff changeset	21187	<resource: #image>
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	21188	"This resource specification was automatically generated
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	21189	by the ImageEditor of ST/X."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	21190	"Do not manually edit this!! If it is corrupted,
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	21191	the ImageEditor may not be able to read the specification."
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	21192	"
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	21193	self defaultIcon inspect
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	21194	ImageEditor openOnClass:self andSelector:#defaultIcon
14411 858d91fea116 Use ImageMask instead of Depth1Image for masks Stefan Vogel <sv@exept.de> parents: 14389 diff changeset	21195	Icon flushCachedIcons"
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	21196
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	21197	^ Icon
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21198	constantNamed:#'AbstractSettingsApplication::ToolsSettingsAppl class defaultIcon'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21199	ifAbsentPut:[
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21200	(Depth4Image new)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21201	width:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21202	height:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21203	photometric:(#palette);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21204	bitsPerSample:(#( 4 ));
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21205	samplesPerPixel:(1);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21206	bits:(ByteArray
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21207	fromPackedString:'
4948 2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	21208	*****************************@@@@@@@@@@@@@J(@@@@@@@@@@@@@ @@@F(QD@@@@@B@@@@B((QD@@@@J(@@@@@@JLQ@@@@ @B$@@@)CD@@@B*@@
2198aabf34e4 layout Claus Gittinger <cg@exept.de> parents: 4944 diff changeset	21209	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	21210	@@@@@@H0B@@@@@@@@@@@@@J(@@@@@@@@@@@@@ @@@@@@@@@@@@B*****************************(b');
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21211	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	21212	mask:((ImageMask new)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21213	width:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21214	height:22;
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21215	bits:(ByteArray
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21216	fromPackedString:'@@@@@@@@@@@@@?@@@?0@@_8@GO<@G3<@G?>@G??@G?? G?? C?? @?? @G? @@_ @@G @@A @@@@@@@@@@@@@@@@');
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21217	yourself);
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21218	yourself
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21219	]
4312 319d9902cc5e * empty log message * penk parents: 4310 diff changeset	21220	! !
319d9902cc5e * empty log message * penk parents: 4310 diff changeset	21221
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21222	!AbstractSettingsApplication::ToolsSettingsAppl class methodsFor:'interface specs'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21223
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21224	windowSpec
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21225	"This resource specification was automatically generated
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21226	by the UIPainter of ST/X."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21227
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21228	"Do not manually edit this!! If it is corrupted,
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21229	the UIPainter may not be able to read the specification."
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21230
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21231	"
4310 933cd54deefe checkin from browser penk parents: 4292 diff changeset	21232	UIPainter new openOnClass:AbstractSettingsApplication::ToolsSettingsAppl andSelector:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	21233	AbstractSettingsApplication::ToolsSettingsAppl new openInterface:#windowSpec
933cd54deefe checkin from browser penk parents: 4292 diff changeset	21234	AbstractSettingsApplication::ToolsSettingsAppl open
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21235	"
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21236
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21237	<resource: #canvas>
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21238
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	21239	^
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	21240	#(FullSpec
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	21241	name: windowSpec
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	21242	window:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	21243	(WindowSpec
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21244	label: 'Tool Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21245	name: 'Tool Settings'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21246	flags: 1
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21247	min: (Point 10 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21248	bounds: (Rectangle 0 0 594 584)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	21249	)
82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	21250	component:
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	21251	(SpecCollection
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21252	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21253	(VerticalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21254	name: 'VerticalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21255	layout: (LayoutFrame 0 0.0 0 0 0 1.0 562 0)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21256	horizontalLayout: fit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21257	verticalLayout: top
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21258	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21259	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21260	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21261	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21262	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21263	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21264	label: 'Use the New System Browser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21265	name: 'NewSystemBrowser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21266	activeHelpKey: useNewSystemBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21267	visibilityChannel: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21268	model: useNewSystemBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21269	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21270	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21271	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21272	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21273	label: 'Use the New File Browser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21274	name: 'NewFileBrowser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21275	activeHelpKey: useNewFileBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21276	visibilityChannel: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21277	model: useNewFileBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21278	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21279	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21280	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21281	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21282	label: 'Use the New VersionDiff Browser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21283	name: 'VersionDiffBrowser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21284	model: useNewVersionDiffBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21285	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21286	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21287	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21288	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21289	label: 'Use the New FileTree File Dialog'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21290	name: 'UseNewFileDialogCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21291	model: useNewFileDialog
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21292	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21293	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21294	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21295	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21296	label: 'Use the New Settings Dialog'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21297	name: 'UseNewSettinsApplicationCheckBox'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21298	visibilityChannel: false
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21299	model: useNewSettingsApplication
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21300	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21301	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21302	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21303	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21304	label: 'Use the New Process Monitor'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21305	name: 'UseNewProcessMonitor'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21306	model: useProcessMonitorV2
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21307	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21308	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21309	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21310	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21311	label: 'Use the New TestRunner2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21312	name: 'CheckBox3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21313	model: useTestRunner2
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21314	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21315	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21316	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21317	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21318	label: 'Use the New Changes Browser for Changefiles (not yet recommended)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21319	name: 'ChangesBrowser'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21320	model: useNewChangesBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21321	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21322	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21323	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21324	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21325	label: 'Use the New ChangeSet Browser for Internal ChangeSets'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21326	name: 'CheckBox5'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21327	model: useNewChangeSetBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21328	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21329	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21330	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21331	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21332	label: 'Use Hierarchical Inspector (not yet recommended)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21333	name: 'HierarchicalInspector'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21334	activeHelpKey: useHierarchicalInspector
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21335	model: useNewInspector
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21336	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21337	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21338	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21339	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21340	label: 'Use the Smalltalk Document Viewer'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21341	name: 'UseSmalltalkDocumentViewer'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21342	activeHelpKey: useSmalltalkDocumentView
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21343	model: useSmalltalkDocumentViewer
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21344	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21345	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21346	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21347	(HorizontalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21348	name: 'HorizontalPanel2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21349	horizontalLayout: leftFit
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21350	verticalLayout: center
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21351	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21352	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21353	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21354	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21355	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21356	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21357	label: 'External Diff Tool:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21358	name: 'Label3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21359	activeHelpKey: transcriptBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21360	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21361	resizeForLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21362	adjust: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21363	useDefaultExtent: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21364	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21365	(InputFieldSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21366	name: 'EntryField1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21367	activeHelpKey: transcriptBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21368	model: externalDiffCommandTemplate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21369	type: string
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21370	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21371	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21372	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21373	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21374	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21375	extent: (Point 480 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21376	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21377	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21378
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21379	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21380	extent: (Point 594 35)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21381	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21382	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21383	name: 'Separator3'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21384	extent: (Point 594 4)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21385	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21386	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21387	label: 'Show "Tip Of The Day" at Startup'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21388	name: 'CheckBox1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21389	activeHelpKey: showDidYouKnowTips
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21390	model: showTipOfTheDayAtStartup
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21391	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21392	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21393	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21394	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21395	label: 'Show Clock in Launcher'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21396	name: 'Clock'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21397	activeHelpKey: showClockInLauncher
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21398	model: showClockInLauncher
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21399	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21400	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21401	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21402	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21403	name: 'Separator2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21404	extent: (Point 594 4)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21405	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21406	(HorizontalPanelViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21407	name: 'HorizontalPanel1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21408	horizontalLayout: left
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21409	verticalLayout: center
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21410	horizontalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21411	verticalSpace: 3
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21412	component:
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21413	(SpecCollection
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21414	collection: (
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21415	(ViewSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21416	name: 'Box4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21417	extent: (Point 20 10)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21418	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21419	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21420	label: 'Transcript''s Buffer Size:'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21421	name: 'Label1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21422	activeHelpKey: transcriptBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21423	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21424	resizeForLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21425	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21426	useDefaultExtent: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21427	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21428	(InputFieldSpec
18403 779374848f98 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18335 diff changeset	21429	name: 'Transcript''s Buffer Size'
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21430	activeHelpKey: transcriptBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21431	model: transcriptBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21432	type: number
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21433	immediateAccept: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21434	acceptOnReturn: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21435	acceptOnTab: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21436	acceptOnLostFocus: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21437	numChars: 8
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21438	acceptOnPointerLeave: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21439	extent: (Point 78 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21440	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21441	(LabelSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21442	label: '(Lines)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21443	name: 'Label2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21444	activeHelpKey: transcriptBufferSize
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21445	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21446	resizeForLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21447	adjust: right
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21448	useDefaultExtent: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21449	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21450	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21451
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21452	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21453	extent: (Point 594 35)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21454	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21455	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21456	label: 'Autoraise Transcript'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21457	name: 'CheckBox2'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21458	activeHelpKey: autoRaiseTranscript
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21459	model: autoRaiseTranscript
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21460	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21461	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21462	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21463	(DividerSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21464	name: 'Separator1'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21465	extent: (Point 594 4)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21466	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21467	(CheckBoxSpec
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21468	label: 'Eclipse Style Menus (where implemented)'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21469	name: 'CheckBox4'
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21470	activeHelpKey: eclipseStyleMenus
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21471	model: eclipseStyleMenus
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21472	translateLabel: true
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21473	extent: (Point 594 30)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21474	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21475	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21476
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21477	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21478	)
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21479	)
14829 82b109435616 do not hardcode program files Claus Gittinger <cg@exept.de> parents: 14807 diff changeset	21480
14230 2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	21481	)
2cf31dafdfc4 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 14203 diff changeset	21482	)
18403 779374848f98 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18335 diff changeset	21483
779374848f98 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 18335 diff changeset	21484	"Modified: / 21-09-2018 / 11:19:16 / Claus Gittinger"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21485	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21486
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21487	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'actions'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21488
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	21489	basicReadSettings
15494 dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21490	\|transcript\|
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21491
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21492	super basicReadSettings.
15494 dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21493
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21494	transcript := Transcript current.
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21495	transcript isTextCollector ifTrue:[
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21496	self transcriptBufferSize value:transcript lineLimit.
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21497	"/ now already in userprefs
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21498	"/ self autoRaiseTranscript value:transcript autoRaise.
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	21499	].
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21500
13399 589ada002149 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13372 diff changeset	21501	"Modified: / 29-08-2013 / 11:40:23 / cg"
6779 3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	21502	!
3e95d8048f6f * empty log message * Claus Gittinger <cg@exept.de> parents: 6778 diff changeset	21503
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21504	basicSaveSettings
6780 31249d86422b * empty log message * Claus Gittinger <cg@exept.de> parents: 6779 diff changeset	21505	\|showClock launcher reopenLauncher newSystemBrowserClass transcript\|
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	21506
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21507	reopenLauncher := false.
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21508
5594 06aba5d1bb6e NewSystemBrowser -> Tools::NewSystemBrowser Claus Gittinger <cg@exept.de> parents: 5583 diff changeset	21509	newSystemBrowserClass := Tools::NewSystemBrowser ? NewSystemBrowser.
4398 4f1963d9b80e add change and remove some settings applications penk parents: 4387 diff changeset	21510
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21511	super basicSaveSettings.
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21512
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	21513	currentUserPrefs useNewSettingsApplication ~= self useNewSettingsApplication value ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21514	currentUserPrefs useNewSettingsApplication:self useNewSettingsApplication value.
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	21515	].
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	21516
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	21517	currentUserPrefs useNewSystemBrowser ~= self useNewSystemBrowser value ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21518	currentUserPrefs useNewSystemBrowser:self useNewSystemBrowser value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21519	(self useNewSystemBrowser value and:[newSystemBrowserClass isLoaded]) ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21520	newSystemBrowserClass installInLauncher.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21521	] ifFalse:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21522	newSystemBrowserClass removeFromLauncher.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21523	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21524	reopenLauncher := true.
5083 7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	21525	].
7fdf1e8c8f03 reopen launcher when systemBrowser setting changes Claus Gittinger <cg@exept.de> parents: 5080 diff changeset	21526
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21527	(Smalltalk at:#FileBrowserV2) isBehavior ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21528	currentUserPrefs useNewFileBrowser ~= self useNewFileBrowser value ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21529	currentUserPrefs useNewFileBrowser:self useNewFileBrowser value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21530	(self useNewFileBrowser value and:[FileBrowserV2 isLoaded]) ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21531	FileBrowserV2 installInLauncher.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21532	] ifFalse:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21533	FileBrowserV2 removeFromLauncher.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21534	].
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21535	reopenLauncher := true.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21536	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21537	].
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21538
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21539	transcript := Transcript current.
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21540	(transcript notNil and:[transcript isExternalStream not]) ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21541	transcript lineLimit:self transcriptBufferSize value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21542	"/ now already done by UserPreferences
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21543	"/ transcript autoRaise:self autoRaiseTranscript value.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21544	launcher := transcript application.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21545	].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21546
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21547	showClock := self showClockInLauncher value.
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21548	currentUserPrefs showClockInLauncher ~= showClock ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21549	currentUserPrefs showClockInLauncher:showClock.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21550	launcher notNil ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21551	showClock ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21552	launcher startClock
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21553	] ifFalse:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21554	launcher stopClock
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21555	]
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21556	]
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21557	].
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21558	Inspector := currentUserPrefs inspectorClassSetting.
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21559
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	21560	reopenLauncher ifTrue:[
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21561	launcher notNil ifTrue:[
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21562	launcher reopenLauncher.
d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21563	]
4387 bd7525e56e4b some changes on the settings applications penk parents: 4371 diff changeset	21564	].
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21565
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21566	"Modified: / 27-07-2012 / 20:51:46 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21567	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21568
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21569	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'aspects'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21570
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21571	aspects
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21572	^ #(
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21573	#eclipseStyleMenus
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21574	#useTestRunner2
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21575	"/ #useCodeView2InTools
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21576	#useNewInspector
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21577	#useNewChangesBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21578	#useNewChangeSetBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21579	"/ #useNewSystemBrowser -- no longer an option
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21580	#useNewVersionDiffBrowser
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21581	"/ #useNewFileBrowser -- no longer an option
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21582	#useNewFileDialog
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21583	"/ #useNewSettingsApplication -- no longer an option
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21584	#useProcessMonitorV2
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21585	#useSmalltalkDocumentViewer
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21586	#showClockInLauncher
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21587	#showTipOfTheDayAtStartup
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21588	#externalDiffCommandTemplate
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21589	#autoRaiseTranscript
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21590	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21591
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21592	"Created: / 27-07-2012 / 20:48:18 / cg"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21593	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21594
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21595	autoRaiseTranscript
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21596	autoRaiseTranscript isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21597	autoRaiseTranscript := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21598	autoRaiseTranscript onChangeSend:#updateModifiedChannel to:self
8273 ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21599	].
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21600	^ autoRaiseTranscript.
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21601
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21602	"Modified: / 21-09-2006 / 00:39:54 / cg"
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21603	!
ab37b03883e0 +autoraise feature Claus Gittinger <cg@exept.de> parents: 8216 diff changeset	21604
10294 123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21605	eclipseStyleMenus
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21606	eclipseStyleMenus isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21607	eclipseStyleMenus := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21608	eclipseStyleMenus onChangeSend:#updateModifiedChannel to:self
10294 123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21609	].
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21610	^ eclipseStyleMenus.
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21611
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21612	"Modified: / 21-09-2006 / 00:39:54 / cg"
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21613	"Created: / 08-07-2011 / 13:42:13 / cg"
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21614	!
123b913079b4 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10279 diff changeset	21615
12359 1f12210b8551 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12352 diff changeset	21616	externalDiffCommandTemplate
1f12210b8551 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12352 diff changeset	21617	externalDiffCommandTemplate isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21618	externalDiffCommandTemplate := UserPreferences current externalDiffCommandTemplate asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21619	externalDiffCommandTemplate onChangeSend:#updateModifiedChannel to:self
12359 1f12210b8551 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12352 diff changeset	21620	].
1f12210b8551 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12352 diff changeset	21621	^ externalDiffCommandTemplate.
1f12210b8551 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12352 diff changeset	21622	!
1f12210b8551 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 12352 diff changeset	21623
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21624	showClockInLauncher
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21625	showClockInLauncher isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21626	showClockInLauncher := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21627	showClockInLauncher onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21628	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21629	^ showClockInLauncher.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21630
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21631	"Modified: / 21-09-2006 / 00:39:54 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21632	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21633
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21634	showTipOfTheDayAtStartup
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21635	showTipOfTheDayAtStartup isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21636	showTipOfTheDayAtStartup := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21637	showTipOfTheDayAtStartup onChangeSend:#updateModifiedChannel to:self
8118 a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21638	].
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21639	^ showTipOfTheDayAtStartup.
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21640
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21641	"Modified: / 21-09-2006 / 00:39:54 / cg"
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21642	!
a94abef4b371 tip of the day Claus Gittinger <cg@exept.de> parents: 8110 diff changeset	21643
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21644	transcriptBufferSize
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21645	transcriptBufferSize isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21646	transcriptBufferSize := 600 asValue. "/ Transcript current lineLimit asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21647	transcriptBufferSize onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21648	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21649	^ transcriptBufferSize.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21650	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21651
11985 4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21652	useCodeView2InTools
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21653	useCodeView2InTools isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21654	useCodeView2InTools := ValueHolder new.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21655	useCodeView2InTools onChangeSend:#updateModifiedChannel to:self
11985 4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21656
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21657	].
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21658	^ useCodeView2InTools
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21659
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21660	"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	21661	!
4595dfe7b2a9 layout and settings location cleanup Claus Gittinger <cg@exept.de> parents: 11814 diff changeset	21662
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21663	useNewChangeSetBrowser
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21664	useNewChangeSetBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21665	useNewChangeSetBrowser := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21666	useNewChangeSetBrowser onChangeSend:#updateModifiedChannel to:self
11711 535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21667	].
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21668	^ useNewChangeSetBrowser.
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21669
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21670	"Modified: / 21-09-2006 / 00:39:37 / cg"
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21671	"Created: / 27-07-2012 / 20:45:41 / cg"
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21672	!
535095b1c03e tools Claus Gittinger <cg@exept.de> parents: 11682 diff changeset	21673
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21674	useNewChangesBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21675	useNewChangesBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21676	useNewChangesBrowser := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21677	useNewChangesBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21678	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21679	^ useNewChangesBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21680
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21681	"Modified: / 21-09-2006 / 00:39:37 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21682	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21683
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21684	useNewFileBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21685	useNewFileBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21686	useNewFileBrowser := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21687	useNewFileBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21688	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21689	^ useNewFileBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21690
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21691	"Modified: / 21-09-2006 / 00:39:19 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21692	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21693
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21694	useNewFileDialog
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21695	useNewFileDialog isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21696	useNewFileDialog := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21697	useNewFileDialog onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21698	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21699	^ useNewFileDialog.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21700	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21701
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21702	useNewInspector
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21703	useNewInspector isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21704	useNewInspector := false asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21705	useNewInspector onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21706	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21707	^ useNewInspector.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21708
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21709	"Modified: / 21-09-2006 / 00:38:41 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21710	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21711
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21712	useNewSettingsApplication
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21713	useNewSettingsApplication isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21714	useNewSettingsApplication := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21715	useNewSettingsApplication onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21716	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21717	^ useNewSettingsApplication.
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21718	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21719
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21720	useNewSystemBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21721	useNewSystemBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21722	useNewSystemBrowser := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21723	useNewSystemBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21724	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21725	^ useNewSystemBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21726
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21727	"Modified: / 21-09-2006 / 00:39:02 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21728	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21729
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21730	useNewVersionDiffBrowser
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21731	useNewVersionDiffBrowser isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21732	useNewVersionDiffBrowser := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21733	useNewVersionDiffBrowser onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21734	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21735	^ useNewVersionDiffBrowser.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21736
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21737	"Modified: / 21-09-2006 / 00:38:56 / cg"
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21738	!
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21739
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21740	useProcessMonitorV2
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21741	useProcessMonitorV2 isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21742	useProcessMonitorV2 := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21743	useProcessMonitorV2 onChangeSend:#updateModifiedChannel to:self
5029 62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21744	].
62c92c2a61c1 fix errors happend on checkin/checkout penk parents: 5028 diff changeset	21745	^ useProcessMonitorV2.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21746
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21747	"Modified: / 21-09-2006 / 00:38:50 / cg"
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21748	!
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21749
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21750	useSmalltalkDocumentViewer
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21751	useSmalltalkDocumentViewer isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21752	useSmalltalkDocumentViewer := nil asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21753	useSmalltalkDocumentViewer onChangeSend:#updateModifiedChannel to:self
6742 62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21754	].
62e435871e77 * empty log message * Claus Gittinger <cg@exept.de> parents: 6662 diff changeset	21755	^ useSmalltalkDocumentViewer.
7326 8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21756
8c26cd554837 * empty log message * Claus Gittinger <cg@exept.de> parents: 7311 diff changeset	21757	"Modified: / 21-09-2006 / 00:03:13 / cg"
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21758	!
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21759
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21760	useTestRunner2
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21761	useTestRunner2 isNil ifTrue:[
16167 d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21762	useTestRunner2 := true asValue.
d52aef915bd9 #OTHER Claus Gittinger <cg@exept.de> parents: 16166 diff changeset	21763	useTestRunner2 onChangeSend:#updateModifiedChannel to:self
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21764	].
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21765	^ useTestRunner2.
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21766
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21767	"Modified: / 21-09-2006 / 00:39:19 / cg"
500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21768	"Created: / 06-07-2011 / 13:52:33 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21769	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21770
8326 bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	21771	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'help'!
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	21772
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	21773	helpFilename
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	21774	^ 'Launcher/toolSettings.html'
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	21775	! !
bcbaf1714503 * empty log message * Claus Gittinger <cg@exept.de> parents: 8325 diff changeset	21776
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21777	!AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'queries'!
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21778
5030 e9b75c3920cb fix errors happend on checkin/checkout penk parents: 5029 diff changeset	21779	hasUnsavedChanges
15494 dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21780	\|transcript\|
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21781
15921 d3527cddc842 #REFACTORING Claus Gittinger <cg@exept.de> parents: 15920 diff changeset	21782	super hasUnsavedChanges ifTrue:[^ true].
15494 dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21783
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21784	transcript := Transcript current.
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21785	transcript isTextCollector ifTrue:[
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21786	(self transcriptBufferSize value ~= transcript lineLimit) ifTrue:[^ true].
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21787	"/ now already in UserPreferences
dd7ee99f51fd class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 15492 diff changeset	21788	"/ (self autoRaiseTranscript value ~= transcript autoRaise) ifTrue:[^ true].
5627 d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21789	].
d9314baa406c * empty log message * Claus Gittinger <cg@exept.de> parents: 5623 diff changeset	21790	^ false.
10191 500c830c6bed +useTestRunner2 Claus Gittinger <cg@exept.de> parents: 10125 diff changeset	21791
13399 589ada002149 class: AbstractSettingsApplication Claus Gittinger <cg@exept.de> parents: 13372 diff changeset	21792	"Modified: / 29-08-2013 / 11:40:55 / cg"
4286 ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21793	! !
ca4a4c435bf3 * empty log message * penk parents: 4240 diff changeset	21794
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21795	!AbstractSettingsApplication::WorkspaceSettingsAppl class methodsFor:'help specs'!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21796
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	21797	helpSpec
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21798	"This resource specification was automatically generated
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21799	by the UIHelpTool of ST/X."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21800
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21801	"Do not manually edit this!! If it is corrupted,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21802	the UIHelpTool may not be able to read the specification."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21803
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21804	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21805	UIHelpTool openOnClass:AbstractSettingsApplication::ProcessorSchedulerSettingsAppl
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21806	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21807
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21808	<resource: #help>
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21809
17904 67216f3b83ea #OTHER by cg Claus Gittinger <cg@exept.de> parents: 17857 diff changeset	21810	^ super helpSpec addPairsFrom:#(
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21811
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21812	#usersModuleName
16986 257538e3f185 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 16972 diff changeset	21813	'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	21814
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21815	#workspaceDirectory
17388 f835818f96c2 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17369 diff changeset	21816	'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	21817
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21818	)
17388 f835818f96c2 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17369 diff changeset	21819
f835818f96c2 #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17369 diff changeset	21820	"Modified: / 11-02-2017 / 15:28:42 / cg"
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21821	! !
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21822
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21823	!AbstractSettingsApplication::WorkspaceSettingsAppl class methodsFor:'image specs'!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21824
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21825	defaultIcon
18285 a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	21826	<resource: #programImage>
a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	21827
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21828	^ self defaultIcon2
18285 a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	21829
a116428ab70b #OTHER by cg Claus Gittinger <cg@exept.de> parents: 18239 diff changeset	21830	"Modified: / 28-07-2018 / 09:59:55 / Claus Gittinger"
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21831	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21832
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21833	defaultIcon1
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21834	"This resource specification was automatically generated
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21835	by the ImageEditor of ST/X."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21836
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21837	"Do not manually edit this!! If it is corrupted,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21838	the ImageEditor may not be able to read the specification."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21839
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21840	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21841	self defaultIcon1 inspect
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21842	ImageEditor openOnClass:self andSelector:#defaultIcon1
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21843	Icon flushCachedIcons
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21844	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21845
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21846	<resource: #image>
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21847
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21848	^Icon
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21849	constantNamed:'AbstractSettingsApplication::WorkspaceSettingsAppl defaultIcon1'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21850	ifAbsentPut:[(Depth4Image width:24 height:24) bits:(ByteArray fromPackedString:'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21851	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH@@@@@@@@@@@@@@AH@@@@@@@@@@@HP@UTP@R@@@@@@@@MQEU
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21852	UQES@@@@@@@@@%UUUUT @@@@@@@@@UT#H%TP@@@@@@@@EUH0@2UQ@@@@@@@QUULDPCUUDP@@@@@3UUHDPBUUL0@@@@@@H%TP@UT"@@@@@@@@@%UQEUT @@@@
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21853	@@@@@UUUUUTP@@@@@@@@ESIUURMQ@@@@@@@@H0@UTP@2@@@@@@@@@@@AL@@@@@@@@@@@@@@AL@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21854	@@@@@@@@@@@@@@@@@@@@@@@@') 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	21855	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21856
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21857	defaultIcon2
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21858	"This resource specification was automatically generated
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21859	by the ImageEditor of ST/X."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21860
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21861	"Do not manually edit this!! If it is corrupted,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21862	the ImageEditor may not be able to read the specification."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21863
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21864	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21865	self defaultIcon2 inspect
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21866	ImageEditor openOnClass:self andSelector:#defaultIcon2
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21867	Icon flushCachedIcons
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21868	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21869
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21870	<resource: #image>
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21871
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21872	^Icon
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21873	constantNamed:'AbstractSettingsApplication::WorkspaceSettingsAppl defaultIcon2'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21874	ifAbsentPut:[(Depth8Image width:24 height:24) bits:(ByteArray fromPackedString:'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21875	@@]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	21876	@@@@@@@@\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	21877	@@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	21878	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	21879	@@@@@@@@@@@B@ TE@P@@@PTE@ H@@@@@@@@@@@@@@@@@@ TEAPDAAPTE@ @@@@@@@@@@@@@@@@@@@PTEAPTEAPTE@P@@@@@@@@@@@@@@@@@AAPHBAPTEAPHC
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21880	APD@@@@@@@@@@@@@@@@B@ @@@PTE@P@@@0H@@@@@@@@@@@@@@@@@@@@@@@TB@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DB@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21881	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') 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	21882	! !
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21883
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21884	!AbstractSettingsApplication::WorkspaceSettingsAppl class methodsFor:'interface specs'!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21885
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21886	windowSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21887	"This resource specification was automatically generated
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21888	by the UIPainter of ST/X."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21889
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21890	"Do not manually edit this!! If it is corrupted,
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21891	the UIPainter may not be able to read the specification."
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21892
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21893	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21894	UIPainter new openOnClass:AbstractSettingsApplication::WorkspaceSettingsAppl andSelector:#windowSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21895	AbstractSettingsApplication::WorkspaceSettingsAppl new openInterface:#windowSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21896	AbstractSettingsApplication::WorkspaceSettingsAppl open
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21897	"
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21898
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21899	<resource: #canvas>
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21900
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21901	^
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21902	#(FullSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21903	name: windowSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21904	window:
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21905	(WindowSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21906	label: 'Workspace Settings'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21907	name: 'Workspace Settings'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21908	min: (Point 10 10)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21909	bounds: (Rectangle 0 0 600 320)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21910	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21911	component:
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21912	(SpecCollection
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21913	collection: (
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21914	(VerticalPanelViewSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21915	name: 'VerticalPanel2'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21916	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	21917	horizontalLayout: fit
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21918	verticalLayout: topSpace
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21919	horizontalSpace: 3
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21920	verticalSpace: 5
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21921	component:
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21922	(SpecCollection
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21923	collection: (
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21924	(HorizontalPanelViewSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21925	name: 'HorizontalPanel1'
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21926	activeHelpKey: usersModuleName
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21927	horizontalLayout: leftSpaceFit
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21928	verticalLayout: center
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21929	horizontalSpace: 3
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21930	verticalSpace: 3
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21931	component:
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21932	(SpecCollection
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21933	collection: (
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21934	(LabelSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21935	label: 'Top Level Module ID:'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21936	name: 'Label1'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21937	translateLabel: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21938	adjust: left
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21939	extent: (Point 200 22)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21940	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21941	(InputFieldSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21942	name: 'EntryField1'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21943	model: usersModuleName
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21944	acceptOnReturn: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21945	acceptOnTab: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21946	acceptOnPointerLeave: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21947	useDefaultExtent: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21948	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21949	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21950
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21951	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21952	extent: (Point 600 35)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21953	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21954	(HorizontalPanelViewSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21955	name: 'HorizontalPanel2'
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21956	activeHelpKey: workspaceDirectory
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21957	horizontalLayout: leftSpaceFit
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21958	verticalLayout: center
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21959	horizontalSpace: 3
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21960	verticalSpace: 3
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21961	component:
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21962	(SpecCollection
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21963	collection: (
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21964	(LabelSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21965	label: 'Workspace Directory:'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21966	name: 'Label2'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21967	translateLabel: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21968	adjust: left
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21969	extent: (Point 200 22)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21970	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21971	(InputFieldSpec
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21972	name: 'EntryField2'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21973	model: workspaceDirectory
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21974	acceptOnReturn: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21975	acceptOnTab: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21976	acceptOnPointerLeave: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21977	useDefaultExtent: true
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21978	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21979	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21980
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21981	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21982	extent: (Point 600 35)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	21983	)
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21984	(HorizontalPanelViewSpec
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21985	name: 'HorizontalPanel3'
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21986	activeHelpKey: workspaceDirectory
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21987	horizontalLayout: rightSpace
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21988	verticalLayout: center
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21989	horizontalSpace: 3
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21990	verticalSpace: 3
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21991	component:
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21992	(SpecCollection
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21993	collection: (
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21994	(ActionButtonSpec
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21995	label: 'Create Workspace Directory'
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21996	name: 'Button1'
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21997	translateLabel: true
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	21998	model: createWorkspaceDirectory
17389 6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	21999	enableChannel: workspaceDirectoryDoesNotExist
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22000	useDefaultExtent: true
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22001	)
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22002	(ActionButtonSpec
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22003	label: 'Browse'
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22004	name: 'Button2'
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22005	translateLabel: true
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22006	model: browseWorkspaceDirectory
17389 6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	22007	enableChannel: workspaceDirectoryDoesExist
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22008	useDefaultExtent: true
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22009	)
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22010	)
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22011
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22012	)
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22013	extent: (Point 600 35)
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22014	)
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22015	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22016
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22017	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22018	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22019	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22020
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22021	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22022	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22023	! !
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22024
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22025	!AbstractSettingsApplication::WorkspaceSettingsAppl methodsFor:'actions'!
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22026
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22027	browseWorkspaceDirectory
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22028	\|fn\|
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22029
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22030	(fn := workspaceDirectory value) notEmptyOrNil ifTrue:[
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22031	(fn := fn asFilename) exists ifFalse:[
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22032	Dialog warn:'Directory does not exist'.
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22033	] ifTrue:[
17644 6a159f066e9a #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17641 diff changeset	22034	FileBrowser default openOn:fn
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22035	]
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22036	]
17644 6a159f066e9a #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17641 diff changeset	22037
6a159f066e9a #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 17641 diff changeset	22038	"Modified: / 01-09-2017 / 14:01:36 / cg"
15920 6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22039	!
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22040
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22041	createWorkspaceDirectory
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22042	\|fn\|
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22043
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22044	(fn := workspaceDirectory value) notEmptyOrNil ifTrue:[
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22045	(fn := fn asFilename) exists ifFalse:[
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22046	fn recursiveMakeDirectory
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22047	]
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22048	]
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22049	! !
6eb9b5a638a1 #UI_ENHANCEMENT Claus Gittinger <cg@exept.de> parents: 15918 diff changeset	22050
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22051	!AbstractSettingsApplication::WorkspaceSettingsAppl methodsFor:'aspects'!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22052
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22053	aspects
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22054	^ #(
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22055	#usersModuleName
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22056	#workspaceDirectory
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22057	)
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22058	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22059
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22060	usersModuleName
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22061	usersModuleName isNil ifTrue:[
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22062	usersModuleName := '' asValue.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22063	usersModuleName onChangeSend:#updateModifiedChannel to:self.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22064	].
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22065	^ usersModuleName.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22066	!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22067
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22068	workspaceDirectory
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22069	workspaceDirectory isNil ifTrue:[
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22070	workspaceDirectory := '~/.smalltalk/workspace' asValue.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22071	workspaceDirectory onChangeSend:#updateModifiedChannel to:self.
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22072	].
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22073	^ workspaceDirectory.
17389 6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	22074	!
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	22075
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	22076	workspaceDirectoryDoesExist
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	22077	^ BlockValue
18763 6a3d3a6ac24e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18744 diff changeset	22078	with:[:workspaceDirectory \|
6a3d3a6ac24e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18744 diff changeset	22079	workspaceDirectory notEmptyOrNil
6a3d3a6ac24e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18744 diff changeset	22080	and:[workspaceDirectory asFilename exists]
17389 6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	22081	]
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	22082	argument:self workspaceDirectory
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	22083
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	22084	"Created: / 11-02-2017 / 15:43:59 / cg"
18763 6a3d3a6ac24e #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 18744 diff changeset	22085	"Modified: / 17-05-2019 / 15:33:01 / Stefan Vogel"
17389 6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	22086	!
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	22087
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	22088	workspaceDirectoryDoesNotExist
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	22089	^ BlockValue
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	22090	with:[:entry \|
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	22091	\|fn\|
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	22092
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	22093	((fn := entry) notEmptyOrNil)
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	22094	and:[ entry asFilename exists not ].
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	22095	]
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	22096	argument:(self workspaceDirectory)
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	22097
6748d8dd312a #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17388 diff changeset	22098	"Created: / 11-02-2017 / 15:42:02 / cg"
15918 1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22099	! !
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22100
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22101	!AbstractSettingsApplication::WorkspaceSettingsAppl methodsFor:'help'!
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22102
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22103	helpFilename
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22104	^ 'Launcher/workspaceSettings.html'
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22105	! !
1748cd3db46d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15917 diff changeset	22106
4226 44e2f83cc526 initial checkin penk parents: diff changeset	22107	!AbstractSettingsApplication class methodsFor:'documentation'!
44e2f83cc526 initial checkin penk parents: diff changeset	22108
10295 7c7b9ba6a2c2 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10294 diff changeset	22109	version
15744 6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	22110	^ '$Header$'
10295 7c7b9ba6a2c2 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10294 diff changeset	22111	!
7c7b9ba6a2c2 eclipseStyleMenus Claus Gittinger <cg@exept.de> parents: 10294 diff changeset	22112
8846 a5a4031ee2cc Smalltalk language -> UserPreferences current language Claus Gittinger <cg@exept.de> parents: 8793 diff changeset	22113	version_CVS
15744 6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	22114	^ '$Header$'
6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	22115	! !
6d2924d28504 class: AbstractSettingsApplication::STCCompilerSettingsAppl Stefan Vogel <sv@exept.de> parents: 15635 diff changeset	22116

author	Claus Gittinger <cg@exept.de>
	Thu, 28 Nov 2019 14:30:06 +0100
changeset 19314	a810beaf09a5
parent 19312	24bebdcf39ff
child 19328	db0d7c4cf619
permissions	-rw-r--r--